RETRIEVAL .BAS
FILE INFORMATION
FILENAME(S): RETRIEVAL .BAS
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-12-01 01:00:02
APPEARS ON: 1 disk(s)
FILE HASH
ef64a57ea0687e37aa77e77fb6d175741362b6f54a3c7bd16731cf68fdb08713
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0042A | RETRIEVAL .BAS | PRG | hedning, disarm | 4 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 8D 39 30 30 00 35 08 0A 00 99 |.......900.5....|
00000010: 22 93 05 20 20 20 20 20 20 20 20 20 20 12 2A 2A |".. .**|
00000020: 2A 20 D2 45 54 52 49 45 56 41 4C 20 CD 45 4E 59 |* .ETRIEVAL .ENY|
00000030: 20 2A 2A 2A 22 00 57 08 0B 00 99 22 11 11 20 20 | ***".W....".. |
00000040: 20 20 20 20 20 20 20 20 12 D5 92 50 44 41 54 45 | ...PDATE|
00000050: 20 45 4E 54 52 59 22 00 78 08 0C 00 99 22 11 20 | ENTRY".x....". |
00000060: 20 20 20 20 20 20 20 20 20 12 D2 92 45 4D 4F 56 | ...EMOV|
00000070: 45 20 45 4E 54 52 59 22 00 97 08 0D 00 99 22 11 |E ENTRY"......".|
00000080: 20 20 20 20 20 20 20 20 20 20 12 C6 92 49 4E 44 | ...IND|
00000090: 20 45 4E 54 52 59 22 00 B4 08 0E 00 99 22 11 20 | ENTRY"......". |
000000A0: 20 20 20 20 20 20 20 20 20 12 CC 92 49 53 54 20 | ...IST |
000000B0: 41 4C 4C 22 00 D2 08 0F 00 99 22 11 20 20 20 20 |ALL"......". |
000000C0: 20 20 20 20 20 20 12 C4 92 49 53 4B 20 53 41 56 | ...ISK SAV|
000000D0: 45 22 00 F0 08 10 00 99 22 11 20 20 20 20 20 20 |E"......". |
000000E0: 20 20 20 20 12 D4 92 41 50 45 20 53 41 56 45 22 | ...APE SAVE"|
000000F0: 00 10 09 11 00 99 22 11 20 20 20 20 20 20 20 20 |......". |
00000100: 20 20 12 C5 92 4E 44 20 50 52 4F 47 52 41 4D 22 | ...ND PROGRAM"|
00000110: 00 33 09 12 00 99 22 11 11 11 11 20 20 20 20 20 |.3....".... |
00000120: 20 20 20 20 20 42 59 54 45 53 20 46 52 45 45 20 | BYTES FREE |
00000130: 3D 22 3B 00 52 09 13 00 8B 20 B8 28 30 29 B3 30 |=";.R.... .(0).0|
00000140: 20 A7 20 99 B8 28 30 29 AA 32 AE 31 36 3A 89 20 | . ..(0).2.16:. |
00000150: 32 31 00 5C 09 14 00 99 B8 28 30 29 00 73 09 15 |21.\.....(0).s..|
00000160: 00 A1 20 41 4E 24 3A 8B 41 4E 24 B2 22 22 20 A7 |.. AN$:.AN$."" .|
00000170: 20 32 31 00 84 09 16 00 8B 20 41 4E 24 B2 22 55 | 21...... AN$."U|
00000180: 22 A7 33 38 00 95 09 17 00 8B 20 41 4E 24 B2 22 |".38...... AN$."|
00000190: 52 22 A7 36 32 00 A6 09 18 00 8B 20 41 4E 24 B2 |R".62...... AN$.|
000001A0: 22 46 22 A7 38 39 00 B7 09 19 00 8B 20 41 4E 24 |"F".89...... AN$|
000001B0: B2 22 4C 22 A7 36 36 00 C8 09 1A 00 8B 20 41 4E |."L".66...... AN|
000001C0: 24 B2 22 44 22 A7 37 33 00 D9 09 1B 00 8B 20 41 |$."D".73...... A|
000001D0: 4E 24 B2 22 54 22 A7 38 32 00 EB 09 1C 00 8B 20 |N$."T".82...... |
000001E0: 41 4E 24 B3 B1 22 45 22 A7 32 31 00 18 0A 1D 00 |AN$.."E".21.....|
000001F0: 99 22 93 C8 41 56 45 20 59 4F 55 20 54 41 4B 45 |."..AVE YOU TAKE|
00000200: 4E 20 41 20 43 4F 50 59 20 4F 46 20 54 48 45 20 |N A COPY OF THE |
00000210: 50 52 4F 47 52 41 4D 22 00 38 0A 1E 00 A1 20 41 |PROGRAM".8.... A|
00000220: 4E 24 3A 8B 41 4E 24 B3 B1 22 59 22 AF 41 4E 24 |N$:.AN$.."Y".AN$|
00000230: B3 B1 22 4E 22 A7 33 30 00 49 0A 1F 00 8B 20 41 |.."N".30.I.... A|
00000240: 4E 24 B2 22 4E 22 A7 33 33 00 6B 0A 20 00 99 22 |N$."N".33.k. .."|
00000250: 93 C5 4E 44 20 4F 46 20 D0 52 4F 47 52 41 4D 20 |..ND OF .ROGRAM |
00000260: 21 21 21 22 3A 9E 36 34 37 33 38 00 93 0A 21 00 |!!!":.64738...!.|
00000270: 99 22 11 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 |."...O YOU WISH |
00000280: 54 4F 20 53 41 56 45 20 54 48 45 20 50 52 4F 47 |TO SAVE THE PROG|
00000290: 52 41 4D 00 B3 0A 22 00 A1 20 41 4E 24 3A 8B 41 |RAM...".. AN$:.A|
000002A0: 4E 24 B3 B1 22 59 22 AF 41 4E 24 B3 B1 22 4E 22 |N$.."Y".AN$.."N"|
000002B0: A7 33 34 00 C4 0A 23 00 8B 20 41 4E 24 B2 22 4E |.34...#.. AN$."N|
000002C0: 22 A7 33 32 00 DB 0A 24 00 99 22 93 D2 45 54 55 |".32...$.."..ETU|
000002D0: 52 4E 20 54 4F 20 4D 45 4E 55 22 00 E8 0A 25 00 |RN TO MENU"...%.|
000002E0: 8D 38 30 30 3A 89 31 30 00 06 0B 26 00 8D 38 31 |.800:.10...&..81|
000002F0: 30 3A 8D 38 32 30 3A 99 22 93 11 11 11 11 12 22 |0:.820:."......"|
00000300: 41 44 24 22 11 22 00 1A 0B 27 00 8D 38 33 30 3A |AD$"."...'..830:|
00000310: 43 24 B2 22 22 3A 8D 38 34 30 00 49 0B 28 00 81 |C$."":.840.I.(..|
00000320: 56 B2 30 A4 31 30 3A 58 24 28 56 29 B2 22 22 3A |V.0.10:X$(V)."":|
00000330: 82 3A 43 48 B2 30 3A 97 36 34 2C 30 3A 4E 4C B2 |.:CH.0:.64,0:NL.|
00000340: 30 3A 8B 43 B2 34 A7 34 33 00 55 0B 29 00 4E 4C |0:.C.4.43.U.).NL|
00000350: B2 4E 4C AA 31 00 8C 0B 2A 00 8B 58 AA 31 30 B1 |.NL.1...*..X.10.|
00000360: 28 C2 28 36 33 29 AA C2 28 36 34 29 AC 32 35 36 |(.(63)..(64).256|
00000370: 29 A7 99 A3 31 31 29 43 24 3A 58 24 28 4E 4C 29 |)...11)C$:X$(NL)|
00000380: B2 43 24 3A 87 20 43 24 3A 89 34 31 00 CA 0B 2B |.C$:. C$:.41...+|
00000390: 00 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
000003A0: 11 11 11 11 11 11 11 11 11 11 11 50 52 45 53 53 |...........PRESS|
000003B0: 20 27 5E 27 20 41 4E 44 20 52 45 54 55 52 4E 20 | '^' AND RETURN |
000003C0: 46 4F 52 20 4D 45 4E 55 13 22 00 EA 0B 2C 00 99 |FOR MENU."...,..|
000003D0: 22 91 11 11 11 11 11 11 22 3B 3A 81 4E 4E B2 31 |".......";:.NN.1|
000003E0: A4 31 30 3A 99 A3 31 31 29 3B 00 12 0C 2D 00 48 |.10:..11);...-.H|
000003F0: 48 B2 C2 28 32 30 39 29 AA C2 28 32 31 30 29 AC |H..(209)..(210).|
00000400: 32 35 36 AA C2 28 32 31 31 29 3A 53 B2 C2 28 48 |256..(211):S..(H|
00000410: 48 29 00 26 0C 2E 00 9F 31 2C 30 3A 84 31 2C 43 |H).&....1,0:.1,C|
00000420: 24 3A A0 31 3A 99 00 42 0C 2F 00 8B 20 C8 28 43 |$:.1:..B./.. .(C|
00000430: 24 2C 31 29 B2 22 5E 22 A7 97 48 48 2C 53 3A 89 |$,1)."^"..HH,S:.|
00000440: 35 31 00 5E 0C 30 00 8B 20 C8 28 43 24 2C 31 29 |51.^.0.. .(C$,1)|
00000450: B2 22 3F 22 A7 97 48 48 2C 53 3A 89 35 39 00 82 |."?"..HH,S:.59..|
00000460: 0C 31 00 8B 20 58 24 28 4E 4E 29 B3 B1 43 24 A7 |.1.. X$(NN)..C$.|
00000470: 99 A3 31 30 29 22 91 22 C7 28 33 34 29 3A 43 48 |..10)".".(34):CH|
00000480: B2 31 00 88 0C 32 00 82 00 96 0C 33 00 8B 20 43 |.1...2.....3.. C|
00000490: 48 B2 30 A7 31 30 00 A6 0C 34 00 43 B2 30 3A 43 |H.0.10...4.C.0:C|
000004A0: 31 B2 31 32 37 34 00 B2 0C 35 00 8B 43 B1 31 30 |1.1274...5..C.10|
000004B0: A7 8A 00 D4 0C 36 00 8B C2 28 43 31 29 B3 B1 33 |.....6...(C1)..3|
000004C0: 34 A7 43 B2 43 AA 31 3A 43 31 B2 43 31 AA 34 30 |4.C.C.1:C1.C1.40|
000004D0: 3A 89 35 33 00 FE 0C 37 00 99 22 13 20 58 3D 22 |:.53...7..". X="|
000004E0: 58 22 3A 43 3D 22 43 AA 31 22 3A 43 31 3D 22 43 |X":C="C.1":C1="C|
000004F0: 31 AA 34 30 22 3A 47 4F 54 4F 35 33 20 22 00 16 |1.40":GOTO53 "..|
00000500: 0D 38 00 99 22 11 11 11 11 22 3A 81 43 32 B2 30 |.8.."....":.C2.0|
00000510: A4 43 3A 99 3A 82 00 3D 0D 39 00 99 22 91 20 20 |.C:.:..=.9..". |
00000520: 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 58 AA 43 | ......."X.C|
00000530: 22 9D 22 A3 36 29 22 44 41 54 41 91 22 00 67 0D |".".6)"DATA.".g.|
00000540: 3A 00 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 |:..631,13:.632,1|
00000550: 39 3A 97 36 33 33 2C 31 33 3A 97 31 39 38 2C 33 |9:.633,13:.198,3|
00000560: 3A 9E 34 32 31 34 30 00 87 0D 3B 00 9F 34 2C 34 |:.42140...;..4,4|
00000570: 3A 81 4E 4E B2 31 A4 39 3A 98 34 2C 22 11 22 58 |:.NN.1.9:.4,"."X|
00000580: 24 28 4E 4E 29 3A 82 00 95 0D 3D 00 98 34 3A A0 |$(NN):....=..4:.|
00000590: 34 3A 89 31 30 00 B8 0D 3E 00 8D 38 31 30 3A 8D |4:.10...>..810:.|
000005A0: 38 32 30 3A 99 22 93 11 11 11 11 22 41 44 24 3A |820:."....."AD$:|
000005B0: 8D 38 33 30 3A 43 B2 30 00 C3 0D 3F 00 8B 43 B1 |.830:C.0...?..C.|
000005C0: 39 A7 8A 00 E7 0D 40 00 99 22 13 22 58 AA 43 3A |9.....@.."."X.C:|
000005D0: 99 22 58 3D 22 58 22 3A 43 3D 22 43 AA 31 22 3A |."X="X":C="C.1":|
000005E0: 47 4F 54 4F 36 33 22 00 11 0E 41 00 97 36 33 31 |GOTO63"...A..631|
000005F0: 2C 31 39 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 |,19:.632,13:.633|
00000600: 2C 31 33 3A 97 31 39 38 2C 33 3A 9E 34 32 31 34 |,13:.198,3:.4214|
00000610: 30 00 26 0E 42 00 99 22 93 22 3A 8C 3A 87 58 58 |0.&.B..".":.:.XX|
00000620: 24 3A 43 58 B2 30 00 42 0E 43 00 87 20 58 58 24 |$:CX.0.B.C.. XX$|
00000630: 3A 8B 58 58 24 B2 22 2A 22 A7 8D 38 30 30 3A 89 |:.XX$."*"..800:.|
00000640: 31 30 00 58 0E 44 00 58 B2 C2 28 36 33 29 AA C2 |10.X.D.X..(63)..|
00000650: 28 36 34 29 AC 32 35 36 00 85 0E 45 00 8B 58 B1 |(64).256...E..X.|
00000660: B2 43 58 AA 31 30 A7 43 58 B2 58 3A 8D 38 36 30 |.CX.10.CX.X:.860|
00000670: 3A 8D 38 32 30 3A 99 22 11 12 22 41 44 24 22 20 |:.820:.".."AD$" |
00000680: 20 20 20 11 22 00 9A 0E 46 00 8B 28 C2 28 36 35 | ."...F..(.(65|
00000690: 33 29 AF 31 29 B2 30 A7 37 30 00 B9 0E 47 00 8B |3).1).0.70...G..|
000006A0: C2 28 31 39 37 29 B2 35 37 A7 81 49 B2 31 A4 31 |.(197).57..I.1.1|
000006B0: 30 30 30 3A 82 3A 89 31 30 00 CA 0E 48 00 99 A3 |000:.:.10...H...|
000006C0: 31 31 29 58 58 24 3A 89 36 37 00 13 0F 49 00 99 |11)XX$:.67...I..|
000006D0: 22 93 11 11 C5 4E 53 55 52 45 20 43 4F 52 52 45 |"....NSURE CORRE|
000006E0: 43 54 20 44 49 53 4B 20 50 4C 41 43 45 44 20 49 |CT DISK PLACED I|
000006F0: 4E 20 44 52 49 56 45 20 20 30 20 4F 46 20 55 4E |N DRIVE 0 OF UN|
00000700: 49 54 20 38 20 41 4E 44 20 50 52 45 53 53 20 27 |IT 8 AND PRESS '|
00000710: C6 33 27 00 29 0F 4A 00 A1 41 4E 24 3A 8B 41 4E |.3'.).J..AN$:.AN|
00000720: 24 B3 B1 22 86 22 A7 37 34 00 4D 0F 4B 00 9F 31 |$..".".74.M.K..1|
00000730: 2C 38 2C 31 35 2C 22 49 30 22 3A A0 31 3A 8D 38 |,8,15,"I0":.1:.8|
00000740: 37 30 3A 8B 45 4E B3 B1 30 20 A7 37 38 00 68 0F |70:.EN..0 .78.h.|
00000750: 4C 00 94 22 40 30 3A 52 45 54 52 49 45 56 41 4C |L.."@0:RETRIEVAL|
00000760: 22 2C 38 3A 8D 38 37 30 00 91 0F 4D 00 8B 45 4E |",8:.870...M..EN|
00000770: B2 30 A7 99 22 11 11 D0 52 4F 47 52 41 4D 20 53 |.0.."...ROGRAM S|
00000780: 41 56 45 44 20 4F 4B 22 3A 8D 38 30 30 3A 89 31 |AVED OK":.800:.1|
00000790: 30 00 CE 0F 4E 00 99 22 11 22 45 4E 3B 45 4E 24 |0...N.."."EN;EN$|
000007A0: 3B 45 54 3B 45 53 3A 99 22 11 C4 4F 20 59 4F 55 |;ET;ES:."..O YOU|
000007B0: 20 57 49 53 48 20 54 4F 20 54 52 59 20 54 4F 20 | WISH TO TRY TO |
000007C0: 53 41 56 45 20 41 47 41 49 4E 20 3F 22 3B 00 ED |SAVE AGAIN ?";..|
000007D0: 0F 4F 00 A1 41 4E 24 3A 8B 41 4E 24 B3 B1 22 59 |.O..AN$:.AN$.."Y|
000007E0: 22 AF 41 4E 24 B3 B1 22 4E 22 A7 37 39 00 FF 0F |".AN$.."N".79...|
000007F0: 50 00 8B 20 41 4E 24 B2 22 59 22 20 A7 37 33 00 |P.. AN$."Y" .73.|
00000800: 08 10 51 00 89 20 31 30 00 2F 10 52 00 99 22 93 |..Q.. 10./.R..".|
00000810: D3 45 54 20 54 41 50 45 20 54 4F 20 53 54 41 52 |.ET TAPE TO STAR|
00000820: 54 20 41 4E 44 20 48 49 54 20 27 C6 33 27 22 00 |T AND HIT '.3'".|
00000830: 45 10 53 00 A1 41 4E 24 3A 8B 41 4E 24 B3 B1 22 |E.S..AN$:.AN$.."|
00000840: 86 22 A7 38 33 00 56 10 54 00 94 22 52 45 54 52 |.".83.V.T.."RETR|
00000850: 49 45 56 41 4C 22 00 77 10 55 00 99 22 11 D2 45 |IEVAL".w.U.."..E|
00000860: 57 49 4E 44 20 54 41 50 45 20 41 4E 44 20 48 49 |WIND TAPE AND HI|
00000870: 54 20 27 C6 33 27 22 00 8D 10 56 00 A1 41 4E 24 |T '.3'"...V..AN$|
00000880: 3A 8B 41 4E 24 B3 B1 22 86 22 A7 38 36 00 9E 10 |:.AN$..".".86...|
00000890: 57 00 95 22 52 45 54 52 49 45 56 41 4C 22 00 B8 |W.."RETRIEVAL"..|
000008A0: 10 58 00 99 22 11 C6 49 4E 49 53 48 45 44 22 3A |.X.."..INISHED":|
000008B0: 8D 38 30 30 3A 89 31 30 00 DB 10 59 00 58 B2 30 |.800:.10...Y.X.0|
000008C0: 3A 8C 3A 99 22 93 C6 49 4E 44 20 C5 4E 54 52 59 |:.:."..IND .NTRY|
000008D0: 20 3F 20 1D 1D 1D 3F 9D 22 3B 3A 00 F5 10 5A 00 | ? ...?.";:...Z.|
000008E0: 9F 32 2C 30 3A 84 32 2C 41 41 24 3A A0 32 3A 99 |.2,0:.2,AA$:.2:.|
000008F0: 3A 87 58 58 24 00 10 11 5B 00 87 20 58 58 24 3A |:.XX$...[.. XX$:|
00000900: 8B 58 58 24 B2 22 2A 22 A7 58 B2 30 3A 89 39 36 |.XX$."*".X.0:.96|
00000910: 00 26 11 5C 00 8B C3 28 41 41 24 29 B1 C3 28 58 |.&.\...(AA$)..(X|
00000920: 58 24 29 A7 39 31 00 41 11 5D 00 8B 41 41 24 B3 |X$).91.A.]..AA$.|
00000930: B1 C8 28 58 58 24 2C C3 28 41 41 24 29 29 A7 39 |..(XX$,.(AA$)).9|
00000940: 31 00 69 11 5E 00 58 B2 C2 28 36 33 29 AA C2 28 |1.i.^.X..(63)..(|
00000950: 36 34 29 AC 32 35 36 3A 58 B2 B5 28 58 AD 31 30 |64).256:X..(X.10|
00000960: 29 AC 31 30 3A 58 31 B2 58 00 91 11 5F 00 8D 38 |).10:X1.X..._..8|
00000970: 35 30 3A 43 B2 43 AA 34 3A 97 36 36 2C B5 28 43 |50:C.C.4:.66,.(C|
00000980: AD 32 35 35 29 3A 97 36 35 2C 28 43 AF 32 35 35 |.255):.65,(C.255|
00000990: 29 00 A3 11 60 00 8B 58 B2 30 A7 8D 38 30 30 3A |)...`..X.0..800:|
000009A0: 89 31 30 00 BD 11 61 00 8D 38 36 30 3A 8D 38 32 |.10...a..860:.82|
000009B0: 30 3A 99 3A 99 22 12 22 41 44 24 3A 99 00 EC 11 |0:.:."."AD$:....|
000009C0: 62 00 41 58 B2 C2 28 36 35 29 AA C2 28 36 36 29 |b.AX..(65)..(66)|
000009D0: AC 32 35 36 3A 87 58 58 24 3A 42 58 B2 C2 28 36 |.256:.XX$:BX..(6|
000009E0: 33 29 AA C2 28 36 34 29 AC 32 35 36 00 08 12 63 |3)..(64).256...c|
000009F0: 00 8B 20 42 58 B3 58 31 AA 31 30 A7 99 A3 31 31 |.. BX.X1.10...11|
00000A00: 29 58 58 24 3A 89 39 38 00 2F 12 64 00 97 36 34 |)XX$:.98./.d..64|
00000A10: 2C B5 28 42 58 AD 32 35 36 29 3A 97 36 33 2C 42 |,.(BX.256):.63,B|
00000A20: 58 AB B5 28 42 58 AD 32 35 36 29 AC 32 35 36 00 |X..(BX.256).256.|
00000A30: 5A 12 6E 00 97 36 36 2C B5 28 41 58 AD 32 35 36 |Z.n..66,.(AX.256|
00000A40: 29 3A 97 36 35 2C 41 58 AB B5 28 41 58 AD 32 35 |):.65,AX..(AX.25|
00000A50: 36 29 AC 32 35 36 3A 89 39 31 00 60 12 D0 00 33 |6).256:.91.`...3|
00000A60: 00 8A 12 20 03 99 22 11 11 20 20 20 20 20 20 20 |... ..".. |
00000A70: 20 12 D0 52 45 53 53 20 27 C6 31 27 20 54 4F 20 | ..RESS '.1' TO |
00000A80: 43 4F 4E 54 49 4E 55 45 92 22 00 A1 12 21 03 A1 |CONTINUE."...!..|
00000A90: 41 4E 24 3A 8B 41 4E 24 B3 B1 22 85 22 A7 38 30 |AN$:.AN$..".".80|
00000AA0: 31 00 A7 12 22 03 8E 00 D4 12 2A 03 85 22 93 C5 |1...".....*.."..|
00000AB0: 4E 54 45 52 20 44 41 54 45 2F 41 44 44 52 45 53 |NTER DATE/ADDRES|
00000AC0: 53 20 4E 4F 2E 22 3B 43 24 3A 8B 43 24 B2 22 22 |S NO.";C$:.C$.""|
00000AD0: A7 38 31 30 00 F7 12 2B 03 44 44 B2 C5 28 43 24 |.810...+.DD..(C$|
00000AE0: 29 3A 4C 4C B2 C3 28 43 24 29 3A 8B 20 4C 4C B1 |):LL..(C$):. LL.|
00000AF0: 33 20 A7 20 38 31 34 00 15 13 2C 03 44 44 B2 C5 |3 . 814...,.DD..|
00000B00: 28 43 24 29 3A 8B 44 44 B1 33 36 35 B0 44 44 B3 |(C$):.DD.365.DD.|
00000B10: 31 A7 38 31 30 00 24 13 2D 03 59 B2 AB 31 3A 4D |1.810.$.-.Y..1:M|
00000B20: B2 31 3A 8E 00 38 13 2E 03 8B 44 44 B3 31 B0 44 |.1:..8....DD.1.D|
00000B30: 44 B1 33 31 A7 38 31 30 00 5A 13 2F 03 59 B2 C5 |D.31.810.Z./.Y..|
00000B40: 28 C9 28 43 24 2C 32 29 29 3A 8B 59 B1 30 A7 59 |(.(C$,2)):.Y.0.Y|
00000B50: B2 59 AB 59 30 AA 31 39 30 30 00 8D 13 30 03 58 |.Y.Y0.1900...0.X|
00000B60: B2 33 AA 28 44 44 B3 31 30 29 3A 4D 4D 24 B2 CA |.3.(DD.10):MM$..|
00000B70: 28 43 24 2C 58 2C 33 29 3A 81 4D B2 31 A4 31 32 |(C$,X,3):.M.1.12|
00000B80: 3A 8B 4D 4D 24 B2 53 24 28 4D 29 A7 8E 00 99 13 |:.MM$.S$(M).....|
00000B90: 31 03 82 3A 89 20 38 31 30 00 C7 13 34 03 8B 59 |1..:. 810...4..Y|
00000BA0: B2 AB 31 A7 41 44 24 B2 22 1D 1D 1D 1D 1D 1D 1D |..1.AD$.".......|
00000BB0: 1D 1D 1D C1 44 44 52 45 53 53 20 2F 4F 2E 22 AA |....DDRESS /O.".|
00000BC0: C4 28 44 44 29 3A 8E 00 06 14 35 03 54 54 24 B2 |.(DD):....5.TT$.|
00000BD0: 22 54 48 2E 22 3A 53 B2 44 44 3A 58 B2 59 AA 59 |"TH.":S.DD:X.Y.Y|
00000BE0: 30 3A 53 B2 53 AA 58 AC 33 36 35 3A 8B 4D B2 B1 |0:S.S.X.365:.M..|
00000BF0: 33 A7 53 B2 53 AB B5 28 4D AC 46 31 AA 46 32 29 |3.S.S..(M.F1.F2)|
00000C00: 3A 58 B2 58 AA 31 00 3F 14 36 03 53 B2 53 AA B5 |:X.X.1.?.6.S.S..|
00000C10: 28 4D AC 33 31 AA 28 58 AB 31 29 AD 46 29 3A 57 |(M.31.(X.1).F):W|
00000C20: B2 53 AB B5 28 53 AD 37 29 AC 37 3A 57 44 24 B2 |.S..(S.7).7:WD$.|
00000C30: 57 24 28 57 29 3A 4D 44 24 B2 4D 24 28 4D 29 00 |W$(W):MD$.M$(M).|
00000C40: 60 14 37 03 8B 20 44 44 B2 31 B0 44 44 B2 32 31 |`.7.. DD.1.DD.21|
00000C50: B0 44 44 B2 33 31 A7 54 54 24 B2 22 53 54 2E 22 |.DD.31.TT$."ST."|
00000C60: 00 7B 14 38 03 8B 20 44 44 B2 32 B0 44 44 B2 32 |.{.8.. DD.2.DD.2|
00000C70: 32 A7 54 54 24 B2 22 4E 44 2E 22 00 96 14 39 03 |2.TT$."ND."...9.|
00000C80: 8B 20 44 44 B2 33 B0 44 44 B2 32 33 A7 54 54 24 |. DD.3.DD.23.TT$|
00000C90: B2 22 52 44 2E 22 00 C4 14 3A 03 41 44 24 B2 22 |."RD."...:.AD$."|
00000CA0: 20 20 20 22 AA 57 44 24 AA C4 28 44 44 29 AA 54 | ".WD$..(DD).T|
00000CB0: 54 24 AA 22 20 22 AA 4D 44 24 AA C4 28 59 AA 59 |T$." ".MD$..(Y.Y|
00000CC0: 30 29 3A 8E 00 E2 14 3E 03 58 B2 B5 28 59 AC 54 |0):....>.X..(Y.T|
00000CD0: AA 54 AA 4D AC 31 30 30 30 AA 44 44 AC 31 30 29 |.T.M.1000.DD.10)|
00000CE0: 3A 8E 00 12 15 48 03 8D 38 35 30 3A 43 B2 43 AA |:....H..850:C.C.|
00000CF0: 34 3A 97 36 36 2C B5 28 43 AD 32 35 36 29 3A 97 |4:.66,.(C.256):.|
00000D00: 36 35 2C 43 AF 32 35 35 3A 8B 43 B3 B1 34 A7 87 |65,C.255:.C..4..|
00000D10: 43 24 00 18 15 49 03 8E 00 36 15 52 03 8C 3A 87 |C$...I...6.R..:.|
00000D20: 58 58 24 3A 41 44 B2 C2 28 36 35 29 AA C2 28 36 |XX$:AD..(65)..(6|
00000D30: 36 29 AC 32 35 36 00 5D 15 53 03 41 41 B2 C2 28 |6).256.].S.AA..(|
00000D40: 41 44 AA 33 29 AA C2 28 41 44 AA 34 29 AC 32 35 |AD.3)..(AD.4).25|
00000D50: 36 3A 8B 41 41 B1 58 A7 43 B2 30 3A 8E 00 86 15 |6:.AA.X.C.0:....|
00000D60: 54 03 8B 41 41 B3 B1 58 A7 41 44 B2 C2 28 41 44 |T..AA..X.AD..(AD|
00000D70: AA 31 29 AA C2 28 41 44 AA 32 29 AC 32 35 36 AB |.1)..(AD.2).256.|
00000D80: 31 3A 89 38 35 31 00 93 15 55 03 43 B2 41 44 AA |1:.851...U.C.AD.|
00000D90: 31 3A 8E 00 D9 15 5C 03 58 B2 58 AB 54 3A 59 B2 |1:....\.X.X.T:Y.|
00000DA0: B5 28 28 58 AB 31 30 30 30 29 AD 54 29 3A 4D B2 |.((X.1000).T):M.|
00000DB0: B5 28 28 58 AB 59 AC 54 29 AD 31 30 30 30 29 3A |.((X.Y.T).1000):|
00000DC0: 44 44 B2 B5 28 28 28 58 AB 59 AC 54 29 AB 4D AC |DD..(((X.Y.T).M.|
00000DD0: 31 30 30 30 29 AD 31 30 29 00 F2 15 5D 03 8B 59 |1000).10)...]..Y|
00000DE0: B2 AB 31 A7 44 44 B2 44 44 AA 28 4D AB 31 29 AC |..1.DD.DD.(M.1).|
00000DF0: 48 55 00 F8 15 5E 03 8E 00 19 16 66 03 9F 31 2C |HU...^.....f..1,|
00000E00: 38 2C 31 35 3A 84 31 2C 45 4E 2C 45 4E 24 2C 45 |8,15:.1,EN,EN$,E|
00000E10: 54 2C 45 53 3A A0 31 3A 8E 00 42 16 84 03 58 B2 |T,ES:.1:..B...X.|
00000E20: 30 3A 48 55 B2 31 30 30 3A 54 B2 31 32 30 30 30 |0:HU.100:T.12000|
00000E30: 3A 3A 46 31 B2 2E 34 3A 46 32 B2 32 2E 33 3A 46 |::F1..4:F2.2.3:F|
00000E40: B2 34 00 70 16 8E 03 59 30 B2 31 39 38 33 3A 86 |.4.p...Y0.1983:.|
00000E50: 4D 24 28 31 32 29 2C 53 24 28 31 32 29 3A 97 35 |M$(12),S$(12):.5|
00000E60: 33 32 38 30 2C 32 3A 97 35 33 32 37 32 2C 32 33 |3280,2:.53272,23|
00000E70: 00 B6 16 98 03 57 24 28 30 29 B2 22 D4 55 45 53 |.....W$(0).".UES|
00000E80: 44 41 59 22 3A 57 24 28 31 29 B2 22 D7 45 44 4E |DAY":W$(1).".EDN|
00000E90: 45 53 44 41 59 22 3A 57 24 28 32 29 B2 22 D4 48 |ESDAY":W$(2).".H|
00000EA0: 55 52 53 44 41 59 22 3A 57 24 28 33 29 B2 22 C6 |URSDAY":W$(3).".|
00000EB0: 52 49 44 41 59 22 00 E9 16 A2 03 57 24 28 34 29 |RIDAY".....W$(4)|
00000EC0: B2 22 D3 41 54 55 52 44 41 59 22 3A 57 24 28 35 |.".ATURDAY":W$(5|
00000ED0: 29 B2 22 D3 55 4E 44 41 59 22 3A 57 24 28 36 29 |).".UNDAY":W$(6)|
00000EE0: B2 22 CD 4F 4E 44 41 59 22 00 36 17 AC 03 4D 24 |.".ONDAY".6...M$|
00000EF0: 28 31 29 B2 22 CA 41 4E 55 41 52 59 22 3A 4D 24 |(1).".ANUARY":M$|
00000F00: 28 32 29 B2 22 C6 45 42 52 55 41 52 59 22 3A 4D |(2).".EBRUARY":M|
00000F10: 24 28 33 29 B2 22 CD 41 52 43 48 22 3A 4D 24 28 |$(3).".ARCH":M$(|
00000F20: 34 29 B2 22 C1 50 52 49 4C 22 3A 4D 24 28 35 29 |4).".PRIL":M$(5)|
00000F30: B2 22 CD 41 59 22 00 86 17 B6 03 4D 24 28 36 29 |.".AY".....M$(6)|
00000F40: B2 22 CA 55 4E 45 22 3A 4D 24 28 37 29 B2 22 CA |.".UNE":M$(7).".|
00000F50: 55 4C 59 22 3A 4D 24 28 38 29 B2 22 C1 55 47 55 |ULY":M$(8).".UGU|
00000F60: 53 54 22 3A 4D 24 28 39 29 B2 22 D3 45 50 54 45 |ST":M$(9).".EPTE|
00000F70: 4D 42 45 52 22 3A 4D 24 28 31 30 29 B2 22 CF 43 |MBER":M$(10).".C|
00000F80: 54 4F 42 45 52 22 00 AE 17 C0 03 4D 24 28 31 31 |TOBER".....M$(11|
00000F90: 29 B2 22 CE 4F 56 45 4D 42 45 52 22 3A 4D 24 28 |).".OVEMBER":M$(|
00000FA0: 31 32 29 B2 22 C4 45 43 45 4D 42 45 52 22 00 FA |12).".ECEMBER"..|
00000FB0: 17 CA 03 53 24 28 31 29 B2 22 4A 41 4E 22 3A 53 |...S$(1)."JAN":S|
00000FC0: 24 28 32 29 B2 22 46 45 42 22 3A 53 24 28 33 29 |$(2)."FEB":S$(3)|
00000FD0: B2 22 4D 41 52 22 3A 53 24 28 34 29 B2 22 41 50 |."MAR":S$(4)."AP|
00000FE0: 52 22 3A 53 24 28 35 29 B2 22 4D 41 59 22 3A 53 |R":S$(5)."MAY":S|
00000FF0: 24 28 36 29 B2 22 4A 55 4E 22 00 49 18 D4 03 53 |$(6)."JUN".I...S|
00001000: 24 28 37 29 B2 22 4A 55 4C 22 3A 53 24 28 38 29 |$(7)."JUL":S$(8)|
00001010: B2 22 41 55 47 22 3A 53 24 28 39 29 B2 22 53 45 |."AUG":S$(9)."SE|
00001020: 50 22 3A 53 24 28 31 30 29 B2 22 4F 43 54 22 3A |P":S$(10)."OCT":|
00001030: 53 24 28 31 31 29 B2 22 4E 4F 56 22 3A 53 24 28 |S$(11)."NOV":S$(|
00001040: 31 32 29 B2 22 44 45 43 22 00 51 18 DE 03 89 31 |12)."DEC".Q....1|
00001050: 30 00 58 18 E8 03 83 2A 00 6A 18 F2 03 83 22 C1 |0.X....*.j....".|
00001060: 4C 42 52 45 4B 54 53 53 4F 4E 00 79 18 F3 03 83 |LBREKTSSON.y....|
00001070: 22 CB 41 52 4F 4C 49 4E 41 00 92 18 F4 03 83 22 |".AROLINA......"|
00001080: C1 2E C4 4F 4D 41 52 52 49 4E 47 53 56 2E 20 31 |...OMARRINGSV. 1|
00001090: 31 39 00 A5 18 F5 03 83 22 34 33 36 20 30 30 20 |19......"436 00 |
000010A0: C1 53 4B 49 4D 00 BB 18 F6 03 83 22 D0 48 4F 2E |.SKIM......".HO.|
000010B0: 20 30 33 31 2E 32 38 30 33 32 32 00 CB 18 F7 03 | 031.280322.....|
000010C0: 83 22 CB 4C 41 53 53 20 D3 31 43 00 D5 18 FC 03 |.".LASS .1C.....|
000010D0: 83 22 C1 52 4F 00 E4 18 FD 03 83 22 C9 53 41 42 |.".RO......".SAB|
000010E0: 45 4C 4C 41 00 FB 18 FE 03 83 22 C6 41 53 54 4C |ELLA......".ASTL|
000010F0: 41 47 53 47 41 54 41 4E 20 34 39 00 0C 19 FF 03 |AGSGATAN 49.....|
00001100: 83 22 34 31 35 20 31 32 20 C7 C2 C7 00 22 19 00 |."415 12 ...."..|
00001110: 04 83 22 D0 48 4F 2E 20 30 33 31 2E 34 36 34 31 |..".HO. 031.4641|
00001120: 30 31 00 32 19 01 04 83 22 CB 4C 41 53 53 20 D3 |01.2....".LASS .|
00001130: 31 43 00 41 19 06 04 83 22 C2 41 43 4B 4C 55 4E |1C.A....".ACKLUN|
00001140: 44 00 51 19 07 04 83 22 C5 4C 49 53 41 42 45 54 |D.Q....".LISABET|
00001150: 48 00 6B 19 08 04 83 22 C2 52 41 4E 44 44 41 4D |H.k....".RANDDAM|
00001160: 4D 53 42 41 43 4B 45 4E 20 33 32 00 80 19 09 04 |MSBACKEN 32.....|
00001170: 83 22 34 32 34 20 58 58 20 C1 4E 47 45 52 45 44 |."424 XX .NGERED|
00001180: 00 96 19 0A 04 83 22 D0 48 4F 2E 20 30 33 31 2E |......".HO. 031.|
00001190: 33 30 33 37 35 39 00 A6 19 0B 04 83 22 CB 4C 41 |303759......".LA|
000011A0: 53 53 20 D3 31 43 00 B6 19 10 04 83 22 C2 45 43 |SS .1C......".EC|
000011B0: 41 52 45 56 49 43 00 C7 19 11 04 83 22 C1 4C 45 |AREVIC......".LE|
000011C0: 4B 53 41 4E 44 45 52 00 DF 19 12 04 83 22 CC 5B |KSANDER......".[|
000011D0: 4E 4B 48 41 52 56 53 47 41 54 41 4E 20 32 35 00 |NKHARVSGATAN 25.|
000011E0: F4 19 13 04 83 22 34 32 34 20 36 36 20 C1 4E 47 |....."424 66 .NG|
000011F0: 45 52 45 44 00 0A 1A 14 04 83 22 D0 48 4F 2E 20 |ERED......".HO. |
00001200: 30 33 31 2E 33 30 33 35 30 37 00 1A 1A 15 04 83 |031.303507......|
00001210: 22 CB 4C 41 53 53 20 D3 31 43 00 27 1A 1A 04 83 |".LASS .1C.'....|
00001220: 22 C2 55 4C 4C 45 52 00 32 1A 1B 04 83 22 C1 4E |".ULLER.2....".N|
00001230: 4E 41 00 45 1A 1C 04 83 22 D3 41 4E 44 53 50 5B |NA.E....".ANDSP[|
00001240: 52 45 54 20 39 00 5A 1A 1D 04 83 22 34 32 34 20 |RET 9.Z...."424 |
00001250: 33 31 20 C1 4E 47 45 52 45 44 00 70 1A 1E 04 83 |31 .NGERED.p....|
00001260: 22 D0 48 4F 2E 20 30 33 31 2E 34 38 37 36 30 33 |".HO. 031.487603|
00001270: 00 80 1A 1F 04 83 22 CB 4C 41 53 53 20 D3 31 43 |......".LASS .1C|
00001280: 00 93 1A 24 04 83 22 C3 48 52 49 53 54 49 41 4E |...$..".HRISTIAN|
00001290: 53 45 4E 00 A1 1A 25 04 83 22 D4 48 45 52 45 53 |SEN...%..".HERES|
000012A0: 45 00 B9 1A 26 04 83 22 CB 4C 5B 56 41 56 5D 47 |E...&..".L[VAV]G|
000012B0: 45 4E 20 D0 4C 20 32 38 37 00 CC 1A 27 04 83 22 |EN .L 287...'.."|
000012C0: 34 33 30 20 38 30 20 C8 4F 56 5B 53 00 E2 1A 28 |430 80 .OV[S...(|
000012D0: 04 83 22 D0 48 4F 2E 20 30 33 31 2E 32 38 34 30 |..".HO. 031.2840|
000012E0: 35 34 00 F2 1A 29 04 83 22 CB 4C 41 53 53 20 D3 |54...)..".LASS .|
000012F0: 31 43 00 07 1B 2E 04 83 22 C3 48 52 49 53 54 4F |1C......".HRISTO|
00001300: 46 4F 52 49 44 49 53 00 13 1B 2F 04 83 22 CB 49 |FORIDIS.../..".I|
00001310: 43 4B 49 00 29 1B 30 04 83 22 CD 41 4C 5C 52 54 |CKI.).0..".AL\RT|
00001320: 53 47 41 54 41 4E 20 34 32 00 3E 1B 31 04 83 22 |SGATAN 42.>.1.."|
00001330: 34 32 34 20 36 31 20 C1 4E 47 45 52 45 44 00 54 |424 61 .NGERED.T|
00001340: 1B 32 04 83 22 D0 48 4F 2E 20 30 33 31 2E 33 31 |.2..".HO. 031.31|
00001350: 35 39 36 39 00 64 1B 33 04 83 22 CB 4C 41 53 53 |5969.d.3..".LASS|
00001360: 20 D3 31 43 00 73 1B 38 04 83 22 C4 45 4C 4C 42 | .1C.s.8..".ELLB|
00001370: 4F 52 47 00 80 1B 39 04 83 22 D0 41 54 52 49 4B |ORG...9..".ATRIK|
00001380: 00 93 1B 3A 04 83 22 C8 5C 4A 44 56 5B 47 45 4E |...:..".\JDV[GEN|
00001390: 20 31 32 00 A6 1B 3B 04 83 22 34 33 30 20 38 30 | 12...;.."430 80|
000013A0: 20 C8 4F 56 5D 53 00 BC 1B 3C 04 83 22 D0 48 4F | .OV]S...<..".HO|
000013B0: 2E 20 30 33 31 2E 32 38 32 34 39 37 00 CC 1B 3D |. 031.282497...=|
000013C0: 04 83 22 CB 4C 41 53 53 20 D3 31 43 00 DB 1B 42 |..".LASS .1C...B|
000013D0: 04 83 22 C5 52 49 43 53 53 4F 4E 00 EE 1B 43 04 |..".RICSSON...C.|
000013E0: 83 22 CD 41 52 49 45 2D CC 4F 55 49 53 45 00 07 |.".ARIE-.OUISE..|
000013F0: 1C 44 04 83 22 CC 5B 4E 4B 48 41 52 56 53 47 41 |.D..".[NKHARVSGA|
00001400: 54 41 4E 20 31 33 34 00 1C 1C 45 04 83 22 34 32 |TAN 134...E.."42|
00001410: 34 20 36 36 20 C1 4E 47 45 52 45 44 00 32 1C 46 |4 66 .NGERED.2.F|
00001420: 04 83 22 D0 48 4F 2E 20 30 33 31 2E 33 30 38 35 |..".HO. 031.3085|
00001430: 30 33 00 42 1C 47 04 83 22 CB 4C 41 53 53 20 D3 |03.B.G..".LASS .|
00001440: 31 43 00 54 1C 4C 04 83 22 C6 52 45 44 52 49 4B |1C.T.L..".REDRIK|
00001450: 53 53 4F 4E 00 62 1C 4D 04 83 22 CE 49 43 4B 4C |SSON.b.M..".ICKL|
00001460: 41 53 00 75 1C 4E 04 83 22 C7 5D 53 4D 4F 53 53 |AS.u.N..".]SMOSS|
00001470: 45 4E 20 38 35 00 88 1C 4F 04 83 22 34 33 36 20 |EN 85...O.."436 |
00001480: 30 30 20 C1 53 4B 49 4D 00 9E 1C 50 04 83 22 D0 |00 .SKIM...P..".|
00001490: 48 4F 2E 20 30 33 31 2E 32 38 30 38 34 30 00 AE |HO. 031.280840..|
000014A0: 1C 51 04 83 22 CB 4C 41 53 53 20 D3 31 43 00 BC |.Q..".LASS .1C..|
000014B0: 1C 56 04 83 22 C7 41 4D 46 45 4C 54 00 C8 1C 57 |.V..".AMFELT...W|
000014C0: 04 83 22 CA 4F 48 41 4E 00 E1 1C 58 04 83 22 C6 |..".OHAN...X..".|
000014D0: 59 52 41 44 41 4C 45 52 53 47 41 54 41 4E 20 31 |YRADALERSGATAN 1|
000014E0: 36 00 F2 1C 59 04 83 22 34 31 33 20 31 39 20 C7 |6...Y.."413 19 .|
000014F0: C2 C7 00 08 1D 5A 04 83 22 D0 48 4F 2E 20 30 33 |.....Z..".HO. 03|
00001500: 31 2E 38 32 33 39 36 33 00 18 1D 5B 04 83 22 CB |1.823963...[..".|
00001510: 4C 41 53 53 20 D3 31 43 00 25 1D 60 04 83 22 C8 |LASS .1C.%.`..".|
00001520: 41 47 4D 41 52 00 31 1D 61 04 83 22 D3 4F 46 49 |AGMAR.1.a..".OFI|
00001530: 41 00 4E 1D 62 04 83 22 C8 4F 56 5D 53 20 C2 52 |A.N.b..".OV]S .R|
00001540: 4F 4E 53 5D 4C 44 45 52 53 56 5B 47 20 39 00 61 |ONS]LDERSV[G 9.a|
00001550: 1D 63 04 83 22 34 33 30 20 38 30 20 C8 4F 56 5D |.c.."430 80 .OV]|
00001560: 53 00 77 1D 64 04 83 22 D0 48 4F 2E 20 30 33 31 |S.w.d..".HO. 031|
00001570: 2E 32 38 35 32 36 34 00 87 1D 65 04 83 22 CB 4C |.285264...e..".L|
00001580: 41 53 53 20 D3 31 43 00 8E 1D FF F9 83 2A 00 00 |ASS .1C......*..|
00001590: 00 00 22 8B |..". |
.......900.5....".. .*** RETRIE
VAL MENY ***".W....".. .U.PDATE
ENTRY".X....". .R.EMOVE ENTRY"
......". .F.IND ENTRY"......".
.L.IST ALL".R....". .D
.ISK SAVE"......". .T.APE SAVE"
......". .E.ND PROGRAM".3....".
... BYTES FREE =";.R.... .(0).0
. ..(0).2.16:. 21.\.....(0).S.... AN$:.
AN$."" . 21...... AN$."U".38...... AN$."
R".62...... AN$."F".89...... AN$."L".66.
H.... AN$."D".73.Y.... AN$."T".82......
AN$.."E".21......".HAVE YOU TAKEN A COPY
OF THE PROGRAM".8.... AN$:.AN$.."Y".AN$
.."N".30.I.... AN$."N".33.K. ..".END OF
PROGRAM !!!":.64738...!.."..DO YOU WISH
TO SAVE THE PROGRAM...".. AN$:.AN$.."Y".
AN$.."N".34.D.#.. AN$."N".32...$..".RETU
RN TO MENU"...%..800:.10...&..810:.820:.
"......"AD$"."...'..830:C$."":.840.I.(..
V.0.10:X$(V)."":.:CH.0:.64,0:NL.0:.C.4.4
3.U.).NL.NL.1...*..X.10.(B(63).B(64).256
)...11)C$:X$(NL).C$:. C$:.41.J.+..".....
...................PRESS '^' AND RETURN
FOR MENU."...,..".......";:.NN.1.10:..11
);...-.HH.B(209).B(210).256.B(211):S.B(H
H).&....1,0:.1,C$: 1:..B./.. H(C$,1)."^"
..HH,S:.51.^.0.. H(C$,1)."?"..HH,S:.59..
.1.. X$(NN)..C$...10)"."G(34):CH.1...2..
...3.. CH.0.10...4.C.0:C1.1274...5..C.10
...T.6..B(C1)..34.C.C.1:C1.C1.40:.53...7
..". X="X":C="C.1":C1="C1.40":GOTO53 "..
.8.."....":.C2.0.C:.:..=.9..". ...
...."X.C".".6)"DATA.".G.:..631,13:.632,1
9:.633,13:.198,3:.42140...;..4,4:.NN.1.9
:.4,"."X$(NN):....=..4: 4:.10...>..810:.
820:."....."AD$:.830:C.0.C.?..C.9.....@.
."."X.C:."X="X":C="C.1":GOTO63"...A..631
,19:.632,13:.633,13:.198,3:.42140.&.B.."
.":.:.XX$:CX.0.B.C.. XX$:.XX$."*"..800:.
10.X.D.X.B(63).B(64).256...E..X..CX.10.C
X.X:.860:.820:.".."AD$" ."...F..(B(65
3).1).0.70...G..B(197).57..I.1.1000:.:.1
0.J.H...11)XX$:.67...I.."...ENSURE CORRE
CT DISK PLACED IN DRIVE 0 OF UNIT 8 AND
PRESS 'F3'.).J..AN$:.AN$..".".74.M.K..1
,8,15,"I0": 1:.870:.EN..0 .78.H.L.."@0:R
ETRIEVAL",8:.870...M..EN.0.."..PROGRAM S
AVED OK":.800:.10.N.N.."."EN;EN$;ET;ES:.
".DO YOU WISH TO TRY TO SAVE AGAIN ?";..
.O..AN$:.AN$.."Y".AN$.."N".79...P.. AN$.
"Y" .73...Q.. 10./.R..".SET TAPE TO STAR
T AND HIT 'F3'".E.S..AN$:.AN$..".".83.V.
T.."RETRIEVAL".W.U..".REWIND TAPE AND HI
T 'F3'"...V..AN$:.AN$..".".86...W.."RETR
IEVAL"...X..".FINISHED":.800:.10...Y.X.0
:.:.".FIND ENTRY ? ...?.";:...Z..2,0:.2,
AA$: 2:.:.XX$...[.. XX$:.XX$."*".X.0:.96
.&.\..C(AA$).C(XX$).91.A.]..AA$..H(XX$,C
(AA$)).91.I.^.X.B(63).B(64).256:X..(X.10
).10:X1.X..._..850:C.C.4:.66,.(C.255):.6
5,(C.255)...`..X.0..800:.10...A..860:.82
0:.:."."AD$:....B.AX.B(65).B(66).256:.XX
$:BX.B(63).B(64).256...C.. BX.X1.10...11
)XX$:.98./.D..64,.(BX.256):.63,BX..(BX.2
56).256.Z.N..66,.(AX.256):.65,AX..(AX.25
6).256:.91.`.P.3... ..".. .PRESS
'F1' TO CONTINUE."...!..AN$:.AN$..".".80
1..."...T.*..".ENTER DATE/ADDRESS NO.";C
$:.C$."".810...+.DD.E(C$):LL.C(C$):. LL.
3 . 814...,.DD.E(C$):.DD.365.DD.1.810.$.
-.Y..1:M.1:..8....DD.1.DD.31.810.Z./.Y.E
(I(C$,2)):.Y.0.Y.Y.Y0.1900...0.X.3.(DD.1
0):MM$.J(C$,X,3):.M.1.12:.MM$.S$(M).....
1..:. 810.G.4..Y..1.AD$."..........ADDRE
SS /O.".D(DD):....5.TT$."TH.":S.DD:X.Y.Y
0:S.S.X.365:.M..3.S.S..(M.F1.F2):X.X.1.?
.6.S.S..(M.31.(X.1).F):W.S..(S.7).7:WD$.
W$(W):MD$.M$(M).`.7.. DD.1.DD.21.DD.31.T
T$."ST.".{.8.. DD.2.DD.22.TT$."ND."...9.
. DD.3.DD.23.TT$."RD.".D.:.AD$." ".WD$
.D(DD).TT$." ".MD$.D(Y.Y0):....>.X..(Y.T
.T.M.1000.DD.10):....H..850:C.C.4:.66,.(
C.256):.65,C.255:.C..4..C$...I...6.R..:.
XX$:AD.B(65).B(66).256.].S.AA.B(AD.3).B(
AD.4).256:.AA.X.C.0:....T..AA..X.AD.B(AD
.1).B(AD.2).256.1:.851...U.C.AD.1:..Y.\.
X.X.T:Y..((X.1000).T):M..((X.Y.T).1000):
DD..(((X.Y.T).M.1000).10)...]..Y..1.DD.D
D.(M.1).HU...^.....F..1,8,15:.1,EN,EN$,E
T,ES: 1:..B...X.0:HU.100:T.12000::F1..4:
F2.2.3:F.4.P...Y0.1983:.M$(12),S$(12):.5
3280,2:.53272,23.....W$(0)."TUESDAY":W$(
1)."WEDNESDAY":W$(2)."THURSDAY":W$(3)."F
RIDAY".....W$(4)."SATURDAY":W$(5)."SUNDA
Y":W$(6)."MONDAY".6...M$(1)."JANUARY":M$
(2)."FEBRUARY":M$(3)."MARCH":M$(4)."APRI
L":M$(5)."MAY".....M$(6)."JUNE":M$(7)."J
ULY":M$(8)."AUGUST":M$(9)."SEPTEMBER":M$
(10)."OCTOBER".....M$(11)."NOVEMBER":M$(
12)."DECEMBER"...J.S$(1)."JAN":S$(2)."FE
B":S$(3)."MAR":S$(4)."APR":S$(5)."MAY":S
$(6)."JUN".I.T.S$(7)."JUL":S$(8)."AUG":S
$(9)."SEP":S$(10)."OCT":S$(11)."NOV":S$(
12)."DEC".Q....10.X....*.J...."ALBREKTSS
ON.Y...."KAROLINA......"A.DOMARRINGSV. 1
19......"436 00 ASKIM......"PHO. 031.280
322.K...."KLASS S1C.U...."ARO......"ISAB
ELLA......"FASTLAGSGATAN 49......"415 12
GBG."...."PHO. 031.464101.2...."KLASS S
1C.A...."BACKLUND.Q...."ELISABETH.K...."
BRANDDAMMSBACKEN 32......"424 XX ANGERED
......"PHO. 031.303759......"KLASS S1C..
...."BECAREVIC.G...."ALEKSANDER......"L[
NKHARVSGATAN 25......"424 66 ANGERED....
.."PHO. 031.303507......"KLASS S1C.'....
"BULLER.2...."ANNA.E...."SANDSP[RET 9.Z.
..."424 31 ANGERED.P...."PHO. 031.487603
......"KLASS S1C...$.."CHRISTIANSEN...%.
."THERESE...&.."KL[VAV]GEN PL 287.L.'.."
430 80 HOV[S...(.."PHO. 031.284054...)..
"KLASS S1C......"CHRISTOFORIDIS.../.."KI
CKI.).0.."MAL\RTSGATAN 42.>.1.."424 61 A
NGERED.T.2.."PHO. 031.315969.D.3.."KLASS
S1C.S.8.."DELLBORG...9.."PATRIK...:.."H
\JDV[GEN 12...;.."430 80 HOV]S...<.."PHO
. 031.282497.L.=.."KLASS S1C...B.."ERICS
SON...C.."MARIE-LOUISE...D.."L[NKHARVSGA
TAN 134...E.."424 66 ANGERED.2.F.."PHO.
031.308503.B.G.."KLASS S1C.T.L.."FREDRIK
SSON.B.M.."NICKLAS.U.N.."G]SMOSSEN 85...
O.."436 00 ASKIM...P.."PHO. 031.280840..
.Q.."KLASS S1C...V.."GAMFELT.H.W.."JOHAN
...X.."FYRADALERSGATAN 16...Y.."413 19 G
BG...Z.."PHO. 031.823963...[.."KLASS S1C
.%.`.."HAGMAR.1.A.."SOFIA.N.B.."HOV]S BR
ONS]LDERSV[G 9.A.C.."430 80 HOV]S.W.D.."
PHO. 031.285264...E.."KLASS S1C......*..
..".
> CLICK IMAGE PREVIEW FOR FULL MODAL