Home » Personal collection » Acorn tapes » Commercial_Releases » box03_tape06a_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_tape06a_acorn_the_wheel_of_fortune.wav |
Filename: | FORTUNE |
Read OK: | ❌ |
File size: | 0354 bytes |
Load address: | FFFF0E00 |
Exec address: | FFFF8023 |
File contents
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
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 46 10 20 d7 22 46 6f 72 74 75 6e 65 31 22 |..F. ."Fortune1"| 00000010 0d 00 50 a6 20 dd f2 47 3a ef 36 35 33 30 33 3b |..P. ..G:.65303;| 00000020 36 35 35 33 35 3b 36 35 35 33 35 3b 36 35 35 33 |65535;65535;6553| 00000030 35 3b 36 35 35 33 35 3b 35 2c 31 38 3b 34 38 36 |5;65535;5,18;486| 00000040 35 3b 32 3b 30 3b 34 38 36 34 3b 32 35 39 3b 30 |5;2;0;4864;259;0| 00000050 3b 30 2c 31 30 34 39 3b 32 35 36 3b 33 32 38 3b |;0,1049;256;328;| 00000060 3a f2 45 3a ef 31 38 2c 34 3b 31 30 34 39 3b 32 |:.E:.18,4;1049;2| 00000070 36 34 3b 33 33 36 3b 3a f2 45 3a ef 34 38 36 38 |64;336;:.E:.4868| 00000080 3b 32 35 37 3b 30 3b 34 38 36 34 3b 32 35 39 3b |;257;0;4864;259;| 00000090 30 3b 30 2c 32 37 39 3b 30 3b 30 3b 30 3b 30 3b |0;0,279;0;0;0;0;| 000000a0 3a e3 4e 3d 31 20 b8 20 35 30 3a f2 44 28 35 29 |:.N=1 . 50:.D(5)| 000000b0 3a ef 31 30 3a ed 0d 00 5a d6 20 ef 31 38 3b 32 |:.10:...Z. .18;2| 000000c0 2c 31 30 34 39 3b 31 32 33 30 3b 35 30 30 3b 31 |,1049;1230;500;1| 000000d0 30 34 39 3b 38 30 3b 35 30 30 3b 32 31 37 38 35 |049;80;500;21785| 000000e0 3b 31 32 33 30 3b 36 30 3b 32 31 37 38 35 3b 38 |;1230;60;21785;8| 000000f0 30 3b 36 30 3b 31 38 3b 31 2c 31 30 34 39 3b 38 |0;60;18;1,1049;8| 00000100 30 3b 35 30 30 3b 31 33 30 35 3b 31 32 33 30 3b |0;500;1305;1230;| 00000110 35 30 30 3b 31 33 30 35 3b 31 32 33 30 3b 36 30 |500;1305;1230;60| 00000120 3b 31 33 30 35 3b 38 30 3b 36 30 3b 31 33 30 35 |;1305;80;60;1305| 00000130 3b 38 30 3b 35 30 30 3b 33 33 32 39 37 3b 37 38 |;80;500;33297;78| 00000140 35 3b 35 33 31 3b 35 3b 30 3b 32 37 35 3b 31 31 |5;531;5;0;275;11| 00000150 3b 30 3b 35 33 31 3b 35 3b 30 3b 37 38 37 3b 31 |;0;531;5;0;787;1| 00000160 32 3b 30 3b 3a f1 8a 36 2c 31 37 29 22 45 4c 45 |2;0;:..6,17)"ELE| 00000170 43 54 52 4f 4e 22 3a f1 8a 35 2c 32 38 29 22 41 |CTRON":..5,28)"A| 00000180 44 56 45 4e 54 55 52 45 53 22 3a e1 0d 00 64 6b |DVENTURES":...dk| 00000190 20 dd f2 45 3a f1 22 9f 9f 9f 20 9f 9f 9f 20 9f | ..E:."... ... .| 000001a0 20 9f 9f 9f 22 bd 31 30 c4 31 33 2c bd 38 29 22 | ...".10.13,.8)"| 000001b0 9f 9f 9f 20 9f 9f 9f 20 9f 20 9f 9f 9f 22 bd 31 |... ... . ...".1| 000001c0 30 c4 31 33 2c bd 38 29 22 9f 20 20 20 9f 20 9f |0.13,.8)". . .| 000001d0 20 9f 20 9f 22 bd 31 30 c4 31 31 2c bd 38 29 22 | . .".10.11,.8)"| 000001e0 9f 20 20 20 9f 20 9f 20 9f 20 9f 22 bd 31 30 c4 |. . . . .".10.| 000001f0 31 31 2c bd 38 29 3b 0d 00 6e 8c 20 f1 22 9f 9f |11,.8);..n. ."..| 00000200 20 20 9f 9f 9f 20 9f 20 9f 22 bd 31 30 c4 31 31 | ... . .".10.11| 00000210 2c bd 38 29 22 9f 9f 20 20 9f 9f 9f 20 9f 20 9f |,.8)".. ... . .| 00000220 22 bd 31 30 c4 31 31 2c bd 38 29 22 9f 20 20 20 |".10.11,.8)". | 00000230 9f 20 20 20 9f 20 9f 22 bd 31 30 c4 31 31 2c bd |. . .".10.11,.| 00000240 38 29 22 9f 20 20 20 9f 20 20 20 9f 20 9f 22 bd |8)". . . .".| 00000250 31 30 c4 31 31 2c bd 38 29 22 9f 9f 9f 20 9f 20 |10.11,.8)"... . | 00000260 20 20 9f 20 9f 9f 9f 22 bd 31 30 c4 31 33 2c bd | . ...".10.13,.| 00000270 38 29 22 9f 9f 9f 20 9f 20 20 20 9f 20 9f 9f 9f |8)"... . . ...| 00000280 22 3a e1 0d 00 78 1c 20 dd f2 44 28 58 29 3a d1 |":...x. ..D(X):.| 00000290 3d 30 3a f5 3a e7 20 96 28 2d 36 29 20 f2 53 0d |=0:.:. .(-6) .S.| 000002a0 00 82 0b 20 fd 91 3e 58 3a e1 0d 00 8c 10 20 dd |... ..>X:..... .| 000002b0 f2 53 3a e7 48 25 3c 32 20 e1 0d 00 96 1c 20 f3 |.S:.H%<2 ..... .| 000002c0 41 3a d4 31 2c 2d 31 35 2c 41 2c 34 3a 48 25 3d |A:.1,-15,A,4:H%=| 000002d0 48 25 2d 31 3a e1 0d 00 a0 7c 20 dc 31 31 37 2c |H%-1:....| .117,| 000002e0 31 32 39 2c 31 31 37 2c 31 32 31 2c 31 31 37 2c |129,117,121,117,| * 00000300 31 32 39 2c 31 31 37 2c 31 32 31 2c 31 33 37 2c |129,117,121,137,| 00000310 31 34 39 2c 31 34 39 2c 31 34 39 2c 31 34 31 2c |149,149,149,141,| 00000320 31 32 39 2c 31 31 37 2c 31 32 39 2c 31 32 31 2c |129,117,129,121,| 00000330 31 30 31 2c 38 39 2c 31 30 31 2c 39 33 2c 38 31 |101,89,101,93,81| 00000340 2c 36 39 2c 37 33 2c 38 39 2c 37 33 2c 38 39 2c |,69,73,89,73,89,| 00000350 37 33 0d ff |73..| 00000354