Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf » G/SRACE-W

G/SRACE-W

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 ADFS disks » Greaseweazled » adfs_EUG_54.adf
Filename: G/SRACE-W
Read OK:
File size: 02F8 bytes
Load address: FFFF1400
Exec address: FFFF8023
Duplicates

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

File contents
   10 CLS
   15mny=?&27F3
   20FOR I=1 TO 200
   30CALL P%
   40W%=1:Z%=RND(5):CALL U%
   50A%=RND(160)+1:B%=RND(237)+2:CALL S%
   60 NEXT I
   65IF mny=5 GOSUB 2000:GOTO 115
   70PROCtxt(400,800,"Congratulations")
   90PROCtxt(512,700,"PLAYER "+STR$(mny+1))
  100PROCtxt(64,600,"You have won SUPERSONIC SNAIL RACING")
  115PROCtxt(240,400,"Press SPACE to play again")
  116REPEATUNTILINKEY-99
  117PROCtxt(288,250,"Number of players(2-5)")
  118VDU4:n%=2:PRINTTAB(19,26)" 2 "
  119REPEAT:G=GET:IF G>49 AND G<54 n%=G-48
  120PRINTTAB(20,26);n%:UNTIL G=13
  121?&27F3=n%
  122CHAIN"S.SRACE-G"
  129END
  130DEFPROCtxt(x,y,a$)
  140VDU5
  141GCOL0,0
  142MOVE x-4,y+8:DRAW x-4,y-36:PLOT85,x+LEN(a$)*32+4,y+8:PLOT85,x+LEN(a$)*32+4,y-36
  150GCOL0,1
  160MOVE x,y:PRINTa$
  170MOVE x+4,y+4:PRINTa$
  180GCOL0,3
  190MOVE x+8,y:PRINTa$
  200MOVE x+4,y-4:PRINTa$
  210GCOL0,2
  220MOVE x+4,y:PRINTa$
  230ENDPROC
 2000PROCtxt(320,800,"That's just too bad.")
 2010PROCtxt(240,700,"You've all gone bankrupt!")
 2020RETURN

 �
mny=?&27F3
� I=1 � 200
� P%
(W%=1:Z%=�(5):� U%
2 A%=�(160)+1:B%=�(237)+2:� S%
< � I
A� mny=5 � �dPG:� �Ds@
F#�txt(400,800,"Congratulations")
Z$�txt(512,700,"PLAYER "+�(mny+1))
d7�txt(64,600,"You have won SUPERSONIC SNAIL RACING")
s-�txt(240,400,"Press SPACE to play again")
t
���-99
u*�txt(288,250,"Number of players(2-5)")
v�4:n%=2:�19,26)" 2 "
w�:G=�:� G>49 � G<54 n%=G-48
x�20,26);n%:� G=13
y
?&27F3=n%
z�"S.SRACE-G"
��
���txt(x,y,a$)
��5
��0,0
�C� x-4,y+8:� x-4,y-36:�85,x+�(a$)*32+4,y+8:�85,x+�(a$)*32+4,y-36
��0,1
�
� x,y:�a$
�� x+4,y+4:�a$
��0,3
�� x+8,y:�a$
�� x+4,y-4:�a$
��0,2
�� x+4,y:�a$
��
�(�txt(320,800,"That's just too bad.")
�-�txt(240,700,"You've all gone bankrupt!")
��
�
00000000  0d 00 0a 06 20 db 0d 00  0f 0e 6d 6e 79 3d 3f 26  |.... .....mny=?&|
00000010  32 37 46 33 0d 00 14 0f  e3 20 49 3d 31 20 b8 20  |27F3..... I=1 . |
00000020  32 30 30 0d 00 1e 08 d6  20 50 25 0d 00 28 15 57  |200..... P%..(.W|
00000030  25 3d 31 3a 5a 25 3d b3  28 35 29 3a d6 20 55 25  |%=1:Z%=.(5):. U%|
00000040  0d 00 32 20 41 25 3d b3  28 31 36 30 29 2b 31 3a  |..2 A%=.(160)+1:|
00000050  42 25 3d b3 28 32 33 37  29 2b 32 3a d6 20 53 25  |B%=.(237)+2:. S%|
00000060  0d 00 3c 08 20 ed 20 49  0d 00 41 19 e7 20 6d 6e  |..<. . I..A.. mn|
00000070  79 3d 35 20 e4 20 8d 64  50 47 3a e5 20 8d 44 73  |y=5 . .dPG:. .Ds|
00000080  40 0d 00 46 23 f2 74 78  74 28 34 30 30 2c 38 30  |@..F#.txt(400,80|
00000090  30 2c 22 43 6f 6e 67 72  61 74 75 6c 61 74 69 6f  |0,"Congratulatio|
000000a0  6e 73 22 29 0d 00 5a 24  f2 74 78 74 28 35 31 32  |ns")..Z$.txt(512|
000000b0  2c 37 30 30 2c 22 50 4c  41 59 45 52 20 22 2b c3  |,700,"PLAYER "+.|
000000c0  28 6d 6e 79 2b 31 29 29  0d 00 64 37 f2 74 78 74  |(mny+1))..d7.txt|
000000d0  28 36 34 2c 36 30 30 2c  22 59 6f 75 20 68 61 76  |(64,600,"You hav|
000000e0  65 20 77 6f 6e 20 53 55  50 45 52 53 4f 4e 49 43  |e won SUPERSONIC|
000000f0  20 53 4e 41 49 4c 20 52  41 43 49 4e 47 22 29 0d  | SNAIL RACING").|
00000100  00 73 2d f2 74 78 74 28  32 34 30 2c 34 30 30 2c  |.s-.txt(240,400,|
00000110  22 50 72 65 73 73 20 53  50 41 43 45 20 74 6f 20  |"Press SPACE to |
00000120  70 6c 61 79 20 61 67 61  69 6e 22 29 0d 00 74 0a  |play again")..t.|
00000130  f5 fd a6 2d 39 39 0d 00  75 2a f2 74 78 74 28 32  |...-99..u*.txt(2|
00000140  38 38 2c 32 35 30 2c 22  4e 75 6d 62 65 72 20 6f  |88,250,"Number o|
00000150  66 20 70 6c 61 79 65 72  73 28 32 2d 35 29 22 29  |f players(2-5)")|
00000160  0d 00 76 19 ef 34 3a 6e  25 3d 32 3a f1 8a 31 39  |..v..4:n%=2:..19|
00000170  2c 32 36 29 22 20 32 20  22 0d 00 77 1f f5 3a 47  |,26)" 2 "..w..:G|
00000180  3d a5 3a e7 20 47 3e 34  39 20 80 20 47 3c 35 34  |=.:. G>49 . G<54|
00000190  20 6e 25 3d 47 2d 34 38  0d 00 78 16 f1 8a 32 30  | n%=G-48..x...20|
000001a0  2c 32 36 29 3b 6e 25 3a  fd 20 47 3d 31 33 0d 00  |,26);n%:. G=13..|
000001b0  79 0d 3f 26 32 37 46 33  3d 6e 25 0d 00 7a 10 d7  |y.?&27F3=n%..z..|
000001c0  22 53 2e 53 52 41 43 45  2d 47 22 0d 00 81 05 e0  |"S.SRACE-G".....|
000001d0  0d 00 82 11 dd f2 74 78  74 28 78 2c 79 2c 61 24  |......txt(x,y,a$|
000001e0  29 0d 00 8c 06 ef 35 0d  00 8d 08 e6 30 2c 30 0d  |).....5.....0,0.|
000001f0  00 8e 43 ec 20 78 2d 34  2c 79 2b 38 3a df 20 78  |..C. x-4,y+8:. x|
00000200  2d 34 2c 79 2d 33 36 3a  f0 38 35 2c 78 2b a9 28  |-4,y-36:.85,x+.(|
00000210  61 24 29 2a 33 32 2b 34  2c 79 2b 38 3a f0 38 35  |a$)*32+4,y+8:.85|
00000220  2c 78 2b a9 28 61 24 29  2a 33 32 2b 34 2c 79 2d  |,x+.(a$)*32+4,y-|
00000230  33 36 0d 00 96 08 e6 30  2c 31 0d 00 a0 0d ec 20  |36.....0,1..... |
00000240  78 2c 79 3a f1 61 24 0d  00 aa 11 ec 20 78 2b 34  |x,y:.a$..... x+4|
00000250  2c 79 2b 34 3a f1 61 24  0d 00 b4 08 e6 30 2c 33  |,y+4:.a$.....0,3|
00000260  0d 00 be 0f ec 20 78 2b  38 2c 79 3a f1 61 24 0d  |..... x+8,y:.a$.|
00000270  00 c8 11 ec 20 78 2b 34  2c 79 2d 34 3a f1 61 24  |.... x+4,y-4:.a$|
00000280  0d 00 d2 08 e6 30 2c 32  0d 00 dc 0f ec 20 78 2b  |.....0,2..... x+|
00000290  34 2c 79 3a f1 61 24 0d  00 e6 05 e1 0d 07 d0 28  |4,y:.a$........(|
000002a0  f2 74 78 74 28 33 32 30  2c 38 30 30 2c 22 54 68  |.txt(320,800,"Th|
000002b0  61 74 27 73 20 6a 75 73  74 20 74 6f 6f 20 62 61  |at's just too ba|
000002c0  64 2e 22 29 0d 07 da 2d  f2 74 78 74 28 32 34 30  |d.")...-.txt(240|
000002d0  2c 37 30 30 2c 22 59 6f  75 27 76 65 20 61 6c 6c  |,700,"You've all|
000002e0  20 67 6f 6e 65 20 62 61  6e 6b 72 75 70 74 21 22  | gone bankrupt!"|
000002f0  29 0d 07 e4 05 f8 0d ff                           |).......|
000002f8
G/SRACE-W.m0
G/SRACE-W.m1
G/SRACE-W.m2
G/SRACE-W.m4
G/SRACE-W.m5