IMD 1.15: 15/05/2007 8:57:04 fog hak 013         -FOG/HAK013AMORTTBLBASANINTRTEBAS ANNUITY BASBUSINESSBASBUSINESSDATCHECKWTRBASCOMPAT BAS DAYDATESBAS DAYWEEK BAS DEPRAMNTBAS DEPRRATEBAS DEPRSCHDBASDISCOMPRBASDISK DOC,EFFINESTBASENG-METRBASFINAN1-3DOC(FINANC1ABQS/)*+FUTRVALUBASINTINVSTBASLOANTERMBASLSTPAYMTBAS MAPCHECKBASNOMINTSTBASPRINLOANBASRCIPECSTBASREGDEPOSBASREGPAYMTBASREGWDRAWBASS&L BQSd!"#$%&'SALVGVALBAS10 PRINT CHR$(26);"MORTGAGE AMORTIZATION TABLE" 20 PRINT 30 PRINT "REGULAR PAYMENT"; 40 INPUT R 50 PRINT "TERM IN YEARS, MONTHS"; 60 INPUT Y0,M 65 Y = (12 * Y0 + M) / 12 70 PRINT "PRINCIPAL"; 80 INPUT P 90 PRINT "ANNUAL INTEREST RATE"; WITHHDTXBAS CRCKLISTCRC -100 INPUT I 110 I = I / 100 120 PRINT "NUMBER OF PAYMENTS PER YEAR"; 130 INPUT N 140 PRINT "START PRINTING WITH WHAT YEAR"; 150 INPUT X 160 X = INT (X) 170 C1 = 0 180 I2 = 0 190 I3 = 0 200 J0 = 0 210 N1 = N 220 K = 66 230 B0 = P 240 A1   = 0 250 A2 = 0 260 IF INT (Y) < 1 THEN 690 270 FOR J0 = 1 TO INT (Y) 280 IF J0 < X THEN 410 290 IF K + N + 3 < 58 THEN 400 300 PRINT CHR$(26) 330 PRINT " " 340 PRINT " MORTGAGE AMORTIZATION TABLE" 350 PRINT " PRINCRINT 730 PRINT "CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)"; 740 INPUT Z 750 IF Z = 1 THEN 20 770 LOAD "BUSINESS",R  P0 A2 = 0 670 NEXT J0 680 IF Y = J0 THEN 720 690 N1 = ((Y - INT (Y)) * 12) / 12 * N 700 J0 = J0 + 1 710 GOTO 280 720 PIPAL $";P;" AT ";I * 100;"% FOR ";Y0;" YEARS ";M;" MONTHS" 360 PRINT " REGULAR PAYMENT = $";R 370 PRINT " " 380 PRINT "NO."; TAB( 10);"INTEREST"; TAB( 20);"AMORTIZED"; TAB( 30);"BALANCE"; TAB( 40);"ACCUM INTEREST" 390 K = 7 400 K = K 10 PRINT CHR$(26);"ANNUAL INTEREST RATE ON A LOAN" 20 PRINT 29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 30 PRINT "REGULAR PAYMENT"; 40 INPUT R 50 PRINT "TERM IN YEARS, MONTHS"; 60 INPUT Y0,M 64 REM - CALCULATE YEARS FROM YEARS AND MO+ N + 3 410 FOR J1 = 1 TO N1 420 I1 = INT ((B0 * I / N) * 100 + .5) / 100 430 C1 = C1 + 1 440 A = R - I1 450 A1 = A1 + A 460 B0 = P - A1 470 IF C1 < > N * Y THEN 520 480 R = R + B0 490 A = A + B0 500 A1 = A1 + B0 510 B0 = 0 520 I2 = I2 + I1NTHS 65 Y = (12 * Y0 + M) / 12 70 PRINT "PRINCIPAL"; 80 INPUT P 90 PRINT "NUMBER OF PAYMENTS PER YEAR"; 100 INPUT N 109 REM - GUESS AN INTEREST RATE (10%) TO INITIATE TESTING 110 I = 10 119 REM - I2*LAST GUESS OR ESTIMATE ( START WITH 0 )  530 I3 = I3 + I1 540 A2 = A2 + A 550 IF J0 < X THEN 570 560 PRINT J1; TAB( 10);I1; TAB( 20);A; TAB( 30);B0; TAB( 40);I2 570 NEXT J1 580 IF C1 < > N * Y THEN 600 590 PRINT " LAST PAYMENT = $";( INT (R * 100 + .5)) / 100 600 IF J0 < X 120 I2 = 0 129 REM - COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE 130 R1 = (I * P / N) / (1 - 1 / ((I / N + 1) ^ (N * Y))) 139 REM - ROUND OFF TO NEAREST CNET 140 R1 = INT (R1 * 100 + .5) / 100 149 REM - I3=NUMBER USED TO CLOSE IN ON INTTHEN 640 610 PRINT " " 620 PRINT "YR.";J0; TAB( 10);I3; TAB( 20);A2 630 PRINT " " 640 IF J0 > Y THEN 720 650 I3 = 0 660 A2 = 0 670 NEXT J0 680 IF Y = J0 THEN 720 690 N1 = ((Y - INT (Y)) * 12) / 12 * N 700 J0 = J0 + 1 710 GOTO 280 720 PEREST RATE 150 I3 = ABS (I - I2) / 2 159 REM - SAVE THIS GUESS 160 I2 = I 168 REM - COMPARE COMPUTED PAYMENT (R1) TO INPUT PAYMENT (R); 169 REM - IF THEY'RE EQUAL, LAST RATE GUESSED=APPROXIMATE REG. PAYMENT 170 IF R1 = R THEN 230 180 IF R1   > R THEN 210 189 REM - R1R, RATE MUST BE LOWER THAN LAST GUESS 210 I = I - I3 219 REM - RETEST WITH NEW GUESS 220 GOTO 130 22OSITS PER YEAR"; 80 INPUT N 90 PRINT "NUMBER OF YEARS, MONTHS"; 100 INPUT Y0,M 105 Y = Y0 + M / 12 108 REM - CALCULATE INTEREST RATE PER DEPOSIT, 109 REM - CONVERT FROM PERCENT TO DECIMAL 110 I = I / 100 / N 119 REM - CALCULATE FUTURE VALU9 REM - COMPUTE INTEREST TO PROPER PROPORTIONS, ROUND OFF, PRINT 230 I = (( INT ((I * 1000) * 100 + .5)) / 100) / 1000 240 PRINT "ANNUAL INTEREST RATE = ";I * 100;"%" 250 PRINT 259 REM - RESTART OR END PROGRAM 260 PRINT "MORE DATA? (1=YES, 0=NE BY FORMULA 120 T = R * ((1 + I) ^ (N * Y) - 1) / I 129 REM - ROUND OFF TO NEAREST CENT, PRINT 130 PRINT "FUTURE VALUE = $"; INT (T * 100 + .5) / 100 139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 140 PRINT 149 REM - RESTATE OR EO)"; 270 INPUT X 280 IF X = 1 THEN 20 290 LOAD "BUSINESS",R - RESTART OR END PROGRAM 260 PRINT "MORE DATA? (1=YES, 0=NPRINT "ANNUAL INTEREST RATE = ";I * 100;"%" 250 PRINT 259 REM - RESTART OR END PROGRAM 260 PRINT "MORE DATA? (1=YES, 0=NND PROGRAM? USER INPUT REQUIRED 150 PRINT "MORE DATA? (1=YES, 0=NO)"; 160 INPUT X 170 IF X = 1 THEN 20 180 LOAD "BUSINESS",R AM? USER INPUT REQUIRED 150 PRINT "MORE DATA? (1=YES, 0=NO)"; 160 INPUT X 170 IF X = 1 THEN 20 180 LOAD "BUSINE10 PRINT CHR$(26);"FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)" 20 PRINT 29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 30 PRINT "AMOUNT OF REGULAR DEPOSITS"; 40 INPUT R 50 PRINT "NOMINAL INTEREST RATE"; 60 INPUT I 70 PRINT "NUMBER OF DEP   GOTO 230 240 IF ANS=I THEN CLOSE #1:GOTO 20 ELSE IF ANS=B1 THEN STOP ELSE LOAD PROG$(ANS),R ION";ANS:IF ANSB1 THEN210 PRINT " ";I;". RERUN LISTING" 220 PRINT " ";B1;". EXIT TO BASIC" 230 INPUT "SELECTION";ANS:IF ANSB1 THEN10 DIM PROG$(50),DESC$(50) 20 OPEN "I",#1,"BUSINESS.DAT" 30 PRINT CHR$(26);"BUSINESS PROGRAMS BY ADAM " 40 PRINT"OSBORNE AND ASSOCIATES":PRINT:PRINT 50 A=1:B=9:GOSUB 100 60 A=10:B=20:GOSUB 100 70 A=21:B=30:GOSUB 100 80 A=31:B=40:GOSUB 100 90 A=41:B=50:GOSUB 100 100 PRINT"PICK THE NUMBER OF THE PROGRAM YOU WISH TO RUN":PRINT"(0 FOR MORE CHOICES)" 110 FOR I=A TO B 120 IF EOF(1) GOTO 200 130 LINE INPUT#1, C$ 140 PROG$(I)=LEFT$(C$,8):DESC$(I)=MID$(C$,14) 150 PRINT " ";I;". ";DESC$(I) 160 NEXT I 170 INPUT"SELECTION";ANS 180 IF ANS=0 THEN RETURN ELSE IF ANSB THEN GOTO 170 190 LOAD PROG$(ANS),R 200 B1=I+1 210 PRINT " ";I;". RERUN LISTING" 220 PRINT " ";B1;". EXIT TO BASIC" 230 INPUT "SELECTION";ANS:IF ANSB1 THEN  FUTRVALU LOAD FUTURE VALUE OF AN INVESTMENT NOMINTST LOAD NOMINAL INTEREST RATE ANNUITY LOAD ANNUITY REGDEPOS LOAD REGULAR DEPOSITS REGWDRAW LOAD REGULAR WITHDRAWALS INTINVST LOAD INITIAL INVESTMENT SINKFUND LOAD MIN INVEST FOR WITHDRAWALS EFFINEST LOAD EFFECTIVE INTEREST RATE DEPRRATE LOAD DEPRECIATION RATE DEPRAMNT LOAD DEPRECIATION AMOUNT SALVGVAL LOAD SALVAGE VALUE DISCOMPR LOAD DISCOUNT COMMERCIAL PAPER PRINLOAN LOAD PRINCIPAL ON A LOAN LOANBAL LOAD REMAINING BALANCE ON LOAN REGPAYMT LOAD REGULAR PAYMENT ON A LOAN LSTPAYMT LOAD LAST PAYMENT ON A LOAN LOANTERM LOAD TERM OF A LOAN ANINTRTE LOAD ANNUAL INTEREST RATE ON LOAN AMORTTBL LOAD MORT AMORT TABLE WITHHDTX LOAD FEDERAL WITHHOLDING TAXES DEPRSCHD LOAD TAX DEPRECIATION SCHEDULE CHECKWTR LOAD CHECK WRITER RCIPECST LOAD RECIEPE COST DAYWEEK LOAD DAY OF THE WEEK DAYDATES LOAD DAYS BETWEEN TWO DATES ENG-METR LOAD ANGLO TO METRIC MAPCHECK LOAD MAP CHECK 5 PRINT CHR$(26):FOR I=1 TO 10:PRINT:NEXT I 10 PRINT "CHECK WRITER" 15 FOR I=1 TO 300:NEXT I 20 PRINT 30 DATA "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE" 40 DATA "TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN" 50 DATA "SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY","THIRTY","FORTY" 60 DATA "FIFTY","SIXTY","SEVENTY","EIGHTY","NINETY" 70 DATA "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" 80 DATA "AUGUST","SUPTEMBER","OCTOBER","NOVEMBER","DECEMBE  R" 90 PRINT "DATE (MMDDYY)"; 100 INPUT D 110 PRINT "-(TO END PROGRAM ENTER 'END')--" 115 FOR I=1 TO 2300:NEXT I 120 PRINT "FIRST NAME OF PAYEE"; 130 INPUT F$ 140 IF F$ = "END" THEN 790 150 PRINT "LAST NAME OF PAYEE"; 160 INPUT L$ 170 PRI 630 GOTO 120 640 IF N1 < 21 THEN 730 645 FF = (N1 - 20) / 10 + 20 650 FF = (N1 - 20) / 10 + 20 655 GOSUB 1000 660 READ X0$ 670 PRINT X0$; 680 A3 = N1 - INT (N1 / 10) * 10 690 IF A3 = 0 THEN 760 700 PRINT "-"; 705 FF = A3 710 FF = A3 71NT "AMOUNT OF CHECK"; 180 INPUT A 190 PRINT "READY TO PRINT CHECK"; 200 INPUT X$ 210 D1 = INT (D / 10000) 220 D2 = INT ((D - D1 * 10000) / 100) 230 D3 = INT (D - (D1 * 100 + D2) * 100) 235 FF = 27 + D1 240 GOSUB 1000 250 READ X0$ 260 PRI5 GOSUB 1000 720 GOTO 740 725 FF = N1 730 FF = N1 735 GOSUB 1000 740 READ X0$ 750 PRINT X0$;" "; 760 RETURN 770 PRINT ,"*****VOID*****" 780 GOTO 570 790 LOAD "BUSINESS",R 1000 RESTORE 1005 IF FF = 1 THEN RETURN 1010 FOR I = 1 TONT ,,,X0$ + " ";D2;" ";D3 270 PRINT ,,,"$";A 280 PRINT ,,," ";A 290 PRINT 300 PRINT ,F$;" ";L$ 310 PRINT 320 IF A < = 0 THEN 770 330 A1 = A 340 N1 = INT (A1 / 1000!) 350 IF N1 > 99 THEN 770 360 IF N1 = 0 THEN 390 370 GOSUB 640 380 FF - 1 1020 READ A$ 1030 NEXT I 1040 RETURN 1050 LOAD "BUSINESS",R PRINT ,"*****VOID*****" 780 GOTO 570 790 LOAD "BUSINESS",R 1000 RESTORE 1005 IF FF = 1 THEN RETURN 1010 FOR I = 1 TO PRINT "THOUSAND "; 390 A1 = A1 - N1 * 1000! 400 N1 = INT (A1 / 100) 410 IF N1 = 0 THEN 440 420 GOSUB 640 430 PRINT "HUMDRED "; 440 A1 = A1 - N1 * 100 450 N1 = INT (A1) 460 IF N1 > 0 THEN 490 470 IF A > = 1 THEN 500 480 GOTO 510 490 GOSUB 640 500 PRINT "DOLLARS "; 510 A1 = A1 - N1 520 IF A1 < .01 THEN 600 530 IF A < 1 THEN 550 540 PRINT " AND "; 550 A1 = A1 * 100 560 PRINT INT (A1 + .5);" CENTS" 570 PRINT 580 PRINT 590 PRINT 600 PRINT 610 PRINT 620 PRINT   HDAY? (MM,DD,YYYY)";bn M,D,YbxE1M:F1D:G1Yb XbZ2T:K1Jc-c"WHAT IS THE NAME OF PERSON TWO "; X$ac"WHAT IS PERSON TWO'S BIRTHDAY? (MM,DD,YYYY)";mc M,D,YcE2M:D2D:G2Yc XcP2(Z2T)cK2Jc I :: Ic()c"COMPATABILITY ANALYSIS"d"----------------------" d:=d"COMPATABILITY ANALYSIS OF ";W$;" AND ";X$;"."Gd"::ld, W$;" WAS BORN ON ";:ME1:  d6 F1;",";G1;". IT WAS A ";:JK1d@ dJ"."dTd^ X$;" WAS BORN ON ";:ME2:  dh D2;",";G2;". IT WAS A ";:JK2dr e|"."e:::eZP2@eP3((((Z)(Z))))deS3((((Z)(Z))))eC3((((Z!)(Z!))!))eP5(d((P3)(d)))eS5(d((S3)(d)))eC5(d((C3)(d!)))f"PHYSICAL CYCLE COMPATABILITY (23-DAY) IS ";4f (P5);"%"jf"SENSITIVITY CYCLE COMPATABILITY (28-DAY) IS ";f (S5);"%"f"COGNITIVE CYCLE COMPATABILITY (33-DAYa ()a(): I : I:()a A1(),B1()a( A( )b2 I  : A(I): IHb< 0,31,59,90,120,151,181,212,243,273,304,334PbFYZbPYYbZ ():"WHAT IS THE NAME OF PERSON ONE";: W$bd"WHAT IS PERSON ONE'S BIRT) IS ";f (C5);"%"f,,," --------"g"AVERAGE COMPATABILITY IS ",," ";(g&A5(P5S5C5)Ag0 (A5);"%"Mg::::ygD "ANOTHER? Y OR N";Z$: Z$"Y" F gNgXY1YgbQ1(Y1)glQ2(Q1)  gvQ3((Y1))gKg Q1Y1 g Q2dY1 h Q3Y1 hK1hTmY1Q1Q2Q3KBhTTA(M)DRh M \hTTKwh (Y1)Y1 h M hTThJT(T)hh  M "JANUARY";:h M "FEBRUARY";:h  M "MARCH";:i* M "APRIL";:)i4 M "MAY";:Ai> M "JUNE";:YiH M "JULY";:siR M "AUGUST";:i\ M "SEPTEMBER";:if M "OCTOBER";:ip M "NOVEMBER";:iz"DECEMBER";:i J "WEDNESDAY";:j J "THURSDAY";:/j J "FRIDAY";:Kj J "SATURDAY";:ej J "SUNDAY";:j J "MONDAY";:j"TUESDAY";:jJ "FRIDAY";:  10 PRINT CHR$(26);"DAYS BETWEEN TWO DATES" 20 PRINT 30 PRINT "FIRST DATE (MM,DD,YY)"; 40 INPUT M1,D1,Y1 50 PRINT "SECOND DATE (MM,DD,YY)"; 60 INPUT M2,D2,Y2 70 M = M1 80 D = D1 90 Y = Y1 100 GOSUB 230 110 N = A 120 M = M2 130 D = D2 14XT VR 550 RETURN BUSINESS",R 500 RESTORE 510 IF FF = 1 THEN RETURN 520 FOR VR = 1 TO FF - 1 530 READ GH 540 NE RETURN 460 LOAD "BUSINESS",R 500 RESTORE 510 IF FF = 1 THEN RETURN 520 FOR VR = 1 TO FF - 1 530 READ GH 540 NE0 Y = Y2 150 GOSUB 230 160 N = A - N 170 PRINT "DIFFERENCE = "N;" DAYS" 180 PRINT 190 PRINT "MORE DATA (1=YES,0=NO)"; 200 INPUT X 210 IF X = 1 THEN 20 220 GOTO 460 230 ON M GOTO 260,280,260,340,260,340,260,260,340,260,340,260 240 PRINT "UNREAL DATE" 250 RETURN 260 IF D > 31 THEN 240 270 GOTO 350 280 IF Y / 4 = INT (Y / 4) THEN 290 290 IF Y / 400 = INT (Y / 400) THEN 320 300 IF Y / 100 = INT (Y / 100) THEN 310 310 IF K > 28 THEN 240 320 IF D > 29 THEN 240 330 GOTO 350 340 IF D > 30 THEN 240 350 DATA 0,31,59,90,120,151,181,212,243,273,304,334 360 FF = M 365 GOSUB 500 370 READ A 380 A = A + Y * 365 + INT (Y / 4) + D + 1 - INT (Y / 100) + INT (Y / 400) 390 IF INT (Y / 4) = Y / 4 THEN 410 400 GOTO 450 10 PRINT CHR$(26);"DAY OF THE WEEK" 20 PRINT 30 PRINT "(ENTER 0,0,0 TO END PROGRAM)" 40 PRINT "MONTH, DAY, YEAR"; 50 INPUT M,D,Y 60 IF M < > 0 THEN 100 70 IF D < > 0 THEN 100 80 IF Y < > 0 THEN 100 90 GOTO 360 100 IF M > 2 THEN 130 410 IF Y / 400 = INT (Y / 400) THEN 430 420 IF Y / 100 = INT (Y / 100) THEN 440 430 IF M > 2 THEN 450 440 A = A - 1 450 RETURN 460 LOAD "BUSINESS",R 500 RESTORE 510 IF FF = 1 THEN RETURN 520 FOR VR = 1 TO FF - 1 530 READ GH 540 NE110 M = M + 12 120 Y = Y - 1 130 N = D + 2 * M + INT (.6 * (M + 1)) + Y + INT (Y / 4) - INT (Y / 100) + INT (Y / 400) + 3 140 N = INT ((N / 7 - INT (N / 7)) * 7 + .5) 150 IF N > 0 THEN 180 160 PRINT "SATURDAY" 170 GOTO 340 180 IF N > 1 THE  N 210 190 PRINT "SUNDAY" 200 GOTO 340 210 IF N > 2 THEN 240 220 PRINT "MONDAY" 230 GOTO 340 240 IF N > 3 THEN 270 250 PRINT "TUESDAY" 260 GOTO 340 270 IF N > 4 THEN 300 280 PRINT "WEDNESDAY" 290 GOTO 340 300 IF N > 5 THEN 330 310 PRINT "THURSDAY" 320 GOTO 340 330 PRINT "FRIDAY" 340 PRINT 350 GOTO 40 360 LOAD "BUSINESS",R  N > 5 THEN 330 310 50 PRINT "TUESDAY" 260 GOTO 340 270 IF N > 4 THEN 300 280 PRINT "WEDNESDAY" 290 GOTO 340 300 IF N > 5 THEN 330 310 10 PRINT CHR$(26);"DEPRECIATION AMOUNT" 20 PRINT 30 PRINT "ORIGINAL PRICE"; 40 INPUT P 50 PRINT "DEPRECIATION RATE"; 60 INPUT I 69 REM - CONVERT FROM PERCENT TO DECIMAL 70 I = I / 100 80 PRINT "--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--" 90 PRINT "YEAR"; 100 INPUT Y 109 REM - THROUGH CALCULATING FOR THIS ITEM? 110 IF Y = 0 THEN 160 119 REM - CALCULATE DEPRECIATION AMOUNT BY FORMULA 120 D = P * I * (1 - I) ^ (Y - 1) 129 REM - ROUND OFF TO NEAREST CENT, PRINT 130 PRINT "DEPRECIATION = $"; INT (D * 100 + .5) / 100 140 PRINT 149 REM - RETURN FOR NEXT YEAR NUMBER 150 GOTO 90 159 REM - RESTART OR END PROGRAM? 160 PRINT "MORE DATA (1=YES, 0=NO)"; 170 INPUT X 180 IF X = 1 THEN 20 190 LOAD "BUSINESS",R - RESTART OR END PROGRAM? 160 PRINT "MORE DATA (1=YES, 0=NO)"; 170 INPUT X 180 IF X = 1 THEN 20 190 LOAD "BUSI159 REM - RESTART OR END PROGRAM? 160 PRINT "MORE DATA (1=YES, 0=NO)"; 170 INPUT X 180 IF X = 1 THEN 20 190 LOAD "BUSI   (1 - (T / P) ^ (1 / Y)) 99 REM - ROUND OFF, PRINT 100 PRINT "DEPRECIATION RATE ="; INT (1000 * D + .5) / 1000;"%" 110 PRINT 119 REM - RESTART OR END PROGRAM? 120 PRINT "MORE DATA (1=YES, 0=NO)"; 130 INPUT X 140 IF X = 1 THEN 20 150 LOAD "BUSINESS",R - RESTART OR END PROGRAM? 120 PRINT "MORE DATA (1=YES, 0=NO)"; 130 INPUT X 140 IF X = 1 THEN 20 150 LOADINT 119 REM - RESTART OR END PROGRAM? 120 PRINT "MORE DATA (1=YES, 0=NO)"; 130 INPUT X 140 IF X = 1 THEN 20 150 LOAD10 PRINT CHR$(26);"DEPRECIATION RATE" 20 PRINT 30 PRINT "ORIGINAL PRICE"; 40 INPUT P 50 PRINT "RESALE PRICE"; 60 INPUT T 70 PRINT "YEARS"; 80 INPUT Y 89 REM - REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENT 90 D = 100 *  PRINT 320 PRINT "YEAR","DEPREC","BALANCE" 330 R = 2 * D * (Y - I + 1) / ((Y + 1) * Y) 340 R = INT (R * 100 + .5) / 100 350 R1 = R1 + R 360 B = D - R1 370 IF B > = 0 THEN 410 380 R1 = R1 + B 390 R = R + B 400 B = 0 410 PRINT I,R,B 420 N = N + 1 430 NEXT I 440 GOTO 700 450 PRINT "METHOD IN %"; 460 INPUT M 470 M = M / 100 480 N = 66 490 R = D 500 PRINT 510 FOR I = 1 TO Y 520 IF N < 55 THEN 650 530 FOR I1 = N TO 66 540 PRINT 550 NEXT I1 560 N = 8 570 PRINT " DECLIN10 PRINT CHR$(26); "TAX DEPRECIATION SCHEDULE" 20 PRINT 30 PRINT "PURCHASE PRICE"; 40 INPUT V 50 V = INT (V * 100 + .5) / 100 60 PRINT "SALVAGE VALUE"; 70 INPUT S 80 S = INT (S * 100 + .5) / 100 90 D = V - S 100 PRINT "LIFE IN YEARS"; 1ING BALANCE TAX DEPRECIATION" 580 PRINT " PRICE $";V 590 PRINT " SALVAGE VALUE $";S 600 PRINT " NET DEPRECIATED $";D 610 PRINT " LIFE ";Y;" YEARS" 620 PRINT " METHOD ";M * 100;"%" 630 PRINT 640 PRINT "YEAR","D10 INPUT Y 120 PRINT "ENTER 1 FOR SUM OF DIGITS, 2 FOR DECLINING BALANCE"; 130 INPUT X 140 IF X = 2 THEN 450 150 IF X < > 1 THEN 120 160 R1 = 0 170 N = 66 180 PRINT 190 PRINT 200 FOR I = 1 TO Y 210 IF N < 55 THEN 330 220 FOR I1 = N EPREC","BALANCE" 650 R1 = INT ((R * M / Y) * 100 + .5) / 100 660 R = R - R1 670 PRINT I,R1,R 680 N = N + 1 690 NEXT I 700 PRINT 710 PRINT "MORE DATA? (1=YES,0=NO)"; 720 INPUT X 730 IF X = 1 THEN 20 740 LOAD "BUSINESS",R  690 NEXT I 7TO 66 230 PRINT 240 NEXT I1 250 N = 7 260 PRINT " SUM OF DIGITS TAX DEPRECIATION" 270 PRINT " PRICE $";V 280 PRINT " SALVAGE VALUE $2;S 290 PRINT " NET DEPRECIATED $2;V-S 300 PRINT " LIFE ";Y;" YEARS" 310   10 PRINT CHR$(26);"DISCOUNT COMMERCIAL PAPER" 20 PRINT 29 REM - STATEMENTS 30 TO 90 REQUEST USER INPUT 30 PRINT "FUTURE VALUE"; 40 INPUT T 50 PRINT "DISCOUNT RATE"; 60 INPUT D 69 REM - CONVERT PERCENT TO DECIMAL 70 D = D / 100 80 PRINT "DAYS TO MATURITY"; 90 INPUT N 99 REM - CLACULATE DISOUNT, PRINT 100 D1 = T * D * N / 360 110 PRINT "DESCOUNT = $";D1 119 REM - CALCULATE COST, PRINT 120 PRINT " COST = $";T - D1 129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 130 PRINT 139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 140 PRINT "MORE DATA (1=YES, 0=NO)"; 150 INPUT X 160 IF X = 1 THEN 20 170 LOAD "BUSINESS",R GRAM? USER INPUT REQUIRED 140 PRINT "MORE DATA (1=YES, 0=NO)"; 150 INPUT X 16010 PRINT CHR$(26);"EFFECTIVE INTEREST RATE ON INVESTMENTS" 20 PRINT 29 REM - STATEMENTS 30-80 REQUEST USER INPUT 30 PRINT "INITIAL INVESTMENT"; 40 INPUT P 50 PRINT "TOTAL VALUE AFTER Y YEARS"; 60 INPUT T 70 PRINT "NUMBER OF YEARS"; 80 INPUT Y 89 REM - CALCULATE EFFECTIVE INTEREST RATE, PRINT 90 PRINT "ANNUAL INTEREST RATE =";((T / P) ^ (1 / Y) - 1) * 100;"%" 99 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 100 PRINT 109 REM - RESTART OR END PROGRAM? 110 PRINT "MORE   DATA? (1=YES, 0=NO)"; 120 INPUT X 130 IF X = 1 THEN 20 140 LOAD "BUSINESS",R  RESTART OR END PROGRAM? 110 PRINT "MORE 99 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 100 PRINT 109 REM - RESTART OR END PROGRAM? 110 PRINT "MORE10 : PRINT "ANGLO TO METRIC": PRINT : PRINT "1. INCHES TO CENTIMETERS": PRINT "2. FEET TO CENTIMETERS" 11 PRINT "3. FEET TO METERS": PRINT "4. YARDS TO METERS": PRINT "5. MILES TO KILOMETERS" 12 PRINT "6. TEASPOONS TO CUBIC CENTIMETERS" 13 PRINT "7. TABLESPOONS TO CUBIC CENTIMETERS": PRINT "8. CUPS TO LITERS": PRINT "9. PINTS TO LITERS" 14 PRINT "10. QUARTS TO LITERS": PRINT "11. GALLONS TO LITERS": PRINT "12. BUSHELS TO LITERS" 15 PRINT "13. PECKS TO LITERS": PRINT "14. OUNCES TO GRAMS": PRINT "15. POUNDS TO KILOGRAMS": PRINT "16. TONS TO KILOGRAMS" 16 PRINT "17. FAHRENHEIT TO CELCIUS":PRINT "18. REDISPLAY LISTING" 20 PRINT 25 IF FLAG=1 THEN 90 30 DIM C(17) 40 FOR N = 1 TO 17 50 READ C(N) 60 NEXT N 70 DATA 0.3937,3.281E-2,3.281,1.094,0.6214,.01136,.003785,.2366,2.113 80 DATA 1.057,0.2642,0.02838,2. 104,0.3527,2.205,9.842E-4,0. 6214,0 90 PRINT "(TO END PROGRAM ENTER 0)" 100 PRINT "WHICH CONVERSION DO YOU NEED"; 110 INPUT N 120 IF N = 0 THEN 540 125 I  F N=18 THEN FLAG=1:GOTO 10 130 IF N > 17 THEN 100 135 INPUT"WHICH DIRECTION (1=ENG TO METR,2=METR TO ENG)";DIR 140 PRINT "VALUE TO BE CONVERTED"; 150 INPUT I 160 IF DIR=2 THEN R=I*C(N):SWAP R,I ELSE R=I*C(N) 170 ON N GOTO 180,200,220,240,260,280T 530 GOTO 100 540 LOAD "BUSINESS",R 0 R = (I - 32) * 5 / 9 510 PRINT I;" DEGREES FAHRENHEIT = "R;" CELSIUS" 520 PRIN" TONS = ";R;" KILOGRAMS" 490 GOTO 520 500 R = (I - 32) * 5 / 9 510 PRINT I;" DEGREES FAHRENHEIT = "R;" CELSIUS" 520 PRIN,300,320,340,360,380,400,420,440,460,480,500 180 PRINT I;" INCHES = ";R;" CENTIMETERS" 190 GOTO 520 200 PRINT I;" FEET = ";R;" CENTIMETERS" 210 GOTO 520 220 PRINT I;" FEET = ";R;" METERS" 230 GOTO 520 240 PRINT I;" YARDS = ";R;" METERS" 250  GOTO 520 260 PRINT I;" MILES = ";R;" KILOMETERS" 270 GOTO 520 280 PRINT I;" TSP. = ";R;" CUBIC CENTIMETERS" 290 GOTO 520 300 PRINT I;" TBSP. = ";R;" CUBIC CENTIMETERS" 310 GOTO 520 320 PRINT I;" CUPS = ";R;" LITERS" 330 GOTO 520 340 PRINT I;" PINTS = ";R;" LITERS" 350 GOTO 520 360 PRINT I;" QUARTS = ";R;" LITERS" 370 GOTO 520 380 PRINT I;" GALLONS = ";R;" LITERS" 390 GOTO 520 400 PRINT I;" BUSHELS = ";R;" LITERS" 410 GOTO 520 420 PRINT I;" PECKS = ";R;" LITERS" 430 GOTO 520 440 PRINT I;" OUNCES = ";R;" GRAMS" 450 GOTO 520 460 PRINT I;" POUNDS = ";R;" KILOGRAMS" 470 GOTO 520 480 PRINT I;" TONS = ";R;" KILOGRAMS" 490 GOTO 520 500 R = (I - 32) * 5 / 9 510 PRINT I;" DEGREES FAHRENHEIT = "R;" CELSIUS" 520 PRIN   USER INPUT REQUIRED 150 PRINT "MORE DATA? (1=YES,0=NO)"; 160 INPUT X 170 IF X = 1 THEN 20 180 LOAD "BUSINESS",R GRAM?* 100 + .5) / 100 139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 140 PRINT 149 REM - RESTART OR END PROGRAM?10 PRINT CHR$(26);"FUTURE VALUE OF AN INVESTMENT" 20 PRINT 29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 30 PRINT "INITIAL INVESTMENT"; 40 INPUT P 50 PRINT "NOMINAL INTEREST RATE"; 60 INPUT I 70 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; 80 INPUT N 90 PRINT "NUMBER OF YEARS, MONTHS"; 100 INPUT Y0,M 104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 105 Y = (12 * Y0 + M) / 12 108 REM - CALCULATE INTEREST RATE PER PERIOD; 109 REM - CONVERT FROM PERCENTTO DECIMAL 110 I = I / N / 100 119 REM - CALCULATE FUTURE VALUE BY FORMULA 120 T = P * (1 + I) ^ (N * Y) 130 PRINT "FUTURE VALUE=$"; INT (T * 100 + .5) / 100 139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 140 PRINT 149 REM - RESTART OR END PROGRAM?  10 PRINT CHR$(26);"EFFECTIVE INTEREST RATE ON INVESTMENTS" 20 PRINT 29 REM - STATEMENTS 30-80 REQUEST USER INPUT 30 PRINT "INITIAL INVESTMENT"; 40 INPUT P 50 PRINT "TOTAL VALUE AFTER Y YEARS,M MONTHS"; 60 INPUT T 70 PRINT "NUMBER OF YEARS,MONTHS"; 80 INPUT Y,M:Y=Y+M/12 89 REM - CALCULATE EFFECTIVE INTEREST RATE, PRINT 90 PRINT "ANNUAL INTEREST RATE =";((T / P) ^ (1 / Y) - 1) * 100;"%" 99 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 100 PRINT 109 REM - RESTART OR END PROGRAM? 110 PRINT "MORE DATA? (1=YES, 0=NO)"; 120 INPUT X 130 IF X = 1 THEN 20 140 LOAD "BUSINESS",R  RESTART OR END ) ^ (1 / Y) - 1) * 100;"%" 99 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 100 PRINT 109 REM - RESTART OR END 10 PRINT CHR$(26);"TERM OF A LOAN" 20 PRINT 29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 30 PRINT "REGULAR PAYMENT"; 40 INPUT R 50 PRINT "PRINCIPAL"; 60 INPUT P 70 PRINT "ANNUAL INTEREST RATE"; 80 INPUT I 90 PRINT "NUMBER OF PAYMENTS PER YEAR"; 100 INPUT N 108 REM - CALCULATE TERM IN YEARS BY FORMULA; 109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATION 110 Y = - ( LOG (1 - (P * (I / 100)) / (N * R)) / ( LOG (1 + I / 100 / N) * N)) 114 REM - CALCULATE YE  ARS AND MONTHS FROM YEARS 115 M = INT (Y * 12 + .5) 116 Y0 = INT (M / 12) 117 M = M - Y0 * 12 119 REM - PRINT RESULTS 120 PRINT "TERM = ";Y0;" YEARS, ";M;" MONTHS" 130 PRINT 139 REM - RESTART OR END PROGRAM? 140 PRINT "MORE DATA? (1=YES, 0=NO)"; 150 INPUT X 160 IF X = 1 THEN 20 170 LOAD "BUSINESS",R  RESTART OR END PROGRAM? 140 PRINT "MORE DATA? (1=YES, 20 PRINT "TERM = ";Y0;" YEARS, ";M;" MONTHS" 130 PRINT 139 REM - RESTART OR END PROGRAM? 140 PRINT "MORE DATA? (1=YES, 10 PRINT CHR$(26);"LAST PAYMENT ON A LOAN 20 PRINT 29 REM - STATEMENTS 30 TO 130 REQUEST USER INPUT 30 PRINT "REGULAR PAYMENT"; 40 INPUT R 50 PRINT "PRINCIPAL"; 60 INPUT P 70 PRINT "TERM IN YEARS, MONTHS"; 80 INPUT Y0,M 84 REM - CALCULATE YEARS FROM YEARS AND MONTHS 85 Y = (12 * Y0 + M) / 12 90 PRINT "ANNUAL INTEREST RATE"; 100 INPUT I 109 REM - CONVERT ITERST FROM PERCENT TO DECIMAL 110 I = I / 100 120 PRINT "NUMBER OF PAYMENTS PER YEAR"; 130 INPUT N 140 B0 = P 149 REM - COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENT USING R 150 FOR J1 = 1 TO N * Y 159 REM - ROUND OFF INTEREST PAID TO NEAREST CENT 160 I1 = INT ((B0 * I / N) * 100 + .5) / 100 169 REM - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT 170 A = R - I1 179 REM - BALANCE REMAINING DECREASES WITH EACH PAYMENT 180 B0 = B0 - A 190 NEXT J1 199 REM - CALCULATE LAST PAYMENT, ROUND OFF, PRINT 200 PRINT "LAST PAYMENT =$"; INT ((R + B0) * 100 + .5) / 100 210 PRINT 219 REM - RESTART OR END   PROGRAM? 220 PRINT "MORE DATA? (1=YES, 0=NO)"; 230 INPUT X 240 IF X = 1 THEN 20 250 LOAD "BUSINESS",R  RESTART OR END YMENT, ROUND OFF, PRINT 200 PRINT "LAST PAYMENT =$"; INT ((R + B0) * 100 + .5) / 100 210 PRINT 219 REM - RESTART OR END T K1 120 K1 = 0 130 PRINT "CHANGE COURSE NUMBER"; 140 INPUT K1 150 IF K1 = 0 THEN 180 160 GOSUB 1100 170 GOTO 120 180 PRINT 190 PRINT "BEARING","DISTANCE","LAT,LON","N,E" 200 PRINT ,,,N;",";E 210 FOR K1 = 1 TO K2 220 L1 = L(K1) 230 IF L(K1) < 0 THEN 800 240 IF L(K1) = 0 THEN 630 250 L = L(K1) * SIN (B(K1) * R) 260 D = L(K1) * COS (B(K1) * R) 270 N = N + L 280 E = E + D 290 A = A + E * L - N * D 300 B1$ = "N" 310 B2$ = "." 320 IF B(K1) > = 90 THEN 360 330 IF B(K1) = 0 THEN 560 340 B2$ = "E" 350 GOTO 560 360 B1$ = "." 370 B2$ = "E" 380 IF B(K1) > = 180 THEN 420 390 IF B(K1) = 90 THEN 560 400 B1$ = "S" 410 GOTO 560 420 B1$ = "S" 430 B2$ = "." 440 IF B(K1) > = 270 THEN 480 450 IF B(K1) = 180 THEN 560 460 B2$ = "W" 470 GOTO 560 480 B1$ = "." 490 B2$ = "W" 500 IF B(K1) > = 360 THEN 540 510 IF B(K1) = 270 THEN 560 520 B1$ = "N" 530 GOTO 560 540 B(K1) = B(K1) - 360 550 GOTO 300 560 D1 = INT (B(K1)) 570 M1 = (B(K1) - D1) * 60 580 M = INT (10 PRINT CHR$(26);"MAP CHECK" 20 PRINT 30 DIM B(10),L(10) 40 DEF FN R(X) = INT (X * 1000 + .5) / 1000 50 R = .0174532925199# 60 K2 = 10 70 PRINT "**NEXT SET OF COURSES**" 80 FOR K1 = 1 TO K2 90 GOSUB 1100 100 IF Q = 0 THEN 120 110 NEXM1) 590 S = INT ((M1 - M) * 60 + .5) 600 PRINT B1$;B2$;" ";D1;" ";M;" ";S, FN R(L(K1)), FN R(L);","; FN R(D), FN R(N);","; FN R(E) 610 L(K1) = L1 620 NEXT K1 630 PRINT 640 PRINT "ANY MORE COURSES"; 650 INPUT X 660 IF X = 1 THEN 70 720 A =    ABS (A / 2) 730 PRINT 740 PRINT "TOTAL AREA IS "; FN R(A);" SQ. FT. ("; 750 PRINT INT (A / 43560! * 100000000# + .5) / 100000000#;" ACRES)" 760 PRINT 770 GOTO 1310 800 C = ABS (B(K1) - B(K1 - 1)) 810 IF C < = 180 THEN 830 820 C = ABS (40 GOTO 1260 1250 B(K1) = 90 + (90 - B(K1)) * ( - 1) ^ Q 1260 PRINT " DISTANCE (NEGATIVE IF RADIAL)"; 1270 INPUT L(K1) 1280 IF L(K1) > 0 THEN 1300 1290 IF ABS (L(K1)) < > ABS (L(K1 - 1)) THEN 1260 1300 RETURN 1310 PRINT 1320 PRINT "HI180 - C) 830 C = ABS (180 - C) 840 D = - L(K1) 850 L(K1) = - L(K1) 860 A1 = C / 180 * 3.1415927# * D ^ 2 870 C1 = 2 * D * SIN (C / 2 * R) 880 IF C = 180 THEN 910 890 T = D * TAN (C / 2 * R) 900 GOTO 920 910 T = 999999.9990000003# 920 B0 = T ANY KEY TO END PROGRAM" 1330 AAA$=INKEY$ 1340 IF LEN(AAA$)=0 THEN 1330 1360 LOAD "BUSINESS",R 0 PRINT 1320 PRINT "HI280 IF L(K1) > 0 THEN 1300 1290 IF ABS (L(K1)) < > ABS (L(K1 - 1)) THEN 1260 1300 RETURN 1310 PRINT 1320 PRINT "HIB(K1) - B(K1 - 1) 930 IF B9 < - 180 THEN 980 940 IF B0 > 180 THEN 960 950 IF B0 > 0 THEN 980 960 A = A + A1 970 GOTO 990 980 A = A - A1 990 D1 = INT (C) 1000 M1 = (C - D1) * 60 1010 M = INT (M1) 1020 S = INT ((M1 - M) * 60 + .5) 1030 PRINT " ";D1;M;S;" R="; FN R(D);"A="; FN R(A1);"C="; FN R(C1);"T="; FN R(T) 1040 GOTO 250 1100 Q = 0 1110 B(K1) = 0 1120 L(K1) = 0 1130 PRINT "COURSE ";K1;":QUADRANT,DEGREES,MINUTES,SECONDS" 1135 PRINT " ENTER 0,0,0,0 TO CACULATE"; 1140 INPUT Q,D,M,S 1150 IF Q = 0 THEN 1300 1160 IF FQ > 4 THEN 1130 1170 IF Q < 1 THEN 1130 1180 B(K1) = D + M / 60 + S / 3600 1190 IF B(K1) > 90 THEN 1130 1200 IF B(K1) < 0 THEN 1130 1210 IF Q < 3 THEN 1250 1230 B(K1) = 270 + (90 - B(K1)) * ( - 1) ^ Q 12  10 PRINT "NOMINAL INTEREST RATE ON INVESTMENTS" 20 PRINT 30 PRINT "PRINCIPAL"; 40 INPUT P 50 PRINT "TOTAL VALUE"; 60 INPUT T 70 PRINT "NUMBER OF YEARS, MONTHS"; 80 INPUT Y0,M 84 Y = Y0 + M / 12 90 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; 100 INPUT N 110 I2 = N * ((T / P) ^ (1 / (N * Y)) - 1) * 100 120 PRINT "NOMINAL INTEREST RATE = ";I2;"%" 130 PRINT 140 PRINT "MORE DATA: (1=YES,0=NO)"; 150 INPUT X 160 IF X = 1 THEN 20 170 LOAD "BUSINESS",R 10 PRINT CHR$(26); "PRINCIPAL ON A LOAN" 20 PRINT 29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 30 PRINT "REGULAR PAYMENT"; 40 INPUT R 50 PRINT "TERM IN YEAR, MONTHS"; 60 INPUT Y0,M 64 REM - CALCULATE YEARS FROM YEARS AND MONTHS 65 Y = (12 * Y0 + M) / 12 70 PRINT "ANNUAL INTEREST RATE"; 80 INPUT I 90 PRINT "NUMBER OF PAYMENTS PER YEAR"; 100 INPUT N 108 REM - CALCULATE AMOUNT OF PRINCIPAL BY FORMULA; 109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS 11  0 P = R * N * (1 - 1 / ((I / 100) / N + 1) ^ (N * Y)) / (I / 100) 119 REM - ROUND OFF TO NEAREST CENT, PRINT 120 PRINT "PRINCIPAL = $"; INT (P * 100 + .5) / 100 129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 130 PRINT 139 REM - RESTART OR END PROGRAM? 140 PRINT "MORE DATA? (1=YES, 0=NO)"; 150 INPUT X 160 IF X = 1 THEN 20 170 LOAD "BUSINESS",R  RESNCIPAL = $"; INT (P * 100 + .5) / 100 129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 130 PRINT 139 REM - RES10 PRINT CHR$(26); "RECIPE COST" 20 PRINT 30 PRINT "NUMBER OF INGREDIENTS"; 40 INPUT N 50 FOR I = 1 TO N 60 PRINT "INGREDIENT ";I;":" 70 PRINT " COST FOR BULK UNIT IN STORE"; 80 INPUT C 90 PRINT " NUMBER OF UNITS IN BULK"; 100 INPUT U 110 PRINT " NUMBER OF RECIPE UNITS PER BULK UNIT"; 120 INPUT F 130 PRINT " NUMBER OF RECIPE UNITS CALLED FOR"; 140 INPUT R 150 P = P + C / U / F * R 160 NEXT I 170 PRINT "NUMBER OF SERVINGS"; 180 INPUT S 190 PRINT 200 PRINT "TOTAL COST FOR 1 RECIPE = $"; INT (P * 100 + .5) / 100 220 PRINT 230 PRINT "CHANGE NUMBER OF SERVINGS (1=YES,0=NO)"; 240 INPUT N 250 IF N = 1 THEN 170 260 LOAD "BUSINESS",R 0 PRINT 230 PRINT "CHANGE NUMBER OF SERVINGS (1=YES,0=NO)"; 240 INPUT N    N 90 PRINT "NUMBER OF YEARS, MONTHS"; 100 INPUT Y0,M 104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 105 Y = (12 * Y0 + M) / 12 108 REM - CALCULATE INTEREST RATE PER DEPOSIT; 109 REM - CONVERT FROM PERCENT TO DECIMAL 110 I = I / N / 100 119 REM - CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULA 120 R = T * I / ((I + 1) ^ (N * Y) - 1) 129 REM - ROUND OFF TO NEAREST CENT,PRINT 130 PRINT "REGULAR DEPOSITS = $"; INT (R * 100 + .5) / 100 139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 140 PRINT 149 REM - RESTRT OR END PROGAM? USER INPUT REQUIRED 150 PRINT "MORE DATA? (1=YES, 0=NO)"; 160 INPUT X 170 IF X = 1 THEN 20 180 LOAD "BUSINESS",R AM? USER INPUT REQUIRED 150 PRINT "MORE DATA? (1=YES, 0=NO)"; 160 INPU10 PRINT CHR$(26);"REGULAR DEPOSITS" 20 PRINT 29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 30 PRINT "TOTAL VALUE AFTER Y YEARS"; 40 INPUT T 50 PRINT "NOMINAL INTEREST RATE"; 60 INPUT I 70 PRINT "NUMBER OF DEPOSITS PER YEAR"; 80 INPUT  INT BLANK LINE TO SEPARATE DATA FROM QUESTION 130 PRINT 139 REM - RESTART OR END PROGRAM 140 PRINT "MORE DATA? (1=YES, 0=NO)"; 150 INPUT X 160 IF X = 1 THEN 20 170 LOAD "BUSINESS",R - RESTART OR END PROGRAM 140 PRINT "MORE DATA? (1=YES, 010 PRINT CHR$(26);"REGULAR PAYMENT ON A LOAN"; 19 REM - ROUND OFF TO NEARES T CENT, PRINT 20 PRINT 29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 30 PRINT "TERM IN YEARS, MONTHS"; 40 INPUT Y0,M 44 REM - CALCULATE YEARS FROM YEARS AND MONTHS 45 Y = (12 * Y0 + M) / 12 50 PRINT "PRINCIPAL"; 60 INPUT P 70 PRINT "ANNUAL INTEREST RATE"; 80 INPUT I 90 PRINT "NUMBER OF PAYMENTS PER YEAR"; 100 INPUT N 108 REM - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA 109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAN FOR CALCULATIONS 110 R = ((I / 100) * P / N) / (1 - 1 / ((I / 100) / N + 1) ^ (N * Y)) 119 REM - ROUND OFF TO NEAREST CENT, PRINT 120 PRINT "REGULAR PAYMENT = $"; INT (R * 100 + .5) / 100 129 REM - PR  10 PRINT CHR$(26);"REGULAR WITHDRAWALS FROM AN INVESTMENT" 20 PRINT 29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 30 PRINT "INITIAL INVESTMENT"; 40 INPUT P 50 PRINT "NOMINAL INTEREST RATE"; 60 INPUT I 70 PRINT "NUMBER OF WITHDRAWALS PER YEAR"; 80 INPUT N 90 PRINT "NUMBER OF YEARS, MONTHS"; 100 INPUT Y0,M 104 REM - CALCULATE YEARS FROM YEARS AND MONTHS 105 Y = (12 * Y0 + M) / 12 108 REM - CALCULATE INTEREST RATE PER WITHDRAWAL; 109 REM - CONVERT FROM PERCENT TO DECIMAL 110 I = I / N / 100 119 REM - CALCULATE REGULAR WITHDRAWAL BY FORMULA 120 R = P * (I / ((1 + I) ^ (N * Y) - 1) + I) 129 REM - ROUND OFF TO NEAREST CENT, PRINT 130 PRINT "AMOUNT OF EACH WITHDRAWAL =$"; INT (R * 100 + .5) / 100 139 REM - PRINT BLANK LINE TO SEPARATE QUESTION FROM DATA 140 PRINT 149 REM - RESTART OR END PROGRAM? 150 PRINT "MORE DATA? (1=YES, 0=NO)"; 160 INPUT X 170 IF X = 1 THEN 20 180 LOAD "BUSINESS",R  RESTART OR END PROGRAM? 150 PRINT "MORE DATA? (1=YES, 0=NO)"; 10 PRINT CHR$(26);"SALVAGE VALUE" 20 PRINT 30 PRINT "ORIGINAL PRICE"; 40 INPUT P 50 PRINT "DEPRECIATION RATE"; 60 INPUT I 70 PRINT "--(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)--" 80 PRINT "YEARS"; 90 INPUT Y 99 REM - CALCULATE ANOTHER SALVAGE VALUE? 100 IF Y = 0 THEN 140 108 REM - CALCULATE SALVAGE VALUE BY FORMULA, ROUND OFF, PRINT. 109 REM - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULATIONS 110 PRINT "VALUE = $"; INT (100 * P * (1 - I / 100) ^ Y   + .5) / 100 120 PRINT 129 REM - RETURN FOR NEXT YEAR NUMBER 130 GOTO 80 139 REM - RESTART OR END PROGRAM? 140 PRINT "MORE DATA (1=YES, 0=NO)!; 150 INPUT X 160 IF X = 1 THEN 20 170 LOAD "BUSINESS",R - RESTART OR END PROGRAM? 140 PRINT10 PRINT CHR$(26);"COMPUTATION OF FEDERAL WITHOLDING TAX" 20 PRINT 30 DATA 16,1300,20,3500,23,6000,21,9500,26,12500,30,14500,36,18000 40 DATA 17,2500,20,5000,17,9000,25,13750,28,18000,32,22500,36,26000 50 F1 = .0585 60 F2 = 16500 70 W1 = 750 80 N = 12 90 DIM F1(28) 100 FOR I = 1 TO 28 110 READ F1(I) 120 NEXT I 130 PRINT 140 PRINT "MARITAL STATUS (1=SINGLE,2=MARRIED)"; 150 INPUT S 160 PRINT "WITHHOLDING TAX EXEMPTIONS"; 170 INPUT W 180 PRINT "TAXABLE PAY"; 190 INPUT P 200 PRINT "YTD TAXABLE PAY"; 210 INPUT Y 220 G = P * N - W1 * W 230 T1 = 0 240 FOR I = 2 TO 7 250 X = 2 * I + 14 * (S - 1) - 1 260 IF G < = F1(X - 1) THEN 330 270 IF G > F1(X + 1) THEN 300 280 T1 = T1 + (G - F1(X - 1)) * F1(X - 2) / 100 290 GOTO 330 300 T1 = T1 + (F1(X + 1) - F1(X - 1)) * F1(X - 2) / 100 310 NEXT I 315 T1 = T1 + (G - F1(X + 1)) * F1(X) / 100 320 T1 = T1 + (G - F1(X + 1)) * F1(X) / 100 330 T1 = INT ((T1 / N) * 100 + .5) / 100 340 T2 = 0 350 IF Y > F2 THEN 400 360 IF   Y + P > F2 THEN 360 370 T2 = INT ((P * F1) * 100 + .5) / 100 380 GOTO 400 390 T2 = INT (((F2 - Y) * F1) * 100 + .5) / 100 400 PRINT "TAXABLE = $"P 410 PRINT "INCOME TAX = $";T1 420 PRINT "FICA = $"T2 430 PRINT 440 PRINT "MORE DATA (1=YES,0X[Z]\_^`abdcegfihjlkm on0qpsrut vt_pwx yz/|{~q}i vzw8{sxm=NO)"; 450 INPUT S 460 IF S = 1 THEN 120 470 LOAD "BUSINESS",R "FICA = $"T2 430 PRINT 440 PRINT "MORE DATA (1=YES,0 400 PRINT "TAXABLE = $"P 410 PRINT "INCOME TAX = $";T1 420 PRINT "FICA = $"T2 430 PRINT 440 PRINT "MORE DATA (1=YES,0[G |kc}X<4O17lguyP"Ljhe~]Tb!+;:dKHQWUf-=3I)'65@Ea\%$2.A?MCS(#,`9DBR& ^NϢfTE鳭ifdjVq'-%n#v6P͢fR=d>e";1L6/j,m4] 9/gYΒgj?ŕӅ_h,zb2m*yb*ݜ3q&cwsag\PSp3jȗ ҧlhf<}5k=b"g!\CMᵳ8:_A{8kg!\CMᵳ8:5ȸ/ǐS,*}O%Ah3.2vus&l.bas  !"#$&%('*),+.-/10n23456r789:<;>=@?BADCFEGHIJKMLONPoQRSUTWVY_.hq+f6"^+{92ؾ\CʎoS@eYlFij:!5Ø.Yl۶ʴ-\`@cHb2ob+6Odٶ*K dޗ+/X/ضedrq Hm=D%vkMb6NI]š/VѲx+m4ؤ,\ 0/ǐM&{Gmbc|HGʴX/7X1#_~vyʾ\C  7ø/R{Ʋ_cevPrqF^wdK:[Tz,O$X7a9DcگKtuOJ./k)W;3MV#'v+Ӷ(E~ ,/,w7mQѲ>=K߄.8"Jz8b˶^LrPJ/1eRtYHxqD(Mmʪ2mWF%Ԝ{dt%o 7&mxgqW˶=D%2,*s[g\Ƥ4+;oja2Yvyɬoh^PSpvU_kB2v"b"2M]7ъm3eR-*=ZML pq 6sFm'nOd7aĹ>-VtuFzEGDwk;i4l &6Iky[o_%_8b$6_z$>6E~.@[8BNI.ow鑠&]"{lCuڢ2YY.\8V$eq?m7f|845.WvX8Φ$v+Ȳ_co/r,5ZAZ8>M2p'MbٯG뱷9m 2Z+sk@h.REeʳK7apX7aĹ=]a8.d *G5ɜDZ\q>]7ъ6꯬+Ӧe|"E:W&޵8[Tz,g'l#ٶ7'w F&zk"_G[Tz,wpDߥo0qELn zS\C_ΒD?苋OmOy4m+Lfq2K6-i- #y:om$ajY8F \.#AMDN7ͲAz:h,F \z{{Ӧ4]ۚ! hKtkۈn]`fq;i4Fije jsh4eCu*mY6mY,9&?iQv9Vxh46$N7JS. Uk64kd/ Zk,{~fO9̀MG\Y_\ѹx檉O2yld]PSpv{{Sgi[.kE/\< j*G , xymZL5Tث^Y] .!T$k9{vֳz'9'6X[ҧl';PKCKb=^md$: %,g$umh%ZrMcշ&"V:f86k5qMfGٚ,trlp1/n.ZkV kt`m+7u_P6kVof1_vesZ4l{&9s-,k)@Vܫj Ы3BԴԓ!\;eZllV.e!&\G >E;PHEMWg+C'6u{PA'HE$Iȯ\mm ie?Tb7~m(Ztu-gH6#~GC(Eݨ~X|HWgخ|-_?ض7iF76|c] Iq?N7O7i7JGc]an|kFǢwm,yO s&}9g>G3BjȽ:Z?y>m(':vNW#G]fJKH !ԕwVG]!d0 ~A%]}Gu5ۯ0YAG8 !{'ԕ{X8L3ՑGO;a\a{rg@v4p1l¬{u\)NzRfaBNsՑ4p1l¬kF놹SW@VJWd՝ |ylݢwd6Y,:'r_9X;Y0Mķ82l~E;K3LX-4M]ʛMDGb62;Β8]^d.;, ҝ,yB4j<ζmFbh ;K;X| MSzP!M**CB.v C@{;K-4M!N/է9[_rd lQѲ>`=K`M  6^6-Ǹ],j F76Ƈv+dJHp 5j>b.ȯEcیh %f+Rtg9K4!cp\/v6tُӍeWIJAz| hU m4ytM%Wm08.;.R|mLM>pj hkN8,o q\/v~tky[o_ĩ*M@ȷ06yt_wcE&IW8tZwY{m,ky[o_d6u6PTb/Ӎ;Yx<kzO? AGe?e5lGm׮{w~A8YU?$!{]; 3'y' !jah3毳</a~>!D5eL:5,g9 xd,nl.Dpvo\?T~lN7k9&lleAsZ4a 4Waq 5oM ʐk[_@*k]96ܵO2]ʴ!%C@¶^ާXH^c4\}ZW ꯬+Ӧe|"Ewׇ,7M|Z\ZLJJ/1*Wl+,p 5+{_cnr5OKQb&{ kD0CeĖ \8mEew>]JTűm x: (n*W!TB1a?'\YdNe?e5WO''ln`n9e%a4xoiq?7πz̅!D7  WaC?BYgQwIhQ ~eZkW~a]Vӻ8]˳a_24X^-*=Z'w?ȩl}]syXl&ZoR\&n;dabqa΀6[e?e5jӴ kI/g?ʎ]r hD:mOtf | xl $,eq?m7f|؜]ޥG:k+(mq?]cl*^&_Gwd -H'் &><(g|^! -\ _ C ,g".. HHOCf!+0ȡa_x%495lOTܫ_C;c뮾]/h=z5xiNg/\ɵk6N?<= WrmVչ J/.I/4lOTW6s-~ƧjzW1?_]~lQѲ>`=K`MGN`7z|\&qo&M>al0O6ވt:" : 7dulw&CO[N8 ,ggr0rk2~7w!A]r~# |u3,*\a2 f2ʂ B__|xEPd/h="Ͷ]Aŕ YrZ4"σ~Ƨj 'ெ?r'ux}9iJ(0}›g alQ }EpЏ0;WY+_eTBTì{") h׳du2z_˸ U '  lC=oIOw:t7"*WdeDc2Bv8_vX=ZimgE~.i/g9-N?DO_σoln+g|^}j #pWk4x%i>a"oealQ }EpЏ0{Jge܆6=ЛsYr0rk2~7w_qv8*\d;&ͱF$3Ewʹ[NGGwp\/v;6X6uW79!SztYM׮Cop +rhe,3{DTi~I; ^ E8VDvII;!n7"2r $+T5݇6@0B{88tZ-*U]J6=6]3鋻]ޥGt,C7dt+ΒO$7M|N?:J/.)W?r'e%a8Vξ4ĸiq?7U?= !jah3x%AmQ ~ڕ%[/A+#ZYo#&c xzף]Mjۈ,MJꕜAYry)&c᧛afɰT& XN?:BWYti&C(. N&C {e3K8nlYΒUYra?'(g|^EU6Xf ] '%3i:˛*|p~]- uD>zoKB '/g9O5X w.c94"6'ʾ'ndeD` 2,x%UYow鑠&]"f٠h=܏bw:뀧q{ln|YrO_σ~Ƨj gh.hH}!TLC _ YrvwIFB 3A 1ޛrf܆țg@alQ }EpЏ0*a&kwr̻N5X}YL,V&}A&CY!om*&,=]֩?-x:4+p9 ~O? Aˤ.k)W~w=} ,_bTwIHOÌy6wU+0ȡa\(QUwIH=JKPԆ0P^B +l?^VFG̑?3rVO1Fxe.ҐHC.Goʭqm 18̿Jl1..f8Ti˸z10+V'޳,bU]ܚL,tsa@.kJZq[!#%v,qujdeD@b2RUgq.{&mDNԶ;Krji' :rp\/vc?:vN7JzTsusk4x!\'5Qis܏ri\_I^rlkϼ넱O7w8YDXHw 뭐Lpu^!omQ*98W5)l(Mtc4r rMσ~Ƨj Y|pD׮{w~A8Y#!FuK4̸ț06J8̀?rGT64'z~6!  uWr O7w?뭐 Af;}|LB 鲚{8ZZއ_?p[wu3Nݠfp.Vm0B0Z4ahʰUj98.n_CK_cnr( &|pj=s%0αfr kt84 3[7}5+TKB |6)o#Q޸ F$s+oLl_nSrp~ǡ:_oj+vuO#\d/Zx5aHf_#_W jn%ܗ!V!Tξ~s_9zV3^E%vcnrp]|7qTXɞw¸ֈahW|| 8]o &C\\xxzw+I5Y,W+9Ozu35܇局 X=:,Jj4?w>"m1="dDʗ.FF7?a4q?lPyp_3Bh5cjfq f,8X1ވ 60XT- ꃲh5N#fr j hq+{ȝM٘lUn0F$3@Bk0AjX#'-W[PPaT,H~Ƨj*ՎbG2P j*kP-hO~J\%X6M+ɫWrLOW7W>LP.0BcwYxz'Mb/h="j4z%gz MJ\5&C(N7g2 i9O?<={Y6uri\_I^sa]7 2Õ`a2ty!T>p=j=n̓ϰv>LP.1Be< ʗ;,ǡ:_oj+f\h}_hگY+@ӣkh5J\g;@SIejZ+6Mj2 |GcavXL0; D(OTWԯ߄ s^3>]Vӻ8]u(O^t! ƈtgJ]#8mO= ibt5AqS'ߥo֛W7[GčvlQѲ>`=K`0o7v+Ӷ\n}aa2*[a%C<qqYvyIl鲟|n.Vmذ8̀MGK4ɣ;Y'a2ɲ9ɬȃ~s[X|&&ۣ 4p.Vmp*Z?~?H?VW6b֣e|"EWgC^{ Ux5\CMMz|`鲚{Mxϵ;J/./>;|ײW鲚2 ӣ鲚{u 8]^iE~]mr}%yux!*췒k'Mb/h="]}V.'f ~մ+\p 55es]=I~/!?ڈ0d d2kfqqiL~el[CTb/͢;uW79W5(ŪMm`Hf_#L<)7yttG7P6MdŲdM0+rp\/v_vX=Z&j_$.#\dq ktWW|b׫M).G7c-W} Xry*##Ӭag.~G뱷]mVy}%yJ]Uj2vcx¸߈aT-WFu@1&r^}^Ejm5iSvu C\xqmJ/VS$^~{-*s[wiZW礎鲚W~Ƨj*6ka⒮>;|ײ~Y5OԤaѾj+@jϫ]3eأj {q"  滖}0FfGFc>LP?b2ʕX6>qSe?e5jg4ɸH=LMw"fPJ3*g|^ Pūm7aOTثώ3ߵ|鲚8>4Pe?e5jTW;ij?WVi2>v3l3*ZMjg TztYMŽܦ~m6Y\gǙZŒ_*g|&\MPRINTCHR$( );();[FORQ >:PRINTCHR$();:NEXTQ:PRINTCHR$()+dPRINTCHR$(););"EARNED INTEREST SCHEDULE";CePRINTTAB(?);()wnPRINTCHR$();:FORQ >:PRINTCHR$();:NEXTQoPRINTCHR$()xZIV: :PRINTCHR$();͕yÑ" ~j,O~Ƨj*NfOU{eڴO]lف MSzYsӳWrun&4o~մ kIzL Ge?e5j.RTtׄTzo%צ):0NW.'ŵGWUJ]Q]鲚{Mx&lώ3ߵ鲚9 TztYMŽqO ]{CWlINITIAL INVESTMENT $"; ZL);PRINTZ$;"NOMINAL INTEREST RATE ";:ZNI: "PRINTTAB(=ZL));Z$;"% ";()>Ñ" FOR";Y;"YEARS"; );eEI(d((INC)NC)):ZE1: Ñ"EFF. INTEREST RATE";=ZL);Z$;"% ";()K: NT ۖ6 ꬕ`.ݤȐ0.~\bs5\CMMzY`0RԬGq?&CG`F$R-AK#Z2+N6of+ i, 4z3?59J/.W>1?(ZM5$^uvӣkh5J\UՈN?<=J/VJ\g< jLO~մ+K:PRINTDHR$();" REGULAR TRANSACTION $";ꖿZRT: PRINTTAB( ZL);Z$;NT;"TIMES PER YEAR";?);-PRINTCHR$()WPRINTCHR$();:FORQTO62:"-";:NEXTQiPRINTCHR$(),đ"INTEREST";TAV(/);"ACCUM. INTEREST ";();:NEXTQ7KK:PSkI/۱PztYMŽ4«] PS^uW_GԹj,N?<=+GW5_YE]+ `5vQzo%צi^j rU6ka~ƧjzW8]ˊ/PztYM- FWg`ĸm|>]^MZ xX7Pvj*U0#ԯo†9J/.^w-+@e/j {q:̗8Ǐ --- LA HEADING ---=IFYJ1THEN PRINTCHR$( );"CALCULATING--"GOTO51999?@BADCEHGF%:qowHgq{>zC9uظDՙzq|^j*U+\.qH}bOcS=Pk9D{ 170$A_~溣JNw{yrϞݟȾ\/˟$  ssAg;t u=,w{zY䘃:s>A_~溣JNw{ Zw(ٳǾ:ݞ%X|3Y4=@.5yiFRn2 il+HwɻwHϕo4Ce}{[O ޽+@([V$Pߞv}j_8=-Y~0z o(Z$%Z I ?ɏ JilܒF{ EЗ%HoOc#3\uYe.{ ZwuSCqnOcq)E}Q@>]Һ*46.ѱ=MWYW}w| { 1»/?s"ݞ]\܊L,aOcS=_B~[t<XBBi u|~=q8}Yžvu=m ߞ֓O 폂ERB5kH#il rѧNӗD=V޽+@f1OїcG=m`3XA 47Kcy ~\1ߞ6V w 1񓥣:70߽+@ߞ6w:PWwOgQwHԙ=m`鯤ӷ;;:s>A_~溣JNw{ףvu=Mҟ[lK]R !їճFHCe {y,KCe \:9)}Yž]RKo|pKil %} {yAvEo$*\w1VvuS ݞvu=m`p* ҵN j%7>+@il\DXA{;Ŕ.|{ ~=iAJײoOcXA#K+HjOP΃:-.w'3w=;HuYe_Xbj}{ ҟU~>H; ȧ߽+@ZW}㷧 re`p.Su_* ?oOcXA cV1+=5G`o tTgz R-46R-<XE{R-R->46R-kHt9T@wsAZ~[-~Ko|pkOc:ݞƕaOcSs=3}uUO]{WظDǢ46CH AwH֞F^gMaƶr IЗݞuSwHnOc#3"$56.\.{ *0h6 Oh]VY溋vu=+Þ%:gKwHԙ4E{!dK"w5G3ָqnFEQ\'?IOc 5OcXAil˚hOc޳\Guo`.H{W<46.ѱ= $=m  /?s}%~=QkŻ#]L=m`e;җ%il+= =-WQil溋T\溋Ӹ IK4ף溋iܹ\F 6.ѱ=M߻wHCb]dDؿsPg.'\wt_nOczZwusOc˕oF{ ҟˊw/KV{ ҇+il+H 4bsT*q.siu]%QstOV={WtwHP`{ T@vO"߽+@߽+@ \Fo|p+NCe Ѹq7Js574Ԟ4]LӸ OID uScؠ~溋(2yA6$45wV?A")~\=m`qnOcqEM)\ P~qEMilk('\}+;il\Z.bzil+HS߻wHCbk~P;ril \w1=u{]L\w1=46CH O,]Rr%.H46:lIil+HJ~; NdERB{ rOc:ݞƕaOc%zx~8il\c46CH AwH֞ƶr IЗݞuSwHnOc#3"$56.\.{ T@vOp|I{W4éO~[,Z$%(=MWyxbA}%  )BX}u}GSTcRu K?kӸ4r=[}Y^=O_,Hxue =rOE{ 1»/?s"Ӓ=Qk-KV||geilKo|płkӸβ1ָqW.KHH=m`i%q5<} e {Yil Cbxu46CHey46Gu/!$46%7>+W<#hOcXAZ..9^B~[r *N_qnOcS0wu(}Gnil ˲.HCe {y,KCe \:9)}YžƶrAX/?s}%~=QkŻ#]L46:쮋ظD2]L4ݑ.=,w{W=Kt,v|u}{/KOEV=,K#P?A_ /K7>%֯dw]%ZUC8bqnOc[C?9\OЗݞݑ.{[|#ACI/&-=Oh(,Azue {yAvEol\uYe\oil\w1rTC u\w1rqe`ظD]* u=Kt,vOcS0wsAݻsY.UYT;ržƦz_Sw Os SE{!w zݻ$kOc[C?9$\wt_nOczZwusOc㺋ݻ$KCbjr.P$Qdwil+= Dў6Ʀ`/:rʢzߑ46XrB>?Io% kYsY.O=Kt,fOcS0]DX;{W$`ilk('\}+;il\w1{W$`i46:.B=m`p* Y8{W$`߽+@ {!'ճQ;74ԞƦ`鏾,Pzߑ"46nI7>!W4éJܲ:-Z$%(= "rqe`ظDǢahOc#\9)"?Cy(.46CH AwH֞ƶrAX/?s}%~=QkŻ#]L=\w1J\w1=u{7ףֺs]rOV={W$`tݻP?ў?%?a.{yO(Od:.B=m`il{ T@vO"߽+@߽+@ \Fo|p+NCe { rOcS0uZDjOP΃:-.Þ%:5dDؿssAg;tq=jxw事鹧C}Yt^ i? ȇҗ%%4\FidtQ.Rs.nOc#3"$T{==OЗ%i(,!=dwݟ(ɕo7j֞4]L46:lIil+Hj︧ e\TeQu F=Mԣ{XԹ }ž69{ rOcqE{H\VN~j,ظDǢ=m` ,il\46.ѱs.BRs溋d^!Ԟ%:uil\Z.uwwH!+HPq&  ni(,aOcqE{vџ(2hQx>+ظDǢ=M߻wHK;{W46CH~ c|#ACil ł:MC}G/K7>%͕o$h=+Þ%:uuK4]L*˼B*=Kt,Vֺs]2]R74T\~[q/Kظ20il\cQ]'%.e\>e unsqueezed using utilities found on FOG/UTL.003, .004, and .014. Jim Woolley FOG Disk Librarian March, 1983 +ظDǢ=m`p* w w B%͕o$h=+Þ%:uuK4]L*˼B*=Kt,Vֺs]2]R74T\~[q/Kظ20il\cQ]'%.e\>/g9O5X w.c94"6'ʾ'ndeD` 2,x%UYow鑠&]"f٠h=܏bw:뀧q{ln|YrO_σ~Ƨj gh.hH}!TLC _ YrvwIFB 3A 1ޛrf܆țg@alQ }EpЏ0*a DISK.DOC FOG/HAK.013 First Osborne Group (FOG) Hackers Disk This disk contains several BASIC language business programs. Included is part of the FINANCE system received from the Phoenix Osborhe,3{DTi~I; ^ E8VDvII;!'   --> FILE: -FOG/HAK.013 CRC = 00 00 --> FILE: AMORTTBL.BAS CRC = 4C F5 --> FILE: ANINTRTE.BAS CRC = DA 42 --> FILE: ANNUITY .BAS CRC = C4 AB --> FILE: BUSINESS.BAS CRC = B1 A3 --> FILE: BUSINESS.DAT CRC = C3 D7 --> FILE: CHE --> FILE: WITHHDTX.BAS CRC = B7 62 ---------------------> SUM OF CRCS = 36 58  AE BA --> FILE: REGWDRAW.BAS CRC = C8 6E --> FILE: S&L .BQS CRC = 7D 61 --> FILE: SALVGVAL.BAS CRC = 6E 03 CKWTR.BAS CRC = 25 31 --> FILE: COMPAT .BAS CRC = E7 C0 --> FILE: DAYDATES.BAS CRC = F6 A7 --> FILE: DAYWEEK .BAS CRC = D5 6B --> FILE: DEPRAMNT.BAS CRC = 50 F5 --> FILE: DEPRRATE.BAS CRC = AE E6 --> FILE: DEPRSCHD.BAS CRC =Y+@ӣkh5J\g;@SIejZ+6Mj2 |GcavXL0; D(OTWԯ߄ s^3>]Vӻ8]u(O^t! ƈtgJ]#8mO= ibt5AqS'ߥo֛W7[Gč FILE: DISCOMPR.BAS CRC = 43 BC --> FILE: DISK .DOC CRC = B2 FD --> FILE: EFFINEST.BAS CRC = EA 3B --> FILE: ENG-METR.BAS CRC = 35 B4 --> FILE: FINAN1-3.DOC CRC = 69 4D --> FILE: FINANC1A.BQS CRC = 19 9B --> FI^^SsGe?e5۫ώ3ߵ (jBSztYMeM>vlQѲ>`=K`0o7v+Ӷ\n}aa2*[a%C<qqYvyIl鲟|n.Vmذ8̀MGK4ɣ;Y'a2ɲ9ɬȃ~s[X|&&ۣ 4p.Vmp*Z?~?H?LE: FUTRVALU.BAS CRC = E9 EA --> FILE: INTINVST.BAS CRC = 2B 70 --> FILE: LOANTERM.BAS CRC = F0 31 --> FILE: LSTPAYMT.BAS CRC = 7C 1D --> FILE: MAPCHECK.BAS CRC = 21 3A --> FILE: NOMINTST.BAS CRC = 77 9C --> FILE: PRINLOAN.BAS CRC = 6A 58 --> FILE: RCIPECST.BAS CRC = 0B AA --> FILE: REGDEPOS.BAS CRC = 0C 5A --> FILE: REGPAYMT.BAS CRC = AE BA --> FILE: REGWDRAW.BAS CRC = C8 6E --> FILE: S&L .BQS CRC = 7D 61 --> FILE: SALVGVAL.BAS CRC = 6E 03