LOAN CALC
FILE INFORMATION
FILENAME(S): LOAN CALC
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-12-02 00:00:12
APPEARS ON: 1 disk(s)
FILE HASH
4b637e341687812fd62a8bc4438d886bb499e9f0a90890643b3dae7927471b5b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AAD VAN DE KAMER | LOAN CALC | PRG | earthshaker | 32 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 50 08 0A 00 8F 20 20 20 20 4C 4F 41 4E 20 |..P.... LOAN |
00000010: 43 41 4C 43 20 20 20 20 42 59 20 42 4C 53 20 43 |CALC BY BLS C|
00000020: 4F 4D 50 55 54 49 4E 47 20 20 20 20 20 20 20 20 |OMPUTING |
00000030: 28 43 29 20 31 39 38 34 20 44 45 20 42 49 4C 54 |(C) 1984 DE BILT|
00000040: 2C 54 48 45 20 4E 45 54 48 45 52 4C 41 4E 44 53 |,THE NETHERLANDS|
00000050: 00 56 08 14 00 8F 00 8E 08 1E 00 97 35 33 32 37 |.V..........5327|
00000060: 32 2C 32 33 3A 99 C7 28 38 29 3A 97 35 33 32 38 |2,23:..(8):.5328|
00000070: 30 2C 31 31 3A 96 20 A5 41 28 58 29 B2 B5 28 58 |0,11:. .A(X)..(X|
00000080: AC 31 30 30 AA 2E 30 30 35 29 AD 31 30 30 00 9C |.100..005).100..|
00000090: 08 1F 00 97 35 33 32 38 31 2C 31 31 00 B6 08 23 |....53281,11...#|
000000A0: 00 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.SP$." |
000000B0: 20 20 20 20 20 22 00 F4 08 25 00 99 22 93 22 3B | "...%..".";|
000000C0: 3A 8D 33 35 35 30 30 3A 99 22 12 1E 20 20 20 20 |:.35500:.".. |
000000D0: 20 20 20 20 20 CC A0 CF A0 C1 A0 CE A0 A0 A0 A0 | ...........|
000000E0: C3 A0 C1 A0 CC A0 C3 20 20 A0 A0 A0 A0 A0 A0 A0 |....... .......|
000000F0: A0 92 1E 22 00 FF 08 26 00 8D 33 35 35 30 30 00 |..."...&..35500.|
00000100: 2C 09 27 00 99 22 11 11 D0 4C 45 41 53 45 20 45 |,.'.."...LEASE E|
00000110: 4E 54 45 52 20 46 4F 4C 4C 4F 57 49 4E 47 20 49 |NTER FOLLOWING I|
00000120: 4E 46 4F 52 4D 41 54 49 4F 4E 3A 22 00 69 09 28 |NFORMATION:".i.(|
00000130: 00 99 22 11 11 11 C5 4E 54 45 52 20 41 4D 4F 55 |.."....NTER AMOU|
00000140: 4E 54 20 4F 46 20 4C 4F 41 4E 20 20 20 20 22 3B |NT OF LOAN ";|
00000150: 3A 50 33 B2 37 3A 50 34 B2 31 3A 8D 33 30 30 30 |:P3.7:P4.1:.3000|
00000160: 30 3A 50 B2 C5 28 50 24 29 00 80 09 2D 00 8B 50 |0:P..(P$)...-..P|
00000170: B3 B2 30 B0 50 B1 39 39 39 39 39 39 39 A7 34 30 |..0.P.9999999.40|
00000180: 00 BF 09 32 00 99 22 11 11 C5 4E 54 45 52 20 49 |...2.."...NTER I|
00000190: 4E 54 45 52 45 53 54 20 52 41 54 45 20 41 53 20 |NTEREST RATE AS |
000001A0: 41 20 25 3A 22 3B 3A 50 33 B2 35 3A 50 34 B2 31 |A %:";:P3.5:P4.1|
000001B0: 3A 8D 33 30 30 30 30 3A 49 B2 C5 28 50 24 29 00 |:.30000:I..(P$).|
000001C0: DB 09 37 00 8B 49 B3 B2 30 B0 49 B1 31 30 30 A7 |..7..I..0.I.100.|
000001D0: 99 22 91 91 91 91 22 3A 89 35 30 00 E7 09 3C 00 |."....":.50...<.|
000001E0: 49 B2 49 AD 31 30 30 00 28 0A 46 00 99 22 11 11 |I.I.100.(.F.."..|
000001F0: C5 4E 54 45 52 20 50 45 52 49 4F 44 20 4F 46 20 |.NTER PERIOD OF |
00000200: 4C 4F 41 4E 20 49 4E 20 59 45 41 52 53 22 3B 3A |LOAN IN YEARS";:|
00000210: 50 33 B2 35 3A 50 34 B2 31 3A 8D 33 30 30 30 30 |P3.5:P4.1:.30000|
00000220: 3A 4E B2 C5 28 50 24 29 00 44 0A 4B 00 8B 4E B3 |:N..(P$).D.K..N.|
00000230: B2 30 B0 4E B1 31 30 30 A7 99 22 91 91 91 91 22 |.0.N.100.."...."|
00000240: 3A 89 37 30 00 6B 0A 4D 00 8B 28 BC 28 50 29 AC |:.70.k.M..(.(P).|
00000250: BC 28 49 29 AC BC 28 31 AA 49 29 AE BC 28 4E 29 |.(I)..(1.I)..(N)|
00000260: 29 B1 38 38 A7 8D 35 30 30 30 30 00 8A 0A 4E 00 |).88..50000...N.|
00000270: 8B 28 BC 28 31 AA 49 29 AE BC 28 4E 29 29 AB 31 |.(.(1.I)..(N)).1|
00000280: B1 38 38 A7 8D 35 30 30 30 30 00 AE 0A 50 00 52 |.88..50000...P.R|
00000290: 20 B2 20 28 50 AC 49 AC 28 31 AA 49 29 AE 4E 29 | . (P.I.(1.I).N)|
000002A0: AD 28 28 28 31 AA 49 29 AE 4E 29 AB 31 29 00 E4 |.(((1.I).N).1)..|
000002B0: 0A 5A 00 99 22 93 D0 D2 C9 CE C3 C9 D0 C1 CC 22 |.Z..".........."|
000002C0: 2C 22 20 C9 CE D4 C5 D2 C5 D3 D4 22 2C 22 20 CE |," ........"," .|
000002D0: D5 CD C2 C5 D2 22 A3 32 39 29 22 CD CF CE D4 C8 |.....".29)".....|
000002E0: CC D9 20 22 00 17 0B 64 00 99 22 20 20 C9 CE 20 |.. "...d.." .. |
000002F0: 5C 22 2C 22 20 20 20 20 C9 CE 20 25 22 2C 22 20 |\"," .. %"," |
00000300: CF C6 A0 D9 D2 D3 22 A3 32 38 29 22 D2 C5 D0 C1 |......".28)"....|
00000310: D9 CD C5 CE D4 D3 22 00 4B 0B 6E 00 99 22 A3 A3 |......".K.n.."..|
00000320: A3 A3 A3 A3 A3 A3 A3 A3 20 A3 A3 A3 A3 A3 A3 A3 |........ .......|
00000330: A3 22 2C 22 20 A3 A3 A3 A3 A3 A3 22 2C 22 9D 9D |."," ......","..|
00000340: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 86 0B 70 00 |.........."...p.|
00000350: 43 43 B2 50 3A 58 58 B2 31 30 3A 8D 32 35 30 30 |CC.P:XX.10:.2500|
00000360: 30 3A 50 52 24 B2 43 43 24 3A 43 43 B2 49 AC 31 |0:PR$.CC$:CC.I.1|
00000370: 30 30 3A 58 58 B2 38 3A 8D 32 35 30 30 30 3A 49 |00:XX.8:.25000:I|
00000380: 4E 24 B2 43 43 24 00 C4 0B 72 00 43 43 24 B2 C4 |N$.CC$...r.CC$..|
00000390: 28 4E 29 3A 58 58 B2 36 3A 8D 32 35 35 34 30 3A |(N):XX.6:.25540:|
000003A0: 4E 55 24 B2 43 43 24 3A 43 43 B2 52 AD 31 32 3A |NU$.CC$:CC.R.12:|
000003B0: 58 58 B2 31 30 3A 8D 32 35 30 30 30 3A 52 45 24 |XX.10:.25000:RE$|
000003C0: B2 43 43 24 00 DF 0B 75 00 99 50 52 24 A3 31 30 |.CC$...u..PR$.10|
000003D0: 29 49 4E 24 2C 4E 55 24 A3 32 38 29 52 45 24 00 |)IN$,NU$.28)RE$.|
000003E0: F2 0B 78 00 52 B2 52 AC 4E 3A 8B 52 B3 50 A7 52 |..x.R.R.N:.R.P.R|
000003F0: B2 50 00 2C 0C 7A 00 43 43 B2 52 3A 58 58 B2 31 |.P.,.z.CC.R:XX.1|
00000400: 33 3A 8D 32 35 30 30 30 3A 52 45 24 B2 43 43 24 |3:.25000:RE$.CC$|
00000410: 3A 43 43 B2 52 AB 50 3A 58 58 B2 31 33 3A 8D 32 |:CC.R.P:XX.13:.2|
00000420: 35 30 30 30 3A 49 54 24 B2 43 43 24 00 4E 0C 7B |5000:IT$.CC$.N.{|
00000430: 00 99 22 11 11 D4 4F 54 41 4C 20 52 45 50 41 59 |.."...OTAL REPAY|
00000440: 4D 45 4E 54 53 20 20 20 20 5C 22 52 45 24 00 6F |MENTS \"RE$.o|
00000450: 0C 7E 00 99 22 11 D4 4F 54 41 4C 20 49 4E 54 45 |.~.."..OTAL INTE|
00000460: 52 45 53 54 20 50 41 49 44 20 5C 22 49 54 24 00 |REST PAID \"IT$.|
00000470: 99 0C 96 00 99 22 11 12 D0 52 45 53 53 92 20 43 |....."...RESS. C|
00000480: 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 4E 55 4D |ORRESPONDING NUM|
00000490: 42 45 52 20 54 4F 20 3A 22 00 E0 0C A5 00 99 22 |BER TO :"......"|
000004A0: 11 1D 1D 1D 1D 1D 1D 1D 12 20 31 20 92 20 D2 45 |......... 1 . .E|
000004B0: 56 49 53 45 20 49 4E 54 45 52 45 53 54 22 3A 99 |VISE INTEREST":.|
000004C0: 22 11 1D 1D 1D 1D 1D 1D 1D 12 20 32 20 92 20 D2 |"......... 2 . .|
000004D0: 45 56 49 53 45 20 50 52 49 4E 43 49 50 41 4C 22 |EVISE PRINCIPAL"|
000004E0: 00 0C 0D A7 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 12 |......".........|
000004F0: 20 33 20 92 20 D2 45 56 49 53 45 20 4E 55 4D 42 | 3 . .EVISE NUMB|
00000500: 45 52 20 4F 46 20 59 45 41 52 53 22 00 33 0D A8 |ER OF YEARS".3..|
00000510: 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 12 20 34 20 92 |.."......... 4 .|
00000520: 20 D2 45 56 49 53 45 20 41 4C 4C 20 56 41 4C 55 | .EVISE ALL VALU|
00000530: 45 53 22 00 53 0D A9 00 99 22 11 1D 1D 1D 1D 1D |ES".S...."......|
00000540: 1D 1D 12 20 35 20 92 20 D3 49 47 4E 20 2D 20 4F |... 5 . .IGN - O|
00000550: 46 46 22 00 66 0D AA 00 A1 41 24 3A 8B 41 24 B2 |FF".f....A$:.A$.|
00000560: 22 22 A7 31 37 30 00 82 0D AF 00 41 41 B2 C5 28 |"".170.....AA..(|
00000570: 41 24 29 3A 8B 41 41 B3 31 B0 41 41 B1 35 A7 31 |A$):.AA.1.AA.5.1|
00000580: 37 30 00 A6 0D B4 00 99 22 11 D0 4C 45 41 53 45 |70......"..LEASE|
00000590: 20 45 4E 54 45 52 20 52 45 56 49 53 45 44 20 56 | ENTER REVISED V|
000005A0: 41 4C 55 45 22 3B 00 C2 0D B9 00 91 41 41 89 31 |ALUE";......AA.1|
000005B0: 39 30 2C 32 30 30 2C 32 31 30 2C 32 32 30 2C 32 |90,200,210,220,2|
000005C0: 33 30 00 F7 0D BE 00 50 33 B2 35 3A 50 34 B2 31 |30.....P3.5:P4.1|
000005D0: 3A 8D 33 30 30 30 30 3A 49 B2 C5 28 50 24 29 3A |:.30000:I..(P$):|
000005E0: 8B 49 B3 B2 30 B0 49 B1 31 30 30 A7 99 22 91 91 |.I..0.I.100.."..|
000005F0: 91 22 3A 89 31 38 30 00 09 0E C3 00 49 B2 49 AD |.":.180.....I.I.|
00000600: 31 30 30 3A 20 89 20 37 37 00 42 0E C8 00 50 33 |100: . 77.B...P3|
00000610: B2 37 3A 50 34 B2 31 3A 8D 33 30 30 30 30 3A 50 |.7:P4.1:.30000:P|
00000620: B2 C5 28 50 24 29 3A 8B 50 B3 B2 30 B0 50 B1 39 |..(P$):.P..0.P.9|
00000630: 39 39 39 39 39 39 A7 99 22 91 91 91 22 3A 89 31 |999999.."...":.1|
00000640: 38 30 00 4B 0E CD 00 89 20 37 37 00 80 0E D2 00 |80.K.... 77.....|
00000650: 50 33 B2 35 3A 50 34 B2 31 3A 8D 33 30 30 30 30 |P3.5:P4.1:.30000|
00000660: 3A 4E B2 C5 28 50 24 29 3A 8B 4E B3 B2 30 B0 4E |:N..(P$):.N..0.N|
00000670: B1 31 30 30 A7 99 22 91 91 91 22 3A 89 31 38 30 |.100.."...":.180|
00000680: 00 89 0E D7 00 89 20 37 37 00 8F 0E DC 00 8A 00 |...... 77.......|
00000690: CB 0E E6 00 99 22 93 11 1D 1D 1D 1D 1D 1D 54 48 |....."........TH|
000006A0: 41 4E 4B 20 59 4F 55 2E 20 4E 4F 57 20 53 49 47 |ANK YOU. NOW SIG|
000006B0: 4E 49 4E 47 20 4F 46 46 22 3A 97 35 33 32 37 32 |NING OFF":.53272|
000006C0: 2C 32 31 3A 99 C7 28 39 29 3A 80 00 DF 0E A7 61 |,21:..(9):.....a|
000006D0: 8F 2A 20 54 52 55 4E 43 41 54 49 4F 4E 20 2A 00 |.* TRUNCATION *.|
000006E0: F7 0E A8 61 43 43 B2 A5 41 28 43 43 29 3A 43 43 |...aCC..A(CC):CC|
000006F0: 24 B2 C4 28 43 43 29 00 20 0F B2 61 81 4D B2 C3 |$..(CC). ..a.M..|
00000700: 28 43 43 24 29 A4 31 A9 AB 31 3A 8B CA 28 43 43 |(CC$).1..1:..(CC|
00000710: 24 2C 4D 2C 31 29 B2 22 2E 22 A7 32 35 35 33 30 |$,M,1).".".25530|
00000720: 00 27 0F B0 63 82 4D 00 40 0F B5 63 43 43 24 B2 |.'..c.M.@..cCC$.|
00000730: 43 43 24 AA 22 2E 30 30 22 3A 89 32 35 35 34 30 |CC$.".00":.25540|
00000740: 00 5C 0F BA 63 8B 4D B2 C3 28 43 43 24 29 AB 31 |.\..c.M..(CC$).1|
00000750: A7 43 43 24 B2 43 43 24 AA 22 30 22 00 76 0F C4 |.CC$.CC$."0".v..|
00000760: 63 43 43 24 B2 C9 28 28 53 50 24 AA 43 43 24 29 |cCC$..((SP$.CC$)|
00000770: 2C 58 58 29 3A 8E 00 8C 0F 2F 75 8F 20 2A 49 4E |,XX):..../u. *IN|
00000780: 50 55 54 20 52 4F 55 54 49 4E 45 2A 00 96 0F 30 |PUT ROUTINE*...0|
00000790: 75 99 22 20 22 3B 00 AB 0F 3A 75 81 51 B2 31 A4 |u." ";...:u.Q.1.|
000007A0: 50 33 3A 99 22 A4 22 3B 3A 82 51 00 C0 0F 3F 75 |P3:.".";:.Q...?u|
000007B0: 81 51 B2 31 A4 50 33 3A 99 22 9D 22 3B 3A 82 51 |.Q.1.P3:.".";:.Q|
000007C0: 00 CF 0F 44 75 50 24 B2 22 22 3A 50 58 B2 30 00 |...DuP$."":PX.0.|
000007D0: E4 0F D0 75 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 |...u.A$:.A$."".3|
000007E0: 30 31 36 30 00 F0 0F DA 75 41 B2 C6 28 41 24 29 |0160....uA..(A$)|
000007F0: 00 2F 10 E4 75 8B 28 41 B1 33 31 AF 41 B3 B1 34 |./..u.(A.31.A..4|
00000800: 34 AF 41 B3 B1 33 34 AF 41 B3 B1 35 38 AF 41 B3 |4.A..34.A..58.A.|
00000810: B1 35 39 AF 41 B3 39 37 29 B0 41 B2 31 33 B0 41 |.59.A.97).A.13.A|
00000820: B2 32 30 B0 41 B2 31 35 37 A7 33 30 32 30 30 00 |.20.A.157.30200.|
00000830: 46 10 E9 75 8B 41 B1 31 39 31 AF 41 B3 32 31 39 |F..u.A.191.A.219|
00000840: A7 33 30 32 30 30 00 51 10 EE 75 89 33 30 31 36 |.30200.Q..u.3016|
00000850: 30 00 61 10 F8 75 8B 41 B2 31 33 A7 33 30 33 32 |0.a..u.A.13.3032|
00000860: 30 00 78 10 02 76 8B 41 B2 31 35 37 AF 50 24 B2 |0.x..v.A.157.P$.|
00000870: 22 22 A7 33 30 30 30 30 00 88 10 0C 76 8B 41 B2 |"".30000....v.A.|
00000880: 32 30 A7 33 30 32 35 30 00 9A 10 16 76 8B 41 B3 |20.30250....v.A.|
00000890: B1 31 35 37 A7 33 30 32 38 30 00 BF 10 1B 76 50 |.157.30280....vP|
000008A0: 58 B2 C3 28 50 24 29 3A 81 51 B2 31 A4 50 58 3A |X..(P$):.Q.1.PX:|
000008B0: 99 22 9D 22 3B 3A 82 51 3A 89 33 30 30 31 30 00 |.".";:.Q:.30010.|
000008C0: D0 10 2A 76 8B 50 24 B2 22 22 A7 33 30 31 36 30 |..*v.P$."".30160|
000008D0: 00 E5 10 34 76 50 24 B2 C8 28 50 24 2C C3 28 50 |...4vP$..(P$,.(P|
000008E0: 24 29 AB 31 29 00 01 11 3E 76 41 24 B2 22 9D A4 |$).1)...>vA$."..|
000008F0: 9D 22 3A 50 58 B2 50 58 AB 31 3A 89 33 30 33 30 |.":PX.PX.1:.3030|
00000900: 30 00 15 11 48 76 8B C3 28 50 24 29 B2 50 33 A7 |0...Hv..(P$).P3.|
00000910: 33 30 31 36 30 00 2B 11 52 76 50 24 B2 50 24 AA |30160.+.RvP$.P$.|
00000920: 41 24 3A 50 58 B2 C3 28 50 24 29 00 34 11 5C 76 |A$:PX..(P$).4.\v|
00000930: 99 41 24 3B 00 3F 11 66 76 89 33 30 31 36 30 00 |.A$;.?.fv.30160.|
00000940: 53 11 70 76 8B C3 28 50 24 29 B3 50 34 A7 33 30 |S.pv..(P$).P4.30|
00000950: 31 36 30 00 5B 11 7A 76 99 3A 8E 00 73 11 AC 8A |160.[.zv.:..s...|
00000960: 81 51 B2 31 A4 33 37 3A 99 22 C0 22 3B 3A 82 3A |.Q.1.37:.".";:.:|
00000970: 99 3A 8E 00 AD 11 50 C3 99 22 93 11 53 4F 52 52 |.:....P.."..SORR|
00000980: 59 2C 20 45 4E 54 52 49 45 53 20 41 52 45 20 54 |Y, ENTRIES ARE T|
00000990: 4F 4F 20 4C 41 52 47 45 22 3A 99 22 11 12 20 48 |OO LARGE":.".. H|
000009A0: 49 54 20 41 4E 59 20 4B 45 59 20 92 22 00 C2 11 |IT ANY KEY ."...|
000009B0: 5A C3 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 30 |Z..A$:.A$."".500|
000009C0: 31 30 00 C8 11 64 C3 8A 00 ED 11 60 EA 8F 20 28 |10...d.....`.. (|
000009D0: 43 29 20 31 39 38 34 20 42 59 20 42 4C 53 20 43 |C) 1984 BY BLS C|
000009E0: 4F 4D 50 55 54 49 4E 47 20 4C 54 44 2E 00 00 00 |OMPUTING LTD....|
..P.... LOAN CALC BY BLS COMPUTING
(C) 1984 DE BILT,THE NETHERLANDS
.V..........53272,23:.G(8):.53280,11:. .
A(X)..(X.100..005).100......53281,11...#
.SP$." "...%..".";:.35500:
.".. L O A N C A L C
.."...&..35500.,.'.."..PLEASE ENTER FOL
LOWING INFORMATION:".I.(.."...ENTER AMOU
NT OF LOAN ";:P3.7:P4.1:.30000:P.E(P$
)...-..P..0.P.9999999.40...2.."..ENTER I
NTEREST RATE AS A %:";:P3.5:P4.1:.30000:
I.E(P$)...7..I..0.I.100.."....":.50...<.
I.I.100.(.F.."..ENTER PERIOD OF LOAN IN
YEARS";:P3.5:P4.1:.30000:N.E(P$).D.K..N.
.0.N.100.."....":.70.K.M..(.(P)..(I)..(1
.I)..(N)).88..50000...N..(.(1.I)..(N)).1
.88..50000...P.R . (P.I.(1.I).N).(((1.I)
.N).1)...Z..".PRINCIPAL"," INTEREST"," N
UMBER".29)"MONTHLY "...D.." IN \","
IN %"," OF YRS".28)"REPAYMENTS".K.N.."..
........ ........"," ......","..........
.."...P.CC.P:XX.10:.25000:PR$.CC$:CC.I.1
00:XX.8:.25000:IN$.CC$.D.R.CC$.D(N):XX.6
:.25540:NU$.CC$:CC.R.12:XX.10:.25000:RE$
.CC$...U..PR$.10)IN$,NU$.28)RE$...X.R.R.
N:.R.P.R.P.,.Z.CC.R:XX.13:.25000:RE$.CC$
:CC.R.P:XX.13:.25000:IT$.CC$.N.{.."..TOT
AL REPAYMENTS \"RE$.O.~..".TOTAL INTE
REST PAID \"IT$......"..PRESS. CORRESPON
DING NUMBER TO :"......"......... 1 . RE
VISE INTEREST":."......... 2 . REVISE PR
INCIPAL"......"......... 3 . REVISE NUMB
ER OF YEARS".3...."......... 4 . REVISE
ALL VALUES".S...."......... 5 . SIGN - O
FF".F....A$:.A$."".170.....AA.E(A$):.AA.
1.AA.5.170......".PLEASE ENTER REVISED V
ALUE";.B....AA.190,200,210,220,230.....P
3.5:P4.1:.30000:I.E(P$):.I..0.I.100.."..
.":.180...C.I.I.100: . 77.B.H.P3.7:P4.1:
.30000:P.E(P$):.P..0.P.9999999.."...":.1
80.K.M.. 77...R.P3.5:P4.1:.30000:N.E(P$)
:.N..0.N.100.."...":.180...W.. 77.......
K...."........THANK YOU. NOW SIGNING OFF
":.53272,21:.G(9):.....A.* TRUNCATION *.
...ACC..A(CC):CC$.D(CC). ..A.M.C(CC$).1.
.1:.J(CC$,M,1).".".25530.'..C.M.@..CCC$.
CC$.".00":.25540.\..C.M.C(CC$).1.CC$.CC$
."0".V.DCCC$.I((SP$.CC$),XX):..../U. *IN
PUT ROUTINE*...0U." ";...:U.Q.1.P3:.".";
:.Q...?U.Q.1.P3:.".";:.Q.O.DUP$."":PX.0.
..PU.A$:.A$."".30160...ZUA.F(A$)./..U.(A
.31.A..44.A..34.A..58.A..59.A.97).A.13.A
.20.A.157.30200.F..U.A.191.A.219.30200.Q
..U.30160.A..U.A.13.30320.X..V.A.157.P$.
"".30000....V.A.20.30250....V.A..157.302
80....VPX.C(P$):.Q.1.PX:.".";:.Q:.30010.
P.*V.P$."".30160...4VP$.H(P$,C(P$).1)...
>VA$."...":PX.PX.1:.30300...HV.C(P$).P3.
30160.+.RVP$.P$.A$:PX.C(P$).4.\V.A$;.?.F
V.30160.S.PV.C(P$).P4.30160.[.ZV.:..S...
.Q.1.37:.".";:.:.:....PC."..SORRY, ENTRI
ES ARE TOO LARGE":.".. HIT ANY KEY .".B.
ZC.A$:.A$."".50010.H.DC....`.. (C) 1984
BY BLS COMPUTING LTD....
> CLICK IMAGE PREVIEW FOR FULL MODAL