LOAN CALC

00000000: 01 08 48 08 0A 00 8F 20  2A 4C 4F 41 4E 20 43 41  |..H.... *LOAN CA|
00000010: 4C 43 2A 20 42 59 20 42  45 52 4E 41 52 44 20 48  |LC* BY BERNARD H|
00000020: 41 42 45 54 20 20 20 20  20 28 43 29 20 43 4F 50  |ABET     (C) COP|
00000030: 59 52 49 47 48 54 20 31  39 38 33 20 20 41 42 52  |YRIGHT 1983  ABR|
00000040: 41 53 43 4F 20 4C 54 44  00 7F 08 1E 00 97 35 33  |ASCO LTD......53|
00000050: 32 37 32 2C 32 33 3A 99  C7 28 38 29 3A 97 35 33  |272,23:..(8):.53|
00000060: 32 38 30 2C 36 3A 96 20  A5 41 28 58 29 B2 B5 28  |280,6:. .A(X)..(|
00000070: 58 AC 31 30 30 AA 2E 30  30 35 29 AD 31 30 30 00  |X.100..005).100.|
00000080: 99 08 23 00 53 50 24 B2  22 20 20 20 20 20 20 20  |..#.SP$."       |
00000090: 20 20 20 20 20 20 20 20  22 00 DE 08 25 00 99 22  |        "...%.."|
000000A0: 93 22 3B 3A 8D 33 35 35  30 30 3A 99 22 12 81 20  |.";:.35500:.".. |
000000B0: 20 20 20 20 20 20 20 20  CC A0 CF A0 C1 A0 CE A0  |        ........|
000000C0: A0 A0 A0 C3 A0 C1 A0 CC  A0 C3 20 20 A0 A0 A0 A0  |..........  ....|
000000D0: A0 A0 A0 A0 92 9A 22 3A  8D 33 35 35 30 30 00 0B  |......":.35500..|
000000E0: 09 27 00 99 22 11 11 D0  4C 45 41 53 45 20 45 4E  |.'.."...LEASE EN|
000000F0: 54 45 52 20 46 4F 4C 4C  4F 57 49 4E 47 20 49 4E  |TER FOLLOWING IN|
00000100: 46 4F 52 4D 41 54 49 4F  4E 3A 22 00 48 09 28 00  |FORMATION:".H.(.|
00000110: 99 22 11 11 11 C5 4E 54  45 52 20 41 4D 4F 55 4E  |."....NTER AMOUN|
00000120: 54 20 4F 46 20 4C 4F 41  4E 20 20 20 20 22 3B 3A  |T OF LOAN    ";:|
00000130: 50 33 B2 37 3A 50 34 B2  31 3A 8D 33 30 30 30 30  |P3.7:P4.1:.30000|
00000140: 3A 50 B2 C5 28 50 24 29  00 5F 09 2D 00 8B 50 B3  |:P..(P$)._.-..P.|
00000150: B2 30 B0 50 B1 39 39 39  39 39 39 39 A7 34 30 00  |.0.P.9999999.40.|
00000160: 9E 09 32 00 99 22 11 11  C5 4E 54 45 52 20 49 4E  |..2.."...NTER IN|
00000170: 54 45 52 45 53 54 20 52  41 54 45 20 41 53 20 41  |TEREST RATE AS A|
00000180: 20 25 3A 22 3B 3A 50 33  B2 35 3A 50 34 B2 31 3A  | %:";:P3.5:P4.1:|
00000190: 8D 33 30 30 30 30 3A 49  B2 C5 28 50 24 29 00 BA  |.30000:I..(P$)..|
000001A0: 09 37 00 8B 49 B3 B2 30  B0 49 B1 31 30 30 A7 99  |.7..I..0.I.100..|
000001B0: 22 91 91 91 91 22 3A 89  35 30 00 C6 09 3C 00 49  |"....":.50...<.I|
000001C0: B2 49 AD 31 30 30 00 07  0A 46 00 99 22 11 11 C5  |.I.100...F.."...|
000001D0: 4E 54 45 52 20 50 45 52  49 4F 44 20 4F 46 20 4C  |NTER PERIOD OF L|
000001E0: 4F 41 4E 20 49 4E 20 59  45 41 52 53 22 3B 3A 50  |OAN IN YEARS";:P|
000001F0: 33 B2 35 3A 50 34 B2 31  3A 8D 33 30 30 30 30 3A  |3.5:P4.1:.30000:|
00000200: 4E B2 C5 28 50 24 29 00  23 0A 4B 00 8B 4E B3 B2  |N..(P$).#.K..N..|
00000210: 30 B0 4E B1 31 30 30 A7  99 22 91 91 91 91 22 3A  |0.N.100.."....":|
00000220: 89 37 30 00 4A 0A 4D 00  8B 28 BC 28 50 29 AC BC  |.70.J.M..(.(P)..|
00000230: 28 49 29 AC BC 28 31 AA  49 29 AE BC 28 4E 29 29  |(I)..(1.I)..(N))|
00000240: B1 38 38 A7 8D 35 30 30  30 30 00 69 0A 4E 00 8B  |.88..50000.i.N..|
00000250: 28 BC 28 31 AA 49 29 AE  BC 28 4E 29 29 AB 31 B1  |(.(1.I)..(N)).1.|
00000260: 38 38 A7 8D 35 30 30 30  30 00 8D 0A 50 00 52 20  |88..50000...P.R |
00000270: B2 20 28 50 AC 49 AC 28  31 AA 49 29 AE 4E 29 AD  |. (P.I.(1.I).N).|
00000280: 28 28 28 31 AA 49 29 AE  4E 29 AB 31 29 00 C3 0A  |(((1.I).N).1)...|
00000290: 5A 00 99 22 93 D0 D2 C9  CE C3 C9 D0 C1 CC 22 2C  |Z.."..........",|
000002A0: 22 20 C9 CE D4 C5 D2 C5  D3 D4 22 2C 22 20 CE D5  |" ........"," ..|
000002B0: CD C2 C5 D2 22 A3 32 39  29 22 CD CF CE D4 C8 CC  |....".29)"......|
000002C0: D9 20 22 00 F6 0A 64 00  99 22 20 20 C9 CE 20 5C  |. "...d.."  .. \|
000002D0: 22 2C 22 20 20 20 20 C9  CE 20 25 22 2C 22 20 CF  |","    .. %"," .|
000002E0: C6 A0 D9 D2 D3 22 A3 32  38 29 22 D2 C5 D0 C1 D9  |.....".28)".....|
000002F0: CD C5 CE D4 D3 22 00 2A  0B 6E 00 99 22 A3 A3 A3  |.....".*.n.."...|
00000300: A3 A3 A3 A3 A3 A3 A3 20  A3 A3 A3 A3 A3 A3 A3 A3  |....... ........|
00000310: 22 2C 22 20 A3 A3 A3 A3  A3 A3 22 2C 22 9D 9D A3  |"," ......","...|
00000320: A3 A3 A3 A3 A3 A3 A3 A3  A3 22 00 65 0B 70 00 43  |.........".e.p.C|
00000330: 43 B2 50 3A 58 58 B2 31  30 3A 8D 32 35 30 30 30  |C.P:XX.10:.25000|
00000340: 3A 50 52 24 B2 43 43 24  3A 43 43 B2 49 AC 31 30  |:PR$.CC$:CC.I.10|
00000350: 30 3A 58 58 B2 38 3A 8D  32 35 30 30 30 3A 49 4E  |0:XX.8:.25000:IN|
00000360: 24 B2 43 43 24 00 A3 0B  72 00 43 43 24 B2 C4 28  |$.CC$...r.CC$..(|
00000370: 4E 29 3A 58 58 B2 36 3A  8D 32 35 35 34 30 3A 4E  |N):XX.6:.25540:N|
00000380: 55 24 B2 43 43 24 3A 43  43 B2 52 AD 31 32 3A 58  |U$.CC$:CC.R.12:X|
00000390: 58 B2 31 30 3A 8D 32 35  30 30 30 3A 52 45 24 B2  |X.10:.25000:RE$.|
000003A0: 43 43 24 00 BE 0B 75 00  99 50 52 24 A3 31 30 29  |CC$...u..PR$.10)|
000003B0: 49 4E 24 2C 4E 55 24 A3  32 38 29 52 45 24 00 D1  |IN$,NU$.28)RE$..|
000003C0: 0B 78 00 52 B2 52 AC 4E  3A 8B 52 B3 50 A7 52 B2  |.x.R.R.N:.R.P.R.|
000003D0: 50 00 0B 0C 7A 00 43 43  B2 52 3A 58 58 B2 31 33  |P...z.CC.R:XX.13|
000003E0: 3A 8D 32 35 30 30 30 3A  52 45 24 B2 43 43 24 3A  |:.25000:RE$.CC$:|
000003F0: 43 43 B2 52 AB 50 3A 58  58 B2 31 33 3A 8D 32 35  |CC.R.P:XX.13:.25|
00000400: 30 30 30 3A 49 54 24 B2  43 43 24 00 2D 0C 7B 00  |000:IT$.CC$.-.{.|
00000410: 99 22 11 11 D4 4F 54 41  4C 20 52 45 50 41 59 4D  |."...OTAL REPAYM|
00000420: 45 4E 54 53 20 20 20 20  5C 22 52 45 24 00 4E 0C  |ENTS    \"RE$.N.|
00000430: 7E 00 99 22 11 D4 4F 54  41 4C 20 49 4E 54 45 52  |~.."..OTAL INTER|
00000440: 45 53 54 20 50 41 49 44  20 5C 22 49 54 24 00 78  |EST PAID \"IT$.x|
00000450: 0C 96 00 99 22 11 12 D0  52 45 53 53 92 20 43 4F  |...."...RESS. CO|
00000460: 52 52 45 53 50 4F 4E 44  49 4E 47 20 4E 55 4D 42  |RRESPONDING NUMB|
00000470: 45 52 20 54 4F 20 3A 22  00 BF 0C A5 00 99 22 11  |ER TO :"......".|
00000480: 1D 1D 1D 1D 1D 1D 1D 12  20 31 20 92 20 D2 45 56  |........ 1 . .EV|
00000490: 49 53 45 20 49 4E 54 45  52 45 53 54 22 3A 99 22  |ISE INTEREST":."|
000004A0: 11 1D 1D 1D 1D 1D 1D 1D  12 20 32 20 92 20 D2 45  |......... 2 . .E|
000004B0: 56 49 53 45 20 50 52 49  4E 43 49 50 41 4C 22 00  |VISE PRINCIPAL".|
000004C0: EB 0C A7 00 99 22 11 1D  1D 1D 1D 1D 1D 1D 12 20  |....."......... |
000004D0: 33 20 92 20 D2 45 56 49  53 45 20 4E 55 4D 42 45  |3 . .EVISE NUMBE|
000004E0: 52 20 4F 46 20 59 45 41  52 53 22 00 12 0D A8 00  |R OF YEARS".....|
000004F0: 99 22 11 1D 1D 1D 1D 1D  1D 1D 12 20 34 20 92 20  |."......... 4 . |
00000500: D2 45 56 49 53 45 20 41  4C 4C 20 56 41 4C 55 45  |.EVISE ALL VALUE|
00000510: 53 22 00 32 0D A9 00 99  22 11 1D 1D 1D 1D 1D 1D  |S".2....".......|
00000520: 1D 12 20 35 20 92 20 D3  49 47 4E 20 2D 20 4F 46  |.. 5 . .IGN - OF|
00000530: 46 22 00 45 0D AA 00 A1  41 24 3A 8B 41 24 B2 22  |F".E....A$:.A$."|
00000540: 22 A7 31 37 30 00 61 0D  AF 00 41 41 B2 C5 28 41  |".170.a...AA..(A|
00000550: 24 29 3A 8B 41 41 B3 31  B0 41 41 B1 35 A7 31 37  |$):.AA.1.AA.5.17|
00000560: 30 00 85 0D B4 00 99 22  11 D0 4C 45 41 53 45 20  |0......"..LEASE |
00000570: 45 4E 54 45 52 20 52 45  56 49 53 45 44 20 56 41  |ENTER REVISED VA|
00000580: 4C 55 45 22 3B 00 A1 0D  B9 00 91 41 41 89 31 39  |LUE";......AA.19|
00000590: 30 2C 32 30 30 2C 32 31  30 2C 32 32 30 2C 32 33  |0,200,210,220,23|
000005A0: 30 00 D6 0D BE 00 50 33  B2 35 3A 50 34 B2 31 3A  |0.....P3.5:P4.1:|
000005B0: 8D 33 30 30 30 30 3A 49  B2 C5 28 50 24 29 3A 8B  |.30000:I..(P$):.|
000005C0: 49 B3 B2 30 B0 49 B1 31  30 30 A7 99 22 91 91 91  |I..0.I.100.."...|
000005D0: 22 3A 89 31 38 30 00 E8  0D C3 00 49 B2 49 AD 31  |":.180.....I.I.1|
000005E0: 30 30 3A 20 89 20 37 37  00 21 0E C8 00 50 33 B2  |00: . 77.!...P3.|
000005F0: 37 3A 50 34 B2 31 3A 8D  33 30 30 30 30 3A 50 B2  |7:P4.1:.30000:P.|
00000600: C5 28 50 24 29 3A 8B 50  B3 B2 30 B0 50 B1 39 39  |.(P$):.P..0.P.99|
00000610: 39 39 39 39 39 A7 99 22  91 91 91 22 3A 89 31 38  |99999.."...":.18|
00000620: 30 00 2A 0E CD 00 89 20  37 37 00 5F 0E D2 00 50  |0.*.... 77._...P|
00000630: 33 B2 35 3A 50 34 B2 31  3A 8D 33 30 30 30 30 3A  |3.5:P4.1:.30000:|
00000640: 4E B2 C5 28 50 24 29 3A  8B 4E B3 B2 30 B0 4E B1  |N..(P$):.N..0.N.|
00000650: 31 30 30 A7 99 22 91 91  91 22 3A 89 31 38 30 00  |100.."...":.180.|
00000660: 68 0E D7 00 89 20 37 37  00 6E 0E DC 00 8A 00 B4  |h.... 77.n......|
00000670: 0E E6 00 99 22 93 11 1D  1D 1D 1D 1D 1D 54 48 41  |...."........THA|
00000680: 4E 4B 20 59 4F 55 2E 20  4E 4F 57 20 53 49 47 4E  |NK YOU. NOW SIGN|
00000690: 49 4E 47 20 4F 46 46 22  3A 97 35 33 32 38 30 2C  |ING OFF":.53280,|
000006A0: 31 34 3A 97 35 33 32 37  32 2C 32 31 3A 99 C7 28  |14:.53272,21:..(|
000006B0: 39 29 3A 80 00 C8 0E A7  61 8F 2A 20 54 52 55 4E  |9):.....a.* TRUN|
000006C0: 43 41 54 49 4F 4E 20 2A  00 E0 0E A8 61 43 43 B2  |CATION *....aCC.|
000006D0: A5 41 28 43 43 29 3A 43  43 24 B2 C4 28 43 43 29  |.A(CC):CC$..(CC)|
000006E0: 00 09 0F B2 61 81 4D B2  C3 28 43 43 24 29 A4 31  |....a.M..(CC$).1|
000006F0: A9 AB 31 3A 8B CA 28 43  43 24 2C 4D 2C 31 29 B2  |..1:..(CC$,M,1).|
00000700: 22 2E 22 A7 32 35 35 33  30 00 10 0F B0 63 82 4D  |".".25530....c.M|
00000710: 00 29 0F B5 63 43 43 24  B2 43 43 24 AA 22 2E 30  |.)..cCC$.CC$.".0|
00000720: 30 22 3A 89 32 35 35 34  30 00 45 0F BA 63 8B 4D  |0":.25540.E..c.M|
00000730: B2 C3 28 43 43 24 29 AB  31 A7 43 43 24 B2 43 43  |..(CC$).1.CC$.CC|
00000740: 24 AA 22 30 22 00 5F 0F  C4 63 43 43 24 B2 C9 28  |$."0"._..cCC$..(|
00000750: 28 53 50 24 AA 43 43 24  29 2C 58 58 29 3A 8E 00  |(SP$.CC$),XX):..|
00000760: 75 0F 2F 75 8F 20 2A 49  4E 50 55 54 20 52 4F 55  |u./u. *INPUT ROU|
00000770: 54 49 4E 45 2A 00 7F 0F  30 75 99 22 20 22 3B 00  |TINE*...0u." ";.|
00000780: 94 0F 3A 75 81 51 B2 31  A4 50 33 3A 99 22 A4 22  |..:u.Q.1.P3:."."|
00000790: 3B 3A 82 51 00 A9 0F 3F  75 81 51 B2 31 A4 50 33  |;:.Q...?u.Q.1.P3|
000007A0: 3A 99 22 9D 22 3B 3A 82  51 00 B8 0F 44 75 50 24  |:.".";:.Q...DuP$|
000007B0: B2 22 22 3A 50 58 B2 30  00 CD 0F D0 75 A1 41 24  |."":PX.0....u.A$|
000007C0: 3A 8B 41 24 B2 22 22 A7  33 30 31 36 30 00 D9 0F  |:.A$."".30160...|
000007D0: DA 75 41 B2 C6 28 41 24  29 00 18 10 E4 75 8B 28  |.uA..(A$)....u.(|
000007E0: 41 B1 33 31 AF 41 B3 B1  34 34 AF 41 B3 B1 33 34  |A.31.A..44.A..34|
000007F0: AF 41 B3 B1 35 38 AF 41  B3 B1 35 39 AF 41 B3 39  |.A..58.A..59.A.9|
00000800: 37 29 B0 41 B2 31 33 B0  41 B2 32 30 B0 41 B2 31  |7).A.13.A.20.A.1|
00000810: 35 37 A7 33 30 32 30 30  00 2F 10 E9 75 8B 41 B1  |57.30200./..u.A.|
00000820: 31 39 31 AF 41 B3 32 31  39 A7 33 30 32 30 30 00  |191.A.219.30200.|
00000830: 3A 10 EE 75 89 33 30 31  36 30 00 4A 10 F8 75 8B  |:..u.30160.J..u.|
00000840: 41 B2 31 33 A7 33 30 33  32 30 00 61 10 02 76 8B  |A.13.30320.a..v.|
00000850: 41 B2 31 35 37 AF 50 24  B2 22 22 A7 33 30 30 30  |A.157.P$."".3000|
00000860: 30 00 71 10 0C 76 8B 41  B2 32 30 A7 33 30 32 35  |0.q..v.A.20.3025|
00000870: 30 00 83 10 16 76 8B 41  B3 B1 31 35 37 A7 33 30  |0....v.A..157.30|
00000880: 32 38 30 00 A8 10 1B 76  50 58 B2 C3 28 50 24 29  |280....vPX..(P$)|
00000890: 3A 81 51 B2 31 A4 50 58  3A 99 22 9D 22 3B 3A 82  |:.Q.1.PX:.".";:.|
000008A0: 51 3A 89 33 30 30 31 30  00 B9 10 2A 76 8B 50 24  |Q:.30010...*v.P$|
000008B0: B2 22 22 A7 33 30 31 36  30 00 CE 10 34 76 50 24  |."".30160...4vP$|
000008C0: B2 C8 28 50 24 2C C3 28  50 24 29 AB 31 29 00 EA  |..(P$,.(P$).1)..|
000008D0: 10 3E 76 41 24 B2 22 9D  A4 9D 22 3A 50 58 B2 50  |.>vA$."...":PX.P|
000008E0: 58 AB 31 3A 89 33 30 33  30 30 00 FE 10 48 76 8B  |X.1:.30300...Hv.|
000008F0: C3 28 50 24 29 B2 50 33  A7 33 30 31 36 30 00 14  |.(P$).P3.30160..|
00000900: 11 52 76 50 24 B2 50 24  AA 41 24 3A 50 58 B2 C3  |.RvP$.P$.A$:PX..|
00000910: 28 50 24 29 00 1D 11 5C  76 99 41 24 3B 00 28 11  |(P$)...\v.A$;.(.|
00000920: 66 76 89 33 30 31 36 30  00 3C 11 70 76 8B C3 28  |fv.30160.<.pv..(|
00000930: 50 24 29 B3 50 34 A7 33  30 31 36 30 00 44 11 7A  |P$).P4.30160.D.z|
00000940: 76 99 3A 8E 00 5C 11 AC  8A 81 51 B2 31 A4 33 37  |v.:..\....Q.1.37|
00000950: 3A 99 22 C0 22 3B 3A 82  3A 99 3A 8E 00 96 11 50  |:.".";:.:.:....P|
00000960: C3 99 22 93 11 53 4F 52  52 59 2C 20 45 4E 54 52  |.."..SORRY, ENTR|
00000970: 49 45 53 20 41 52 45 20  54 4F 4F 20 4C 41 52 47  |IES ARE TOO LARG|
00000980: 45 22 3A 99 22 11 12 20  48 49 54 20 41 4E 59 20  |E":.".. HIT ANY |
00000990: 4B 45 59 20 92 22 00 AB  11 5A C3 A1 41 24 3A 8B  |KEY ."...Z..A$:.|
000009A0: 41 24 B2 22 22 A7 35 30  30 31 30 00 B1 11 64 C3  |A$."".50010...d.|
000009B0: 8A 00 BC 11 60 EA 8F 20  56 32 2E 30 00 00 00 D1  |....`.. V2.0....|

..H.... *LOAN CALC* BY BERNARD HABET    
 (C) COPYRIGHT 1983  ABRASCO LTD.....53
272,23:.G(8):.53280,6:. .A(X)..(X.100..0
05).100...#.SP$."               "...%.."
.";:.35500:."..         L O A N    C A L
 C          ..":.35500...'.."..PLEASE EN
TER FOLLOWING INFORMATION:".H.(.."...ENT
ER AMOUNT OF LOAN    ";:P3.7:P4.1:.30000
:P.E(P$)._.-..P..0.P.9999999.40...2.."..
ENTER INTEREST RATE AS A %:";:P3.5:P4.1:
.30000:I.E(P$)...7..I..0.I.100.."....":.
50.F.<.I.I.100...F.."..ENTER PERIOD OF L
OAN IN YEARS";:P3.5:P4.1:.30000:N.E(P$).
#.K..N..0.N.100.."....":.70.J.M..(.(P)..
(I)..(1.I)..(N)).88..50000.I.N..(.(1.I).
.(N)).1.88..50000...P.R . (P.I.(1.I).N).
(((1.I).N).1).C.Z..".PRINCIPAL"," INTERE
ST"," NUMBER".29)"MONTHLY "...D.."  IN \
","    IN %"," OF YRS".28)"REPAYMENTS".*
.N..".......... ........"," ......","...
.........".E.P.CC.P:XX.10:.25000:PR$.CC$
:CC.I.100:XX.8:.25000:IN$.CC$...R.CC$.D(
N):XX.6:.25540:NU$.CC$:CC.R.12:XX.10:.25
000:RE$.CC$...U..PR$.10)IN$,NU$.28)RE$.Q
.X.R.R.N:.R.P.R.P...Z.CC.R:XX.13:.25000:
RE$.CC$:CC.R.P:XX.13:.25000:IT$.CC$.-.{.
."..TOTAL REPAYMENTS    \"RE$.N.~..".TOT
AL INTEREST PAID \"IT$.X...."..PRESS. CO
RRESPONDING NUMBER TO :"......".........
 1 . REVISE INTEREST":."......... 2 . RE
VISE PRINCIPAL"......"......... 3 . REVI
SE NUMBER OF YEARS"......"......... 4 . 
REVISE ALL VALUES".2...."......... 5 . S
IGN - OFF".E....A$:.A$."".170.A...AA.E(A
$):.AA.1.AA.5.170......".PLEASE ENTER RE
VISED VALUE";......AA.190,200,210,220,23
0.V...P3.5:P4.1:.30000:I.E(P$):.I..0.I.1
00.."...":.180...C.I.I.100: . 77.!.H.P3.
7:P4.1:.30000:P.E(P$):.P..0.P.9999999.."
...":.180.*.M.. 77._.R.P3.5:P4.1:.30000:
N.E(P$):.N..0.N.100.."...":.180.H.W.. 77
.N.........."........THANK YOU. NOW SIGN
ING OFF":.53280,14:.53272,21:.G(9):..H..
A.* TRUNCATION *....ACC..A(CC):CC$.D(CC)
....A.M.C(CC$).1..1:.J(CC$,M,1).".".2553
0....C.M.)..CCC$.CC$.".00":.25540.E..C.M
.C(CC$).1.CC$.CC$."0"._.DCCC$.I((SP$.CC$
),XX):..U./U. *INPUT ROUTINE*..0U." ";.
..:U.Q.1.P3:.".";:.Q...?U.Q.1.P3:.".";:.
Q...DUP$."":PX.0.M.PU.A$:.A$."".30160.Y.
ZUA.F(A$)....U.(A.31.A..44.A..34.A..58.A
..59.A.97).A.13.A.20.A.157.30200./..U.A.
191.A.219.30200.:..U.30160.J..U.A.13.303
20.A..V.A.157.P$."".30000.Q..V.A.20.3025
0....V.A..157.30280....VPX.C(P$):.Q.1.PX
:.".";:.Q:.30010...*V.P$."".30160.N.4VP$
.H(P$,C(P$).1)...>VA$."...":PX.PX.1:.303
00...HV.C(P$).P3.30160...RVP$.P$.A$:PX.C
(P$)...\V.A$;.(.FV.30160.<.PV.C(P$).P4.3
0160.D.ZV.:..\....Q.1.37:.".";:.:.:....P
C."..SORRY, ENTRIES ARE TOO LARGE":.".. 
HIT ANY KEY ."...ZC.A$:.A$."".50010...DC
....`.. V2.0...Q

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL