LIST CREATOR
FILE INFORMATION
FILENAME(S): LIST CREATOR
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-11-30 18:12:47
APPEARS ON: 1 disk(s)
FILE HASH
3b45e22df3fb51c765c07bc2e391c3a55381211e6b938b81e9e3c60eacf84fe8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 GAMES 316 | LIST CREATOR | PRG | Sailor, Ganheden | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 01 00 86 20 57 4F 24 28 35 30 2C 35 |..".... WO$(50,5|
00000010: 30 29 2C 43 41 24 28 31 30 30 29 2C 59 28 31 30 |0),CA$(100),Y(10|
00000020: 30 29 00 3D 08 03 00 99 22 93 22 3A 97 35 33 32 |0).=....".":.532|
00000030: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 4A 08 |80,0:.53281,0.J.|
00000040: 05 00 9F 31 35 2C 38 2C 31 35 00 55 08 0A 00 8D |...15,8,15.U....|
00000050: 32 30 30 30 30 00 5F 08 0F 00 8D 32 31 30 30 00 |20000._....2100.|
00000060: 93 08 14 00 99 22 11 05 44 4F 20 59 4F 55 20 57 |....."..DO YOU W|
00000070: 41 4E 54 20 54 4F 20 12 41 92 44 44 20 4F 52 20 |ANT TO .A.DD OR |
00000080: 12 45 92 52 41 53 45 20 41 20 43 41 54 41 47 4F |.E.RASE A CATAGO|
00000090: 52 59 22 00 A7 08 19 00 A1 41 24 3A 8B 20 41 24 |RY"......A$:. A$|
000000A0: B2 22 22 A7 20 32 35 00 C3 08 1E 00 8B 20 41 24 |."". 25...... A$|
000000B0: B2 22 41 22 20 A7 20 4E 53 B2 4E 53 AA 31 3A 89 |."A" . NS.NS.1:.|
000000C0: 31 30 30 00 E1 08 23 00 8B 20 41 24 B2 22 45 22 |100...#.. A$."E"|
000000D0: 20 A7 20 8D 36 30 30 30 3A 99 22 93 22 3A 89 31 | . .6000:.".":.1|
000000E0: 30 00 E9 08 28 00 89 32 35 00 1C 09 64 00 99 22 |0...(..25...d.."|
000000F0: 93 13 11 20 20 20 20 20 20 20 2A 2A 2A 2A 41 44 |... ****AD|
00000100: 44 20 4E 45 57 20 57 4F 52 44 20 4C 49 53 54 53 |D NEW WORD LISTS|
00000110: 2A 2A 2A 2A 20 20 20 20 20 20 20 22 00 4D 09 78 |**** ".M.x|
00000120: 00 99 22 4E 41 4D 45 20 57 48 49 43 48 20 47 52 |.."NAME WHICH GR|
00000130: 4F 55 50 53 20 54 48 45 20 46 49 56 45 20 43 41 |OUPS THE FIVE CA|
00000140: 54 41 47 4F 52 49 45 53 20 20 20 22 3B 00 7E 09 |TAGORIES ";.~.|
00000150: 7D 00 99 22 45 58 41 4D 50 4C 45 53 3A 53 54 41 |}.."EXAMPLES:STA|
00000160: 4E 44 41 52 44 2C 20 53 54 41 4E 44 41 52 44 20 |NDARD, STANDARD |
00000170: 49 49 2C 53 50 4F 52 54 53 20 20 20 22 3B 00 AC |II,SPORTS ";..|
00000180: 09 87 00 99 22 52 4F 43 4B 20 4D 55 53 49 43 2E |...."ROCK MUSIC.|
00000190: 2E 2E 45 54 43 28 31 31 20 43 48 41 52 41 43 54 |..ETC(11 CHARACT|
000001A0: 45 52 20 4D 41 58 49 4D 55 4D 29 22 00 ED 09 96 |ER MAXIMUM)"....|
000001B0: 00 85 4E 46 24 28 4E 53 29 3A 4E 46 24 28 4E 53 |..NF$(NS):NF$(NS|
000001C0: 29 B2 4E 46 24 28 4E 53 29 AA 22 20 20 20 20 20 |).NF$(NS)." |
000001D0: 20 20 20 20 20 20 22 3A 4E 46 24 28 4E 53 29 B2 | ":NF$(NS).|
000001E0: C8 28 4E 46 24 28 4E 53 29 2C 31 31 29 00 28 0A |.(NF$(NS),11).(.|
000001F0: C8 00 59 24 B2 22 4E 22 3A 8B 20 4E 53 B1 31 20 |..Y$."N":. NS.1 |
00000200: A7 20 58 B2 58 3A 81 49 B2 31 A4 4E 53 AB 31 3A |. X.X:.I.1.NS.1:|
00000210: 8B 20 4E 46 24 28 4E 53 29 B2 4E 46 24 28 49 29 |. NF$(NS).NF$(I)|
00000220: A7 20 59 24 B2 22 59 22 00 37 0A D2 00 8B 20 4E |. Y$."Y".7.... N|
00000230: 53 B1 31 20 A7 20 82 00 7B 0A FA 00 8B 20 59 24 |S.1 . ..{.... Y$|
00000240: B2 22 59 22 A7 20 99 22 13 11 11 11 11 11 11 11 |."Y". ."........|
00000250: 11 11 2A 2A 2A 59 4F 55 20 41 4C 52 45 41 44 59 |..***YOU ALREADY|
00000260: 20 48 41 56 45 20 41 20 53 45 54 20 4E 41 4D 45 | HAVE A SET NAME|
00000270: 44 20 54 48 41 54 2E 2A 2A 2A 22 00 9D 0A 04 01 |D THAT.***".....|
00000280: 8B 20 59 24 B2 22 59 22 A7 58 B2 58 3A 81 49 B2 |. Y$."Y".X.X:.I.|
00000290: 31 A4 34 30 30 30 3A 82 3A 89 31 30 30 00 A6 0A |1.4000:.:.100...|
000002A0: 84 03 99 22 11 22 00 BB 0A E8 03 81 49 B2 35 AC |..."."......I.5.|
000002B0: 4E 53 AB 34 20 A4 20 35 AC 4E 53 00 EB 0A F2 03 |NS.4 . 5.NS.....|
000002C0: 99 22 11 4E 41 4D 45 20 4F 46 20 43 41 54 41 47 |.".NAME OF CATAG|
000002D0: 4F 52 59 20 23 22 3B 49 22 20 20 28 31 31 20 4C |ORY #";I" (11 L|
000002E0: 45 54 54 45 52 20 4D 41 58 29 22 00 2B 0B F4 03 |ETTER MAX)".+...|
000002F0: 85 43 41 24 28 49 29 3A 8B C3 28 43 41 24 28 49 |.CA$(I):..(CA$(I|
00000300: 29 29 B1 31 31 A7 99 22 53 4F 52 52 59 20 54 4F |)).11.."SORRY TO|
00000310: 4F 20 4D 41 4E 59 20 4C 45 54 54 45 52 53 20 54 |O MANY LETTERS T|
00000320: 52 59 20 41 47 41 49 4E 91 91 22 00 43 0B F7 03 |RY AGAIN..".C...|
00000330: 8B C3 28 43 41 24 28 49 29 29 B1 31 31 A7 20 31 |..(CA$(I)).11. 1|
00000340: 30 31 32 00 77 0B FC 03 43 41 24 28 49 29 B2 43 |012.w...CA$(I).C|
00000350: 41 24 28 49 29 AA 22 20 20 20 20 20 20 20 20 20 |A$(I)." |
00000360: 20 20 22 3A 43 41 24 28 49 29 B2 C8 28 43 41 24 | ":CA$(I)..(CA$|
00000370: 28 49 29 2C 31 31 29 00 7D 0B 06 04 82 00 85 0B |(I),11).}.......|
00000380: A6 04 49 B2 31 00 9A 0B B0 04 81 4A B2 4E 53 AC |..I.1......J.NS.|
00000390: 35 AB 34 20 A4 20 4E 53 AC 35 00 C7 0B 14 05 99 |5.4 . NS.5......|
000003A0: 22 93 13 45 4E 54 45 52 20 57 4F 52 44 20 23 22 |"..ENTER WORD #"|
000003B0: 3B 49 22 46 4F 52 20 43 41 54 45 47 4F 52 59 20 |;I"FOR CATEGORY |
000003C0: 22 43 41 24 28 4A 29 00 02 0C 1E 05 99 22 12 1D |"CA$(J)......"..|
000003D0: 1D 1D 9E 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 92 22 A6 35 29 3B 22 12 20 92 | .".5);". .|
00000400: 22 3B 00 2F 0C 20 05 99 22 20 20 20 20 20 20 20 |";./. .." |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 12 20 92 22 3B 00 | . .";.|
00000430: 70 0C 23 05 99 22 12 9E 1D 1D 1D 1D 1D 20 20 20 |p.#.."....... |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 92 91 91 22 A6 36 29 3B 22 05 12 20 92 9D 22 3B |...".6);".. ..";|
00000470: 00 84 0C 24 05 57 4F 24 28 4A 2C 49 29 B2 22 22 |...$.WO$(J,I).""|
00000480: 3A 4B B2 31 00 9A 0C 25 05 A1 41 24 3A 8B 20 41 |:K.1...%..A$:. A|
00000490: 24 B2 22 22 A7 20 31 33 31 37 00 BE 0C 26 05 8B |$."". 1317...&..|
000004A0: 20 C6 28 41 24 29 B2 39 35 20 AF 20 49 B1 31 20 | .(A$).95 . I.1 |
000004B0: A7 20 49 B2 49 AB 31 3A 89 20 31 33 30 30 00 DF |. I.I.1:. 1300..|
000004C0: 0C 28 05 8B 20 C6 28 41 24 29 B1 36 34 20 AF 20 |.(.. .(A$).64 . |
000004D0: C6 28 41 24 29 B3 39 31 20 A7 20 31 33 32 37 00 |.(A$).91 . 1327.|
000004E0: 0C 0D 29 05 8B 20 41 24 B2 22 2E 22 B0 20 41 24 |..).. A$.".". A$|
000004F0: B2 22 2D 22 20 B0 20 41 24 B2 22 27 22 20 B0 20 |."-" . A$."'" . |
00000500: 41 24 B2 22 20 22 A7 20 31 33 32 37 00 22 0D 2A |A$." ". 1327.".*|
00000510: 05 8B 20 C6 28 41 24 29 B2 31 33 20 A7 20 31 33 |.. .(A$).13 . 13|
00000520: 33 30 00 45 0D 2B 05 8B 20 C6 28 41 24 29 B2 32 |30.E.+.. .(A$).2|
00000530: 30 AF 4B B1 31 A7 99 22 92 9D 20 20 9D 9D 12 05 |0.K.1..".. ....|
00000540: 20 92 9D 22 3B 00 7E 0D 2C 05 8B 20 C6 28 41 24 | ..";.~.,.. .(A$|
00000550: 29 B2 32 30 AF 4B B1 31 A7 20 57 4F 24 28 4A 2C |).20.K.1. WO$(J,|
00000560: 49 29 B2 C8 28 57 4F 24 28 4A 2C 49 29 2C 28 C3 |I)..(WO$(J,I),(.|
00000570: 28 57 4F 24 28 4A 2C 49 29 29 AB 31 29 29 00 A4 |(WO$(J,I)).1))..|
00000580: 0D 2D 05 8B 20 C6 28 41 24 29 B2 32 30 AF 4B B1 |.-.. .(A$).20.K.|
00000590: 31 A7 20 41 24 B2 22 22 3A 4B B2 4B AB 31 3A 89 |1. A$."":K.K.1:.|
000005A0: 31 33 31 37 00 AE 0D 2E 05 89 31 33 31 37 00 ED |1317......1317..|
000005B0: 0D 2F 05 99 41 24 22 12 05 20 92 9D 22 3B 3A 57 |./..A$".. ..";:W|
000005C0: 4F 24 28 4A 2C 49 29 B2 57 4F 24 28 4A 2C 49 29 |O$(J,I).WO$(J,I)|
000005D0: AA 41 24 3A 4B B2 4B AA 31 3A 8B 4B B2 33 34 A7 |.A$:K.K.1:.K.34.|
000005E0: 99 22 9E 12 20 92 22 3A 89 31 33 33 30 00 F7 0D |.".. .":.1330...|
000005F0: 30 05 89 31 33 31 37 00 3F 0E 32 05 4B B2 31 3A |0..1317.?.2.K.1:|
00000600: 8B 57 4F 24 28 4A 2C 49 29 B2 22 22 A7 99 22 13 |.WO$(J,I).""..".|
00000610: 11 11 11 11 49 53 20 54 48 41 54 20 41 4C 4C 20 |....IS THAT ALL |
00000620: 54 48 45 20 57 4F 52 44 53 20 59 4F 55 20 57 41 |THE WORDS YOU WA|
00000630: 4E 54 20 28 59 2F 4E 29 22 3A 89 31 33 33 32 00 |NT (Y/N)":.1332.|
00000640: 4B 0E 33 05 82 3A 89 31 34 30 30 00 55 0E 34 05 |K.3..:.1400.U.4.|
00000650: 41 24 B2 22 22 00 6B 0E 37 05 A1 41 24 3A 8B 20 |A$."".k.7..A$:. |
00000660: 41 24 B2 22 22 A7 20 31 33 33 35 00 85 0E 38 05 |A$."". 1335...8.|
00000670: 8B 20 41 24 B2 22 59 22 A7 20 49 B2 49 AB 31 3A |. A$."Y". I.I.1:|
00000680: 89 31 36 32 30 00 C9 0E 39 05 8B 41 24 B2 22 4E |.1620...9..A$."N|
00000690: 22 A7 99 22 54 48 45 4E 20 59 4F 55 20 4D 55 53 |".."THEN YOU MUS|
000006A0: 54 20 52 45 2D 45 4E 54 45 52 20 54 48 45 20 4C |T RE-ENTER THE L|
000006B0: 41 53 54 20 53 45 54 20 4F 46 20 20 57 4F 52 44 |AST SET OF WORD|
000006C0: 53 2E 22 3A 89 31 37 30 30 00 D3 0E 3A 05 89 31 |S.":.1700...:..1|
000006D0: 33 33 35 00 E5 0E 50 05 8B 20 41 24 B2 22 59 22 |335...P.. A$."Y"|
000006E0: A7 31 36 32 30 00 F5 0E 78 05 49 B2 49 AA 31 3A |.1620...x.I.I.1:|
000006F0: 89 31 32 30 30 00 0F 0F 54 06 4D 49 4E B2 49 3A |.1200...T.MIN.I:|
00000700: 8D 32 30 30 30 3A 8D 32 33 31 30 3A 89 31 30 00 |.2000:.2310:.10.|
00000710: 25 0F A4 06 81 58 B2 31 A4 33 30 30 30 3A 82 3A |%....X.1.3000:.:|
00000720: 89 31 32 30 30 00 73 0F D0 07 8F 2A 43 52 45 41 |.1200.s....*CREA|
00000730: 54 45 20 46 49 4C 45 53 20 54 4F 20 53 54 4F 52 |TE FILES TO STOR|
00000740: 45 20 46 49 4C 45 4E 41 4D 45 53 2A 2A 2A 2A 2A |E FILENAMES*****|
00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000770: 2A 2A 2A 00 8C 0F D2 07 98 31 35 2C 22 53 3A 46 |***......15,"S:F|
00000780: 49 4C 45 53 22 3A 84 31 35 2C 41 24 00 A3 0F D5 |ILES":.15,A$....|
00000790: 07 9F 32 2C 38 2C 32 2C 22 46 49 4C 45 53 2C 53 |..2,8,2,"FILES,S|
000007A0: 2C 57 22 00 AD 0F DA 07 98 32 2C 4E 53 00 BB 0F |,W"......2,NS...|
000007B0: E4 07 81 49 B2 31 20 A4 20 4E 53 00 C9 0F EE 07 |...I.1 . NS.....|
000007C0: 98 32 2C 4E 46 24 28 49 29 00 DC 0F F8 07 81 4A |.2,NF$(I)......J|
000007D0: B2 35 AC 49 AB 34 20 A4 20 35 AC 49 00 EA 0F 02 |.5.I.4 . 5.I....|
000007E0: 08 98 32 2C 43 41 24 28 4A 29 00 F7 0F 0C 08 82 |..2,CA$(J)......|
000007F0: 3A 82 3A A0 32 3A 8E 00 45 10 33 08 8F 2A 52 45 |:.:.2:..E.3..*RE|
00000800: 41 44 20 49 46 20 46 49 4C 45 4C 49 53 54 20 45 |AD IF FILELIST E|
00000810: 58 49 53 54 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |XISTS***********|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000840: 2A 2A 2A 2A 2A 00 4B 10 34 08 8F 00 62 10 39 08 |*****.K.4...b.9.|
00000850: 9F 32 2C 38 2C 32 2C 22 46 49 4C 45 53 2C 53 2C |.2,8,2,"FILES,S,|
00000860: 52 22 00 88 10 3B 08 84 31 35 2C 41 24 3A 41 B2 |R"...;..15,A$:A.|
00000870: C5 28 41 24 29 3A 8B 20 41 B2 36 32 A7 20 A0 32 |.(A$):. A.62. .2|
00000880: 3A 8D 34 30 30 30 3A 8E 00 A3 10 3C 08 8B 20 41 |:.4000:....<.. A|
00000890: B1 30 20 A7 20 8D 34 31 30 30 3A A0 32 3A 89 32 |.0 . .4100:.2:.2|
000008A0: 31 30 35 00 C9 10 3D 08 99 22 93 46 49 4C 45 53 |105...=..".FILES|
000008B0: 20 4F 4E 20 44 49 53 4B 20 49 4E 20 44 49 53 4B | ON DISK IN DISK|
000008C0: 20 44 52 49 56 45 2E 11 22 00 D3 10 3E 08 84 32 | DRIVE.."...>..2|
000008D0: 2C 4E 53 00 E1 10 48 08 81 49 B2 31 20 A4 20 4E |,NS...H..I.1 . N|
000008E0: 53 00 EF 10 52 08 84 32 2C 4E 46 24 28 49 29 00 |S...R..2,NF$(I).|
000008F0: 02 11 5C 08 81 4A B2 35 AC 49 AB 34 20 A4 20 35 |..\..J.5.I.4 . 5|
00000900: AC 49 00 10 11 66 08 84 32 2C 43 41 24 28 4A 29 |.I...f..2,CA$(J)|
00000910: 00 23 11 70 08 82 3A 8D 35 30 30 30 3A 82 3A A0 |.#.p..:.5000:.:.|
00000920: 32 3A 8E 00 71 11 97 08 8F 2A 44 45 54 45 52 4D |2:..q....*DETERM|
00000930: 49 4E 45 20 49 46 20 44 49 53 4B 20 45 52 52 4F |INE IF DISK ERRO|
00000940: 52 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |R***************|
00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000970: 2A 00 7E 11 98 08 9F 31 35 2C 38 2C 31 35 00 CA |*.~....15,8,15..|
00000980: 11 FC 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 43 52 45 41 |....********CREA|
00000990: 54 45 20 49 4E 44 49 56 49 44 55 41 4C 20 46 49 |TE INDIVIDUAL FI|
000009A0: 4C 45 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |LES*************|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E4 11 06 09 9F |**********......|
000009D0: 32 2C 38 2C 32 2C 4E 46 24 28 4E 53 29 AA 22 2C |2,8,2,NF$(NS).",|
000009E0: 53 2C 57 22 00 05 12 10 09 81 49 B2 35 AC 4E 53 |S,W"......I.5.NS|
000009F0: AB 34 20 A4 20 4E 53 AC 35 3A 98 32 2C 43 41 24 |.4 . NS.5:.2,CA$|
00000A00: 28 49 29 3A 82 00 10 12 1A 09 98 32 2C 4D 49 4E |(I):.......2,MIN|
00000A10: 00 19 12 1F 09 58 59 B2 31 00 23 12 24 09 98 32 |.....XY.1.#.$..2|
00000A20: 2C 58 59 00 2A 12 2E 09 A0 32 00 4F 12 5F 09 8F |,XY.*....2.O._..|
00000A30: 2A 2A 2A 2A 2A 43 52 45 41 54 45 20 49 4E 44 49 |*****CREATE INDI|
00000A40: 56 49 44 55 41 4C 20 46 49 4C 45 53 2A 2A 2A 00 |VIDUAL FILES***.|
00000A50: 5C 12 60 09 81 49 B2 31 20 A4 20 35 00 7A 12 65 |\.`..I.1 . 5.z.e|
00000A60: 09 43 44 24 B2 C4 28 35 AC 4E 53 AB 35 AA 49 29 |.CD$..(5.NS.5.I)|
00000A70: 3A 43 44 B2 C5 28 43 44 24 29 00 90 12 6A 09 9F |:CD..(CD$)...j..|
00000A80: 32 2C 38 2C 32 2C 43 44 24 AA 22 2C 53 2C 57 22 |2,8,2,CD$.",S,W"|
00000A90: 00 9E 12 74 09 81 4B B2 31 A4 20 4D 49 4E 00 AF |...t..K.1. MIN..|
00000AA0: 12 7E 09 98 32 2C 57 4F 24 28 43 44 2C 4B 29 00 |.~..2,WO$(CD,K).|
00000AB0: BC 12 88 09 82 3A A0 32 3A 82 3A 8E 00 E1 12 A0 |.....:.2:.:.....|
00000AC0: 0F 8F 2A 2A 2A 2A 2A 2A 53 41 59 20 54 48 41 54 |..******SAY THAT|
00000AD0: 20 4E 4F 20 46 49 4C 45 53 20 45 58 49 53 54 2A | NO FILES EXIST*|
00000AE0: 2A 00 12 13 AA 0F 99 22 93 11 54 48 45 52 45 20 |*......"..THERE |
00000AF0: 41 52 45 20 4E 4F 20 46 49 4C 45 53 20 4F 4E 20 |ARE NO FILES ON |
00000B00: 54 48 49 53 20 44 49 53 4B 20 53 4F 20 46 41 52 |THIS DISK SO FAR|
00000B10: 2E 22 00 24 13 B4 0F 81 49 B2 31 A4 31 30 30 30 |.".$....I.1.1000|
00000B20: 3A 82 3A 8E 00 4E 13 04 10 8F 2A 2A 2A 2A 53 41 |:.:..N....****SA|
00000B30: 59 20 54 4F 20 54 55 52 4E 20 44 52 49 56 45 20 |Y TO TURN DRIVE |
00000B40: 4F 4E 20 41 4E 44 20 4F 46 46 2A 2A 2A 2A 00 65 |ON AND OFF****.e|
00000B50: 13 0E 10 99 22 93 44 49 53 4B 20 45 52 52 4F 52 |....".DISK ERROR|
00000B60: 20 23 22 3B 41 00 82 13 18 10 99 22 50 4C 45 41 | #";A......"PLEA|
00000B70: 53 45 20 54 55 52 4E 20 44 52 49 56 45 20 4F 46 |SE TURN DRIVE OF|
00000B80: 46 22 00 9F 13 22 10 99 22 54 48 45 4E 20 4F 4E |F"...".."THEN ON|
00000B90: 20 54 4F 20 54 52 59 20 41 47 41 49 4E 2E 22 00 | TO TRY AGAIN.".|
00000BA0: C0 13 27 10 99 22 50 52 45 53 53 20 41 4E 59 20 |..'.."PRESS ANY |
00000BB0: 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 2E 22 |KEY WHEN READY."|
00000BC0: 00 D6 13 28 10 A1 41 24 3A 8B 20 41 24 B2 22 22 |...(..A$:. A$.""|
00000BD0: A7 20 34 31 33 36 00 DC 13 2C 10 8E 00 00 14 88 |. 4136...,......|
00000BE0: 13 8F 2A 2A 2A 2A 2A 53 48 4F 57 20 46 49 4C 45 |..*****SHOW FILE|
00000BF0: 53 20 41 4E 44 20 43 41 54 41 47 4F 52 49 45 53 |S AND CATAGORIES|
00000C00: 00 44 14 A6 13 99 49 22 9D 29 12 22 4E 46 24 28 |.D....I".)."NF$(|
00000C10: 49 29 22 92 1D 22 43 41 24 28 4A AB 35 29 22 1D |I)".."CA$(J.5)".|
00000C20: 22 43 41 24 28 4A AB 34 29 22 1D 1D 1D 1D 1D 22 |"CA$(J.4)"....."|
00000C30: 43 41 24 28 4A AB 33 29 22 1D 22 43 41 24 28 4A |CA$(J.3)"."CA$(J|
00000C40: AB 32 29 3B 00 5A 14 B0 13 99 22 1D 22 43 41 24 |.2);.Z...."."CA$|
00000C50: 28 4A AB 31 29 22 11 22 3A 8E 00 7F 14 70 17 8F |(J.1)".":....p..|
00000C60: 2A 45 52 41 53 45 20 47 52 4F 55 50 20 43 41 54 |*ERASE GROUP CAT|
00000C70: 41 4F 52 59 20 53 55 42 52 4F 55 54 49 4E 45 00 |AORY SUBROUTINE.|
00000C80: B7 14 7A 17 99 22 11 45 52 41 53 45 20 57 48 49 |..z..".ERASE WHI|
00000C90: 43 48 20 53 45 54 20 4F 46 20 43 41 54 41 47 4F |CH SET OF CATAGO|
00000CA0: 52 49 45 53 22 3A 99 22 28 45 58 41 4D 50 4C 45 |RIES":."(EXAMPLE|
00000CB0: 20 12 31 92 29 22 3B 00 CD 14 84 17 A1 41 24 3A | .1.)";......A$:|
00000CC0: 8B 20 41 24 B2 22 22 A7 20 36 30 32 30 00 ED 14 |. A$."". 6020...|
00000CD0: 8E 17 41 B2 C5 28 41 24 29 3A 8B 20 41 B3 31 20 |..A..(A$):. A.1 |
00000CE0: B0 20 41 B1 4E 53 20 A7 20 36 30 32 30 00 F5 14 |. A.NS . 6020...|
00000CF0: 98 17 99 20 41 00 21 15 A2 17 99 22 11 45 52 41 |... A.!....".ERA|
00000D00: 53 49 4E 47 20 41 4C 4C 20 12 22 3B 4E 46 24 28 |SING ALL .";NF$(|
00000D10: 41 29 3B 22 92 20 43 41 54 41 47 4F 52 49 45 53 |A);". CATAGORIES|
00000D20: 22 00 34 15 06 18 81 49 B2 41 AC 35 AB 34 20 A4 |".4....I.A.5.4 .|
00000D30: 20 41 AC 35 00 40 15 10 18 41 24 B2 C4 28 49 29 | A.5.@...A$..(I)|
00000D40: 00 50 15 1A 18 98 31 35 2C 22 53 3A 22 AA 41 24 |.P....15,"S:".A$|
00000D50: 00 56 15 24 18 82 00 5C 15 38 18 8F 00 6E 15 3D |.V.$...\.8...n.=|
00000D60: 18 8B 20 41 B2 4E 53 20 A7 20 36 32 38 30 00 7E |.. A.NS . 6280.~|
00000D70: 15 42 18 81 49 B2 41 20 A4 20 4E 53 AB 31 00 92 |.B..I.A . NS.1..|
00000D80: 15 4C 18 4E 46 24 28 41 29 B2 4E 46 24 28 41 AA |.L.NF$(A).NF$(A.|
00000D90: 31 29 00 A5 15 56 18 81 4A B2 49 AC 35 AB 34 20 |1)...V..J.I.5.4 |
00000DA0: A4 20 49 AC 35 00 B9 15 60 18 43 41 24 28 4A 29 |. I.5...`.CA$(J)|
00000DB0: B2 43 41 24 28 4A AA 35 29 00 CF 15 65 18 41 24 |.CA$(J.5)...e.A$|
00000DC0: B2 C4 28 4A 29 3A 42 24 B2 C4 28 4A AA 35 29 00 |..(J):B$..(J.5).|
00000DD0: E6 15 6A 18 98 31 35 2C 22 52 3A 22 AA 41 24 AA |..j..15,"R:".A$.|
00000DE0: 22 3D 22 AA 42 24 00 EC 15 74 18 82 00 F2 15 7E |"=".B$...t.....~|
00000DF0: 18 82 00 FE 15 88 18 4E 53 B2 4E 53 AB 31 00 08 |.......NS.NS.1..|
00000E00: 16 92 18 8D 32 30 30 30 00 0E 16 9C 18 8E 00 31 |....2000.......1|
00000E10: 16 1F 4E 8F 2A 2A 2A 2A 2A 49 4E 53 54 52 55 43 |..N.*****INSTRUC|
00000E20: 54 49 4F 4E 20 53 48 45 45 54 2A 2A 2A 2A 2A 2A |TION SHEET******|
00000E30: 2A 00 65 16 20 4E 99 22 93 13 9E 2A 2A 2A 2A 2A |*.e. N."...*****|
00000E40: 57 48 45 45 4C 20 4F 46 20 46 4F 52 54 55 4E 45 |WHEEL OF FORTUNE|
00000E50: 20 57 4F 52 44 20 43 52 45 41 54 4F 52 2E 2A 2A | WORD CREATOR.**|
00000E60: 2A 2A 2A 22 3B 00 99 16 2A 4E 99 22 9E 2A 05 54 |***";...*N.".*.T|
00000E70: 4F 20 55 53 45 20 54 48 49 53 20 50 52 4F 47 52 |O USE THIS PROGR|
00000E80: 41 4D 2C 20 59 4F 55 20 4D 55 53 54 20 46 49 52 |AM, YOU MUST FIR|
00000E90: 53 54 20 20 20 9E 2A 22 3B 00 CD 16 34 4E 99 22 |ST .*";...4N."|
00000EA0: 9E 2A 05 44 45 43 49 44 45 20 57 48 45 54 48 45 |.*.DECIDE WHETHE|
00000EB0: 52 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 52 |R YOU WANT TO CR|
00000EC0: 45 41 54 45 20 41 20 20 20 9E 2A 22 3B 00 01 17 |EATE A .*";...|
00000ED0: 3E 4E 99 22 9E 2A 05 57 4F 52 44 20 4C 49 53 54 |>N.".*.WORD LIST|
00000EE0: 20 4F 52 20 45 52 41 53 45 20 4F 4E 45 2E 20 49 | OR ERASE ONE. I|
00000EF0: 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 9E 2A 22 |F YOU WANT TO.*"|
00000F00: 3B 00 35 17 48 4E 99 22 9E 2A 05 43 52 45 41 54 |;.5.HN.".*.CREAT|
00000F10: 45 20 41 20 57 4F 52 44 20 4C 49 53 54 2C 20 4A |E A WORD LIST, J|
00000F20: 55 53 54 20 45 4E 54 45 52 20 41 20 4E 41 4D 45 |UST ENTER A NAME|
00000F30: 20 9E 2A 22 3B 00 69 17 52 4E 99 22 9E 2A 05 54 | .*";.i.RN.".*.T|
00000F40: 48 41 54 20 44 45 53 43 52 49 42 45 53 20 57 48 |HAT DESCRIBES WH|
00000F50: 41 54 20 4C 49 4E 4B 53 20 54 48 45 20 53 55 42 |AT LINKS THE SUB|
00000F60: 4A 45 43 54 53 9E 2A 22 3B 00 9D 17 5C 4E 99 22 |JECTS.*";...\N."|
00000F70: 9E 2A 05 54 4F 47 45 54 48 45 52 28 49 54 20 43 |.*.TOGETHER(IT C|
00000F80: 41 4E 20 42 45 20 4A 55 53 54 20 41 42 4F 55 54 |AN BE JUST ABOUT|
00000F90: 20 41 4E 59 54 48 49 4E 47 9E 2A 22 3B 00 D1 17 | ANYTHING.*";...|
00000FA0: 66 4E 99 22 9E 2A 05 59 4F 55 20 57 41 4E 54 20 |fN.".*.YOU WANT |
00000FB0: 50 52 4F 56 49 44 45 44 20 59 4F 55 20 44 4F 4E |PROVIDED YOU DON|
00000FC0: 27 54 20 48 41 56 45 20 20 20 20 20 20 9E 2A 22 |'T HAVE .*"|
00000FD0: 3B 00 05 18 70 4E 99 22 9E 2A 05 41 4E 4F 54 48 |;...pN.".*.ANOTH|
00000FE0: 45 52 20 53 45 54 20 4F 46 20 46 49 4C 45 53 20 |ER SET OF FILES |
00000FF0: 4F 4E 20 54 48 41 54 20 44 49 53 4B 20 57 49 54 |ON THAT DISK WIT|
00001000: 48 9E 2A 22 3B 00 39 18 7A 4E 99 22 9E 2A 05 54 |H.*";.9.zN.".*.T|
00001010: 48 41 54 20 4E 41 4D 45 20 41 4C 52 45 41 44 59 |HAT NAME ALREADY|
00001020: 29 2E 20 4E 45 58 54 20 45 4E 54 45 52 20 54 48 |). NEXT ENTER TH|
00001030: 45 20 20 20 20 9E 2A 22 3B 00 6D 18 84 4E 99 22 |E .*";.m..N."|
00001040: 9E 2A 05 4E 41 4D 45 53 20 4F 46 20 45 41 43 48 |.*.NAMES OF EACH|
00001050: 20 4F 46 20 54 48 45 20 46 49 56 45 20 43 41 54 | OF THE FIVE CAT|
00001060: 41 47 4F 52 49 45 53 2C 20 9E 2A 22 3B 00 A1 18 |AGORIES, .*";...|
00001070: 8E 4E 99 22 9E 2A 05 54 48 45 4E 20 53 54 41 52 |.N.".*.THEN STAR|
00001080: 54 20 45 4E 54 45 52 49 4E 47 20 54 48 45 20 41 |T ENTERING THE A|
00001090: 43 54 55 41 4C 20 57 4F 52 44 53 2C 20 9E 2A 22 |CTUAL WORDS, .*"|
000010A0: 3B 00 D5 18 98 4E 99 22 9E 2A 05 41 4C 54 45 52 |;....N.".*.ALTER|
000010B0: 4E 41 54 49 4E 47 20 54 48 45 20 46 49 56 45 20 |NATING THE FIVE |
000010C0: 43 41 54 41 47 4F 52 49 45 53 2E 20 59 4F 55 20 |CATAGORIES. YOU |
000010D0: 20 9E 2A 22 3B 00 09 19 A2 4E 99 22 9E 2A 05 57 | .*";....N.".*.W|
000010E0: 49 4C 4C 20 53 45 45 20 57 48 49 43 48 20 43 41 |ILL SEE WHICH CA|
000010F0: 54 41 47 4F 52 59 20 59 4F 55 20 41 52 45 20 20 |TAGORY YOU ARE |
00001100: 20 20 20 20 20 9E 2A 22 3B 00 44 19 AC 4E 99 22 | .*";.D..N."|
00001110: 9E 2A 05 53 55 50 50 4F 53 45 44 20 54 4F 20 42 |.*.SUPPOSED TO B|
00001120: 45 20 45 4E 54 45 52 49 4E 47 2E 20 20 20 20 20 |E ENTERING. |
00001130: 20 20 20 20 20 20 20 20 20 9E 2A 22 3B 3A 8D 32 | .*";:.2|
00001140: 35 30 30 30 00 79 19 B6 4E 99 22 93 9E 2A 2A 2A |5000.y..N."..***|
00001150: 12 45 44 49 54 49 4E 47 20 54 49 50 53 3A 92 2A |.EDITING TIPS:.*|
00001160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001170: 2A 2A 2A 2A 2A 2A 2A 22 3B 00 AD 19 C0 4E 99 22 |*******";....N."|
00001180: 9E 2A 05 57 48 45 4E 20 54 59 50 49 4E 47 20 49 |.*.WHEN TYPING I|
00001190: 4E 20 54 48 45 20 57 4F 52 44 53 2C 20 59 4F 55 |N THE WORDS, YOU|
000011A0: 20 4D 41 59 20 55 53 45 20 9E 2A 22 3B 00 E1 19 | MAY USE .*";...|
000011B0: C7 4E 99 22 9E 2A 05 4C 45 54 54 45 52 53 2C 20 |.N.".*.LETTERS, |
000011C0: 43 4F 4D 4D 41 53 2C 20 50 45 52 49 4F 44 53 2C |COMMAS, PERIODS,|
000011D0: 20 48 59 50 48 45 4E 53 2C 20 41 4E 44 9E 2A 22 | HYPHENS, AND.*"|
000011E0: 3B 00 15 1A CA 4E 99 22 9E 2A 05 53 50 41 43 45 |;....N.".*.SPACE|
000011F0: 53 2E 20 45 41 43 48 20 50 55 5A 5A 4C 45 20 4D |S. EACH PUZZLE M|
00001200: 41 59 20 42 45 20 33 33 20 43 48 41 52 2E 20 20 |AY BE 33 CHAR. |
00001210: 20 9E 2A 22 3B 00 49 1A D4 4E 99 22 9E 2A 05 4C | .*";.I..N.".*.L|
00001220: 4F 4E 47 2C 20 42 55 54 20 49 46 20 59 4F 55 52 |ONG, BUT IF YOUR|
00001230: 20 50 55 5A 5A 4C 45 20 49 53 20 4C 45 53 53 20 | PUZZLE IS LESS |
00001240: 54 48 41 4E 20 9E 2A 22 3B 00 7D 1A DE 4E 99 22 |THAN .*";.}..N."|
00001250: 9E 2A 05 33 33 20 43 48 41 52 2E 20 59 4F 55 20 |.*.33 CHAR. YOU |
00001260: 43 41 4E 20 50 52 45 53 53 20 52 45 54 55 52 4E |CAN PRESS RETURN|
00001270: 20 57 48 45 4E 20 59 4F 55 9E 2A 22 3B 00 B1 1A | WHEN YOU.*";...|
00001280: E8 4E 99 22 9E 2A 05 41 52 45 20 44 4F 4E 45 20 |.N.".*.ARE DONE |
00001290: 57 49 54 48 20 59 4F 55 52 20 50 55 5A 5A 4C 45 |WITH YOUR PUZZLE|
000012A0: 2E 20 49 46 20 59 4F 55 20 4D 41 4B 45 9E 2A 22 |. IF YOU MAKE.*"|
000012B0: 3B 00 E5 1A F2 4E 99 22 9E 2A 05 41 20 4D 49 53 |;....N.".*.A MIS|
000012C0: 54 41 4B 45 2C 20 59 4F 55 20 4D 41 59 20 47 4F |TAKE, YOU MAY GO|
000012D0: 20 42 41 43 4B 20 41 4E 44 20 52 45 54 59 50 45 | BACK AND RETYPE|
000012E0: 20 9E 2A 22 3B 00 19 1B FC 4E 99 22 9E 2A 05 49 | .*";....N.".*.I|
000012F0: 4E 20 54 48 45 20 4C 41 53 54 20 53 45 54 20 4F |N THE LAST SET O|
00001300: 46 20 57 4F 52 44 53 20 42 59 20 50 52 45 53 53 |F WORDS BY PRESS|
00001310: 49 4E 47 20 20 9E 2A 22 3B 00 51 1B 06 4F 99 22 |ING .*";.Q..O."|
00001320: 9E 2A 05 54 48 45 20 12 5F 92 20 4B 45 59 2E 20 |.*.THE ._. KEY. |
00001330: 12 4E 4F 54 45 3A 92 20 59 4F 55 20 4D 55 53 54 |.NOTE:. YOU MUST|
00001340: 20 52 45 54 59 50 45 20 49 4E 20 20 20 9E 2A 22 | RETYPE IN .*"|
00001350: 3B 00 85 1B 10 4F 99 22 9E 2A 05 41 4C 4C 20 54 |;....O.".*.ALL T|
00001360: 48 45 20 57 4F 52 44 53 20 46 52 4F 4D 20 54 48 |HE WORDS FROM TH|
00001370: 41 54 20 4E 55 4D 42 45 52 20 53 45 54 2E 20 20 |AT NUMBER SET. |
00001380: 20 9E 2A 22 3B 00 B9 1B 1A 4F 99 22 9E 2A 05 57 | .*";....O.".*.W|
00001390: 48 45 4E 20 59 4F 55 20 41 52 45 20 54 48 52 4F |HEN YOU ARE THRO|
000013A0: 55 47 48 20 45 4E 54 45 52 49 4E 47 20 41 4C 4C |UGH ENTERING ALL|
000013B0: 20 59 4F 55 52 9E 2A 22 3B 00 ED 1B 24 4F 99 22 | YOUR.*";...$O."|
000013C0: 9E 2A 05 57 4F 52 44 53 20 50 52 45 53 53 20 52 |.*.WORDS PRESS R|
000013D0: 45 54 55 52 4E 20 41 53 20 54 48 45 20 46 49 52 |ETURN AS THE FIR|
000013E0: 53 54 20 43 48 41 52 2E 20 9E 2A 22 3B 00 21 1C |ST CHAR. .*";.!.|
000013F0: 2E 4F 99 22 9E 2A 05 41 4E 44 20 41 4E 53 57 45 |.O.".*.AND ANSWE|
00001400: 52 20 59 20 57 48 45 4E 20 49 54 20 41 53 4B 53 |R Y WHEN IT ASKS|
00001410: 20 49 46 20 59 4F 55 20 41 52 45 20 20 9E 2A 22 | IF YOU ARE .*"|
00001420: 3B 00 55 1C 38 4F 99 22 9E 2A 05 54 48 52 4F 55 |;.U.8O.".*.THROU|
00001430: 47 48 2E 20 59 4F 55 52 20 57 4F 52 44 4C 49 53 |GH. YOUR WORDLIS|
00001440: 54 20 57 49 4C 4C 20 54 48 45 4E 20 42 45 20 20 |T WILL THEN BE |
00001450: 20 9E 2A 22 3B 00 89 1C 42 4F 99 22 9E 2A 05 53 | .*";...BO.".*.S|
00001460: 41 56 45 44 20 4F 4E 54 4F 20 44 49 53 4B 2E 20 |AVED ONTO DISK. |
00001470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001480: 20 20 20 20 20 9E 2A 22 3B 00 BD 1C 4C 4F 99 22 | .*";...LO."|
00001490: 9E 2A 05 20 20 20 20 20 20 20 20 20 20 20 20 20 |.*. |
000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014B0: 20 20 20 20 20 20 20 20 20 9E 2A 22 3B 00 F1 1C | .*";...|
000014C0: 56 4F 99 22 9E 2A 05 20 20 20 20 20 20 20 20 20 |VO.".*. |
000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 9E 2A 22 | .*"|
000014F0: 3B 00 25 1D 60 4F 99 22 9E 2A 05 20 20 20 20 20 |;.%.`O.".*. |
00001500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001520: 20 9E 2A 22 3B 00 59 1D 6A 4F 99 22 9E 2A 05 20 | .*";.Y.jO.".*. |
00001530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001550: 20 20 20 20 20 9E 2A 22 3B 00 8D 1D 74 4F 99 22 | .*";...tO."|
00001560: 9E 2A 05 20 20 20 20 20 20 20 20 20 20 20 20 20 |.*. |
00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001580: 20 20 20 20 20 20 20 20 20 9E 2A 22 3B 00 CA 1D | .*";...|
00001590: 7E 4F 99 22 9E 2A 05 20 20 20 20 20 20 20 20 20 |~O.".*. |
000015A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 9E 2A 22 | .*"|
000015C0: 3B 3A 8D 32 35 30 30 30 3A 8E 00 FC 1D A8 61 99 |;:.25000:.....a.|
000015D0: 22 9E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |".**************|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 00 28 1E B2 |**********";.(..|
00001600: 61 99 22 20 20 20 20 20 20 20 12 96 50 52 45 53 |a." ..PRES|
00001610: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
00001620: 54 49 4E 55 45 2E 9E 22 00 3F 1E BC 61 A1 41 24 |TINUE..".?..a.A$|
00001630: 3A 8B 20 41 24 B2 22 22 A7 20 32 35 30 32 30 00 |:. A$."". 25020.|
00001640: 45 1E C6 61 8E 00 00 00 |E..a.... |
..".... WO$(50,50),CA$(100),Y(100).=....
".":.53280,0:.53281,0.J....15,8,15.U....
20000._....2100......"..DO YOU WANT TO .
A.DD OR .E.RASE A CATAGORY"......A$:. A$
."". 25.C.... A$."A" . NS.NS.1:.100...#.
. A$."E" . .6000:.".":.10...(..25...D.."
... ****ADD NEW WORD LISTS****
".M.X.."NAME WHICH GROUPS THE FIVE CA
TAGORIES ";.~.}.."EXAMPLES:STANDARD, S
TANDARD II,SPORTS ";......"ROCK MUSIC.
..ETC(11 CHARACTER MAXIMUM)"......NF$(NS
):NF$(NS).NF$(NS)." ":NF$(NS).
H(NF$(NS),11).(.H.Y$."N":. NS.1 . X.X:.I
.1.NS.1:. NF$(NS).NF$(I). Y$."Y".7.R.. N
S.1 . ..{.... Y$."Y". ."..........***YOU
ALREADY HAVE A SET NAMED THAT.***".....
. Y$."Y".X.X:.I.1.4000:.:.100......"."..
....I.5.NS.4 . 5.NS......".NAME OF CATAG
ORY #";I" (11 LETTER MAX)".+....CA$(I):
.C(CA$(I)).11.."SORRY TOO MANY LETTERS T
RY AGAIN..".C....C(CA$(I)).11. 1012.W...
CA$(I).CA$(I)." ":CA$(I).H(CA$
(I),11).}.........I.1......J.NS.5.4 . NS
.5.G...."..ENTER WORD #";I"FOR CATEGORY
"CA$(J)......".....
.".5);". .";./. .."
. .";.P.#.."..
.....
...".6);".. ..";...$.WO$(J,I)."":K.1...%
..A$:. A$."". 1317...&.. F(A$).95 . I.1
. I.I.1:. 1300...(.. F(A$).64 . F(A$).91
. 1327...).. A$.".". A$."-" . A$."'" .
A$." ". 1327.".*.. F(A$).13 . 1330.E.+..
F(A$).20.K.1..".. .... ..";.~.,.. F(A$
).20.K.1. WO$(J,I).H(WO$(J,I),(C(WO$(J,I
)).1))...-.. F(A$).20.K.1. A$."":K.K.1:.
1317......1317.../..A$".. ..";:WO$(J,I).
WO$(J,I).A$:K.K.1:.K.34..".. .":.1330...
0..1317.?.2.K.1:.WO$(J,I).""..".....IS T
HAT ALL THE WORDS YOU WANT (Y/N)":.1332.
K.3..:.1400.U.4.A$."".K.7..A$:. A$."". 1
335...8.. A$."Y". I.I.1:.1620.I.9..A$."N
".."THEN YOU MUST RE-ENTER THE LAST SET
OF WORDS.":.1700.S.:..1335...P.. A$."Y"
.1620...X.I.I.1:.1200...T.MIN.I:.2000:.2
310:.10.%....X.1.3000:.:.1200.S.P..*CREA
TE FILES TO STORE FILENAMES*************
***************************...R..15,"S:F
ILES":.15,A$...U..2,8,2,"FILES,S,W"...Z.
.2,NS......I.1 . NS.I....2,NF$(I)......J
.5.I.4 . 5.I......2,CA$(J)......:.: 2:..
E.3..*READ IF FILELIST EXISTS***********
*************************************.K.
4...B.9..2,8,2,"FILES,S,R"...;..15,A$:A.
E(A$):. A.62. 2:.4000:....<.. A.0 . .41
00: 2:.2105.I.=..".FILES ON DISK IN DISK
DRIVE..".S.>..2,NS...H..I.1 . NS...R..2
,NF$(I)...\..J.5.I.4 . 5.I...F..2,CA$(J)
.#.P..:.5000:.: 2:..Q....*DETERMINE IF D
ISK ERROR*******************************
*****************.~....15,8,15.J....****
****CREATE INDIVIDUAL FILES*************
**************************......2,8,2,NF
$(NS).",S,W"......I.5.NS.4 . NS.5:.2,CA$
(I):.......2,MIN.....XY.1.#.$..2,XY.*...
2.O._..*****CREATE INDIVIDUAL FILES***.
\.`..I.1 . 5.Z.E.CD$.D(5.NS.5.I):CD.E(CD
$)...J..2,8,2,CD$.",S,W"...T..K.1. MIN..
.~..2,WO$(CD,K)......: 2:.:.... ..******
SAY THAT NO FILES EXIST**......"..THERE
ARE NO FILES ON THIS DISK SO FAR.".$....
I.1.1000:.:..N....****SAY TO TURN DRIVE
ON AND OFF****.E....".DISK ERROR #";A...
..."PLEASE TURN DRIVE OFF"...".."THEN ON
TO TRY AGAIN."...'.."PRESS ANY KEY WHEN
READY.".V.(..A$:. A$."". 4136...,......
..*****SHOW FILES AND CATAGORIES.D....I"
.)."NF$(I)".."CA$(J.5)"."CA$(J.4)"....."
CA$(J.3)"."CA$(J.2);.Z...."."CA$(J.1)"."
:...P..*ERASE GROUP CATAORY SUBROUTINE.
..Z..".ERASE WHICH SET OF CATAGORIES":."
(EXAMPLE .1.)";.M....A$:. A$."". 6020...
..A.E(A$):. A.1 . A.NS . 6020...... A.!.
...".ERASING ALL .";NF$(A);". CATAGORIES
".4....I.A.5.4 . A.5.@...A$.D(I).P....15
,"S:".A$.V.$...\.8...N.=.. A.NS . 6280.~
.B..I.A . NS.1...L.NF$(A).NF$(A.1)...V..
J.I.5.4 . I.5...`.CA$(J).CA$(J.5).O.E.A$
.D(J):B$.D(J.5)...J..15,"R:".A$."=".B$..
.T.....~.......NS.NS.1......2000.......1
..N.*****INSTRUCTION SHEET*******.E. N."
...*****WHEEL OF FORTUNE WORD CREATOR.**
***";...*N.".*.TO USE THIS PROGRAM, YOU
MUST FIRST .*";.M.4N.".*.DECIDE WHETHE
R YOU WANT TO CREATE A .*";...>N.".*.W
ORD LIST OR ERASE ONE. IF YOU WANT TO.*"
;.5.HN.".*.CREATE A WORD LIST, JUST ENTE
R A NAME .*";.I.RN.".*.THAT DESCRIBES WH
AT LINKS THE SUBJECTS.*";...\N.".*.TOGET
HER(IT CAN BE JUST ABOUT ANYTHING.*";.Q.
FN.".*.YOU WANT PROVIDED YOU DON'T HAVE
.*";...PN.".*.ANOTHER SET OF FILES
ON THAT DISK WITH.*";.9.ZN.".*.THAT NAME
ALREADY). NEXT ENTER THE .*";.M..N."
.*.NAMES OF EACH OF THE FIVE CATAGORIES,
.*";....N.".*.THEN START ENTERING THE A
CTUAL WORDS, .*";.U..N.".*.ALTERNATING T
HE FIVE CATAGORIES. YOU .*";....N.".*.W
ILL SEE WHICH CATAGORY YOU ARE .*"
;.D..N.".*.SUPPOSED TO BE ENTERING.
.*";:.25000.Y..N."..***.EDITING
TIPS:.************************";....N."
.*.WHEN TYPING IN THE WORDS, YOU MAY USE
.*";...GN.".*.LETTERS, COMMAS, PERIODS,
HYPHENS, AND.*";...JN.".*.SPACES. EACH
PUZZLE MAY BE 33 CHAR. .*";.I.TN.".*.L
ONG, BUT IF YOUR PUZZLE IS LESS THAN .*"
;.}..N.".*.33 CHAR. YOU CAN PRESS RETURN
WHEN YOU.*";....N.".*.ARE DONE WITH YOU
R PUZZLE. IF YOU MAKE.*";....N.".*.A MIS
TAKE, YOU MAY GO BACK AND RETYPE .*";...
.N.".*.IN THE LAST SET OF WORDS BY PRESS
ING .*";.Q..O.".*.THE ._. KEY. .NOTE:.
YOU MUST RETYPE IN .*";....O.".*.ALL T
HE WORDS FROM THAT NUMBER SET. .*";...
.O.".*.WHEN YOU ARE THROUGH ENTERING ALL
YOUR.*";...$O.".*.WORDS PRESS RETURN AS
THE FIRST CHAR. .*";.!..O.".*.AND ANSWE
R Y WHEN IT ASKS IF YOU ARE .*";.U.8O."
.*.THROUGH. YOUR WORDLIST WILL THEN BE
.*";...BO.".*.SAVED ONTO DISK.
.*";...LO.".*.
.*";...VO.".*.
.*"
;.%.`O.".*.
.*";.Y.JO.".*.
.*";...TO.".*.
.*";.J.
~O.".*.
.*";:.25000:.....A.".**************
**************************";.(..A."
..PRESS ANY KEY TO CONTINUE..".?..A.A$
:. A$."". 25020.E.FA....
> CLICK IMAGE PREVIEW FOR FULL MODAL