MEMO FILE -40/80
FILE INFORMATION
FILENAME(S): MEMO FILE -40/80
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-10-20 14:32:05
APPEARS ON: 1 disk(s)
FILE HASH
627d0b16335818434c9128cfe39c35f7b0d06c2be1f73d4530a9b9b893aba489
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C019 | MEMO FILE -40/80 | PRG | Treasure Chest - Klaus Der Suhler | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 59 1C 01 00 99 22 93 22 3A 99 22 11 11 11 |..Y....".":."...|
00000010: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4B |...............K|
00000020: 45 59 57 4F 52 44 20 46 49 4C 45 20 20 20 20 20 |EYWORD FILE |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 | WRI|
00000040: 54 54 45 4E 20 42 59 20 43 4C 49 4E 54 20 57 41 |TTEN BY CLINT WA|
00000050: 58 22 3A 8D 31 35 30 30 30 00 64 1C 02 00 F9 31 |X":.15000.d....1|
00000060: 2C 22 5C 22 00 83 1C 03 00 86 44 24 28 35 30 30 |,"\"......D$(500|
00000070: 29 3A 86 5A 24 28 35 30 30 29 3A 86 42 24 28 35 |):.Z$(500):.B$(5|
00000080: 30 30 29 00 89 1C 05 00 8F 00 B3 1C 0A 00 58 B2 |00)...........X.|
00000090: 30 3A 59 B2 30 3A 41 24 B2 22 22 3A 42 24 B2 22 |0:Y.0:A$."":B$."|
000000A0: 22 3A 4D B2 30 3A 44 43 B2 31 3A 46 43 B2 30 3A |":M.0:DC.1:FC.0:|
000000B0: 50 B2 30 00 C1 1C 14 00 43 52 24 B2 C7 28 31 33 |P.0.....CR$..(13|
000000C0: 29 00 D6 1C 1E 00 8F 2E 2E 2E 4B 45 59 57 4F 52 |).........KEYWOR|
000000D0: 44 20 46 49 4C 45 00 E5 1C 28 00 99 22 93 22 3A |D FILE...(..".":|
000000E0: 8D 34 30 30 30 00 FD 1C 2D 00 99 22 93 22 3A 8B |.4000...-..".":.|
000000F0: 20 50 52 B2 31 A7 98 33 3A A0 33 2C 34 00 1A 1D | PR.1..3:.3,4...|
00000100: 32 00 99 22 93 11 11 11 11 11 11 4D 41 49 4E 20 |2..".......MAIN |
00000110: 4D 45 4E 55 22 3A 44 43 B2 31 00 3C 1D 37 00 99 |MENU":DC.1.<.7..|
00000120: 22 28 31 2E 29 20 54 59 50 45 20 49 4E 20 46 49 |"(1.) TYPE IN FI|
00000130: 4C 45 20 54 4F 20 53 54 4F 52 45 22 00 5A 1D 3C |LE TO STORE".Z.<|
00000140: 00 99 22 28 32 29 20 53 45 41 52 43 48 20 46 4F |.."(2) SEARCH FO|
00000150: 52 20 4B 45 59 57 4F 52 44 22 00 62 1D 41 00 A1 |R KEYWORD".b.A..|
00000160: F9 4D 00 72 1D 46 00 91 4D 89 32 30 30 2C 32 30 |.M.r.F..M.200,20|
00000170: 30 30 00 7A 1D 50 00 89 35 30 00 BD 1D C8 00 99 |00.z.P..50......|
00000180: 22 93 22 3A 99 22 54 59 50 45 27 46 31 27 4B 45 |".":."TYPE'F1'KE|
00000190: 59 20 57 48 45 4E 20 46 49 4E 49 53 48 45 44 22 |Y WHEN FINISHED"|
000001A0: 3A 99 22 54 59 50 49 4E 47 20 59 4F 55 52 20 46 |:."TYPING YOUR F|
000001B0: 49 4C 45 22 3A FE 0B 33 3A 99 22 93 22 00 C3 1D |ILE":..3:."."...|
000001C0: CD 00 EB 00 CC 1D D2 00 A1 F9 41 24 00 E0 1D D7 |..........A$....|
000001D0: 00 8B 20 41 24 B2 C7 28 39 32 29 A7 39 30 30 30 |.. A$..(92).9000|
000001E0: 00 ED 1D DC 00 42 24 B2 42 24 AA 41 24 00 F6 1D |.....B$.B$.A$...|
000001F0: E6 00 99 41 24 3B 00 00 1E F0 00 8D 31 30 30 30 |...A$;......1000|
00000200: 00 24 1E FA 00 8B 20 C3 28 42 24 29 B2 34 30 A7 |.$.... .(B$).40.|
00000210: 42 24 28 58 29 B2 42 24 3A 42 24 B2 22 22 3A 58 |B$(X).B$:B$."":X|
00000220: B2 58 AA 31 00 31 1E 04 01 EC 20 FC 20 58 B2 32 |.X.1.1.... . X.2|
00000230: 36 00 3A 1E 0E 01 89 35 30 30 00 51 1E F4 01 8F |6.:....500.Q....|
00000240: 2E 2E 2E 4F 55 54 50 55 54 20 54 4F 20 44 49 53 |...OUTPUT TO DIS|
00000250: 43 00 78 1E FE 01 9F 31 35 2C 38 2C 32 2C 22 40 |C.x....15,8,2,"@|
00000260: 30 3A 44 41 54 41 46 49 4C 45 22 AA C4 28 46 43 |0:DATAFILE"..(FC|
00000270: 29 AA 22 2C 53 2C 57 22 00 82 1E 03 02 98 31 35 |).",S,W"......15|
00000280: 2C 5A 00 88 1E 08 02 EB 00 92 1E 12 02 59 B2 59 |,Z...........Y.Y|
00000290: AA 31 00 A4 1E 1C 02 98 31 35 2C 44 24 28 59 29 |.1......15,D$(Y)|
000002A0: AA 43 52 24 00 B0 1E 26 02 EC 20 FC 20 59 B2 5A |.CR$...&.. . Y.Z|
000002B0: 00 BA 1E 30 02 A0 31 35 2C 38 00 C4 1E 3A 02 8D |...0..15,8...:..|
000002C0: 35 30 30 30 00 CA 1E 44 02 8A 00 3F 1F E8 03 8F |5000...D...?....|
000002D0: 20 53 55 42 52 4F 55 54 49 4E 45 20 43 4F 4E 54 | SUBROUTINE CONT|
000002E0: 52 4F 4C 53 20 4F 55 54 50 55 54 20 54 4F 20 44 |ROLS OUTPUT TO D|
000002F0: 49 53 43 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ISC.............|
00000300: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000310: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000320: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000330: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
00000340: 4C 1F F2 03 43 24 B2 43 24 AA 41 24 00 6F 1F FC |L...C$.C$.A$.o..|
00000350: 03 8B 41 24 B2 C7 28 33 32 29 A7 5A B2 5A AA 31 |..A$..(32).Z.Z.1|
00000360: 3A 44 24 28 5A 29 B2 43 24 3A 43 24 B2 22 22 00 |:D$(Z).C$:C$."".|
00000370: 75 1F 06 04 8E 00 9A 1F D0 07 8F 2E 2E 2E 2E 2E |u...............|
00000380: 2E 2E 53 45 41 52 43 48 20 4D 4F 44 45 20 49 4E |..SEARCH MODE IN|
00000390: 20 46 52 4F 4D 20 44 49 53 43 00 09 20 D2 07 99 | FROM DISC.. ...|
000003A0: 22 93 22 3A 99 22 22 3A 99 22 22 3A 99 22 22 3A |".":."":."":."":|
000003B0: 99 22 22 3A 99 22 22 3A 99 22 1D 1D 1D 1D 1D 1D |."":."":."......|
000003C0: 1D 1D 1D 50 4C 45 41 53 45 20 54 59 50 45 20 4B |...PLEASE TYPE K|
000003D0: 45 59 57 4F 52 44 22 3A 99 22 1D 1D 1D 1D 1D 1D |EYWORD":."......|
000003E0: 1D 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 41 |.YOU WISH TO SEA|
000003F0: 52 43 48 20 46 4F 52 22 3A 99 22 22 3A 99 22 22 |RCH FOR":."":.""|
00000400: 3A 99 22 22 3A 85 4B 45 24 00 16 20 D5 07 4C B2 |:."":.KE$.. ..L.|
00000410: C3 28 4B 45 24 29 00 21 20 D7 07 8D 31 32 30 30 |.(KE$).! ...1200|
00000420: 30 00 31 20 DA 07 81 44 43 B2 44 43 A4 46 43 AB |0.1 ...DC.DC.FC.|
00000430: 31 00 57 20 E4 07 9F 31 35 2C 38 2C 32 2C 22 30 |1.W ...15,8,2,"0|
00000440: 3A 44 41 54 41 46 49 4C 45 22 AA C4 28 44 43 29 |:DATAFILE"..(DC)|
00000450: AA 22 2C 53 2C 52 22 00 61 20 E9 07 84 31 35 2C |.",S,R".a ...15,|
00000460: 5A 00 69 20 EB 07 52 B2 30 00 6F 20 EE 07 EB 00 |Z.i ..R.0.o ....|
00000470: 79 20 F8 07 52 B2 52 AA 31 00 A7 20 FD 07 8B 46 |y ..R.R.1.. ...F|
00000480: 43 B2 31 A7 99 22 93 22 3A 99 22 4E 4F 20 44 41 |C.1..".":."NO DA|
00000490: 54 41 20 46 49 4C 45 53 20 4F 4E 20 44 49 53 43 |TA FILES ON DISC|
000004A0: 22 3A FE 0B 33 3A 8A 00 B5 20 02 08 84 31 35 2C |":..3:... ...15,|
000004B0: 44 24 28 52 29 00 C0 20 0C 08 EC 20 FC 52 B2 5A |D$(R).. ... .R.Z|
000004C0: 00 CA 20 0F 08 A0 31 35 2C 38 00 D5 20 11 08 81 |.. ...15,8.. ...|
000004D0: 58 B2 31 A4 5A 00 E0 20 12 08 8D 31 30 30 30 30 |X.1.Z.. ...10000|
000004E0: 00 E7 20 13 08 82 58 00 EF 20 16 08 82 44 43 00 |.. ...X.. ...DC.|
000004F0: 21 21 20 08 99 22 93 22 3A 99 22 4E 4F 54 20 49 |!! ..".":."NOT I|
00000500: 4E 20 46 49 4C 45 20 54 52 59 20 41 4E 4F 54 48 |N FILE TRY ANOTH|
00000510: 45 52 20 4B 45 59 57 4F 52 44 22 3A FE 0B 35 3A |ER KEYWORD":..5:|
00000520: 8A 00 2E 21 B8 0B 99 22 93 22 3A 4D B2 4F 00 53 |...!...".":M.O.S|
00000530: 21 C2 0B 9F 31 35 2C 38 2C 32 2C 22 30 3A 44 41 |!...15,8,2,"0:DA|
00000540: 54 41 46 49 4C 45 22 AA C4 28 44 43 29 AA 22 53 |TAFILE"..(DC)."S|
00000550: 2C 52 22 00 65 21 C7 0B 8B 50 52 B2 31 A7 9F 33 |,R".e!...PR.1..3|
00000560: 2C 34 3A 9D 33 00 6B 21 CC 0B EB 00 75 21 D6 0B |,4:.3.k!....u!..|
00000570: 4D B2 4D AA 31 00 81 21 E0 0B 99 44 24 28 4D 29 |M.M.1..!...D$(M)|
00000580: 3B 00 8D 21 EA 0B EC 20 FC 20 4D B2 5A 00 9F 21 |;..!... . M.Z..!|
00000590: EB 0B 8B 50 52 B2 31 A7 98 33 3A A0 33 2C 34 00 |...PR.1..3:.3,4.|
000005A0: A9 21 ED 0B 89 37 30 30 30 00 B9 21 EF 0B 99 22 |.!...7000..!..."|
000005B0: 22 3A 99 22 22 3A 99 22 22 00 F0 21 F4 0B 99 22 |":."":.""..!..."|
000005C0: 22 3A 99 22 22 3A 99 22 54 59 50 45 20 41 4E 59 |":."":."TYPE ANY|
000005D0: 20 4B 45 59 20 54 4F 20 47 4F 20 42 41 43 4B 22 | KEY TO GO BACK"|
000005E0: 3A 99 22 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 |:."TO MAIN MENU"|
000005F0: 00 FA 21 F9 0B A1 F9 43 48 24 00 04 22 FE 0B CB |..!....CH$.."...|
00000600: 20 A4 35 30 00 3A 22 A0 0F 8F 2E 2E 2E 2E 2E 2E | .50.:".........|
00000610: 2E 49 4E 50 55 54 20 46 52 4F 4D 20 44 49 53 43 |.INPUT FROM DISC|
00000620: 20 54 4F 20 53 45 54 20 46 49 4C 45 20 4E 4F 20 | TO SET FILE NO |
00000630: 50 4F 49 4E 54 45 52 20 46 43 00 49 22 AA 0F FE |POINTER FC.I"...|
00000640: 0D 23 31 35 2C 22 46 43 22 00 54 22 B4 0F 84 31 |.#15,"FC".T"...1|
00000650: 35 2C 46 43 00 5E 22 C8 0F FE 0F 23 31 35 00 6A |5,FC.^"....#15.j|
00000660: 22 CD 0F 46 43 B2 46 43 AA 31 00 70 22 D2 0F 8E |"..FC.FC.1.p"...|
00000670: 00 D2 22 88 13 8F 2E 2E 2E 2E 2E 2E 4F 55 54 20 |..".........OUT |
00000680: 2D 44 49 53 43 20 57 49 54 48 20 54 48 49 53 20 |-DISC WITH THIS |
00000690: 46 49 4C 45 20 4E 4F 2E 20 46 43 2E 2E 2E 2E 2E |FILE NO. FC.....|
000006A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000006B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000006C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000006D0: 2E 2E 00 DC 22 8D 13 F2 22 46 43 22 00 ED 22 92 |...."..."FC"..".|
000006E0: 13 FE 0D 23 31 35 2C 22 46 43 22 2C 57 00 F8 22 |...#15,"FC",W.."|
000006F0: 9C 13 98 31 35 2C 46 43 00 02 23 A6 13 FE 0F 23 |...15,FC..#....#|
00000700: 31 35 00 08 23 B0 13 8E 00 2E 23 70 17 F2 22 46 |15..#.....#p.."F|
00000710: 43 22 3A 99 22 4F 4C 44 20 46 43 20 46 49 4C 45 |C":."OLD FC FILE|
00000720: 20 4E 4F 57 20 44 45 4C 45 54 49 4E 47 22 00 3F | NOW DELETING".?|
00000730: 23 7A 17 FE 0D 23 31 35 2C 22 46 43 22 2C 57 00 |#z...#15,"FC",W.|
00000740: 4B 23 7B 17 46 43 B2 46 43 AB 32 00 56 23 7C 17 |K#{.FC.FC.2.V#|.|
00000750: 98 31 35 2C 46 43 00 60 23 7D 17 FE 0F 23 31 35 |.15,FC.`#}...#15|
00000760: 00 7B 23 7F 17 99 22 4E 45 57 20 46 43 20 46 49 |.{#..."NEW FC FI|
00000770: 4C 45 20 50 52 49 4E 54 45 44 22 00 A2 23 81 17 |LE PRINTED"..#..|
00000780: 99 22 44 41 54 41 20 46 49 4C 45 20 23 20 22 3B |."DATA FILE # ";|
00000790: 44 43 3B 22 20 4E 4F 57 20 44 45 4C 45 54 49 4E |DC;" NOW DELETIN|
000007A0: 47 22 00 C1 23 84 17 F2 22 44 41 54 41 46 49 4C |G"..#..."DATAFIL|
000007B0: 45 22 AA C4 28 44 43 29 AA 22 22 3A FE 0F 23 31 |E"..(DC)."":..#1|
000007C0: 35 00 E8 23 89 17 8B 44 43 B2 46 43 AA 31 A7 99 |5..#...DC.FC.1..|
000007D0: 22 46 49 4C 45 20 23 22 3B 44 43 3B 22 20 44 45 |"FILE #";DC;" DE|
000007E0: 4C 45 54 45 44 22 3A 8A 00 F4 23 8E 17 46 43 B2 |LETED":...#..FC.|
000007F0: 46 43 AA 31 00 1A 24 98 17 9F 31 35 2C 38 2C 32 |FC.1..$...15,8,2|
00000800: 2C 22 30 3A 44 41 54 41 46 49 4C 45 22 AA C4 28 |,"0:DATAFILE"..(|
00000810: 46 43 29 AA 22 2C 53 2C 52 22 00 24 24 9D 17 84 |FC).",S,R".$$...|
00000820: 31 35 2C 5A 00 2C 24 9F 17 50 B2 30 00 32 24 A2 |15,Z.,$..P.0.2$.|
00000830: 17 EB 00 3C 24 AC 17 50 B2 50 AA 31 00 4A 24 B6 |...<$..P.P.1.J$.|
00000840: 17 84 31 35 2C 44 24 28 50 29 00 54 24 C0 17 EC |..15,D$(P).T$...|
00000850: FC 50 B2 5A 00 5E 24 D4 17 FE 0F 23 31 35 00 85 |.P.Z.^$....#15..|
00000860: 24 DE 17 9F 31 35 2C 38 2C 32 2C 22 40 30 3A 44 |$...15,8,2,"@0:D|
00000870: 41 54 41 46 49 4C 45 22 AA C4 28 44 43 29 AA 22 |ATAFILE"..(DC)."|
00000880: 2C 53 2C 57 22 00 8F 24 E8 17 98 31 35 2C 5A 00 |,S,W"..$...15,Z.|
00000890: 97 24 ED 17 50 B2 30 00 9D 24 F2 17 EB 00 A7 24 |.$..P.0..$.....$|
000008A0: F4 17 50 B2 50 AA 31 00 BD 24 F7 17 98 31 35 2C |..P.P.1..$...15,|
000008B0: 44 24 28 50 29 AA 43 52 24 3B 43 52 24 00 CD 24 |D$(P).CR$;CR$..$|
000008C0: FC 17 EC FC 50 B2 5A 3A FE 0F 23 31 35 00 EA 24 |....P.Z:..#15..$|
000008D0: FE 17 F2 22 44 41 54 41 46 49 4C 45 22 AA C4 28 |..."DATAFILE"..(|
000008E0: 46 43 29 AA 22 2C 53 2C 57 22 00 F4 24 FF 17 FE |FC).",S,W"..$...|
000008F0: 0F 23 31 35 00 24 25 06 18 50 B2 30 3A 4D B2 30 |.#15.$%..P.0:M.0|
00000900: 3A 99 22 93 22 3A 99 22 46 49 4C 45 20 23 20 22 |:.".":."FILE # "|
00000910: 3B 44 43 3B 22 20 44 45 4C 45 54 45 44 22 3A FE |;DC;" DELETED":.|
00000920: 0B 33 3A 8A 00 60 25 58 1B 99 22 22 3A 99 22 22 |.3:..`%X.."":.""|
00000930: 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |:."DO YOU WISH T|
00000940: 4F 20 43 4F 4E 54 49 4E 55 45 20 53 45 41 52 43 |O CONTINUE SEARC|
00000950: 48 22 3A 99 22 27 59 27 20 4F 52 20 27 4E 27 22 |H":."'Y' OR 'N'"|
00000960: 00 86 25 5D 1B 99 22 45 4E 54 45 52 20 27 44 27 |..%].."ENTER 'D'|
00000970: 20 54 4F 20 44 45 4C 45 54 45 20 46 49 4C 45 20 | TO DELETE FILE |
00000980: 53 48 4F 57 4E 22 00 90 25 62 1B A1 F9 47 47 24 |SHOWN"..%b...GG$|
00000990: 00 B3 25 8A 1B 8B 47 47 24 B2 22 59 22 A7 FE 0F |..%...GG$."Y"...|
000009A0: 23 31 35 3A 8B 44 43 B2 46 43 AB 31 20 A7 89 32 |#15:.DC.FC.1 ..2|
000009B0: 30 38 30 00 CE 25 8B 1B 8B 47 47 24 B2 22 59 22 |080..%...GG$."Y"|
000009C0: A7 44 43 B2 44 43 AA 31 3A 89 32 30 31 30 00 E7 |.DC.DC.1:.2010..|
000009D0: 25 94 1B 8B 47 47 24 B2 22 44 22 A7 FE 0F 23 31 |%...GG$."D"...#1|
000009E0: 35 3A 8D 36 30 30 30 00 ED 25 9E 1B 8A 00 2A 26 |5:.6000..%....*&|
000009F0: 28 23 99 22 4F 4B 22 3A 99 22 46 49 4C 45 20 46 |(#."OK":."FILE F|
00000A00: 49 4E 49 53 48 45 44 22 3A 99 22 46 49 4C 45 20 |INISHED":."FILE |
00000A10: 4E 4F 57 20 47 4F 49 4E 47 20 54 4F 20 44 49 53 |NOW GOING TO DIS|
00000A20: 43 20 53 54 4F 52 41 47 45 22 00 3B 26 32 23 EC |C STORAGE".;&2#.|
00000A30: 20 FC 20 58 B2 58 3A 89 35 30 30 00 56 26 10 27 | . X.X:.500.V&.'|
00000A40: 8B 20 C8 28 44 24 28 58 29 2C 4C 29 B2 4B 45 24 |. .(D$(X),L).KE$|
00000A50: A7 89 33 30 30 30 00 68 26 74 27 8B 44 24 28 58 |..3000.h&t'.D$(X|
00000A60: 29 B3 B1 4B 45 24 A7 8E 00 8F 26 E0 2E 99 22 20 |)..KE$....&..." |
00000A70: 20 20 20 20 20 20 50 52 49 4E 54 45 52 20 4F 4E | PRINTER ON|
00000A80: 20 28 31 29 20 4F 52 20 4F 46 46 28 32 29 22 00 | (1) OR OFF(2)".|
00000A90: 98 26 44 2F A1 F9 50 52 00 9E 26 0C 30 8E 00 12 |.&D/..PR..&.0...|
00000AA0: 27 98 3A 99 22 22 3A 99 22 22 3A 99 22 54 48 49 |'.:."":."":."THI|
00000AB0: 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 4C |S PROGRAM WILL L|
00000AC0: 45 54 20 59 4F 55 20 54 59 50 45 20 49 4E 20 41 |ET YOU TYPE IN A|
00000AD0: 20 46 49 4C 45 22 3A 99 22 41 4E 44 20 57 49 4C | FILE":."AND WIL|
00000AE0: 4C 20 4C 45 54 20 59 4F 55 20 53 54 4F 52 45 20 |L LET YOU STORE |
00000AF0: 49 54 20 4F 4E 20 44 49 53 4B 20 42 59 22 3A 99 |IT ON DISK BY":.|
00000B00: 22 54 59 50 49 4E 47 20 27 46 31 27 20 4B 45 59 |"TYPING 'F1' KEY|
00000B10: 2E 22 00 6B 27 A2 3A 99 22 22 3A 99 22 54 48 45 |.".k'.:."":."THE|
00000B20: 4E 20 59 4F 55 20 43 41 4E 20 52 45 54 52 45 49 |N YOU CAN RETREI|
00000B30: 56 45 20 59 4F 55 52 20 46 49 4C 45 20 42 59 22 |VE YOUR FILE BY"|
00000B40: 3A 99 22 53 45 41 52 43 48 49 4E 47 20 46 4F 52 |:."SEARCHING FOR|
00000B50: 20 41 4E 59 20 4B 45 59 57 4F 52 44 20 49 4E 20 | ANY KEYWORD IN |
00000B60: 54 48 41 54 20 46 49 4C 45 2E 22 00 FB 27 A5 3A |THAT FILE."..'.:|
00000B70: 99 22 57 48 45 4E 20 53 45 41 52 43 48 49 4E 47 |."WHEN SEARCHING|
00000B80: 20 46 4F 52 20 54 48 45 20 4B 45 59 57 4F 52 44 | FOR THE KEYWORD|
00000B90: 20 59 4F 55 20 4D 41 59 22 3A 99 22 54 59 50 45 | YOU MAY":."TYPE|
00000BA0: 20 49 4E 20 41 4E 59 20 50 41 52 54 20 4F 46 20 | IN ANY PART OF |
00000BB0: 54 48 45 20 42 45 47 49 4E 4E 49 4E 47 20 4F 46 |THE BEGINNING OF|
00000BC0: 20 22 3A 99 22 54 48 41 54 20 57 4F 52 44 2E 2E | ":."THAT WORD..|
00000BD0: 2E 45 47 2E 20 48 45 4C 4C 4F 2E 2E 2E 55 53 45 |.EG. HELLO...USE|
00000BE0: 20 48 20 4F 52 20 48 45 20 4F 52 22 3A 99 22 48 | H OR HE OR":."H|
00000BF0: 45 4C 20 4F 52 20 45 54 43 2E 22 00 23 28 A7 3A |EL OR ETC.".#(.:|
00000C00: 99 22 22 3A 99 22 50 52 45 53 53 20 41 4E 59 20 |."":."PRESS ANY |
00000C10: 4B 45 59 20 54 4F 20 42 45 47 49 4E 22 3A A1 F9 |KEY TO BEGIN":..|
00000C20: 43 4F 24 00 29 28 AC 3A 8E 00 00 00 |CO$.)(.:.... |
..Y....".":."..................KEYWORD F
ILE WRITTEN BY CLINT WA
X":.15000.D....1,"\"......D$(500):.Z$(50
0):.B$(500)...........X.0:Y.0:A$."":B$."
":M.0:DC.1:FC.0:P.0.A...CR$.G(13).V.....
..KEYWORD FILE...(..".":.4000...-..".":.
PR.1..3: 3,4...2..".......MAIN MENU":DC
.1.<.7.."(1.) TYPE IN FILE TO STORE".Z.<
.."(2) SEARCH FOR KEYWORD".B.A...M.R.F..
M.200,2000.Z.P..50...H..".":."TYPE'F1'KE
Y WHEN FINISHED":."TYPING YOUR FILE":..3
:.".".C.M...L.R...A$...W.. A$.G(92).9000
.....B$.B$.A$......A$;......1000.$.... C
(B$).40.B$(X).B$:B$."":X.X.1.1.... . X.2
6.:....500.Q.......OUTPUT TO DISC.X....1
5,8,2,"@0:DATAFILE".D(FC).",S,W"......15
,Z...........Y.Y.1......15,D$(Y).CR$...&
.. . Y.Z...0. 15,8.D.:..5000.J.D...?....
SUBROUTINE CONTROLS OUTPUT TO DISC.....
........................................
................................L...C$.C
$.A$.O....A$.G(32).Z.Z.1:D$(Z).C$:C$."".
U.......P.........SEARCH MODE IN FROM DI
SC.. R..".":."":."":."":."":."":."......
...PLEASE TYPE KEYWORD":.".......YOU WIS
H TO SEARCH FOR":."":."":."":.KE$.. U.L.
C(KE$).! W..12000.1 Z..DC.DC.FC.1.W ...1
5,8,2,"0:DATAFILE".D(DC).",S,R".A ...15,
Z.I ..R.0.O ....Y ..R.R.1.. ...FC.1.."."
:."NO DATA FILES ON DISC":..3:... ...15,
D$(R).. ... .R.Z.J .. 15,8.U ...X.1.Z..
...10000.. ...X.. ...DC.!! ..".":."NOT I
N FILE TRY ANOTHER KEYWORD":..5:...!..."
.":M.O.S!B..15,8,2,"0:DATAFILE".D(DC)."S
,R".E!G..PR.1..3,4:.3.K!L...U!V.M.M.1..!
...D$(M);..!... . M.Z..!...PR.1..3: 3,4.
.!...7000..!..."":."":.""..!..."":."":."
TYPE ANY KEY TO GO BACK":."TO MAIN MENU"
..!....CH$.."..K .50.:" .........INPUT F
ROM DISC TO SET FILE NO POINTER FC.I"...
.#15,"FC".T"...15,FC.^"H...#15.J"M.FC.FC
.1.P"R...R".........OUT -DISC WITH THIS
FILE NO. FC.............................
............................"..."FC"..".
...#15,"FC",W.."...15,FC..#....#15..#...
..#P.."FC":."OLD FC FILE NOW DELETING".?
#Z...#15,"FC",W.K#{.FC.FC.2.V#|..15,FC.`
#}...#15.{#.."NEW FC FILE PRINTED"..#..
."DATA FILE # ";DC;" NOW DELETING".A#...
"DATAFILE".D(DC)."":..#15..#...DC.FC.1..
"FILE #";DC;" DELETED":...#..FC.FC.1..$.
..15,8,2,"0:DATAFILE".D(FC).",S,R".$$...
15,Z.,$..P.0.2$....<$..P.P.1.J$...15,D$(
P).T$....P.Z.^$T...#15..$...15,8,2,"@0:D
ATAFILE".D(DC).",S,W"..$...15,Z..$..P.0.
.$.....$..P.P.1..$...15,D$(P).CR$;CR$.M$
....P.Z:..#15..$..."DATAFILE".D(FC).",S,
W"..$....#15.$%..P.0:M.0:.".":."FILE # "
;DC;" DELETED":..3:..`%X.."":."":."DO YO
U WISH TO CONTINUE SEARCH":."'Y' OR 'N'"
..%].."ENTER 'D' TO DELETE FILE SHOWN"..
%B...GG$..%...GG$."Y"...#15:.DC.FC.1 ..2
080.N%...GG$."Y".DC.DC.1:.2010..%...GG$.
"D"...#15:.6000..%....*&(#."OK":."FILE F
INISHED":."FILE NOW GOING TO DISC STORAG
E".;&2#. . X.X:.500.V&.'. H(D$(X),L).KE$
..3000.H&T'.D$(X)..KE$....&..." PR
INTER ON (1) OR OFF(2)"..&D/..PR..&.0...
'.:."":."":."THIS PROGRAM WILL LET YOU T
YPE IN A FILE":."AND WILL LET YOU STORE
IT ON DISK BY":."TYPING 'F1' KEY.".K'.:.
"":."THEN YOU CAN RETREIVE YOUR FILE BY"
:."SEARCHING FOR ANY KEYWORD IN THAT FIL
E."..'.:."WHEN SEARCHING FOR THE KEYWORD
YOU MAY":."TYPE IN ANY PART OF THE BEGI
NNING OF ":."THAT WORD...EG. HELLO...USE
H OR HE OR":."HEL OR ETC.".#(.:."":."PR
ESS ANY KEY TO BEGIN":..CO$.)(.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL