PHRASE MAKER
FILE INFORMATION
FILENAME(S): PHRASE MAKER
FILE TYPE(S): PRG
FILE SIZE: 6.7K
FIRST SEEN: 2025-11-30 16:57:50
APPEARS ON: 2 disk(s)
FILE HASH
9338483bceb88068f6e29abe037310ed5333c321fd125268ad951ef814029a3c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VEGAS GAMES | PHRASE MAKER | PRG | High Voltage Complete C64 Collection, Markus Merz | 27 | 0 | DOWNLOAD FILE |
| VEGAS GAMES | PHRASE MAKER | PRG | Icebreaker | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 5A 00 9C 00 35 08 64 00 50 4E B2 31 |....Z...5.d.PN.1|
00000010: 3A 86 20 50 31 24 28 31 35 30 29 2C 50 32 24 28 |:. P1$(150),P2$(|
00000020: 31 35 30 29 2C 43 24 28 31 35 30 29 2C 50 48 24 |150),C$(150),PH$|
00000030: 28 31 35 30 29 00 54 08 6E 00 97 20 35 33 32 38 |(150).T.n.. 5328|
00000040: 31 2C 31 31 3A 97 20 35 33 32 38 30 2C 31 31 3A |1,11:. 53280,11:|
00000050: 99 22 93 22 00 77 08 73 00 8B 20 C2 28 34 39 31 |.".".w.s.. .(491|
00000060: 35 32 29 B3 B1 33 32 20 A7 20 93 22 4C 2D 53 4F |52)..32 . ."L-SO|
00000070: 52 54 22 2C 38 2C 31 00 9B 08 96 00 8F 20 2A 2A |RT",8,1...... **|
00000080: 2A 2A 20 49 4E 53 54 52 55 43 54 49 4F 4E 20 4D |** INSTRUCTION M|
00000090: 45 53 53 41 47 45 20 2A 2A 2A 2A 00 CE 08 9B 00 |ESSAGE ****.....|
000000A0: 99 22 93 9E A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |."..............|
000000B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000000C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 3B 00 00 |............";..|
000000D0: 09 A0 00 99 22 12 20 20 20 20 20 20 20 20 20 20 |....". |
000000E0: 20 20 20 20 20 46 49 4C 45 20 4D 41 4B 45 52 20 | FILE MAKER |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
00000100: 00 31 09 AA 00 99 22 20 20 20 20 20 20 20 20 20 |.1...." |
00000110: 20 20 20 20 42 59 20 4A 4F 48 4E 20 57 45 4E 54 | BY JOHN WENT|
00000120: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |E "|
00000130: 3B 00 62 09 B4 00 99 22 20 20 20 20 20 20 20 20 |;.b...." |
00000140: 20 20 20 20 20 43 4F 50 59 52 49 47 48 54 20 31 | COPYRIGHT 1|
00000150: 39 38 36 20 20 20 20 20 20 20 20 20 20 20 20 20 |986 |
00000160: 92 22 00 90 09 D2 00 99 22 11 11 9A 20 20 9A 54 |."......"... .T|
00000170: 48 49 53 20 50 52 4F 47 52 41 4D 20 47 45 4E 45 |HIS PROGRAM GENE|
00000180: 54 41 54 45 53 20 53 45 51 55 45 4E 54 49 41 4C |TATES SEQUENTIAL|
00000190: 00 BD 09 E6 00 99 22 20 20 50 48 52 41 53 45 20 |......" PHRASE |
000001A0: 46 49 4C 45 53 20 46 4F 52 20 54 48 45 20 96 53 |FILES FOR THE .S|
000001B0: 50 49 4E 2D 41 2D 46 4F 52 54 55 4E 45 00 E9 09 |PIN-A-FORTUNE...|
000001C0: F0 00 99 22 20 20 9A 47 41 4D 45 2E 20 20 54 48 |..." .GAME. TH|
000001D0: 45 20 46 49 4C 45 53 20 41 52 45 20 53 41 56 45 |E FILES ARE SAVE|
000001E0: 44 20 54 4F 20 44 49 53 4B 00 13 0A FA 00 99 22 |D TO DISK......"|
000001F0: 20 20 57 49 54 48 20 54 48 45 20 4E 41 4D 45 20 | WITH THE NAME |
00000200: 59 4F 55 20 41 53 53 49 47 4E 20 50 4C 55 53 20 |YOU ASSIGN PLUS |
00000210: 54 48 45 00 3D 0A 04 01 99 22 20 20 45 58 54 45 |THE.=...." EXTE|
00000220: 4E 53 49 4F 4E 20 27 2E 50 48 52 27 20 57 48 49 |NSION '.PHR' WHI|
00000230: 43 48 20 49 44 45 4E 54 49 46 49 45 53 00 5B 0A |CH IDENTIFIES.[.|
00000240: 0E 01 99 22 20 20 54 48 45 4D 20 41 53 20 50 48 |..." THEM AS PH|
00000250: 52 41 53 45 20 46 49 4C 45 53 2E 00 72 0A 7C 01 |RASE FILES..r.|.|
00000260: 99 22 11 11 20 96 43 48 4F 4F 53 45 20 4F 4E 45 |.".. .CHOOSE ONE|
00000270: 20 11 00 96 0A 86 01 99 22 20 20 20 31 2E 9A 20 | ......." 1.. |
00000280: 4D 41 4B 45 20 41 20 4E 45 57 20 50 48 52 41 53 |MAKE A NEW PHRAS|
00000290: 45 20 46 49 4C 45 00 C1 0A 90 01 99 22 96 20 20 |E FILE......". |
000002A0: 20 32 2E 9A 20 52 45 41 44 2F 4D 4F 44 49 46 59 | 2.. READ/MODIFY|
000002B0: 20 41 4E 20 45 58 49 53 54 49 4E 47 20 46 49 4C | AN EXISTING FIL|
000002C0: 45 00 E0 0A 95 01 99 22 96 20 20 20 33 2E 9A 20 |E......". 3.. |
000002D0: 50 52 49 4E 54 20 4F 55 54 20 41 20 46 49 4C 45 |PRINT OUT A FILE|
000002E0: 00 FB 0A 97 01 99 22 96 20 20 20 34 2E 9A 20 45 |......". 4.. E|
000002F0: 58 49 54 20 50 52 4F 47 52 41 4D 00 11 0B 9A 01 |XIT PROGRAM.....|
00000300: A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 20 A7 34 31 |. K$:. K$."" .41|
00000310: 30 00 2E 0B A4 01 4B B2 C5 28 4B 24 29 3A 8B 20 |0.....K..(K$):. |
00000320: 4B B3 31 20 B0 20 4B B1 34 20 A7 34 31 30 00 4B |K.1 . K.4 .410.K|
00000330: 0B C2 01 91 20 4B 20 89 20 35 30 30 30 2C 31 30 |.... K . 5000,10|
00000340: 30 30 2C 32 30 30 30 2C 35 30 30 00 72 0B F4 01 |00,2000,500.r...|
00000350: 99 22 93 11 11 11 11 20 20 20 20 20 20 20 20 20 |."..... |
00000360: 20 20 20 20 20 9E 45 58 49 54 20 50 52 4F 47 52 | .EXIT PROGR|
00000370: 41 4D 00 97 0B FE 01 99 22 11 11 11 20 20 20 20 |AM......"... |
00000380: 20 20 20 20 20 20 20 20 20 96 41 52 45 20 59 4F | .ARE YO|
00000390: 55 20 53 55 52 45 3F 00 C6 0B 08 02 99 22 11 48 |U SURE?......".H|
000003A0: 41 53 20 4D 4F 44 49 46 49 45 44 20 46 49 4C 45 |AS MODIFIED FILE|
000003B0: 20 42 45 45 4E 20 57 52 49 54 54 45 4E 20 54 4F | BEEN WRITTEN TO|
000003C0: 20 44 49 53 4B 3F 00 EE 0B 12 02 99 22 11 11 11 | DISK?......"...|
000003D0: 11 11 9E 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000003E0: 12 46 31 92 05 20 54 4F 20 41 42 4F 52 54 00 F4 |.F1.. TO ABORT..|
000003F0: 0B 17 02 99 00 1B 0C 1C 02 99 22 20 20 11 20 20 |.........." . |
00000400: 20 20 20 20 9E 41 4E 59 54 48 49 4E 47 20 45 4C | .ANYTHING EL|
00000410: 53 45 05 20 54 4F 20 45 58 49 54 00 32 0C 26 02 |SE. TO EXIT.2.&.|
00000420: A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 20 A7 20 35 |. K$:. K$."" . 5|
00000430: 35 30 00 45 0C 30 02 8B 20 4B 24 B2 22 85 22 20 |50.E.0.. K$."." |
00000440: A7 20 31 35 30 00 51 0C 58 02 89 20 36 33 30 30 |. 150.Q.X.. 6300|
00000450: 30 00 70 0C 27 03 46 20 8B 20 4B 24 B2 22 54 22 |0.p.'.F . K$."T"|
00000460: 20 A7 20 8B 20 4C 4E B2 32 20 A7 20 36 30 30 30 | . . LN.2 . 6000|
00000470: 00 76 0C E8 03 3A 00 9B 0C E9 03 8F 20 20 2A 2A |.v...:...... **|
00000480: 2A 20 52 45 41 44 2F 4D 4F 44 49 46 59 20 4F 4C |* READ/MODIFY OL|
00000490: 44 20 46 49 4C 45 20 2A 2A 2A 2A 00 A1 0C EA 03 |D FILE ****.....|
000004A0: 3A 00 C1 0C F2 03 8F 20 20 2A 2A 2A 20 52 45 41 |:...... *** REA|
000004B0: 44 20 49 4E 20 4F 4C 44 20 46 49 4C 45 20 2A 2A |D IN OLD FILE **|
000004C0: 2A 00 E4 0C FC 03 85 22 93 11 11 20 4E 41 4D 45 |*......"... NAME|
000004D0: 20 4F 46 20 46 49 4C 45 20 54 4F 20 52 45 41 44 | OF FILE TO READ|
000004E0: 22 3B 4E 24 00 F2 0C 06 04 9F 20 31 35 2C 38 2C |";N$...... 15,8,|
000004F0: 31 35 00 11 0D 0B 04 9F 20 32 2C 38 2C 32 2C 22 |15...... 2,8,2,"|
00000500: 30 3A 22 AA 4E 24 AA 22 2E 50 48 52 2C 53 2C 52 |0:".N$.".PHR,S,R|
00000510: 22 00 30 0D 10 04 99 22 11 11 05 20 20 20 20 20 |".0...."... |
00000520: 52 45 41 44 49 4E 47 20 46 49 4C 45 2E 2E 2E 9A |READING FILE....|
00000530: 00 42 0D 15 04 4C 4E 20 B2 20 31 3A 89 20 38 30 |.B...LN . 1:. 80|
00000540: 30 30 00 4C 0D 1A 04 84 32 2C 4E 4E 00 5B 0D 24 |00.L....2,NN.[.$|
00000550: 04 81 20 58 B2 31 20 A4 20 4E 4E 00 7C 0D 2E 04 |.. X.1 . NN.|...|
00000560: 84 32 2C 50 31 24 28 58 29 3A 84 32 2C 50 32 24 |.2,P1$(X):.2,P2$|
00000570: 28 58 29 3A 84 32 2C 43 24 28 58 29 00 84 0D 42 |(X):.2,C$(X)...B|
00000580: 04 82 20 58 00 91 0D 4C 04 A0 20 32 3A A0 20 31 |.. X...L.. 2:. 1|
00000590: 35 00 BB 0D 51 04 99 22 93 11 11 11 96 20 20 53 |5...Q.."..... S|
000005A0: 45 4C 45 43 54 20 4F 4E 45 20 4F 46 20 54 48 45 |ELECT ONE OF THE|
000005B0: 20 46 4F 4C 4C 4F 57 49 4E 47 3A 00 DC 0D 56 04 | FOLLOWING:...V.|
000005C0: 99 22 11 20 20 20 20 96 31 2E 20 9A 56 49 45 57 |.". .1. .VIEW|
000005D0: 2F 43 48 41 4E 47 45 20 46 49 4C 45 00 FD 0D 60 |/CHANGE FILE...`|
000005E0: 04 99 22 20 20 20 20 96 32 2E 20 9A 41 44 44 20 |.." .2. .ADD |
000005F0: 49 54 45 4D 53 20 54 4F 20 46 49 4C 45 00 17 0E |ITEMS TO FILE...|
00000600: 65 04 99 22 20 20 20 20 96 33 2E 20 9A 57 52 49 |e.." .3. .WRI|
00000610: 54 45 20 46 49 4C 45 00 3A 0E 67 04 99 22 20 20 |TE FILE.:.g.." |
00000620: 20 20 96 34 2E 20 9A 52 45 54 55 52 4E 20 54 4F | .4. .RETURN TO|
00000630: 20 4D 41 49 4E 20 4D 45 4E 55 00 60 0E 6A 04 92 | MAIN MENU.`.j..|
00000640: 20 31 39 38 2C 31 3A A1 20 4B 24 3A 4B B2 C5 28 | 198,1:. K$:K..(|
00000650: 4B 24 29 3A 20 8B 20 4B B2 31 A7 20 31 31 39 30 |K$): . K.1. 1190|
00000660: 00 71 0E 6F 04 8B 20 4B B2 33 20 A7 20 36 30 30 |.q.o.. K.3 . 600|
00000670: 30 00 7F 0E 74 04 8B 20 4B B2 34 20 A7 20 8A 00 |0...t.. K.4 . ..|
00000680: 91 0E 79 04 8B 20 4B B3 B1 32 20 A7 20 31 31 33 |..y.. K..2 . 113|
00000690: 30 00 A4 0E 7E 04 50 4E B2 4E 4E AA 31 3A 89 20 |0...~.PN.NN.1:. |
000006A0: 35 31 30 30 00 C7 0E A6 04 8F 20 2A 2A 2A 2A 2A |5100...... *****|
000006B0: 20 56 49 45 57 2F 43 48 41 4E 47 45 20 46 49 4C | VIEW/CHANGE FIL|
000006C0: 45 20 2A 2A 2A 2A 2A 00 ED 0E AB 04 85 22 11 11 |E *****......"..|
000006D0: 20 20 53 54 41 52 54 20 57 49 54 48 20 57 48 49 | START WITH WHI|
000006E0: 43 48 20 52 45 43 4F 52 44 22 3B 50 4E 00 F3 0E |CH RECORD";PN...|
000006F0: B0 04 3A 00 0B 0F BA 04 99 22 93 11 11 20 49 54 |..:......"... IT|
00000700: 45 4D 20 23 05 22 50 4E 22 9A 22 00 2A 0F BF 04 |EM #."PN".".*...|
00000710: 99 22 11 20 20 43 41 54 41 47 4F 52 59 20 2D 2D |.". CATAGORY --|
00000720: 20 22 43 24 28 50 4E 29 3A 99 00 4A 0F C4 04 99 | "C$(PN):..J....|
00000730: 22 11 20 20 22 50 31 24 28 50 4E 29 3A 99 22 20 |". "P1$(PN):." |
00000740: 20 22 20 50 32 24 28 50 4E 29 00 6E 0F CE 04 8F | " P2$(PN).n....|
00000750: 20 20 20 20 50 52 49 4E 54 23 34 2C 50 4E 3B 50 | PRINT#4,PN;P|
00000760: 31 24 28 50 4E 29 2B 50 32 24 28 50 4E 29 00 91 |1$(PN)+P2$(PN)..|
00000770: 0F E2 04 99 22 20 20 20 20 11 11 11 96 12 53 50 |...." .....SP|
00000780: 41 43 45 92 20 9A 54 4F 20 43 4F 4E 54 49 4E 55 |ACE. .TO CONTINU|
00000790: 45 00 B0 0F E7 04 99 22 20 20 20 20 96 12 43 92 |E......" ..C.|
000007A0: 9A 48 41 4E 47 45 20 54 48 49 53 20 49 54 45 4D |.HANGE THIS ITEM|
000007B0: 00 C8 0F EC 04 99 22 20 20 20 20 9E 12 46 31 92 |......" ..F1.|
000007C0: 20 54 4F 20 51 55 49 54 00 F3 0F F1 04 A1 20 4B | TO QUIT...... K|
000007D0: 24 3A 8B 20 4B 24 B2 22 20 22 20 A7 20 50 4E B2 |$:. K$." " . PN.|
000007E0: 50 4E AA 31 3A 8B 20 50 4E B1 4E 4E 20 A7 20 31 |PN.1:. PN.NN . 1|
000007F0: 33 35 30 00 09 10 F6 04 8B 20 4B 24 B2 22 20 22 |350...... K$." "|
00000800: 20 A7 20 89 20 31 32 31 30 00 1D 10 FB 04 8B 20 | . . 1210...... |
00000810: 4B 24 B2 22 85 22 20 A7 20 31 31 30 30 00 32 10 |K$."." . 1100.2.|
00000820: 00 05 8B 20 4B 24 B3 B1 22 43 22 20 A7 20 31 32 |... K$.."C" . 12|
00000830: 36 35 00 74 10 05 05 99 20 22 11 20 43 48 41 4E |65.t.... ". CHAN|
00000840: 47 45 20 57 48 49 43 48 20 4F 4E 45 3F 22 3A 99 |GE WHICH ONE?":.|
00000850: 20 22 20 20 20 20 96 12 50 92 9A 48 52 41 53 45 | " ..P..HRASE|
00000860: 22 3A 99 22 20 20 20 20 96 12 43 92 9A 41 54 45 |":." ..C..ATE|
00000870: 47 4F 52 59 00 8D 10 0A 05 A1 20 4B 24 3A 8B 20 |GORY...... K$:. |
00000880: 4B 24 B2 22 43 22 20 A7 20 31 33 30 30 00 A2 10 |K$."C" . 1300...|
00000890: 0C 05 8B 20 4B 24 B3 B1 22 50 22 20 A7 20 31 32 |... K$.."P" . 12|
000008A0: 39 30 00 D4 10 0F 05 99 22 11 20 45 4E 54 45 52 |90......". ENTER|
000008B0: 20 43 4F 52 52 45 43 54 20 50 48 52 41 53 45 22 | CORRECT PHRASE"|
000008C0: 3A 85 20 50 48 24 3A 8D 20 35 33 30 30 3A 89 20 |:. PH$:. 5300:. |
000008D0: 31 32 31 30 00 FD 10 14 05 99 22 11 20 45 4E 54 |1210......". ENT|
000008E0: 45 52 20 43 4F 52 52 45 43 54 20 43 41 54 45 47 |ER CORRECT CATEG|
000008F0: 4F 52 59 22 3A 85 20 43 24 28 50 4E 29 00 08 11 |ORY":. C$(PN)...|
00000900: 1E 05 89 20 31 32 31 30 00 23 11 46 05 99 22 93 |... 1210.#.F..".|
00000910: 11 11 96 20 20 20 20 45 4E 44 20 4F 46 20 4C 49 |... END OF LI|
00000920: 53 54 9A 00 32 11 50 05 A0 20 34 3A 89 20 31 31 |ST..2.P.. 4:. 11|
00000930: 31 30 00 38 11 D0 07 3A 00 5C 11 D1 07 8F 20 2A |10.8...:.\.... *|
00000940: 2A 2A 2A 2A 2A 2A 20 20 50 52 49 4E 54 20 41 20 |****** PRINT A |
00000950: 46 49 4C 45 20 2A 2A 2A 2A 2A 2A 2A 00 62 11 D2 |FILE *******.b..|
00000960: 07 3A 00 89 11 D5 07 99 22 93 11 11 20 96 4D 41 |.:......"... .MA|
00000970: 4B 45 20 53 55 52 45 20 50 52 49 4E 54 45 52 20 |KE SURE PRINTER |
00000980: 49 53 20 52 45 41 44 59 2E 00 AD 11 DA 07 85 22 |IS READY......."|
00000990: 11 11 9A 20 4E 41 4D 45 20 4F 46 20 46 49 4C 45 |... NAME OF FILE|
000009A0: 20 54 4F 20 50 52 49 4E 54 22 3B 4E 24 00 B7 11 | TO PRINT";N$...|
000009B0: DF 07 9F 20 34 2C 34 00 C5 11 E4 07 9F 20 31 35 |... 4,4...... 15|
000009C0: 2C 38 2C 31 35 00 E4 11 E9 07 9F 20 32 2C 38 2C |,8,15...... 2,8,|
000009D0: 32 2C 22 30 3A 22 AA 4E 24 AA 22 2E 50 48 52 2C |2,"0:".N$.".PHR,|
000009E0: 53 2C 52 22 00 F4 11 F3 07 4C 4E B2 33 3A 89 20 |S,R".....LN.3:. |
000009F0: 38 30 30 30 00 FE 11 F8 07 84 32 2C 4E 4E 00 22 |8000......2,NN."|
00000A00: 12 FD 07 99 22 11 11 20 20 46 49 4C 45 20 43 4F |....".. FILE CO|
00000A10: 4E 54 41 49 4E 53 05 22 4E 4E 22 9A 49 54 45 4D |NTAINS."NN".ITEM|
00000A20: 53 22 00 43 12 02 08 99 3A 99 22 20 20 96 31 2E |S".C....:." .1.|
00000A30: 9A 20 50 52 49 4E 54 20 45 4E 54 49 52 45 20 46 |. PRINT ENTIRE F|
00000A40: 49 4C 45 00 63 12 07 08 99 22 20 20 96 32 2E 9A |ILE.c...." .2..|
00000A50: 20 50 52 49 4E 54 20 50 41 52 54 20 4F 46 20 46 | PRINT PART OF F|
00000A60: 49 4C 45 00 87 12 0C 08 A1 20 4B 24 3A 8B 20 4B |ILE...... K$:. K|
00000A70: 24 B2 22 31 22 20 A7 20 5A B2 31 3A 5A 5A B2 4E |$."1" . Z.1:ZZ.N|
00000A80: 4E 3A 89 32 31 30 37 00 9B 12 11 08 8B 20 4B 24 |N:.2107...... K$|
00000A90: B3 B1 22 32 22 20 A7 32 30 36 30 00 C0 12 16 08 |.."2" .2060.....|
00000AA0: 99 22 93 11 11 20 20 46 49 4C 45 20 43 4F 4E 54 |."... FILE CONT|
00000AB0: 41 49 4E 53 05 22 4E 4E 22 9A 49 54 45 4D 53 22 |AINS."NN".ITEMS"|
00000AC0: 00 FB 12 1B 08 99 22 11 11 20 20 45 4E 54 45 52 |......".. ENTER|
00000AD0: 20 46 49 52 53 54 20 4E 55 4D 42 45 52 22 3A 99 | FIRST NUMBER":.|
00000AE0: 22 20 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 |" YOU WISH TO P|
00000AF0: 52 49 4E 54 22 3B 3A 85 20 4E 46 00 3B 13 1C 08 |RINT";:. NF.;...|
00000B00: 8B 20 4E 46 B1 4E 4E 20 A7 20 99 22 11 20 20 96 |. NF.NN . .". .|
00000B10: 54 48 45 52 45 20 41 52 45 20 4F 4E 4C 59 05 22 |THERE ARE ONLY."|
00000B20: 4E 4E 22 96 49 54 45 4D 53 20 49 4E 20 46 49 4C |NN".ITEMS IN FIL|
00000B30: 45 2E 9A 22 3A 89 20 32 30 37 35 00 75 13 20 08 |E..":. 2075.u. .|
00000B40: 99 22 11 11 20 20 45 4E 54 45 52 20 4C 41 53 54 |.".. ENTER LAST|
00000B50: 20 4E 55 4D 42 45 52 22 3A 99 22 20 20 59 4F 55 | NUMBER":." YOU|
00000B60: 20 57 49 53 48 20 54 4F 20 50 52 49 4E 54 22 3B | WISH TO PRINT";|
00000B70: 3A 85 20 4E 4C 00 B5 13 21 08 8B 20 4E 4C B1 4E |:. NL...!.. NL.N|
00000B80: 4E 20 A7 20 99 22 11 20 20 96 54 48 45 52 45 20 |N . .". .THERE |
00000B90: 41 52 45 20 4F 4E 4C 59 05 22 4E 4E 22 96 49 54 |ARE ONLY."NN".IT|
00000BA0: 45 4D 53 20 49 4E 20 46 49 4C 45 2E 9A 22 3A 89 |EMS IN FILE..":.|
00000BB0: 20 32 30 38 30 00 FF 13 23 08 98 34 2C 22 20 2A | 2080...#..4," *|
00000BC0: 2A 2A 20 50 41 52 54 49 41 4C 20 4C 49 53 54 49 |** PARTIAL LISTI|
00000BD0: 4E 47 20 4F 46 20 53 50 49 4E 2D 41 2D 46 4F 52 |NG OF SPIN-A-FOR|
00000BE0: 54 55 4E 45 20 44 41 54 41 20 46 49 4C 45 20 4E |TUNE DATA FILE N|
00000BF0: 41 4D 45 44 3A 20 22 4E 24 22 20 2A 2A 2A 22 00 |AMED: "N$" ***".|
00000C00: 06 14 24 08 98 34 00 18 14 25 08 8B 20 4E 46 B2 |..$..4...%.. NF.|
00000C10: 31 20 A7 20 32 31 30 35 00 29 14 2A 08 81 20 58 |1 . 2105.).*.. X|
00000C20: B2 31 20 A4 20 4E 46 AB 31 00 41 14 2F 08 81 20 |.1 . NF.1.A./.. |
00000C30: 59 B2 31 20 A4 20 33 3A 84 32 2C 41 24 3A 82 20 |Y.1 . 3:.2,A$:. |
00000C40: 59 00 4A 14 30 08 99 20 58 3B 00 52 14 34 08 82 |Y.J.0.. X;.R.4..|
00000C50: 20 58 00 67 14 39 08 5A B2 4E 46 3A 5A 5A B2 4E | X.g.9.Z.NF:ZZ.N|
00000C60: 4C 3A 89 32 31 31 35 00 AA 14 3B 08 99 22 11 11 |L:.2115...;.."..|
00000C70: 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 45 | DO YOU WANT THE|
00000C80: 20 46 49 4C 45 22 3A 20 99 22 20 53 4F 52 54 45 | FILE": ." SORTE|
00000C90: 44 20 41 4C 50 48 41 42 45 54 49 43 41 4C 4C 59 |D ALPHABETICALLY|
00000CA0: 3F 05 20 28 59 2F 4E 29 9A 22 00 C3 14 3D 08 A1 |?. (Y/N)."...=..|
00000CB0: 20 4B 24 3A 8B 20 4B 24 B2 22 4E 22 20 A7 20 32 | K$:. K$."N" . 2|
00000CC0: 31 31 32 00 D8 14 3E 08 8B 20 4B 24 B3 B1 22 59 |112...>.. K$.."Y|
00000CD0: 22 20 A7 20 32 31 30 39 00 E3 14 3F 08 89 20 32 |" . 2109...?.. 2|
00000CE0: 32 30 30 00 28 15 40 08 98 34 2C 22 20 2A 2A 2A |200.(.@..4," ***|
00000CF0: 20 4C 49 53 54 49 4E 47 20 4F 46 20 53 50 49 4E | LISTING OF SPIN|
00000D00: 2D 41 2D 46 4F 52 54 55 4E 45 20 44 41 54 41 20 |-A-FORTUNE DATA |
00000D10: 46 49 4C 45 20 4E 41 4D 45 44 3A 20 22 4E 24 22 |FILE NAMED: "N$"|
00000D20: 20 2A 2A 2A 22 3A 98 34 00 37 15 43 08 81 20 58 | ***":.4.7.C.. X|
00000D30: B2 5A 20 A4 20 5A 5A 00 4F 15 48 08 84 32 2C 50 |.Z . ZZ.O.H..2,P|
00000D40: 31 24 3A 84 32 2C 50 32 24 3A 84 32 2C 43 24 00 |1$:.2,P2$:.2,C$.|
00000D50: 6B 15 4D 08 98 34 2C 58 3B 43 24 3B A6 31 30 AB |k.M..4,X;C$;.10.|
00000D60: C3 28 43 24 29 29 3B 50 31 24 3B 00 89 15 52 08 |.(C$));P1$;...R.|
00000D70: 8B 20 50 32 24 B3 B1 22 2D 22 20 A7 20 98 34 2C |. P2$.."-" . .4,|
00000D80: 50 32 24 3A 89 32 31 34 30 00 90 15 57 08 98 34 |P2$:.2140...W..4|
00000D90: 00 9D 15 5C 08 99 20 58 3B 3A 82 20 58 00 AE 15 |...\.. X;:. X...|
00000DA0: 61 08 A0 20 32 3A A0 20 31 35 3A A0 20 34 00 B8 |a.. 2:. 15:. 4..|
00000DB0: 15 66 08 89 20 31 35 30 00 DC 15 98 08 8F 20 2A |.f.. 150...... *|
00000DC0: 2A 2A 2A 2A 20 50 52 49 4E 54 20 53 4F 52 54 45 |**** PRINT SORTE|
00000DD0: 44 20 46 49 4C 45 20 2A 2A 2A 2A 2A 00 FA 15 A2 |D FILE *****....|
00000DE0: 08 99 22 11 11 20 20 20 20 05 52 45 41 44 49 4E |..".. .READIN|
00000DF0: 47 20 46 49 4C 45 2E 2E 2E 9A 00 09 16 AC 08 81 |G FILE..........|
00000E00: 20 58 B2 31 20 A4 20 4E 4E 00 22 16 B6 08 3A 84 | X.1 . NN."...:.|
00000E10: 32 2C 50 31 24 3A 84 32 2C 50 32 24 3A 84 32 2C |2,P1$:.2,P2$:.2,|
00000E20: 43 24 00 3A 16 C0 08 3A 8B 20 50 32 24 B2 22 2D |C$.:...:. P2$."-|
00000E30: 22 20 A7 20 50 32 24 B2 22 22 00 57 16 CA 08 3A |" . P2$."".W...:|
00000E40: 50 48 24 28 58 29 B2 43 24 AA 22 20 20 20 22 AA |PH$(X).C$." ".|
00000E50: 50 31 24 AA 50 32 24 00 5D 16 D4 08 82 00 68 16 |P1$.P2$.].....h.|
00000E60: D9 08 A0 32 3A A0 31 35 00 7D 16 DE 08 9E 34 39 |...2:.15.}....49|
00000E70: 31 35 32 2C 4E 4E 2C 50 48 24 28 31 29 00 9D 16 |152,NN,PH$(1)...|
00000E80: E3 08 99 22 91 20 20 20 20 20 20 20 20 20 20 20 |...". |
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 E6 16 | "...|
00000EA0: E8 08 98 34 2C 22 20 2A 2A 2A 20 53 4F 52 54 45 |...4," *** SORTE|
00000EB0: 44 20 4C 49 53 54 49 4E 47 20 4F 46 20 53 50 49 |D LISTING OF SPI|
00000EC0: 4E 2D 41 2D 46 4F 52 54 55 4E 45 20 44 41 54 41 |N-A-FORTUNE DATA|
00000ED0: 20 46 49 4C 45 20 4E 41 4D 45 44 3A 20 22 4E 24 | FILE NAMED: "N$|
00000EE0: 22 20 2A 2A 2A 22 00 ED 16 ED 08 98 34 00 06 17 |" ***"......4...|
00000EF0: EF 08 98 34 2C 22 20 54 4F 54 41 4C 20 49 54 45 |...4," TOTAL ITE|
00000F00: 4D 53 3A 22 4E 4E 00 15 17 F2 08 81 20 58 B2 31 |MS:"NN...... X.1|
00000F10: 20 A4 20 4E 4E 00 54 17 F4 08 3A 8B 20 C8 28 50 | . NN.T...:. .(P|
00000F20: 48 24 28 58 29 2C 34 29 B3 B1 C8 28 50 48 24 28 |H$(X),4)...(PH$(|
00000F30: 58 AB 31 29 2C 34 29 20 A7 20 98 34 2C 22 2D 2D |X.1),4) . .4,"--|
00000F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F50: 2D 2D 2D 2D 00 63 17 F6 08 3A 98 34 2C 50 48 24 |----.c...:.4,PH$|
00000F60: 28 58 29 00 72 17 F8 08 82 3A A0 34 3A 89 20 31 |(X).r....:.4:. 1|
00000F70: 35 30 00 78 17 88 13 3A 00 9C 17 89 13 8F 20 2A |50.x...:...... *|
00000F80: 2A 2A 2A 2A 20 20 4D 41 4B 45 20 4E 45 57 20 46 |**** MAKE NEW F|
00000F90: 49 4C 45 20 20 2A 2A 2A 2A 2A 2A 2A 00 A2 17 8A |ILE *******....|
00000FA0: 13 3A 00 AB 17 8B 13 50 4E B2 31 00 D6 17 8D 13 |.:.....PN.1.....|
00000FB0: 99 22 93 11 11 9A 20 20 45 4E 54 45 52 20 4E 41 |.".... ENTER NA|
00000FC0: 4D 45 20 46 4F 52 20 4E 45 57 20 50 48 52 41 53 |ME FOR NEW PHRAS|
00000FD0: 45 20 46 49 4C 45 00 F3 17 92 13 99 22 20 20 28 |E FILE......" (|
00000FE0: 4D 41 58 2E 20 31 32 20 43 48 41 52 41 43 54 45 |MAX. 12 CHARACTE|
00000FF0: 52 53 29 00 00 18 9C 13 85 22 20 20 22 3B 4E 24 |RS)......" ";N$|
00001000: 00 16 18 A6 13 8B 20 C3 28 4E 24 29 B3 31 33 20 |...... .(N$).13 |
00001010: A7 20 35 31 30 30 00 47 18 B0 13 99 22 11 11 96 |. 5100.G...."...|
00001020: 20 20 20 4E 41 4D 45 20 49 53 20 54 4F 4F 20 4C | NAME IS TOO L|
00001030: 4F 4E 47 20 28 22 C3 28 4E 24 29 22 43 48 41 52 |ONG (".(N$)"CHAR|
00001040: 41 43 54 45 52 53 29 00 72 18 BA 13 99 22 11 11 |ACTERS).r...."..|
00001050: 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |.. PRESS A|
00001060: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00001070: 55 45 00 8A 18 C4 13 92 20 31 39 38 2C 31 3A A1 |UE...... 198,1:.|
00001080: 20 4B 24 3A 89 20 35 30 30 35 00 90 18 EB 13 3A | K$:. 5005.....:|
00001090: 00 B0 18 EC 13 99 22 93 11 11 20 20 9A 20 49 54 |......"... . IT|
000010A0: 45 4D 20 4E 55 4D 42 45 52 05 22 50 4E 22 9A 22 |EM NUMBER."PN"."|
000010B0: 00 CC 18 00 14 99 22 11 11 20 20 43 48 4F 4F 53 |......".. CHOOS|
000010C0: 45 20 41 20 43 41 54 45 47 4F 52 59 00 E3 18 01 |E A CATEGORY....|
000010D0: 14 99 22 20 20 20 20 20 96 31 2E 9A 20 50 45 52 |.." .1.. PER|
000010E0: 53 4F 4E 00 F9 18 02 14 99 22 20 20 20 20 20 96 |SON......" .|
000010F0: 32 2E 9A 20 50 4C 41 43 45 00 0F 19 03 14 99 22 |2.. PLACE......"|
00001100: 20 20 20 20 20 96 33 2E 9A 20 54 48 49 4E 47 00 | .3.. THING.|
00001110: 26 19 04 14 99 22 20 20 20 20 20 96 34 2E 9A 20 |&...." .4.. |
00001120: 50 48 52 41 53 45 00 3C 19 05 14 99 22 20 20 20 |PHRASE.<...." |
00001130: 20 20 96 35 2E 9A 20 54 49 54 4C 45 00 56 19 06 | .5.. TITLE.V..|
00001140: 14 99 22 20 20 20 20 20 9E 12 46 31 92 20 54 4F |.." ..F1. TO|
00001150: 20 51 55 49 54 9A 00 79 19 0A 14 A1 20 4B 24 3A | QUIT..y.... K$:|
00001160: 8B 20 4B 24 B2 22 85 22 20 A7 20 4E 4E B2 50 4E |. K$."." . NN.PN|
00001170: AB 31 3A 89 20 36 30 30 30 00 98 19 0F 14 4B B2 |.1:. 6000.....K.|
00001180: C5 28 4B 24 29 3A 8B 20 4B B3 31 20 B0 20 4B B1 |.(K$):. K.1 . K.|
00001190: 35 20 A7 20 35 31 33 30 00 BB 19 14 14 91 20 4B |5 . 5130...... K|
000011A0: 20 89 20 35 31 34 35 2C 35 31 35 30 2C 35 31 35 | . 5145,5150,515|
000011B0: 35 2C 35 31 36 30 2C 35 31 36 35 00 D6 19 19 14 |5,5160,5165.....|
000011C0: 43 24 28 50 4E 29 B2 22 50 45 52 53 4F 4E 22 3A |C$(PN)."PERSON":|
000011D0: 89 20 35 31 38 30 00 F0 19 1E 14 43 24 28 50 4E |. 5180.....C$(PN|
000011E0: 29 B2 22 50 4C 41 43 45 22 3A 89 20 35 31 38 30 |)."PLACE":. 5180|
000011F0: 00 0A 1A 23 14 43 24 28 50 4E 29 B2 22 54 48 49 |...#.C$(PN)."THI|
00001200: 4E 47 22 3A 89 20 35 31 38 30 00 25 1A 28 14 43 |NG":. 5180.%.(.C|
00001210: 24 28 50 4E 29 B2 22 50 48 52 41 53 45 22 3A 89 |$(PN)."PHRASE":.|
00001220: 20 35 31 38 30 00 38 1A 2D 14 43 24 28 50 4E 29 | 5180.8.-.C$(PN)|
00001230: B2 22 54 49 54 4C 45 22 00 4A 1A 3C 14 99 22 11 |."TITLE".J.<..".|
00001240: 11 20 05 22 43 24 28 50 4E 29 00 60 1A 46 14 99 |. ."C$(PN).`.F..|
00001250: 22 11 11 20 20 9A 45 4E 54 45 52 20 49 54 45 4D |".. .ENTER ITEM|
00001260: 00 7D 1A 50 14 99 22 20 20 28 4D 41 58 2E 20 35 |.}.P.." (MAX. 5|
00001270: 30 20 43 48 41 52 41 43 54 45 52 53 29 00 89 1A |0 CHARACTERS)...|
00001280: 64 14 99 3A 85 20 50 48 24 00 A0 1A 6E 14 8B 20 |d..:. PH$...n.. |
00001290: C3 28 50 48 24 29 B3 35 31 20 A7 20 35 32 35 30 |.(PH$).51 . 5250|
000012A0: 00 E1 1A 78 14 99 22 11 11 96 20 20 50 48 52 41 |...x.."... PHRA|
000012B0: 53 45 20 49 53 20 54 4F 4F 20 4C 4F 4E 47 20 9E |SE IS TOO LONG .|
000012C0: 28 22 C3 28 50 48 24 28 50 4E 29 29 22 43 48 41 |(".(PH$(PN))"CHA|
000012D0: 52 41 43 54 45 52 53 29 9A 22 3A 89 20 35 31 39 |RACTERS).":. 519|
000012E0: 30 00 EC 1A 82 14 8D 20 35 33 30 30 00 FF 1A AA |0...... 5300....|
000012F0: 14 50 4E B2 50 4E AA 31 3A 89 20 35 31 30 30 00 |.PN.PN.1:. 5100.|
00001300: 05 1B B3 14 3A 00 26 1B B4 14 8F 20 20 2A 2A 2A |....:.&.... ***|
00001310: 2A 2A 20 50 48 52 41 53 45 20 50 41 52 53 45 52 |** PHRASE PARSER|
00001320: 20 2A 2A 2A 2A 2A 00 3D 1B B6 14 8B 20 C3 28 50 | *****.=.... .(P|
00001330: 48 24 29 B3 32 39 20 A7 20 35 34 30 30 00 55 1B |H$).29 . 5400.U.|
00001340: B9 14 49 B2 30 3A 4D 20 B2 20 B5 28 C3 28 50 48 |..I.0:M . .(.(PH|
00001350: 24 29 AD 32 29 00 7C 1B BE 14 8B 20 CA 28 50 48 |$).2).|.... .(PH|
00001360: 24 2C 4D AB 49 2C 31 29 B2 22 20 22 20 A7 20 4D |$,M.I,1)." " . M|
00001370: B2 4D AB 49 3A 20 20 89 35 33 37 30 00 98 1B C8 |.M.I: .5370....|
00001380: 14 49 B2 49 AA 31 3A 8B 20 49 B1 35 20 A7 20 49 |.I.I.1:. I.5 . I|
00001390: B2 31 3A 89 35 33 34 30 00 A2 1B D2 14 89 35 33 |.1:.5340......53|
000013A0: 31 30 00 C9 1B DC 14 8B 20 CA 28 50 48 24 2C 4D |10...... .(PH$,M|
000013B0: AA 49 2C 31 29 B2 22 20 22 20 A7 20 4D B2 4D AA |.I,1)." " . M.M.|
000013C0: 49 3A 20 20 89 35 33 37 30 00 DF 1B E6 14 49 B2 |I: .5370.....I.|
000013D0: 49 AA 31 3A 8B 20 49 B1 35 20 A7 35 34 32 30 00 |I.1:. I.5 .5420.|
000013E0: E9 1B F0 14 89 35 33 34 30 00 FC 1B FA 14 41 B2 |.....5340.....A.|
000013F0: C3 28 50 48 24 29 AB 28 4D AB 31 29 00 22 1C 04 |.(PH$).(M.1)."..|
00001400: 15 50 31 24 28 50 4E 29 B2 C8 28 50 48 24 2C 4D |.P1$(PN)..(PH$,M|
00001410: 29 3A 50 32 24 28 50 4E 29 B2 C9 28 50 48 24 2C |):P2$(PN)..(PH$,|
00001420: 41 29 00 2C 1C 0E 15 89 35 34 33 30 00 48 1C 18 |A).,....5430.H..|
00001430: 15 50 31 24 28 50 4E 29 B2 50 48 24 3A 50 32 24 |.P1$(PN).PH$:P2$|
00001440: 28 50 4E 29 B2 22 2D 22 00 52 1C 22 15 89 35 34 |(PN)."-".R."..54|
00001450: 33 30 00 73 1C 2C 15 99 22 11 11 11 96 20 45 52 |30.s.,..".... ER|
00001460: 52 4F 52 20 2D 2D 20 20 43 41 4E 27 54 20 50 41 |ROR -- CAN'T PA|
00001470: 52 53 45 00 8F 1C 31 15 81 20 44 B2 31 20 A4 20 |RSE...1.. D.1 . |
00001480: 31 30 30 30 3A 82 20 44 3A 89 20 35 34 34 30 00 |1000:. D:. 5440.|
00001490: 95 1C 36 15 8E 00 9B 1C 70 17 3A 00 BE 1C 71 17 |..6.....p.:...q.|
000014A0: 8F 20 2A 2A 2A 2A 20 57 52 49 54 45 20 46 49 4C |. **** WRITE FIL|
000014B0: 45 20 54 4F 20 44 49 53 4B 20 2A 2A 2A 2A 00 C4 |E TO DISK ****..|
000014C0: 1C 72 17 3A 00 E7 1C 73 17 99 22 93 11 11 11 11 |.r.:...s..".....|
000014D0: 11 05 20 20 20 20 20 57 52 49 54 49 4E 47 20 46 |.. WRITING F|
000014E0: 49 4C 45 2E 2E 2E 9A 00 F5 1C 75 17 9F 20 31 35 |ILE.......u.. 15|
000014F0: 2C 38 2C 31 35 00 14 1D 7A 17 9F 20 32 2C 38 2C |,8,15...z.. 2,8,|
00001500: 32 2C 22 30 3A 22 AA 4E 24 AA 22 2E 50 48 52 2C |2,"0:".N$.".PHR,|
00001510: 53 2C 57 22 00 24 1D 7F 17 4C 4E B2 32 3A 89 20 |S,W".$...LN.2:. |
00001520: 38 30 30 30 00 2E 1D 84 17 98 32 2C 4E 4E 00 3D |8000......2,NN.=|
00001530: 1D 8E 17 81 20 58 B2 31 20 A4 20 4E 4E 00 5E 1D |.... X.1 . NN.^.|
00001540: 98 17 98 32 2C 50 31 24 28 58 29 3A 98 32 2C 50 |...2,P1$(X):.2,P|
00001550: 32 24 28 58 29 3A 98 32 2C 43 24 28 58 29 00 66 |2$(X):.2,C$(X).f|
00001560: 1D A2 17 82 20 58 00 75 1D AC 17 A0 20 32 3A A0 |.... X.u.... 2:.|
00001570: 20 31 35 3A 8A 00 7B 1D 40 1F 3A 00 9E 1D 41 1F | 15:..{.@.:...A.|
00001580: 8F 20 2A 2A 2A 2A 2A 20 44 49 53 4B 20 45 52 52 |. ***** DISK ERR|
00001590: 4F 52 20 43 48 45 43 4B 20 2A 2A 2A 2A 2A 00 A4 |OR CHECK *****..|
000015A0: 1D 42 1F 3A 00 B5 1D 4A 1F 84 31 35 2C 41 2C 42 |.B.:...J..15,A,B|
000015B0: 24 2C 43 2C 44 00 D8 1D 54 1F 8B 20 41 B3 32 30 |$,C,D...T.. A.20|
000015C0: 20 A7 20 91 20 4C 4E 20 89 20 31 30 35 30 2C 36 | . . LN . 1050,6|
000015D0: 30 32 30 2C 32 30 34 30 00 E3 1D 59 1F A0 32 3A |020,2040...Y..2:|
000015E0: A0 31 35 00 FF 1D 5E 1F 8B 20 41 B2 36 33 20 A7 |.15...^.. A.63 .|
000015F0: 20 8B 20 4C 4E B3 B1 33 20 A7 20 38 34 30 30 00 | . LN..3 . 8400.|
00001600: 1A 1E 5F 1F 8B 20 41 B2 36 33 20 A7 20 8B 20 4C |.._.. A.63 . . L|
00001610: 4E B2 33 20 A7 20 32 30 34 30 00 2C 1E 63 1F 8B |N.3 . 2040.,.c..|
00001620: 20 41 B2 36 32 20 A7 20 38 38 30 30 00 60 1E 68 | A.62 . 8800.`.h|
00001630: 1F 99 22 96 20 20 20 20 20 20 20 20 20 20 2A 2A |..". **|
00001640: 2A 2A 20 44 49 53 4B 20 45 52 52 4F 52 20 2A 2A |** DISK ERROR **|
00001650: 2A 20 22 3A 99 3A 99 20 41 3B 42 24 3B 43 3B 44 |* ":.:. A;B$;C;D|
00001660: 00 7B 1E 72 1F 99 3A 99 22 20 20 20 20 96 31 2E |.{.r..:." .1.|
00001670: 20 9A 54 52 59 20 41 47 41 49 4E 00 90 1E 7C 1F | .TRY AGAIN...|.|
00001680: 99 22 20 20 20 20 96 32 2E 20 9A 41 42 4F 52 54 |." .2. .ABORT|
00001690: 00 C7 1E 86 1F 92 20 31 39 38 2C 31 3A A1 20 4B |...... 198,1:. K|
000016A0: 24 3A 4B B2 C5 28 4B 24 29 3A 8B 20 4B B2 31 20 |$:K..(K$):. K.1 |
000016B0: A7 20 91 20 4C 4E 20 89 20 31 30 30 30 2C 36 30 |. . LN . 1000,60|
000016C0: 30 30 2C 32 30 31 35 00 D5 1E 90 1F 8B 20 4B B2 |00,2015...... K.|
000016D0: 32 20 A7 20 8A 00 E0 1E 9A 1F 89 20 38 30 37 30 |2 . ....... 8070|
000016E0: 00 F8 1E D0 20 99 22 11 11 20 20 20 96 46 49 4C |.... .".. .FIL|
000016F0: 45 20 45 58 49 53 54 53 00 1E 1F DA 20 99 22 11 |E EXISTS.... .".|
00001700: 20 20 20 20 96 31 2E 20 9A 53 43 52 41 54 43 48 | .1. .SCRATCH|
00001710: 20 45 58 49 53 54 49 4E 47 20 46 49 4C 45 00 48 | EXISTING FILE.H|
00001720: 1F E4 20 99 22 20 20 20 20 96 32 2E 20 9A 43 48 |.. ." .2. .CH|
00001730: 41 4E 47 45 20 44 49 53 4B 53 20 41 4E 44 20 54 |ANGE DISKS AND T|
00001740: 52 59 20 41 47 41 49 4E 00 6B 1F EE 20 99 22 20 |RY AGAIN.k.. ." |
00001750: 20 20 20 96 33 2E 20 9A 52 45 54 55 52 4E 20 54 | .3. .RETURN T|
00001760: 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 91 1F 34 21 |O MAIN MENU...4!|
00001770: 92 20 31 39 38 2C 31 3A A1 20 4B 24 3A 4B B2 C5 |. 198,1:. K$:K..|
00001780: 28 4B 24 29 3A 8B 20 4B B2 31 20 A7 20 38 36 30 |(K$):. K.1 . 860|
00001790: 30 00 A3 1F 39 21 8B 20 4B B2 33 20 A7 20 89 20 |0...9!. K.3 . . |
000017A0: 31 35 30 00 B5 1F 3E 21 8B 20 4B B3 B1 32 20 A7 |150...>!. K..2 .|
000017B0: 20 38 35 30 30 00 DF 1F 66 21 99 22 11 11 20 20 | 8500...f!.".. |
000017C0: 20 50 55 54 20 41 4E 4F 54 48 45 52 20 44 49 53 | PUT ANOTHER DIS|
000017D0: 4B 20 49 4E 20 54 48 45 20 44 52 49 56 45 2E 00 |K IN THE DRIVE..|
000017E0: 00 20 70 21 99 22 20 20 20 48 49 54 20 41 4E 59 |. p!." HIT ANY|
000017F0: 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 2E | KEY WHEN READY.|
00001800: 00 11 20 75 21 92 20 31 39 38 2C 31 3A A1 20 4B |.. u!. 198,1:. K|
00001810: 24 00 1C 20 7A 21 89 20 36 30 30 30 00 37 20 98 |$.. z!. 6000.7 .|
00001820: 21 8F 20 2A 2A 2A 20 53 43 52 41 54 43 48 20 46 |!. *** SCRATCH F|
00001830: 49 4C 45 20 2A 2A 2A 00 5A 20 A2 21 99 22 93 11 |ILE ***.Z .!."..|
00001840: 11 20 96 53 43 52 41 54 43 48 20 9E 22 4E 24 22 |. .SCRATCH ."N$"|
00001850: 2E 50 48 52 20 96 46 49 4C 45 00 78 20 AC 21 99 |.PHR .FILE.x .!.|
00001860: 22 11 11 20 96 41 52 45 20 59 4F 55 20 53 55 52 |".. .ARE YOU SUR|
00001870: 45 20 28 59 2F 4E 29 9A 00 91 20 B1 21 A1 20 4B |E (Y/N)... .!. K|
00001880: 24 3A 8B 20 4B 24 B2 22 59 22 20 A7 20 38 36 35 |$:. K$."Y" . 865|
00001890: 30 00 A6 20 B6 21 8B 20 4B 24 B3 B1 22 4E 22 20 |0.. .!. K$.."N" |
000018A0: A7 20 38 36 32 35 00 B3 20 BB 21 CB 20 A4 20 38 |. 8625.. .!. . 8|
000018B0: 34 30 30 00 CE 20 CA 21 99 22 11 11 05 20 20 20 |400.. .!."... |
000018C0: 53 43 52 41 54 43 48 49 4E 47 2E 2E 2E 9A 00 DC |SCRATCHING......|
000018D0: 20 CF 21 9F 20 31 35 2C 38 2C 31 35 00 F4 20 D4 | .!. 15,8,15.. .|
000018E0: 21 98 31 35 2C 22 53 30 3A 22 AA 4E 24 AA 22 2E |!.15,"S0:".N$.".|
000018F0: 50 48 52 22 00 04 21 DE 21 A0 20 31 35 3A 89 20 |PHR"..!.!. 15:. |
00001900: 36 30 30 30 00 0A 21 60 22 3A 00 2E 21 61 22 8F |6000..!`":..!a".|
00001910: 20 2A 2A 2A 2A 20 46 49 4C 45 20 4E 4F 54 20 46 | **** FILE NOT F|
00001920: 4F 55 4E 44 20 45 52 52 4F 52 20 2A 2A 2A 00 34 |OUND ERROR ***.4|
00001930: 21 62 22 3A 00 5C 21 6A 22 99 22 11 11 20 20 20 |!b":.\!j".".. |
00001940: 20 20 20 20 20 20 20 96 2A 2A 20 46 49 4C 45 20 | .** FILE |
00001950: 4E 4F 54 20 46 4F 55 4E 44 20 2A 2A 00 82 21 74 |NOT FOUND **..!t|
00001960: 22 99 22 11 20 20 20 20 20 9A 4D 41 4B 45 20 53 |".". .MAKE S|
00001970: 55 52 45 20 54 48 45 20 52 49 47 48 54 20 44 49 |URE THE RIGHT DI|
00001980: 53 4B 00 9D 21 7E 22 99 22 20 20 20 20 20 49 53 |SK..!~"." IS|
00001990: 20 49 4E 20 54 48 45 20 44 52 49 56 45 00 B9 21 | IN THE DRIVE..!|
000019A0: 88 22 99 22 11 11 20 20 20 20 20 96 31 2E 20 9A |.".".. .1. .|
000019B0: 54 52 59 20 41 47 41 49 4E 00 CF 21 92 22 99 22 |TRY AGAIN..!."."|
000019C0: 20 20 20 20 20 96 32 2E 20 9A 41 42 4F 52 54 00 | .2. .ABORT.|
000019D0: 09 22 9C 22 92 20 31 39 38 2C 31 3A A1 20 4B 24 |.".". 198,1:. K$|
000019E0: 3A 4B B2 C5 28 4B 24 29 3A 8B 20 4B B2 31 20 A7 |:K..(K$):. K.1 .|
000019F0: 20 A0 32 3A 91 20 4C 4E 20 89 20 31 30 30 30 2C | .2:. LN . 1000,|
00001A00: 36 30 30 30 2C 32 30 31 35 00 1B 22 A6 22 8B 20 |6000,2015..".". |
00001A10: 4B B3 B1 32 20 A7 20 38 38 36 30 00 21 22 B0 22 |K..2 . 8860.!"."|
00001A20: 8A 00 59 22 18 F6 97 36 34 36 2C 30 3A 97 36 34 |..Y"...646,0:.64|
00001A30: 37 2C 30 3A 41 24 B2 22 4D 45 4E 55 22 3A 97 35 |7,0:A$."MENU":.5|
00001A40: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:|
00001A50: 42 24 B2 22 4D 45 4E 55 22 00 90 22 22 F6 99 22 |B$."MENU".."".."|
00001A60: 93 11 11 11 11 11 11 11 11 11 11 11 11 22 3B A6 |.............";.|
00001A70: 32 30 AB 28 28 38 AA C3 28 42 24 29 29 AD 32 29 |20.((8..(B$)).2)|
00001A80: 29 3B 22 9E 4C 4F 41 44 49 4E 47 20 22 3B 42 24 |);".LOADING ";B$|
00001A90: 00 BC 22 2C F6 97 36 34 36 2C 30 3A 99 22 13 11 |..",..646,0:."..|
00001AA0: 11 11 11 4C 4F 41 44 22 3B C7 28 33 34 29 3B 41 |...LOAD";.(34);A|
00001AB0: 24 3B C7 28 33 34 29 3B 22 2C 38 22 00 F1 22 36 |$;.(34);",8".."6|
00001AC0: F6 99 22 11 11 11 11 52 55 4E 22 3A 97 31 39 38 |.."....RUN":.198|
00001AD0: 2C 33 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C |,3:.631,13:.632,|
00001AE0: 31 33 3A 97 36 33 33 2C 31 33 3A 99 22 13 22 3A |13:.633,13:.".":|
00001AF0: A2 00 00 00 |.... |
....Z...5.D.PN.1:. P1$(150),P2$(150),C$(
150),PH$(150).T.N.. 53281,11:. 53280,11:
.".".W.S.. B(49152)..32 . ."L-SORT",8,1.
..... **** INSTRUCTION MESSAGE ****.N...
."......................................
....";... ..". FILE MAKER
";.1...." BY J
OHN WENTE ";.B...."
COPYRIGHT 1986 ."...R..
"... .THIS PROGRAM GENETATES SEQUENTIAL
......" PHRASE FILES FOR THE .SPIN-A-FO
RTUNE......" .GAME. THE FILES ARE SAVE
D TO DISK......" WITH THE NAME YOU ASSI
GN PLUS THE.=...." EXTENSION '.PHR' WHI
CH IDENTIFIES.[...." THEM AS PHRASE FIL
ES..R.|..".. .CHOOSE ONE ......." 1..
MAKE A NEW PHRASE FILE.A....". 2.. REA
D/MODIFY AN EXISTING FILE......". 3..
PRINT OUT A FILE......". 4.. EXIT PROG
RAM...... K$:. K$."" .410.....K.E(K$):.
K.1 . K.4 .410.K.B.. K . 5000,1000,2000,
500.R...."..... .EXIT PROGR
AM......"... .ARE YOU SURE?.
F....".HAS MODIFIED FILE BEEN WRITTEN TO
DISK?......"...... .F1.. TO
ABORT............" . .ANYTHING EL
SE. TO EXIT.2.&.. K$:. K$."" . 550.E.0..
K$."." . 150.Q.X.. 63000.P.'.F . K$."T"
. . LN.2 . 6000.V...:...... *** READ/M
ODIFY OLD FILE ****.....:.A.... *** REA
D IN OLD FILE ***......"... NAME OF FILE
TO READ";N$...... 15,8,15...... 2,8,2,"
0:".N$.".PHR,S,R".0...."... READING
FILE.....B...LN . 1:. 8000.L....2,NN.[.$
.. X.1 . NN.|....2,P1$(X):.2,P2$(X):.2,C
$(X)...B.. X...L. 2: 15...Q.."..... S
ELECT ONE OF THE FOLLOWING:...V..". .
1. .VIEW/CHANGE FILE...`.." .2. .ADD
ITEMS TO FILE...E.." .3. .WRITE FILE.
:.G.." .4. .RETURN TO MAIN MENU.`.J..
198,1:. K$:K.E(K$): . K.1. 1190.Q.O.. K
.3 . 6000..T.. K.4 . ....Y.. K..2 . 113
0...~.PN.NN.1:. 5100.G.... ***** VIEW/CH
ANGE FILE *****......".. START WITH WHI
CH RECORD";PN.....:......"... ITEM #."PN
".".*....". CATAGORY -- "C$(PN):..J.D..
". "P1$(PN):." " P2$(PN).N.N.. PRIN
T#4,PN;P1$(PN)+P2$(PN)......" .....SP
ACE. .TO CONTINUE......" ..C..HANGE T
HIS ITEM.H...." ..F1. TO QUIT...... K
$:. K$." " . PN.PN.1:. PN.NN . 1350.....
. K$." " . . 1210...... K$."." . 1100.2.
... K$.."C" . 1265.T.... ". CHANGE WHICH
ONE?":. " ..P..HRASE":." ..C..ATE
GORY...... K$:. K$."C" . 1300...... K$..
"P" . 1290.T....". ENTER CORRECT PHRASE"
:. PH$:. 5300:. 1210......". ENTER CORRE
CT CATEGORY":. C$(PN)...... 1210.#.F..".
... END OF LIST..2.P. 4:. 1110.8.P.:
.\.Q.. ******* PRINT A FILE *******.B.R
.:...U.."... .MAKE SURE PRINTER IS READY
....Z.."... NAME OF FILE TO PRINT";N$...
... 4,4.E.... 15,8,15...... 2,8,2,"0:".N
$.".PHR,S,R".....LN.3:. 8000......2,NN."
....".. FILE CONTAINS."NN".ITEMS".C....
:." .1.. PRINT ENTIRE FILE.C...." .2..
PRINT PART OF FILE...... K$:. K$."1" .
Z.1:ZZ.NN:.2107...... K$.."2" .2060.....
."... FILE CONTAINS."NN".ITEMS"......".
. ENTER FIRST NUMBER":." YOU WISH TO P
RINT";:. NF.;.... NF.NN . .". .THERE AR
E ONLY."NN".ITEMS IN FILE..":. 2075.U. .
.".. ENTER LAST NUMBER":." YOU WISH TO
PRINT";:. NL...!.. NL.NN . .". .THERE
ARE ONLY."NN".ITEMS IN FILE..":. 2080...
#..4," *** PARTIAL LISTING OF SPIN-A-FOR
TUNE DATA FILE NAMED: "N$" ***"...$..4..
.%.. NF.1 . 2105.).*.. X.1 . NF.1.A./..
Y.1 . 3:.2,A$:. Y.J.0.. X;.R.4.. X.G.9.Z
.NF:ZZ.NL:.2115...;..".. DO YOU WANT THE
FILE": ." SORTED ALPHABETICALLY?. (Y/N)
.".C.=.. K$:. K$."N" . 2112.X.>.. K$.."Y
" . 2109...?.. 2200.(.@..4," *** LISTING
OF SPIN-A-FORTUNE DATA FILE NAMED: "N$"
***":.4.7.C.. X.Z . ZZ.O.H..2,P1$:.2,P2
$:.2,C$.K.M..4,X;C$;.10.C(C$));P1$;...R.
. P2$.."-" . .4,P2$:.2140...W..4...\.. X
;:. X...A. 2: 15: 4...F.. 150...... *
**** PRINT SORTED FILE *****......"..
.READING FILE.......... X.1 . NN."...:.
2,P1$:.2,P2$:.2,C$.:...:. P2$."-" . P2$.
"".W.J.:PH$(X).C$." ".P1$.P2$.].T...H.
Y. 2: 15.}....49152,NN,PH$(1)......".
"......4," *** SORTE
D LISTING OF SPIN-A-FORTUNE DATA FILE NA
MED: "N$" ***"......4......4," TOTAL ITE
MS:"NN...... X.1 . NN.T...:. H(PH$(X),4)
..H(PH$(X.1),4) . .4,"------------------
----.C...:.4,PH$(X).R....: 4:. 150.X...:
...... ***** MAKE NEW FILE *******....
.:.....PN.1.V....".... ENTER NAME FOR N
EW PHRASE FILE......" (MAX. 12 CHARACTE
RS)......" ";N$...... C(N$).13 . 5100.G
...."... NAME IS TOO LONG ("C(N$)"CHAR
ACTERS).R....".... PRESS ANY KEY T
O CONTINUE...D.. 198,1:. K$:. 5005.....:
......"... . ITEM NUMBER."PN".".L....".
. CHOOSE A CATEGORY......" .1.. PER
SON......" .2.. PLACE......" .3.
. THING.&...." .4.. PHRASE.<...."
.5.. TITLE.V...." ..F1. TO QUIT..Y
.... K$:. K$."." . NN.PN.1:. 6000.....K.
E(K$):. K.1 . K.5 . 5130...... K . 5145,
5150,5155,5160,5165.V...C$(PN)."PERSON":
. 5180.....C$(PN)."PLACE":. 5180...#.C$(
PN)."THING":. 5180.%.(.C$(PN)."PHRASE":.
5180.8.-.C$(PN)."TITLE".J.<..".. ."C$(P
N).`.F..".. .ENTER ITEM.}.P.." (MAX. 5
0 CHARACTERS)...D..:. PH$. .N.. C(PH$).5
1 . 5250...X.."... PHRASE IS TOO LONG .
("C(PH$(PN))"CHARACTERS).":. 5190......
5300.....PN.PN.1:. 5100.....:.&.... ***
** PHRASE PARSER *****.=.... C(PH$).29 .
5400.U...I.0:M . .(C(PH$).2).|.... J(PH
$,M.I,1)." " . M.M.I: .5370...H.I.I.1:.
I.5 . I.1:.5340...R..5310.I.... J(PH$,M
.I,1)." " . M.M.I: .5370.....I.I.1:. I.
5 .5420......5340.....A.C(PH$).(M.1)."..
.P1$(PN).H(PH$,M):P2$(PN).I(PH$,A).,....
5430.H...P1$(PN).PH$:P2$(PN)."-".R."..54
30.S.,..".... ERROR -- CAN'T PARSE...1.
. D.1 . 1000:. D:. 5440...6.....P.:...Q.
. **** WRITE FILE TO DISK ****.D.R.:...S
.."....... WRITING FILE.......U.. 15
,8,15...Z.. 2,8,2,"0:".N$.".PHR,S,W".$.
.LN.2:. 8000......2,NN.=.... X.1 . NN.^.
...2,P1$(X):.2,P2$(X):.2,C$(X).F.... X.U
... 2: 15:..{.@.:...A.. ***** DISK ERR
OR CHECK *****...B.:...J..15,A,B$,C,D.X.
T.. A.20 . . LN . 1050,6020,2040...Y. 2:
15...^.. A.63 . . LN..3 . 8400..._.. A.
63 . . LN.3 . 2040.,.C.. A.62 . 8800.`.H
..". **** DISK ERROR *** ":.:.
A;B$;C;D.{.R..:." .1. .TRY AGAIN...|.
." .2. .ABORT.G.... 198,1:. K$:K.E(K$
):. K.1 . . LN . 1000,6000,2015.U.... K.
2 . ....... 8070...P .".. .FILE EXISTS
...Z .". .1. .SCRATCH EXISTING FILE.H
.. ." .2. .CHANGE DISKS AND TRY AGAIN
.K.. ." .3. .RETURN TO MAIN MENU...4!
. 198,1:. K$:K.E(K$):. K.1 . 8600...9!.
K.3 . . 150...>!. K..2 . 8500...F!."..
PUT ANOTHER DISK IN THE DRIVE... P!."
HIT ANY KEY WHEN READY... U!. 198,1:. K
$.. Z!. 6000.7 .!. *** SCRATCH FILE ***.
Z .!."... .SCRATCH ."N$".PHR .FILE.X .!.
".. .ARE YOU SURE (Y/N)... .!. K$:. K$."
Y" . 8650.. .!. K$.."N" . 8625.. .!K . 8
400.N J!."... SCRATCHING...... O!. 15,
8,15.. T!.15,"S0:".N$.".PHR"..!.! 15:.
6000..!`":..!A". **** FILE NOT FOUND ERR
OR ***.4!B":.\!J".".. .** FILE
NOT FOUND **..!T".". .MAKE SURE THE
RIGHT DISK..!~"." IS IN THE DRIVE..!
.".".. .1. .TRY AGAIN.O!."." .2.
.ABORT..".". 198,1:. K$:K.E(K$):. K.1 .
2:. LN . 1000,6000,2015..".". K..2 . 8
860.!"."..Y"...646,0:.647,0:A$."MENU":.5
3280,0:.53281,0:B$."MENU".."".."........
.....";.20.((8.C(B$)).2));".LOADING ";B$
..",..646,0:.".....LOAD";G(34);A$;G(34);
",8".."6.."....RUN":.198,3:.631,13:.632,
13:.633,13:.".":....
> CLICK IMAGE PREVIEW FOR FULL MODAL