> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
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 |....`.. 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...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL