/ Nibble Magazine / nib03.dsk / LOAN REDUCTION ANALYSIS.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 30 30 20 20 52 45 | 4d 20 20 2d 2d 2d 2d 2d |1000  RE|M  -----|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 0a 31 30 30 31 20 20 52 | 45 4d 20 20 50 47 4d 20 |.1001  R|EM  PGM |
|00000030| 47 45 4e 45 52 41 54 45 | 53 20 50 41 59 4d 45 4e |GENERATE|S PAYMEN|
|00000040| 54 0a 31 30 30 32 20 20 | 52 45 4d 20 20 20 53 43 |T.1002  |REM   SC|
|00000050| 48 45 44 55 4c 45 20 46 | 4f 52 20 44 49 52 45 43 |HEDULE F|OR DIREC|
|00000060| 54 0a 31 30 30 33 20 20 | 52 45 4d 20 20 20 52 45 |T.1003  |REM   RE|
|00000070| 44 55 43 54 49 4f 4e 20 | 4c 4f 41 4e 20 57 49 54 |DUCTION |LOAN WIT|
|00000080| 48 0a 31 30 30 34 20 20 | 52 45 4d 20 20 50 52 49 |H.1004  |REM  PRI|
|00000090| 4e 20 56 41 4c 20 56 53 | 2e 20 49 4e 54 45 52 45 |N VAL VS|. INTERE|
|000000a0| 53 54 0a 31 30 30 35 20 | 3a 0a 31 30 30 36 20 20 |ST.1005 |:.1006  |
|000000b0| 52 45 4d 20 20 20 20 20 | 42 59 20 4c 41 52 52 59 |REM     |BY LARRY|
|000000c0| 20 41 42 52 41 4d 53 0a | 31 30 30 37 20 20 52 45 | ABRAMS.|1007  RE|
|000000d0| 4d 20 20 20 20 20 41 52 | 49 45 53 20 20 53 4f 46 |M     AR|IES  SOF|
|000000e0| 54 57 41 52 45 0a 31 30 | 30 38 20 3a 0a 31 30 30 |TWARE.10|08 :.100|
|000000f0| 39 20 20 52 45 4d 20 20 | 20 41 50 50 4c 45 53 4f |9  REM  | APPLESO|
|00000100| 46 54 20 2f 20 37 2e 32 | 30 2e 38 30 0a 31 30 31 |FT / 7.2|0.80.101|
|00000110| 30 20 20 52 45 4d 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d |0  REM  |--------|
|00000120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0a 31 30 |--------|-----.10|
|00000130| 31 31 20 3a 0a 32 30 30 | 30 20 20 52 45 4d 20 20 |11 :.200|0  REM  |
|00000140| 50 47 4d 20 49 4e 49 54 | 49 41 4c 49 5a 41 54 49 |PGM INIT|IALIZATI|
|00000150| 4f 4e 0a 32 30 30 31 20 | 20 4f 4e 45 52 52 20 20 |ON.2001 | ONERR  |
|00000160| 47 4f 54 4f 20 38 30 30 | 31 0a 32 30 30 32 20 46 |GOTO 800|1.2002 F|
|00000170| 4c 41 47 20 3d 20 30 0a | 32 30 30 33 20 3a 0a 33 |LAG = 0.|2003 :.3|
|00000180| 30 30 30 20 20 52 45 4d | 20 20 4d 45 4e 55 20 2f |000  REM|  MENU /|
|00000190| 20 49 4e 50 55 54 20 53 | 45 43 54 49 4f 4e 0a 33 | INPUT S|ECTION.3|
|000001a0| 30 30 31 20 20 48 4f 4d | 45 20 3a 20 56 54 41 42 |001  HOM|E : VTAB|
|000001b0| 20 35 0a 33 30 30 32 20 | 20 50 52 49 4e 54 20 22 | 5.3002 | PRINT "|
|000001c0| 31 2e 20 4d 41 58 20 42 | 4f 52 52 4f 57 20 41 4d |1. MAX B|ORROW AM|
|000001d0| 4f 55 4e 54 22 3b 20 54 | 41 42 28 20 32 35 29 3b |OUNT"; T|AB( 25);|
|000001e0| 3a 20 49 46 20 46 4c 41 | 47 20 20 54 48 45 4e 20 |: IF FLA|G  THEN |
|000001f0| 20 50 52 49 4e 54 20 41 | 28 31 29 3a 20 47 4f 54 | PRINT A|(1): GOT|
|00000200| 4f 20 33 30 30 34 0a 33 | 30 30 33 20 20 49 4e 50 |O 3004.3|003  INP|
|00000210| 55 54 20 41 28 31 29 0a | 33 30 30 34 20 20 50 52 |UT A(1).|3004  PR|
|00000220| 49 4e 54 20 22 32 2e 20 | 43 48 41 4e 47 45 20 49 |INT "2. |CHANGE I|
|00000230| 4e 20 41 4d 4f 55 4e 54 | 22 3b 20 54 41 42 28 20 |N AMOUNT|"; TAB( |
|00000240| 32 35 29 3b 3a 20 49 46 | 20 46 4c 41 47 20 20 54 |25);: IF| FLAG  T|
|00000250| 48 45 4e 20 20 50 52 49 | 4e 54 20 41 28 32 29 3a |HEN  PRI|NT A(2):|
|00000260| 20 47 4f 54 4f 20 33 30 | 30 36 0a 33 30 30 35 20 | GOTO 30|06.3005 |
|00000270| 20 49 4e 50 55 54 20 41 | 28 32 29 0a 33 30 30 36 | INPUT A|(2).3006|
|00000280| 20 20 50 52 49 4e 54 20 | 22 33 2e 20 4d 41 58 20 |  PRINT |"3. MAX |
|00000290| 49 4e 54 45 52 45 53 54 | 20 52 41 54 45 22 3b 20 |INTEREST| RATE"; |
|000002a0| 54 41 42 28 20 32 35 29 | 3b 3a 20 49 46 20 46 4c |TAB( 25)|;: IF FL|
|000002b0| 41 47 20 20 54 48 45 4e | 20 20 50 52 49 4e 54 20 |AG  THEN|  PRINT |
|000002c0| 41 28 33 29 3a 20 47 4f | 54 4f 20 33 30 30 38 0a |A(3): GO|TO 3008.|
|000002d0| 33 30 30 37 20 20 49 4e | 50 55 54 20 41 28 33 29 |3007  IN|PUT A(3)|
|000002e0| 0a 33 30 30 38 20 20 50 | 52 49 4e 54 20 22 34 2e |.3008  P|RINT "4.|
|000002f0| 20 43 48 41 4e 47 45 20 | 49 4e 20 49 4e 54 20 52 | CHANGE |IN INT R|
|00000300| 41 54 45 22 3b 20 54 41 | 42 28 20 32 35 29 3b 3a |ATE"; TA|B( 25);:|
|00000310| 20 49 46 20 46 4c 41 47 | 20 20 54 48 45 4e 20 20 | IF FLAG|  THEN  |
|00000320| 50 52 49 4e 54 20 41 28 | 34 29 3a 20 47 4f 54 4f |PRINT A(|4): GOTO|
|00000330| 20 33 30 31 30 0a 33 30 | 30 39 20 20 49 4e 50 55 | 3010.30|09  INPU|
|00000340| 54 20 41 28 34 29 0a 33 | 30 31 30 20 20 50 52 49 |T A(4).3|010  PRI|
|00000350| 4e 54 20 22 35 2e 20 4c | 4f 41 4e 20 54 45 52 4d |NT "5. L|OAN TERM|
|00000360| 20 28 4d 4f 4e 54 48 53 | 29 22 3b 20 54 41 42 28 | (MONTHS|)"; TAB(|
|00000370| 20 32 35 29 3b 3a 20 49 | 46 20 46 4c 41 47 20 20 | 25);: I|F FLAG  |
|00000380| 54 48 45 4e 20 20 50 52 | 49 4e 54 20 41 28 35 29 |THEN  PR|INT A(5)|
|00000390| 3a 20 47 4f 54 4f 20 33 | 30 31 32 0a 33 30 31 31 |: GOTO 3|012.3011|
|000003a0| 20 20 49 4e 50 55 54 20 | 41 28 35 29 3a 46 4c 41 |  INPUT |A(5):FLA|
|000003b0| 47 20 3d 20 31 0a 33 30 | 31 32 20 20 50 52 49 4e |G = 1.30|12  PRIN|
|000003c0| 54 20 3a 20 49 4e 56 45 | 52 53 45 20 3a 20 50 52 |T : INVE|RSE : PR|
|000003d0| 49 4e 54 20 22 20 54 59 | 50 45 20 27 45 4e 44 27 |INT " TY|PE 'END'|
|000003e0| 20 54 4f 20 45 4e 44 20 | 22 3a 20 4e 4f 52 4d 41 | TO END |": NORMA|
|000003f0| 4c 20 3a 20 56 54 41 42 | 20 31 38 3a 20 49 4e 50 |L : VTAB| 18: INP|
|00000400| 55 54 20 22 41 4e 59 20 | 43 48 41 4e 47 45 53 3f |UT "ANY |CHANGES?|
|00000410| 20 22 3b 59 24 0a 33 30 | 31 33 20 20 49 46 20 20 | ";Y$.30|13  IF  |
|00000420| 4c 45 46 54 24 28 59 24 | 2c 31 29 20 3d 20 22 4e |LEFT$(Y$|,1) = "N|
|00000430| 22 20 20 54 48 45 4e 20 | 36 30 30 31 0a 33 30 31 |"  THEN |6001.301|
|00000440| 34 20 20 49 46 20 59 24 | 20 3d 20 22 45 4e 44 22 |4  IF Y$| = "END"|
|00000450| 20 20 54 48 45 4e 20 20 | 45 4e 44 20 0a 33 30 31 |  THEN  |END .301|
|00000460| 35 20 20 49 4e 50 55 54 | 20 22 57 48 49 43 48 20 |5  INPUT| "WHICH |
|00000470| 4f 4e 45 3f 20 22 3b 57 | 3a 20 50 52 49 4e 54 20 |ONE? ";W|: PRINT |
|00000480| 22 43 48 41 4e 47 45 20 | 50 41 52 54 20 22 3b 57 |"CHANGE |PART ";W|
|00000490| 3b 22 20 54 4f 20 22 3b | 3a 20 49 4e 50 55 54 20 |;" TO ";|: INPUT |
|000004a0| 41 28 57 29 3a 20 47 4f | 54 4f 20 33 30 30 31 0a |A(W): GO|TO 3001.|
|000004b0| 33 30 31 36 20 3a 0a 34 | 30 30 30 20 20 52 45 4d |3016 :.4|000  REM|
|000004c0| 20 20 50 41 59 4d 45 4e | 54 20 43 41 4c 43 55 4c |  PAYMEN|T CALCUL|
|000004d0| 41 54 49 4f 4e 0a 34 30 | 30 31 20 49 20 3d 20 4a |ATION.40|01 I = J|
|000004e0| 2f 31 32 30 30 0a 34 30 | 30 32 20 50 4d 54 20 3d |/1200.40|02 PMT =|
|000004f0| 20 28 4b 20 2a 49 29 2f | 28 31 20 2d 28 31 20 2b | (K *I)/|(1 -(1 +|
|00000500| 49 29 20 5e 28 20 2d 41 | 28 35 29 29 29 0a 34 30 |I) ^( -A|(5))).40|
|00000510| 30 33 20 20 52 45 54 55 | 52 4e 20 0a 34 30 30 34 |03  RETU|RN .4004|
|00000520| 20 3a 0a 35 30 30 30 20 | 20 52 45 4d 20 20 50 52 | :.5000 | REM  PR|
|00000530| 49 4e 54 55 53 49 4e 47 | 20 53 55 42 52 4f 55 54 |INTUSING| SUBROUT|
|00000540| 49 4e 45 0a 35 30 30 31 | 20 50 24 20 3d 20 20 53 |INE.5001| P$ =  S|
|00000550| 54 52 24 28 20 49 4e 54 | 28 28 50 20 2b 2e 30 30 |TR$( INT|((P +.00|
|00000560| 35 29 20 2a 31 30 30 29 | 29 0a 35 30 30 32 20 20 |5) *100)|).5002  |
|00000570| 49 46 20 20 4c 45 4e 28 | 50 24 29 20 3c 33 20 20 |IF  LEN(|P$) <3  |
|00000580| 54 48 45 4e 20 50 24 20 | 3d 20 20 4c 45 46 54 24 |THEN P$ |=  LEFT$|
|00000590| 28 22 30 30 30 22 2c 28 | 33 20 2d 20 4c 45 4e 28 |("000",(|3 - LEN(|
|000005a0| 50 24 29 29 29 20 2b 50 | 24 0a 35 30 30 33 20 50 |P$))) +P|$.5003 P|
|000005b0| 24 20 3d 20 20 4c 45 46 | 54 24 28 50 24 2c 28 20 |$ =  LEF|T$(P$,( |
|000005c0| 4c 45 4e 28 50 24 29 20 | 2d 32 29 29 20 2b 22 2e |LEN(P$) |-2)) +".|
|000005d0| 22 20 2b 20 52 49 47 48 | 54 24 28 50 24 2c 32 29 |" + RIGH|T$(P$,2)|
|000005e0| 0a 35 30 30 34 20 50 24 | 20 3d 20 20 52 49 47 48 |.5004 P$| =  RIGH|
|000005f0| 54 24 28 22 20 20 20 22 | 20 2b 50 24 2c 50 4c 29 |T$("   "| +P$,PL)|
|00000600| 0a 35 30 30 35 20 20 52 | 45 54 55 52 4e 20 0a 35 |.5005  R|ETURN .5|
|00000610| 30 30 36 20 3a 0a 36 30 | 30 30 20 20 52 45 4d 20 |006 :.60|00  REM |
|00000620| 20 4f 55 54 50 55 54 20 | 48 45 41 44 49 4e 47 20 | OUTPUT |HEADING |
|00000630| 53 45 43 54 49 4f 4e 0a | 36 30 30 31 20 20 48 4f |SECTION.|6001  HO|
|00000640| 4d 45 20 3a 20 48 54 41 | 42 20 31 33 3a 20 49 4e |ME : HTA|B 13: IN|
|00000650| 56 45 52 53 45 20 3a 20 | 50 52 49 4e 54 20 22 20 |VERSE : |PRINT " |
|00000660| 54 45 52 4d 3a 20 22 3b | 41 28 35 29 3b 22 20 4d |TERM: ";|A(5);" M|
|00000670| 4f 4e 54 48 53 20 22 3a | 20 4e 4f 52 4d 41 4c 20 |ONTHS ":| NORMAL |
|00000680| 0a 36 30 30 32 20 20 56 | 54 41 42 20 32 3a 20 50 |.6002  V|TAB 2: P|
|00000690| 52 49 4e 54 20 22 50 52 | 43 4e 54 22 3b 0a 36 30 |RINT "PR|CNT";.60|
|000006a0| 30 33 20 20 46 4f 52 20 | 4b 20 3d 20 41 28 31 29 |03  FOR |K = A(1)|
|000006b0| 20 2d 34 20 2a 41 28 32 | 29 20 54 4f 20 41 28 31 | -4 *A(2|) TO A(1|
|000006c0| 29 20 20 53 54 45 50 20 | 41 28 32 29 3a 50 24 20 |)  STEP |A(2):P$ |
|000006d0| 3d 20 20 53 54 52 24 28 | 20 49 4e 54 28 4b 29 29 |=  STR$(| INT(K))|
|000006e0| 3a 50 4c 20 3d 20 37 3a | 20 47 4f 53 55 42 20 35 |:PL = 7:| GOSUB 5|
|000006f0| 30 30 34 3a 20 50 52 49 | 4e 54 20 50 24 3b 3a 20 |004: PRI|NT P$;: |
|00000700| 4e 45 58 54 20 4b 0a 36 | 30 30 34 20 20 46 4f 52 |NEXT K.6|004  FOR|
|00000710| 20 44 41 53 48 20 3d 20 | 30 20 54 4f 20 33 39 3a | DASH = |0 TO 39:|
|00000720| 20 50 52 49 4e 54 20 22 | 2d 22 3b 3a 20 4e 45 58 | PRINT "|-";: NEX|
|00000730| 54 20 44 41 53 48 0a 36 | 30 30 35 20 3a 0a 37 30 |T DASH.6|005 :.70|
|00000740| 30 30 20 20 52 45 4d 20 | 20 4d 41 49 4e 20 50 52 |00  REM | MAIN PR|
|00000750| 4f 47 52 41 4d 0a 37 30 | 30 31 20 4a 20 3d 20 41 |OGRAM.70|01 J = A|
|00000760| 28 33 29 0a 37 30 30 32 | 20 50 20 3d 20 4a 3a 50 |(3).7002| P = J:P|
|00000770| 4c 20 3d 20 35 3a 20 47 | 4f 53 55 42 20 35 30 30 |L = 5: G|OSUB 500|
|00000780| 31 3a 20 50 52 49 4e 54 | 20 50 24 3b 0a 37 30 30 |1: PRINT| P$;.700|
|00000790| 33 20 20 46 4f 52 20 4b | 20 3d 20 41 28 31 29 20 |3  FOR K| = A(1) |
|000007a0| 2d 34 20 2a 41 28 32 29 | 20 54 4f 20 41 28 31 29 |-4 *A(2)| TO A(1)|
|000007b0| 20 20 53 54 45 50 20 41 | 28 32 29 0a 37 30 30 34 |  STEP A|(2).7004|
|000007c0| 20 20 47 4f 53 55 42 20 | 34 30 30 31 0a 37 30 30 |  GOSUB |4001.700|
|000007d0| 35 20 50 20 3d 20 50 4d | 54 3a 50 4c 20 3d 20 37 |5 P = PM|T:PL = 7|
|000007e0| 3a 20 47 4f 53 55 42 20 | 35 30 30 31 3a 20 50 52 |: GOSUB |5001: PR|
|000007f0| 49 4e 54 20 50 24 3b 0a | 37 30 30 36 20 20 4e 45 |INT P$;.|7006  NE|
|00000800| 58 54 20 4b 0a 37 30 30 | 37 20 4a 20 3d 20 4a 20 |XT K.700|7 J = J |
|00000810| 2d 41 28 34 29 0a 37 30 | 30 38 20 20 49 46 20 20 |-A(4).70|08  IF  |
|00000820| 50 45 45 4b 28 33 37 29 | 20 3c 32 32 20 20 41 4e |PEEK(37)| <22  AN|
|00000830| 44 20 4a 20 3e 30 20 20 | 54 48 45 4e 20 37 30 30 |D J >0  |THEN 700|
|00000840| 32 0a 37 30 30 39 20 20 | 56 54 41 42 20 32 34 3a |2.7009  |VTAB 24:|
|00000850| 20 49 4e 56 45 52 53 45 | 20 3a 20 50 52 49 4e 54 | INVERSE| : PRINT|
|00000860| 20 22 20 41 4e 59 20 4b | 45 59 20 46 4f 52 20 4d | " ANY K|EY FOR M|
|00000870| 45 4e 55 20 22 3b 3a 20 | 4e 4f 52 4d 41 4c 20 0a |ENU ";: |NORMAL .|
|00000880| 37 30 31 30 20 20 49 46 | 20 20 50 45 45 4b 28 20 |7010  IF|  PEEK( |
|00000890| 2d 31 36 33 38 34 29 20 | 3c 31 32 38 20 20 54 48 |-16384) |<128  TH|
|000008a0| 45 4e 20 37 30 31 30 0a | 37 30 31 31 20 20 47 4f |EN 7010.|7011  GO|
|000008b0| 54 4f 20 33 30 30 31 0a | 37 30 31 32 20 3a 0a 38 |TO 3001.|7012 :.8|
|000008c0| 30 30 30 20 20 52 45 4d | 20 20 45 52 52 4f 52 20 |000  REM|  ERROR |
|000008d0| 54 52 41 50 20 53 55 42 | 52 4f 55 54 49 4e 45 0a |TRAP SUB|ROUTINE.|
|000008e0| 38 30 30 31 20 20 49 46 | 20 20 50 45 45 4b 28 32 |8001  IF|  PEEK(2|
|000008f0| 32 32 29 20 3d 20 32 35 | 35 20 20 54 48 45 4e 20 |22) = 25|5  THEN |
|00000900| 20 45 4e 44 20 0a 38 30 | 30 32 20 20 48 4f 4d 45 | END .80|02  HOME|
|00000910| 20 3a 20 56 54 41 42 20 | 35 3a 20 49 4e 56 45 52 | : VTAB |5: INVER|
|00000920| 53 45 20 3a 20 50 52 49 | 4e 54 20 22 43 48 45 43 |SE : PRI|NT "CHEC|
|00000930| 4b 20 41 50 50 4c 45 53 | 4f 46 54 20 4d 41 4e 55 |K APPLES|OFT MANU|
|00000940| 41 4c 20 50 47 20 31 33 | 36 20 46 4f 52 20 45 52 |AL PG 13|6 FOR ER|
|00000950| 52 22 3a 20 4e 4f 52 4d | 41 4c 20 0a 38 30 30 33 |R": NORM|AL .8003|
|00000960| 20 20 50 52 49 4e 54 20 | 22 45 52 52 4f 52 20 49 |  PRINT |"ERROR I|
|00000970| 53 20 4e 55 4d 42 45 52 | 20 22 3b 20 50 45 45 4b |S NUMBER| "; PEEK|
|00000980| 28 32 32 32 29 3a 20 50 | 52 49 4e 54 20 22 4c 4f |(222): P|RINT "LO|
|00000990| 43 41 54 45 44 20 49 4e | 20 4c 49 4e 45 20 22 3b |CATED IN| LINE ";|
|000009a0| 20 50 45 45 4b 28 32 31 | 38 29 20 2b 20 50 45 45 | PEEK(21|8) + PEE|
|000009b0| 4b 28 32 31 39 29 20 2a | 32 35 36 3a 20 45 4e 44 |K(219) *|256: END|
|000009c0| 20                      |                         |        |        |
+--------+-------------------------+-------------------------+--------+--------+