Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape05a_acorn_eu_1989_november.wav » DOLLAR

DOLLAR

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 » Electron_User » Electron_User_tape05a_acorn_eu_1989_november.wav
Filename: DOLLAR
Read OK:
File size: 06BF bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents
   10REM Dollar Dash
   20REM By Stuart Bain
   30REM (c) Electron User
   40DIM S%(1240),A%(5),B%(5),de%(5)
   50MODE 4
   60R%=RND(7):VDU 19,1,R%;0;19,0,R%EOR7;0;
   70VDU 23,1,0;0;0;0;23,224,&FFFF;&FFFF;&FFFF;&FFFF;
   80lev%=0:de%=0
   90PRINTTAB(10,12)"Stop the Dollar from"TAB(10,14)"Cornering the Market"
  100FORI=0TO2000:NEXT
  110REPEAT CLS
  120FOR I%=0 TO 1240:S%(I%)=0:NEXT
  130PRINT STRING$(40,CHR$224)TAB(0,30)STRING$(40,CHR$224);
  140FOR I=1 TO 29
  150VDU 31,0,I,224,31,39,I,224
  160S%(I*40)=1:S%(I*40+39)=1
  170NEXT
  180FOR I=0 TO 39
  190S%(I)=1:S%(I+1200)=1
  200NEXT
  210FOR I=0 TO lev%
  220REPEAT
  230a=RND(36)+1:b=RND(27)+1
  240UNTIL a<16 OR a>23 OR b<11 OR b>18
  250S%(a+b*40)=1:A%(I)=a+b*40:de%(I)=1:c=RND(4):B%(I)=1*((c=1)-(c=2))+40*((c=3)-(c=4))
  260VDU 31,a,b,36
  270NEXT
  280X%=RND(8)+415+RND(8)*40:c=RND(4):Z%=1*((c=1)-(c=2))+40*((c=3)-(c=4))
  290VDU 31,X%MOD40,X%DIV40,96:S%(X%)=1
  300FOR I=112 TO 128 STEP 8
  310SOUND 1,-1,I,4
  320NEXT
  330SOUND 1,-1,80,4:SOUND1,-1,100,5
  340REPEAT UNTIL ADVAL-6=15
  350REPEAT
  360TIME=0:H%=INKEY-98-INKEY-67:V%=40*(INKEY-105-INKEY-73)*(H%=0):Z%=Z%*-(H%=0ANDV%=0)+H%+V%:X%=X%+Z%
  370VDU 31,X%MOD40,X%DIV40,96
  380IF S%(X%) de%=1 ELSE S%(X%)=1
  390FOR I%=0 TO lev%
  400b%=B%(I%)
  410IF de%(I%)=0 GOTO 450 ELSE a%=A%(I%):IF S%(a%+b%) b%=-1:IF S%(a%+b%) b%=-40:IF S%(a%+b%) b%=1:IF S%(a%+b%) b%=40:IF S%(a%+b%) de%(I%)=0:GOTO 450
  420B%(I%)=b%:a%=a%+b%:A%(I%)=a%:S%(a%)=1
  430VDU 31,a%MOD40,a%DIV40,36
  440IF S%(a%+b%) AND RND(2)=1 b%=1:IF S%(a%+b%) b%=40:IF S%(a%+b%) b%=-1:IF S%(a%+b%) b%=-40:IF S%(a%+b%) de%(I%)=0
  450B%(I%)=b%
  460NEXT
  470fl%=0
  480FOR I%=0 TO lev%
  490fl%=fl%+de%(I%)
  500NEXT
  510REPEAT UNTIL TIME>12
  520UNTIL de% OR fl%=0
  530lev%=lev%+1
  540UNTIL de% OR lev%=6
  550IF de%=0 FOR I=140 TO 180 STEP 2:SOUND 1,-15,I,1:NEXT:VDU 28,6,20,33,14,12:PRINT'TAB(8)"WELL DONE !!"''" The Dollar is vanquished !"''" press space to play again";:REPEAT UNTIL INKEY-99:RUN
  560FOR I=40 TO 10 STEP-2
  570SOUND 1,-15,I,1
  580NEXT
  590VDU 28,10,20,29,14,12
  600PRINT'" G A M E    O V E R"''" The Dollar has won"''TAB(4)"press  space";
  610REPEAT UNTIL INKEY-99:RUN

� Dollar Dash
� By Stuart Bain
� (c) Electron User
(!� S%(1240),A%(5),B%(5),de%(5)
2� 4
<$R%=�(7):� 19,1,R%;0;19,0,R%�7;0;
F2� 23,1,0;0;0;0;23,224,&FFFF;&FFFF;&FFFF;&FFFF;
Plev%=0:de%=0
Z?�10,12)"Stop the Dollar from"�10,14)"Cornering the Market"
d�I=0�2000:�
n� �
x� I%=0 � 1240:S%(I%)=0:�
�� �40,�224)�0,30)�40,�224);
�� I=1 � 29
�� 31,0,I,224,31,39,I,224
�S%(I*40)=1:S%(I*40+39)=1
��
�� I=0 � 39
�S%(I)=1:S%(I+1200)=1
��
�� I=0 � lev%
��
�a=�(36)+1:b=�(27)+1
�� a<16 � a>23 � b<11 � b>18
�TS%(a+b*40)=1:A%(I)=a+b*40:de%(I)=1:c=�(4):B%(I)=1*((c=1)-(c=2))+40*((c=3)-(c=4))
� 31,a,b,36
�
BX%=�(8)+415+�(8)*40:c=�(4):Z%=1*((c=1)-(c=2))+40*((c=3)-(c=4))
" � 31,X%�40,X%�40,96:S%(X%)=1
,� I=112 � 128 � 8
6� 1,-1,I,4
@�
J� 1,-1,80,4:�1,-1,100,5
T� � �-6=15
^�
hP�=0:H%=�-98-�-67:V%=40*(�-105-�-73)*(H%=0):Z%=Z%*-(H%=0�V%=0)+H%+V%:X%=X%+Z%
r� 31,X%�40,X%�40,96
|� S%(X%) de%=1 � S%(X%)=1
�� I%=0 � lev%
�
b%=B%(I%)
��� de%(I%)=0 � �dBA � a%=A%(I%):� S%(a%+b%) b%=-1:� S%(a%+b%) b%=-40:� S%(a%+b%) b%=1:� S%(a%+b%) b%=40:� S%(a%+b%) de%(I%)=0:� �dBA
�)B%(I%)=b%:a%=a%+b%:A%(I%)=a%:S%(a%)=1
�� 31,a%�40,a%�40,36
�j� S%(a%+b%) � �(2)=1 b%=1:� S%(a%+b%) b%=40:� S%(a%+b%) b%=-1:� S%(a%+b%) b%=-40:� S%(a%+b%) de%(I%)=0
�
B%(I%)=b%
��
�	fl%=0
�� I%=0 � lev%
�fl%=fl%+de%(I%)
��
�� � �>12
� de% � fl%=0
lev%=lev%+1
� de% � lev%=6
&�� de%=0 � I=140 � 180 � 2:� 1,-15,I,1:�:� 28,6,20,33,14,12:�'�8)"WELL DONE !!"''" The Dollar is vanquished !"''" press space to play again";:� � �-99:�
0� I=40 � 10 �-2
:� 1,-15,I,1
D�
N� 28,10,20,29,14,12
XF�'" G A M E    O V E R"''" The Dollar has won"''�4)"press  space";
b� � �-99:�
�
00000000  0d 00 0a 11 f4 20 44 6f  6c 6c 61 72 20 44 61 73  |..... Dollar Das|
00000010  68 0d 00 14 14 f4 20 42  79 20 53 74 75 61 72 74  |h..... By Stuart|
00000020  20 42 61 69 6e 0d 00 1e  17 f4 20 28 63 29 20 45  | Bain..... (c) E|
00000030  6c 65 63 74 72 6f 6e 20  55 73 65 72 0d 00 28 21  |lectron User..(!|
00000040  de 20 53 25 28 31 32 34  30 29 2c 41 25 28 35 29  |. S%(1240),A%(5)|
00000050  2c 42 25 28 35 29 2c 64  65 25 28 35 29 0d 00 32  |,B%(5),de%(5)..2|
00000060  07 eb 20 34 0d 00 3c 24  52 25 3d b3 28 37 29 3a  |.. 4..<$R%=.(7):|
00000070  ef 20 31 39 2c 31 2c 52  25 3b 30 3b 31 39 2c 30  |. 19,1,R%;0;19,0|
00000080  2c 52 25 82 37 3b 30 3b  0d 00 46 32 ef 20 32 33  |,R%.7;0;..F2. 23|
00000090  2c 31 2c 30 3b 30 3b 30  3b 30 3b 32 33 2c 32 32  |,1,0;0;0;0;23,22|
000000a0  34 2c 26 46 46 46 46 3b  26 46 46 46 46 3b 26 46  |4,&FFFF;&FFFF;&F|
000000b0  46 46 46 3b 26 46 46 46  46 3b 0d 00 50 10 6c 65  |FFF;&FFFF;..P.le|
000000c0  76 25 3d 30 3a 64 65 25  3d 30 0d 00 5a 3f f1 8a  |v%=0:de%=0..Z?..|
000000d0  31 30 2c 31 32 29 22 53  74 6f 70 20 74 68 65 20  |10,12)"Stop the |
000000e0  44 6f 6c 6c 61 72 20 66  72 6f 6d 22 8a 31 30 2c  |Dollar from".10,|
000000f0  31 34 29 22 43 6f 72 6e  65 72 69 6e 67 20 74 68  |14)"Cornering th|
00000100  65 20 4d 61 72 6b 65 74  22 0d 00 64 0f e3 49 3d  |e Market"..d..I=|
00000110  30 b8 32 30 30 30 3a ed  0d 00 6e 07 f5 20 db 0d  |0.2000:...n.. ..|
00000120  00 78 1c e3 20 49 25 3d  30 20 b8 20 31 32 34 30  |.x.. I%=0 . 1240|
00000130  3a 53 25 28 49 25 29 3d  30 3a ed 0d 00 82 1f f1  |:S%(I%)=0:......|
00000140  20 c4 34 30 2c bd 32 32  34 29 8a 30 2c 33 30 29  | .40,.224).0,30)|
00000150  c4 34 30 2c bd 32 32 34  29 3b 0d 00 8c 0e e3 20  |.40,.224);..... |
00000160  49 3d 31 20 b8 20 32 39  0d 00 96 1c ef 20 33 31  |I=1 . 29..... 31|
00000170  2c 30 2c 49 2c 32 32 34  2c 33 31 2c 33 39 2c 49  |,0,I,224,31,39,I|
00000180  2c 32 32 34 0d 00 a0 1c  53 25 28 49 2a 34 30 29  |,224....S%(I*40)|
00000190  3d 31 3a 53 25 28 49 2a  34 30 2b 33 39 29 3d 31  |=1:S%(I*40+39)=1|
000001a0  0d 00 aa 05 ed 0d 00 b4  0e e3 20 49 3d 30 20 b8  |.......... I=0 .|
000001b0  20 33 39 0d 00 be 18 53  25 28 49 29 3d 31 3a 53  | 39....S%(I)=1:S|
000001c0  25 28 49 2b 31 32 30 30  29 3d 31 0d 00 c8 05 ed  |%(I+1200)=1.....|
000001d0  0d 00 d2 10 e3 20 49 3d  30 20 b8 20 6c 65 76 25  |..... I=0 . lev%|
000001e0  0d 00 dc 05 f5 0d 00 e6  17 61 3d b3 28 33 36 29  |.........a=.(36)|
000001f0  2b 31 3a 62 3d b3 28 32  37 29 2b 31 0d 00 f0 1f  |+1:b=.(27)+1....|
00000200  fd 20 61 3c 31 36 20 84  20 61 3e 32 33 20 84 20  |. a<16 . a>23 . |
00000210  62 3c 31 31 20 84 20 62  3e 31 38 0d 00 fa 54 53  |b<11 . b>18...TS|
00000220  25 28 61 2b 62 2a 34 30  29 3d 31 3a 41 25 28 49  |%(a+b*40)=1:A%(I|
00000230  29 3d 61 2b 62 2a 34 30  3a 64 65 25 28 49 29 3d  |)=a+b*40:de%(I)=|
00000240  31 3a 63 3d b3 28 34 29  3a 42 25 28 49 29 3d 31  |1:c=.(4):B%(I)=1|
00000250  2a 28 28 63 3d 31 29 2d  28 63 3d 32 29 29 2b 34  |*((c=1)-(c=2))+4|
00000260  30 2a 28 28 63 3d 33 29  2d 28 63 3d 34 29 29 0d  |0*((c=3)-(c=4)).|
00000270  01 04 0f ef 20 33 31 2c  61 2c 62 2c 33 36 0d 01  |.... 31,a,b,36..|
00000280  0e 05 ed 0d 01 18 42 58  25 3d b3 28 38 29 2b 34  |......BX%=.(8)+4|
00000290  31 35 2b b3 28 38 29 2a  34 30 3a 63 3d b3 28 34  |15+.(8)*40:c=.(4|
000002a0  29 3a 5a 25 3d 31 2a 28  28 63 3d 31 29 2d 28 63  |):Z%=1*((c=1)-(c|
000002b0  3d 32 29 29 2b 34 30 2a  28 28 63 3d 33 29 2d 28  |=2))+40*((c=3)-(|
000002c0  63 3d 34 29 29 0d 01 22  20 ef 20 33 31 2c 58 25  |c=4)).." . 31,X%|
000002d0  83 34 30 2c 58 25 81 34  30 2c 39 36 3a 53 25 28  |.40,X%.40,96:S%(|
000002e0  58 25 29 3d 31 0d 01 2c  15 e3 20 49 3d 31 31 32  |X%)=1..,.. I=112|
000002f0  20 b8 20 31 32 38 20 88  20 38 0d 01 36 0e d4 20  | . 128 . 8..6.. |
00000300  31 2c 2d 31 2c 49 2c 34  0d 01 40 05 ed 0d 01 4a  |1,-1,I,4..@....J|
00000310  1b d4 20 31 2c 2d 31 2c  38 30 2c 34 3a d4 31 2c  |.. 1,-1,80,4:.1,|
00000320  2d 31 2c 31 30 30 2c 35  0d 01 54 0e f5 20 fd 20  |-1,100,5..T.. . |
00000330  96 2d 36 3d 31 35 0d 01  5e 05 f5 0d 01 68 50 d1  |.-6=15..^....hP.|
00000340  3d 30 3a 48 25 3d a6 2d  39 38 2d a6 2d 36 37 3a  |=0:H%=.-98-.-67:|
00000350  56 25 3d 34 30 2a 28 a6  2d 31 30 35 2d a6 2d 37  |V%=40*(.-105-.-7|
00000360  33 29 2a 28 48 25 3d 30  29 3a 5a 25 3d 5a 25 2a  |3)*(H%=0):Z%=Z%*|
00000370  2d 28 48 25 3d 30 80 56  25 3d 30 29 2b 48 25 2b  |-(H%=0.V%=0)+H%+|
00000380  56 25 3a 58 25 3d 58 25  2b 5a 25 0d 01 72 17 ef  |V%:X%=X%+Z%..r..|
00000390  20 33 31 2c 58 25 83 34  30 2c 58 25 81 34 30 2c  | 31,X%.40,X%.40,|
000003a0  39 36 0d 01 7c 1d e7 20  53 25 28 58 25 29 20 64  |96..|.. S%(X%) d|
000003b0  65 25 3d 31 20 8b 20 53  25 28 58 25 29 3d 31 0d  |e%=1 . S%(X%)=1.|
000003c0  01 86 11 e3 20 49 25 3d  30 20 b8 20 6c 65 76 25  |.... I%=0 . lev%|
000003d0  0d 01 90 0d 62 25 3d 42  25 28 49 25 29 0d 01 9a  |....b%=B%(I%)...|
000003e0  87 e7 20 64 65 25 28 49  25 29 3d 30 20 e5 20 8d  |.. de%(I%)=0 . .|
000003f0  64 42 41 20 8b 20 61 25  3d 41 25 28 49 25 29 3a  |dBA . a%=A%(I%):|
00000400  e7 20 53 25 28 61 25 2b  62 25 29 20 62 25 3d 2d  |. S%(a%+b%) b%=-|
00000410  31 3a e7 20 53 25 28 61  25 2b 62 25 29 20 62 25  |1:. S%(a%+b%) b%|
00000420  3d 2d 34 30 3a e7 20 53  25 28 61 25 2b 62 25 29  |=-40:. S%(a%+b%)|
00000430  20 62 25 3d 31 3a e7 20  53 25 28 61 25 2b 62 25  | b%=1:. S%(a%+b%|
00000440  29 20 62 25 3d 34 30 3a  e7 20 53 25 28 61 25 2b  |) b%=40:. S%(a%+|
00000450  62 25 29 20 64 65 25 28  49 25 29 3d 30 3a e5 20  |b%) de%(I%)=0:. |
00000460  8d 64 42 41 0d 01 a4 29  42 25 28 49 25 29 3d 62  |.dBA...)B%(I%)=b|
00000470  25 3a 61 25 3d 61 25 2b  62 25 3a 41 25 28 49 25  |%:a%=a%+b%:A%(I%|
00000480  29 3d 61 25 3a 53 25 28  61 25 29 3d 31 0d 01 ae  |)=a%:S%(a%)=1...|
00000490  17 ef 20 33 31 2c 61 25  83 34 30 2c 61 25 81 34  |.. 31,a%.40,a%.4|
000004a0  30 2c 33 36 0d 01 b8 6a  e7 20 53 25 28 61 25 2b  |0,36...j. S%(a%+|
000004b0  62 25 29 20 80 20 b3 28  32 29 3d 31 20 62 25 3d  |b%) . .(2)=1 b%=|
000004c0  31 3a e7 20 53 25 28 61  25 2b 62 25 29 20 62 25  |1:. S%(a%+b%) b%|
000004d0  3d 34 30 3a e7 20 53 25  28 61 25 2b 62 25 29 20  |=40:. S%(a%+b%) |
000004e0  62 25 3d 2d 31 3a e7 20  53 25 28 61 25 2b 62 25  |b%=-1:. S%(a%+b%|
000004f0  29 20 62 25 3d 2d 34 30  3a e7 20 53 25 28 61 25  |) b%=-40:. S%(a%|
00000500  2b 62 25 29 20 64 65 25  28 49 25 29 3d 30 0d 01  |+b%) de%(I%)=0..|
00000510  c2 0d 42 25 28 49 25 29  3d 62 25 0d 01 cc 05 ed  |..B%(I%)=b%.....|
00000520  0d 01 d6 09 66 6c 25 3d  30 0d 01 e0 11 e3 20 49  |....fl%=0..... I|
00000530  25 3d 30 20 b8 20 6c 65  76 25 0d 01 ea 13 66 6c  |%=0 . lev%....fl|
00000540  25 3d 66 6c 25 2b 64 65  25 28 49 25 29 0d 01 f4  |%=fl%+de%(I%)...|
00000550  05 ed 0d 01 fe 0c f5 20  fd 20 91 3e 31 32 0d 02  |....... . .>12..|
00000560  08 11 fd 20 64 65 25 20  84 20 66 6c 25 3d 30 0d  |... de% . fl%=0.|
00000570  02 12 0f 6c 65 76 25 3d  6c 65 76 25 2b 31 0d 02  |...lev%=lev%+1..|
00000580  1c 12 fd 20 64 65 25 20  84 20 6c 65 76 25 3d 36  |... de% . lev%=6|
00000590  0d 02 26 9b e7 20 64 65  25 3d 30 20 e3 20 49 3d  |..&.. de%=0 . I=|
000005a0  31 34 30 20 b8 20 31 38  30 20 88 20 32 3a d4 20  |140 . 180 . 2:. |
000005b0  31 2c 2d 31 35 2c 49 2c  31 3a ed 3a ef 20 32 38  |1,-15,I,1:.:. 28|
000005c0  2c 36 2c 32 30 2c 33 33  2c 31 34 2c 31 32 3a f1  |,6,20,33,14,12:.|
000005d0  27 8a 38 29 22 57 45 4c  4c 20 44 4f 4e 45 20 21  |'.8)"WELL DONE !|
000005e0  21 22 27 27 22 20 54 68  65 20 44 6f 6c 6c 61 72  |!"''" The Dollar|
000005f0  20 69 73 20 76 61 6e 71  75 69 73 68 65 64 20 21  | is vanquished !|
00000600  22 27 27 22 20 70 72 65  73 73 20 73 70 61 63 65  |"''" press space|
00000610  20 74 6f 20 70 6c 61 79  20 61 67 61 69 6e 22 3b  | to play again";|
00000620  3a f5 20 fd 20 a6 2d 39  39 3a f9 0d 02 30 13 e3  |:. . .-99:...0..|
00000630  20 49 3d 34 30 20 b8 20  31 30 20 88 2d 32 0d 02  | I=40 . 10 .-2..|
00000640  3a 0f d4 20 31 2c 2d 31  35 2c 49 2c 31 0d 02 44  |:.. 1,-15,I,1..D|
00000650  05 ed 0d 02 4e 17 ef 20  32 38 2c 31 30 2c 32 30  |....N.. 28,10,20|
00000660  2c 32 39 2c 31 34 2c 31  32 0d 02 58 46 f1 27 22  |,29,14,12..XF.'"|
00000670  20 47 20 41 20 4d 20 45  20 20 20 20 4f 20 56 20  | G A M E    O V |
00000680  45 20 52 22 27 27 22 20  54 68 65 20 44 6f 6c 6c  |E R"''" The Doll|
00000690  61 72 20 68 61 73 20 77  6f 6e 22 27 27 8a 34 29  |ar has won"''.4)|
000006a0  22 70 72 65 73 73 20 20  73 70 61 63 65 22 3b 0d  |"press  space";.|
000006b0  02 62 0e f5 20 fd 20 a6  2d 39 39 3a f9 0d ff     |.b.. . .-99:...|
000006bf
DOLLAR.m0
DOLLAR.m1
DOLLAR.m2
DOLLAR.m4
DOLLAR.m5