Home » Personal collection » Acorn tapes » Commercial_Releases » box03_tape06b_acorn_the_wheel_of_fortune.wav » FORTUNE
FORTUNE
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn tapes » Commercial_Releases » box03_tape06b_acorn_the_wheel_of_fortune.wav |
| Filename: | FORTUNE |
| Read OK: | ✔ |
| File size: | 0454 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
10 REM THE WHEEL OF FORTUNE - v2 Melvyn Wright 20 REM (C) 1984 - EPIC SOFTWARE 30 ONERRORMODE6:END 40 MODE5:H%=RND(-TIME)*0+33:@%=10:PROCG 50 VDU33041;17;796;4122;3091;:PROCD(280) 60 ?&2AC=0:?&212=?((!&FFB7 AND&FFFF)+&12):?&213=?((!&FFB7 AND&FFFF)+&13) 70 CHAIN"Fortune1" 80 DEFPROCG:VDU65303;65535;65535;65535;65535;5,18;4865;2;0;4864;259;0;0,1049;256;328;:PROCE:VDU18,4;1049;264;336;:PROCE:VDU4868;257;0;4864;259;0;0,279;0;0;0;0;:FORN=1 TO 50:PROCD(5):VDU10:NEXT 90 VDU18;2,1049;1230;500;1049;80;500;21785;1230;60;21785;80;60;18;1,1049;80;500;1305;1230;500;1305;1230;60;1305;80;60;1305;80;500;33297;785;531;5;0;275;11;0;531;5;0;787;12;0;:PRINTTAB(6,17)"ELECTRON":PRINTTAB(5,28)"ADVENTURES":ENDPROC 100 DEFPROCE:PRINT"��� ��� � ���"CHR$10STRING$(13,CHR$8)"��� ��� � ���"CHR$10STRING$(13,CHR$8)"� � � � �"CHR$10STRING$(11,CHR$8)"� � � � �"CHR$10STRING$(11,CHR$8); 110 PRINT"�� ��� � �"CHR$10STRING$(11,CHR$8)"�� ��� � �"CHR$10STRING$(11,CHR$8)"� � � �"CHR$10STRING$(11,CHR$8)"� � � �"CHR$10STRING$(11,CHR$8)"��� � � ���"CHR$10STRING$(13,CHR$8)"��� � � ���":ENDPROC 120 DEFPROCD(X):TIME=0:REPEAT:IF ADVAL(-6) PROCS 130 UNTILTIME>X:ENDPROC 140 DEFPROCS:IFH%<2 ENDPROC 150 READA:SOUND1,-15,A,4:H%=H%-1:ENDPROC 160 DATA117,129,117,121,117,129,117,121,117,129,117,121,137,149,149,149,141,129,117,129,121,101,89,101,93,81,69,73,89,73,89,73
M � THE WHEEL OF FORTUNE - v2 Melvyn Wright
� (C) 1984 - EPIC SOFTWARE
��6:�
( �5:H%=�(-�)*0+33:@%=10:�G
2% �33041;17;796;4122;3091;:�D(280)
<F ?&2AC=0:?&212=?((!&FFB7 �&FFFF)+&12):?&213=?((!&FFB7 �&FFFF)+&13)
F �"Fortune1"
P� ��G:�65303;65535;65535;65535;65535;5,18;4865;2;0;4864;259;0;0,1049;256;328;:�E:�18,4;1049;264;336;:�E:�4868;257;0;4864;259;0;0,279;0;0;0;0;:�N=1 � 50:�D(5):�10:�
Z� �18;2,1049;1230;500;1049;80;500;21785;1230;60;21785;80;60;18;1,1049;80;500;1305;1230;500;1305;1230;60;1305;80;60;1305;80;500;33297;785;531;5;0;275;11;0;531;5;0;787;12;0;:�6,17)"ELECTRON":�5,28)"ADVENTURES":�
dk ��E:�"��� ��� � ���"�10�13,�8)"��� ��� � ���"�10�13,�8)"� � � � �"�10�11,�8)"� � � � �"�10�11,�8);
n� �"�� ��� � �"�10�11,�8)"�� ��� � �"�10�11,�8)"� � � �"�10�11,�8)"� � � �"�10�11,�8)"��� � � ���"�10�13,�8)"��� � � ���":�
x ��D(X):�=0:�:� �(-6) �S
� ��>X:�
� ��S:�H%<2 �
� �A:�1,-15,A,4:H%=H%-1:�
�| �117,129,117,121,117,129,117,121,117,129,117,121,137,149,149,149,141,129,117,129,121,101,89,101,93,81,69,73,89,73,89,73
� 00000000 0d 00 0a 4d 20 f4 20 54 48 45 20 57 48 45 45 4c |...M . THE WHEEL| 00000010 20 4f 46 20 46 4f 52 54 55 4e 45 20 2d 20 76 32 | OF FORTUNE - v2| 00000020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000040 4d 65 6c 76 79 6e 20 57 72 69 67 68 74 0d 00 14 |Melvyn Wright...| 00000050 1f 20 f4 20 28 43 29 20 31 39 38 34 20 2d 20 45 |. . (C) 1984 - E| 00000060 50 49 43 20 53 4f 46 54 57 41 52 45 0d 00 1e 0b |PIC SOFTWARE....| 00000070 20 ee 85 eb 36 3a e0 0d 00 28 1e 20 eb 35 3a 48 | ...6:...(. .5:H| 00000080 25 3d b3 28 2d 91 29 2a 30 2b 33 33 3a 40 25 3d |%=.(-.)*0+33:@%=| 00000090 31 30 3a f2 47 0d 00 32 25 20 ef 33 33 30 34 31 |10:.G..2% .33041| 000000a0 3b 31 37 3b 37 39 36 3b 34 31 32 32 3b 33 30 39 |;17;796;4122;309| 000000b0 31 3b 3a f2 44 28 32 38 30 29 0d 00 3c 46 20 3f |1;:.D(280)..<F ?| 000000c0 26 32 41 43 3d 30 3a 3f 26 32 31 32 3d 3f 28 28 |&2AC=0:?&212=?((| 000000d0 21 26 46 46 42 37 20 80 26 46 46 46 46 29 2b 26 |!&FFB7 .&FFFF)+&| 000000e0 31 32 29 3a 3f 26 32 31 33 3d 3f 28 28 21 26 46 |12):?&213=?((!&F| 000000f0 46 42 37 20 80 26 46 46 46 46 29 2b 26 31 33 29 |FB7 .&FFFF)+&13)| 00000100 0d 00 46 10 20 d7 22 46 6f 72 74 75 6e 65 31 22 |..F. ."Fortune1"| 00000110 0d 00 50 a6 20 dd f2 47 3a ef 36 35 33 30 33 3b |..P. ..G:.65303;| 00000120 36 35 35 33 35 3b 36 35 35 33 35 3b 36 35 35 33 |65535;65535;6553| 00000130 35 3b 36 35 35 33 35 3b 35 2c 31 38 3b 34 38 36 |5;65535;5,18;486| 00000140 35 3b 32 3b 30 3b 34 38 36 34 3b 32 35 39 3b 30 |5;2;0;4864;259;0| 00000150 3b 30 2c 31 30 34 39 3b 32 35 36 3b 33 32 38 3b |;0,1049;256;328;| 00000160 3a f2 45 3a ef 31 38 2c 34 3b 31 30 34 39 3b 32 |:.E:.18,4;1049;2| 00000170 36 34 3b 33 33 36 3b 3a f2 45 3a ef 34 38 36 38 |64;336;:.E:.4868| 00000180 3b 32 35 37 3b 30 3b 34 38 36 34 3b 32 35 39 3b |;257;0;4864;259;| 00000190 30 3b 30 2c 32 37 39 3b 30 3b 30 3b 30 3b 30 3b |0;0,279;0;0;0;0;| 000001a0 3a e3 4e 3d 31 20 b8 20 35 30 3a f2 44 28 35 29 |:.N=1 . 50:.D(5)| 000001b0 3a ef 31 30 3a ed 0d 00 5a d6 20 ef 31 38 3b 32 |:.10:...Z. .18;2| 000001c0 2c 31 30 34 39 3b 31 32 33 30 3b 35 30 30 3b 31 |,1049;1230;500;1| 000001d0 30 34 39 3b 38 30 3b 35 30 30 3b 32 31 37 38 35 |049;80;500;21785| 000001e0 3b 31 32 33 30 3b 36 30 3b 32 31 37 38 35 3b 38 |;1230;60;21785;8| 000001f0 30 3b 36 30 3b 31 38 3b 31 2c 31 30 34 39 3b 38 |0;60;18;1,1049;8| 00000200 30 3b 35 30 30 3b 31 33 30 35 3b 31 32 33 30 3b |0;500;1305;1230;| 00000210 35 30 30 3b 31 33 30 35 3b 31 32 33 30 3b 36 30 |500;1305;1230;60| 00000220 3b 31 33 30 35 3b 38 30 3b 36 30 3b 31 33 30 35 |;1305;80;60;1305| 00000230 3b 38 30 3b 35 30 30 3b 33 33 32 39 37 3b 37 38 |;80;500;33297;78| 00000240 35 3b 35 33 31 3b 35 3b 30 3b 32 37 35 3b 31 31 |5;531;5;0;275;11| 00000250 3b 30 3b 35 33 31 3b 35 3b 30 3b 37 38 37 3b 31 |;0;531;5;0;787;1| 00000260 32 3b 30 3b 3a f1 8a 36 2c 31 37 29 22 45 4c 45 |2;0;:..6,17)"ELE| 00000270 43 54 52 4f 4e 22 3a f1 8a 35 2c 32 38 29 22 41 |CTRON":..5,28)"A| 00000280 44 56 45 4e 54 55 52 45 53 22 3a e1 0d 00 64 6b |DVENTURES":...dk| 00000290 20 dd f2 45 3a f1 22 9f 9f 9f 20 9f 9f 9f 20 9f | ..E:."... ... .| 000002a0 20 9f 9f 9f 22 bd 31 30 c4 31 33 2c bd 38 29 22 | ...".10.13,.8)"| 000002b0 9f 9f 9f 20 9f 9f 9f 20 9f 20 9f 9f 9f 22 bd 31 |... ... . ...".1| 000002c0 30 c4 31 33 2c bd 38 29 22 9f 20 20 20 9f 20 9f |0.13,.8)". . .| 000002d0 20 9f 20 9f 22 bd 31 30 c4 31 31 2c bd 38 29 22 | . .".10.11,.8)"| 000002e0 9f 20 20 20 9f 20 9f 20 9f 20 9f 22 bd 31 30 c4 |. . . . .".10.| 000002f0 31 31 2c bd 38 29 3b 0d 00 6e 8c 20 f1 22 9f 9f |11,.8);..n. ."..| 00000300 20 20 9f 9f 9f 20 9f 20 9f 22 bd 31 30 c4 31 31 | ... . .".10.11| 00000310 2c bd 38 29 22 9f 9f 20 20 9f 9f 9f 20 9f 20 9f |,.8)".. ... . .| 00000320 22 bd 31 30 c4 31 31 2c bd 38 29 22 9f 20 20 20 |".10.11,.8)". | 00000330 9f 20 20 20 9f 20 9f 22 bd 31 30 c4 31 31 2c bd |. . .".10.11,.| 00000340 38 29 22 9f 20 20 20 9f 20 20 20 9f 20 9f 22 bd |8)". . . .".| 00000350 31 30 c4 31 31 2c bd 38 29 22 9f 9f 9f 20 9f 20 |10.11,.8)"... . | 00000360 20 20 9f 20 9f 9f 9f 22 bd 31 30 c4 31 33 2c bd | . ...".10.13,.| 00000370 38 29 22 9f 9f 9f 20 9f 20 20 20 9f 20 9f 9f 9f |8)"... . . ...| 00000380 22 3a e1 0d 00 78 1c 20 dd f2 44 28 58 29 3a d1 |":...x. ..D(X):.| 00000390 3d 30 3a f5 3a e7 20 96 28 2d 36 29 20 f2 53 0d |=0:.:. .(-6) .S.| 000003a0 00 82 0b 20 fd 91 3e 58 3a e1 0d 00 8c 10 20 dd |... ..>X:..... .| 000003b0 f2 53 3a e7 48 25 3c 32 20 e1 0d 00 96 1c 20 f3 |.S:.H%<2 ..... .| 000003c0 41 3a d4 31 2c 2d 31 35 2c 41 2c 34 3a 48 25 3d |A:.1,-15,A,4:H%=| 000003d0 48 25 2d 31 3a e1 0d 00 a0 7c 20 dc 31 31 37 2c |H%-1:....| .117,| 000003e0 31 32 39 2c 31 31 37 2c 31 32 31 2c 31 31 37 2c |129,117,121,117,| * 00000400 31 32 39 2c 31 31 37 2c 31 32 31 2c 31 33 37 2c |129,117,121,137,| 00000410 31 34 39 2c 31 34 39 2c 31 34 39 2c 31 34 31 2c |149,149,149,141,| 00000420 31 32 39 2c 31 31 37 2c 31 32 39 2c 31 32 31 2c |129,117,129,121,| 00000430 31 30 31 2c 38 39 2c 31 30 31 2c 39 33 2c 38 31 |101,89,101,93,81| 00000440 2c 36 39 2c 37 33 2c 38 39 2c 37 33 2c 38 39 2c |,69,73,89,73,89,| 00000450 37 33 0d ff |73..| 00000454
FORTUNE.m0
FORTUNE.m1
FORTUNE.m2
FORTUNE.m4
FORTUNE.m5
.