Home » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s » BeebDisk/DogFght

BeebDisk/DogFght

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 » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s
Filename: BeebDisk/DogFght
Read OK: ✔
File size: 0AD0 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM 3D Dog Fight BASIC frontend
   20REM by Andrew Bennett
   30REM (c) Acorn Computing
   40:
   50MODE 4
   60*FX200,1
   70HIMEM=&4000
   80*LOAD DogCode
   90go%=&5D4C:keys%=&5D14
  100pic%=&4004:picend%=&4E00
  110PROCsetup
  120REPEAT
  130REPEAT
  140PROCscreen
  150*FX21,0
  160REPEAT
  170k$=GET$
  180UNTIL k$=CHR$32 OR k$="1" OR k$="2"
  190IF k$="1" PROCkeys(0)
  200IF k$="2" PROCkeys(8)
  210UNTIL k$=CHR$32
  220PROCoutcome(FNrungame)
  230UNTIL0
  240:
  250DEF PROCsetup
  260LOCAL i%
  270DIM k$(7),l%(15),k%(15)
  280FOR i%=0 TO 7
  290READ k$(i%)
  300NEXT
  310FOR i%=0 TO 15
  320READ l%(i%),k%(i%)
  330NEXT
  340ENDPROC
  350:
  360DATA Left,Right,Up,Down
  370DATA Forward,Backward,Fire,180 Spin
  380:
  390DATA  6,&9E, 0,&BD,  7,&BC,  1,&AD
  400DATA  2,&AC, 8,&9C, 12,&AB, 14,&9B
  410:
  420DATA  3,&99, 9,&98, 10,&B7,  4,&97
  430DATA 11,&A7, 5,&FF, 13,&B6, 15,&A6
  440:
  450DEF PROCscrsetup
  460VDU 23;1,40,0;0;0;
  470VDU 23;2,49,0;0;0;
  480VDU 23;6,27,0;0;0;
  490VDU 23;7,32,0;0;0;
  500VDU 23;12,11,0;0;0;
  510VDU 23;13,200,0;0;0;
  520VDU 23;10,32,0;0;0;
  530VDU 28,0,31,39,5
  540CLS
  550PROCshowpic
  560ENDPROC
  570:
  580DEF PROCscreen
  590PROCscrsetup
  600PROCtext(6,12,"'1' to change Player 1 keys")
  610PROCtext(6,14,"'2' to change Player 2 keys")
  620PRINTTAB(12,24)"'SPACE' to start"
  630ENDPROC
  640:
  650DEF PROCkeys(w%)
  660LOCAL i%,n$,n%,c%
  670CLS:PRINTTAB(15,3)"DOG FIGHT"
  680FOR i%=0 TO 7
  690PRINT TAB(10,8+2*i%)k$(i%)
  700RESTORE 900
  710REPEAT
  720READ n$,n%
  730UNTIL n%=k%(w%+i%)
  740PRINT TAB(30-LENn$,8+2*i%)n$
  750NEXT
  760FOR i%=0 TO 7
  770PRINT TAB(4,8+2*i%)"Press"
  780RESTORE 900
  790REPEAT
  800READ n$,n%
  810IF n%=&100 RESTORE 900:READ n$,n%
  820UNTIL INKEY(n% OR &FF00)
  830PRINT TAB(20,8+2*i%)RIGHT$(STRING$(10," ")+n$,10)
  840REPEAT UNTIL NOT INKEY(n% OR &FF00)
  850k%(w%+i%)=n%
  860PRINT TAB(4,8+2*i%)SPC(5)
  870NEXT
  880ENDPROC
  890:
  900DATA Space,&9D,",<",&99,-=,&E8,.>,&98
  910DATA /?,&97,0,&D8,1,&CF,2,&CE,3,&EE
  920DATA 4,&ED,5,&EC,6,&CB,7,&DB,8,&EA
  930DATA 9,&D9,:*,&B7,;+,&A8,@,&B8,A,&BE
  940DATA B,&9B,C,&AD,D,&CD,E,&DD,F,&BC
  950DATA G,&AC,H,&AB,I,&DA,J,&BA,K,&B9
  960DATA L,&A9,M,&9A,N,&AA,O,&C9,P,&C8
  970DATA Q,&EF,R,&CC,S,&AE,T,&DC,U,&CA
  980DATA V,&9C,W,&DE,X,&BD,Y,&BB,Z,&9E
  990DATA [{,&C7,\|,&87,]},&A7,^~,&E7
 1000DATA _`,&D7,Escape,&8F,Tab,&9F
 1010DATA CapsLock,&BF,Ctrl,&FE
 1020DATA ShiftLock,&AF,Shift,&FF,Delete,&A6
 1030DATA Copy,&96,Return,&B6,Csr Up,&C6
 1040DATA Csr Down,&D6,Csr Left,&E6
 1050DATA Csr Right,&86,f0,&DF,f1,&8E,f2,&8D
 1060DATA f3,&8C,f4,&EB,f5,&8B,f6,&8A,f7,&E9
 1070DATA f8,&89,f9,&88
 1080DATA "",&100
 1090:
 1100DEF FNrungame
 1110LOCAL i%
 1120FOR i%=0 TO 15
 1130keys%?l%(i%)=k%(i%)
 1140NEXT
 1150=USR go% AND &FF
 1160:
 1170DEF PROCoutcome(outcome%)
 1180PROCscrsetup
 1190PRINTTAB(11,24)"'SPACE' to restart"
 1200IF outcome%=1 PROCtext(12,13,"Victor: Player 2")
 1210IF outcome%=2 PROCtext(12,13,"Victor: Player 1")
 1220IF outcome%=3 PROCtext(14,13,"Victor: None")
 1230*FX 21,0
 1240REPEAT UNTIL GET=32
 1250ENDPROC
 1260:
 1270DEF PROCtext(X%,Y%,a$)
 1280LOCAL A%,B%
 1290X%=X%*32
 1300Y%=860-Y%*32
 1310VDU5
 1320GCOL 0,0
 1330FOR A%=-8 TO 8 STEP 4
 1340FOR B%=-8 TO 8 STEP 4
 1350MOVE X%+A%,Y%+B%
 1360PRINT a$;
 1370NEXT
 1380NEXT
 1390GCOL 0,1
 1400MOVE X%,Y%
 1410PRINT a$;
 1420VDU4
 1430ENDPROC
 1440:
 1450DEF PROCshowpic
 1460LOCAL A%, B%, C%, D%, E%
 1470A%=pic%:B%=&60C0
 1480REPEAT
 1490C%=?A%:D%=A%!1
 1500IF D% FOR B%=B% TO B%+4*C% STEP 4:!B%=D%:NEXT ELSE B%=B%+C%*4+4
 1510A%=A%+5
 1520UNTIL A%=picend%
 1530ENDPROC


!� 3D Dog Fight BASIC frontend
� by Andrew Bennett
� (c) Acorn Computing
(:
2� 4
<*FX200,1
F�=&4000
P*LOAD DogCode
Zgo%=&5D4C:keys%=&5D14
dpic%=&4004:picend%=&4E00
n
�setup
x�
��
��screen
�*FX21,0
��
�k$=�
�� k$=�32 � k$="1" � k$="2"
�� k$="1" �keys(0)
�� k$="2" �keys(8)
�� k$=�32
��outcome(�rungame)
��0
�:
�� �setup
� i%
� k$(7),l%(15),k%(15)
� i%=0 � 7
"� k$(i%)
,�
6� i%=0 � 15
@� l%(i%),k%(i%)
J�
T�
^:
h� Left,Right,Up,Down
r$� Forward,Backward,Fire,180 Spin
|:
�#�  6,&9E, 0,&BD,  7,&BC,  1,&AD
�#�  2,&AC, 8,&9C, 12,&AB, 14,&9B
�:
�#�  3,&99, 9,&98, 10,&B7,  4,&97
�#� 11,&A7, 5,&FF, 13,&B6, 15,&A6
�:
�� �scrsetup
�� 23;1,40,0;0;0;
�� 23;2,49,0;0;0;
�� 23;6,27,0;0;0;
�� 23;7,32,0;0;0;
�� 23;12,11,0;0;0;
�� 23;13,200,0;0;0;
� 23;10,32,0;0;0;
� 28,0,31,39,5
�
&�showpic
0�
::
D
� �screen
N
�scrsetup
X-�text(6,12,"'1' to change Player 1 keys")
b-�text(6,14,"'2' to change Player 2 keys")
l�12,24)"'SPACE' to start"
v�
�:
�� �keys(w%)
�� i%,n$,n%,c%
��:�15,3)"DOG FIGHT"
�� i%=0 � 7
�� �10,8+2*i%)k$(i%)
�
� �tDC
��
�� n$,n%
�� n%=k%(w%+i%)
�� �30-�n$,8+2*i%)n$
��
�� i%=0 � 7
� �4,8+2*i%)"Press"

� �tDC
�
 � n$,n%
*� n%=&100 � �tDC:� n$,n%
4� �(n% � &FF00)
>!� �20,8+2*i%)��10," ")+n$,10)
H� � � �(n% � &FF00)
Rk%(w%+i%)=n%
\� �4,8+2*i%)�(5)
f�
p�
z:
�&� Space,&9D,",<",&99,-=,&E8,.>,&98
�$� /?,&97,0,&D8,1,&CF,2,&CE,3,&EE
�#� 4,&ED,5,&EC,6,&CB,7,&DB,8,&EA
�%� 9,&D9,:*,&B7,;+,&A8,@,&B8,A,&BE
�#� B,&9B,C,&AD,D,&CD,E,&DD,F,&BC
�#� G,&AC,H,&AB,I,&DA,J,&BA,K,&B9
�#� L,&A9,M,&9A,N,&AA,O,&C9,P,&C8
�#� Q,&EF,R,&CC,S,&AE,T,&DC,U,&CA
�#� V,&9C,W,&DE,X,&BD,Y,&BB,Z,&9E
�!� [{,&C7,\|,&87,]},&A7,^~,&E7
�� _`,&D7,Escape,&8F,Tab,&9F
�� CapsLock,&BF,Ctrl,&FE
�(� ShiftLock,&AF,Shift,&FF,Delete,&A6
$� Copy,&96,Return,&B6,Csr Up,&C6
� Csr Down,&D6,Csr Left,&E6
(� Csr Right,&86,f0,&DF,f1,&8E,f2,&8D
$(� f3,&8C,f4,&EB,f5,&8B,f6,&8A,f7,&E9
.� f8,&89,f9,&88
8
� "",&100
B:
L� �rungame
V� i%
`� i%=0 � 15
jkeys%?l%(i%)=k%(i%)
t�
~=� go% � &FF
�:
�� �outcome(outcome%)
�
�scrsetup
� �11,24)"'SPACE' to restart"
�0� outcome%=1 �text(12,13,"Victor: Player 2")
�0� outcome%=2 �text(12,13,"Victor: Player 1")
�,� outcome%=3 �text(14,13,"Victor: None")
�*FX 21,0
�� � �=32
��
�:
�� �text(X%,Y%,a$)
� A%,B%

X%=X%*32
Y%=860-Y%*32
�5
(	� 0,0
2� A%=-8 � 8 � 4
<� B%=-8 � 8 � 4
F� X%+A%,Y%+B%
P	� a$;
Z�
d�
n	� 0,1
x� X%,Y%
�	� a$;
��4
��
�:
�� �showpic
�� A%, B%, C%, D%, E%
�A%=pic%:B%=&60C0
��
�C%=?A%:D%=A%!1
�6� D% � B%=B% � B%+4*C% � 4:!B%=D%:� � B%=B%+C%*4+4
�A%=A%+5
�� A%=picend%
��
�
00000000  0d 00 0a 21 f4 20 33 44  20 44 6f 67 20 46 69 67  |...!. 3D Dog Fig|
00000010  68 74 20 42 41 53 49 43  20 66 72 6f 6e 74 65 6e  |ht BASIC fronten|
00000020  64 0d 00 14 17 f4 20 62  79 20 41 6e 64 72 65 77  |d..... by Andrew|
00000030  20 42 65 6e 6e 65 74 74  0d 00 1e 19 f4 20 28 63  | Bennett..... (c|
00000040  29 20 41 63 6f 72 6e 20  43 6f 6d 70 75 74 69 6e  |) Acorn Computin|
00000050  67 0d 00 28 05 3a 0d 00  32 07 eb 20 34 0d 00 3c  |g..(.:..2.. 4..<|
00000060  0c 2a 46 58 32 30 30 2c  31 0d 00 46 0b d3 3d 26  |.*FX200,1..F..=&|
00000070  34 30 30 30 0d 00 50 11  2a 4c 4f 41 44 20 44 6f  |4000..P.*LOAD Do|
00000080  67 43 6f 64 65 0d 00 5a  19 67 6f 25 3d 26 35 44  |gCode..Z.go%=&5D|
00000090  34 43 3a 6b 65 79 73 25  3d 26 35 44 31 34 0d 00  |4C:keys%=&5D14..|
000000a0  64 1c 70 69 63 25 3d 26  34 30 30 34 3a 70 69 63  |d.pic%=&4004:pic|
000000b0  65 6e 64 25 3d 26 34 45  30 30 0d 00 6e 0a f2 73  |end%=&4E00..n..s|
000000c0  65 74 75 70 0d 00 78 05  f5 0d 00 82 05 f5 0d 00  |etup..x.........|
000000d0  8c 0b f2 73 63 72 65 65  6e 0d 00 96 0b 2a 46 58  |...screen....*FX|
000000e0  32 31 2c 30 0d 00 a0 05  f5 0d 00 aa 08 6b 24 3d  |21,0.........k$=|
000000f0  be 0d 00 b4 1e fd 20 6b  24 3d bd 33 32 20 84 20  |...... k$=.32 . |
00000100  6b 24 3d 22 31 22 20 84  20 6b 24 3d 22 32 22 0d  |k$="1" . k$="2".|
00000110  00 be 15 e7 20 6b 24 3d  22 31 22 20 f2 6b 65 79  |.... k$="1" .key|
00000120  73 28 30 29 0d 00 c8 15  e7 20 6b 24 3d 22 32 22  |s(0)..... k$="2"|
00000130  20 f2 6b 65 79 73 28 38  29 0d 00 d2 0c fd 20 6b  | .keys(8)..... k|
00000140  24 3d bd 33 32 0d 00 dc  16 f2 6f 75 74 63 6f 6d  |$=.32.....outcom|
00000150  65 28 a4 72 75 6e 67 61  6d 65 29 0d 00 e6 06 fd  |e(.rungame).....|
00000160  30 0d 00 f0 05 3a 0d 00  fa 0c dd 20 f2 73 65 74  |0....:..... .set|
00000170  75 70 0d 01 04 08 ea 20  69 25 0d 01 0e 19 de 20  |up..... i%..... |
00000180  6b 24 28 37 29 2c 6c 25  28 31 35 29 2c 6b 25 28  |k$(7),l%(15),k%(|
00000190  31 35 29 0d 01 18 0e e3  20 69 25 3d 30 20 b8 20  |15)..... i%=0 . |
000001a0  37 0d 01 22 0c f3 20 6b  24 28 69 25 29 0d 01 2c  |7..".. k$(i%)..,|
000001b0  05 ed 0d 01 36 0f e3 20  69 25 3d 30 20 b8 20 31  |....6.. i%=0 . 1|
000001c0  35 0d 01 40 13 f3 20 6c  25 28 69 25 29 2c 6b 25  |5..@.. l%(i%),k%|
000001d0  28 69 25 29 0d 01 4a 05  ed 0d 01 54 05 e1 0d 01  |(i%)..J....T....|
000001e0  5e 05 3a 0d 01 68 18 dc  20 4c 65 66 74 2c 52 69  |^.:..h.. Left,Ri|
000001f0  67 68 74 2c 55 70 2c 44  6f 77 6e 0d 01 72 24 dc  |ght,Up,Down..r$.|
00000200  20 46 6f 72 77 61 72 64  2c 42 61 63 6b 77 61 72  | Forward,Backwar|
00000210  64 2c 46 69 72 65 2c 31  38 30 20 53 70 69 6e 0d  |d,Fire,180 Spin.|
00000220  01 7c 05 3a 0d 01 86 23  dc 20 20 36 2c 26 39 45  |.|.:...#.  6,&9E|
00000230  2c 20 30 2c 26 42 44 2c  20 20 37 2c 26 42 43 2c  |, 0,&BD,  7,&BC,|
00000240  20 20 31 2c 26 41 44 0d  01 90 23 dc 20 20 32 2c  |  1,&AD...#.  2,|
00000250  26 41 43 2c 20 38 2c 26  39 43 2c 20 31 32 2c 26  |&AC, 8,&9C, 12,&|
00000260  41 42 2c 20 31 34 2c 26  39 42 0d 01 9a 05 3a 0d  |AB, 14,&9B....:.|
00000270  01 a4 23 dc 20 20 33 2c  26 39 39 2c 20 39 2c 26  |..#.  3,&99, 9,&|
00000280  39 38 2c 20 31 30 2c 26  42 37 2c 20 20 34 2c 26  |98, 10,&B7,  4,&|
00000290  39 37 0d 01 ae 23 dc 20  31 31 2c 26 41 37 2c 20  |97...#. 11,&A7, |
000002a0  35 2c 26 46 46 2c 20 31  33 2c 26 42 36 2c 20 31  |5,&FF, 13,&B6, 1|
000002b0  35 2c 26 41 36 0d 01 b8  05 3a 0d 01 c2 0f dd 20  |5,&A6....:..... |
000002c0  f2 73 63 72 73 65 74 75  70 0d 01 cc 14 ef 20 32  |.scrsetup..... 2|
000002d0  33 3b 31 2c 34 30 2c 30  3b 30 3b 30 3b 0d 01 d6  |3;1,40,0;0;0;...|
000002e0  14 ef 20 32 33 3b 32 2c  34 39 2c 30 3b 30 3b 30  |.. 23;2,49,0;0;0|
000002f0  3b 0d 01 e0 14 ef 20 32  33 3b 36 2c 32 37 2c 30  |;..... 23;6,27,0|
00000300  3b 30 3b 30 3b 0d 01 ea  14 ef 20 32 33 3b 37 2c  |;0;0;..... 23;7,|
00000310  33 32 2c 30 3b 30 3b 30  3b 0d 01 f4 15 ef 20 32  |32,0;0;0;..... 2|
00000320  33 3b 31 32 2c 31 31 2c  30 3b 30 3b 30 3b 0d 01  |3;12,11,0;0;0;..|
00000330  fe 16 ef 20 32 33 3b 31  33 2c 32 30 30 2c 30 3b  |... 23;13,200,0;|
00000340  30 3b 30 3b 0d 02 08 15  ef 20 32 33 3b 31 30 2c  |0;0;..... 23;10,|
00000350  33 32 2c 30 3b 30 3b 30  3b 0d 02 12 12 ef 20 32  |32,0;0;0;..... 2|
00000360  38 2c 30 2c 33 31 2c 33  39 2c 35 0d 02 1c 05 db  |8,0,31,39,5.....|
00000370  0d 02 26 0c f2 73 68 6f  77 70 69 63 0d 02 30 05  |..&..showpic..0.|
00000380  e1 0d 02 3a 05 3a 0d 02  44 0d dd 20 f2 73 63 72  |...:.:..D.. .scr|
00000390  65 65 6e 0d 02 4e 0d f2  73 63 72 73 65 74 75 70  |een..N..scrsetup|
000003a0  0d 02 58 2d f2 74 65 78  74 28 36 2c 31 32 2c 22  |..X-.text(6,12,"|
000003b0  27 31 27 20 74 6f 20 63  68 61 6e 67 65 20 50 6c  |'1' to change Pl|
000003c0  61 79 65 72 20 31 20 6b  65 79 73 22 29 0d 02 62  |ayer 1 keys")..b|
000003d0  2d f2 74 65 78 74 28 36  2c 31 34 2c 22 27 32 27  |-.text(6,14,"'2'|
000003e0  20 74 6f 20 63 68 61 6e  67 65 20 50 6c 61 79 65  | to change Playe|
000003f0  72 20 32 20 6b 65 79 73  22 29 0d 02 6c 1e f1 8a  |r 2 keys")..l...|
00000400  31 32 2c 32 34 29 22 27  53 50 41 43 45 27 20 74  |12,24)"'SPACE' t|
00000410  6f 20 73 74 61 72 74 22  0d 02 76 05 e1 0d 02 80  |o start"..v.....|
00000420  05 3a 0d 02 8a 0f dd 20  f2 6b 65 79 73 28 77 25  |.:..... .keys(w%|
00000430  29 0d 02 94 11 ea 20 69  25 2c 6e 24 2c 6e 25 2c  |)..... i%,n$,n%,|
00000440  63 25 0d 02 9e 18 db 3a  f1 8a 31 35 2c 33 29 22  |c%.....:..15,3)"|
00000450  44 4f 47 20 46 49 47 48  54 22 0d 02 a8 0e e3 20  |DOG FIGHT"..... |
00000460  69 25 3d 30 20 b8 20 37  0d 02 b2 17 f1 20 8a 31  |i%=0 . 7..... .1|
00000470  30 2c 38 2b 32 2a 69 25  29 6b 24 28 69 25 29 0d  |0,8+2*i%)k$(i%).|
00000480  02 bc 0a f7 20 8d 74 44  43 0d 02 c6 05 f5 0d 02  |.... .tDC.......|
00000490  d0 0b f3 20 6e 24 2c 6e  25 0d 02 da 12 fd 20 6e  |... n$,n%..... n|
000004a0  25 3d 6b 25 28 77 25 2b  69 25 29 0d 02 e4 17 f1  |%=k%(w%+i%).....|
000004b0  20 8a 33 30 2d a9 6e 24  2c 38 2b 32 2a 69 25 29  | .30-.n$,8+2*i%)|
000004c0  6e 24 0d 02 ee 05 ed 0d  02 f8 0e e3 20 69 25 3d  |n$.......... i%=|
000004d0  30 20 b8 20 37 0d 03 02  17 f1 20 8a 34 2c 38 2b  |0 . 7..... .4,8+|
000004e0  32 2a 69 25 29 22 50 72  65 73 73 22 0d 03 0c 0a  |2*i%)"Press"....|
000004f0  f7 20 8d 74 44 43 0d 03  16 05 f5 0d 03 20 0b f3  |. .tDC....... ..|
00000500  20 6e 24 2c 6e 25 0d 03  2a 1c e7 20 6e 25 3d 26  | n$,n%..*.. n%=&|
00000510  31 30 30 20 f7 20 8d 74  44 43 3a f3 20 6e 24 2c  |100 . .tDC:. n$,|
00000520  6e 25 0d 03 34 13 fd 20  a6 28 6e 25 20 84 20 26  |n%..4.. .(n% . &|
00000530  46 46 30 30 29 0d 03 3e  21 f1 20 8a 32 30 2c 38  |FF00)..>!. .20,8|
00000540  2b 32 2a 69 25 29 c2 c4  31 30 2c 22 20 22 29 2b  |+2*i%)..10," ")+|
00000550  6e 24 2c 31 30 29 0d 03  48 17 f5 20 fd 20 ac 20  |n$,10)..H.. . . |
00000560  a6 28 6e 25 20 84 20 26  46 46 30 30 29 0d 03 52  |.(n% . &FF00)..R|
00000570  10 6b 25 28 77 25 2b 69  25 29 3d 6e 25 0d 03 5c  |.k%(w%+i%)=n%..\|
00000580  14 f1 20 8a 34 2c 38 2b  32 2a 69 25 29 89 28 35  |.. .4,8+2*i%).(5|
00000590  29 0d 03 66 05 ed 0d 03  70 05 e1 0d 03 7a 05 3a  |)..f....p....z.:|
000005a0  0d 03 84 26 dc 20 53 70  61 63 65 2c 26 39 44 2c  |...&. Space,&9D,|
000005b0  22 2c 3c 22 2c 26 39 39  2c 2d 3d 2c 26 45 38 2c  |",<",&99,-=,&E8,|
000005c0  2e 3e 2c 26 39 38 0d 03  8e 24 dc 20 2f 3f 2c 26  |.>,&98...$. /?,&|
000005d0  39 37 2c 30 2c 26 44 38  2c 31 2c 26 43 46 2c 32  |97,0,&D8,1,&CF,2|
000005e0  2c 26 43 45 2c 33 2c 26  45 45 0d 03 98 23 dc 20  |,&CE,3,&EE...#. |
000005f0  34 2c 26 45 44 2c 35 2c  26 45 43 2c 36 2c 26 43  |4,&ED,5,&EC,6,&C|
00000600  42 2c 37 2c 26 44 42 2c  38 2c 26 45 41 0d 03 a2  |B,7,&DB,8,&EA...|
00000610  25 dc 20 39 2c 26 44 39  2c 3a 2a 2c 26 42 37 2c  |%. 9,&D9,:*,&B7,|
00000620  3b 2b 2c 26 41 38 2c 40  2c 26 42 38 2c 41 2c 26  |;+,&A8,@,&B8,A,&|
00000630  42 45 0d 03 ac 23 dc 20  42 2c 26 39 42 2c 43 2c  |BE...#. B,&9B,C,|
00000640  26 41 44 2c 44 2c 26 43  44 2c 45 2c 26 44 44 2c  |&AD,D,&CD,E,&DD,|
00000650  46 2c 26 42 43 0d 03 b6  23 dc 20 47 2c 26 41 43  |F,&BC...#. G,&AC|
00000660  2c 48 2c 26 41 42 2c 49  2c 26 44 41 2c 4a 2c 26  |,H,&AB,I,&DA,J,&|
00000670  42 41 2c 4b 2c 26 42 39  0d 03 c0 23 dc 20 4c 2c  |BA,K,&B9...#. L,|
00000680  26 41 39 2c 4d 2c 26 39  41 2c 4e 2c 26 41 41 2c  |&A9,M,&9A,N,&AA,|
00000690  4f 2c 26 43 39 2c 50 2c  26 43 38 0d 03 ca 23 dc  |O,&C9,P,&C8...#.|
000006a0  20 51 2c 26 45 46 2c 52  2c 26 43 43 2c 53 2c 26  | Q,&EF,R,&CC,S,&|
000006b0  41 45 2c 54 2c 26 44 43  2c 55 2c 26 43 41 0d 03  |AE,T,&DC,U,&CA..|
000006c0  d4 23 dc 20 56 2c 26 39  43 2c 57 2c 26 44 45 2c  |.#. V,&9C,W,&DE,|
000006d0  58 2c 26 42 44 2c 59 2c  26 42 42 2c 5a 2c 26 39  |X,&BD,Y,&BB,Z,&9|
000006e0  45 0d 03 de 21 dc 20 5b  7b 2c 26 43 37 2c 5c 7c  |E...!. [{,&C7,\||
000006f0  2c 26 38 37 2c 5d 7d 2c  26 41 37 2c 5e 7e 2c 26  |,&87,]},&A7,^~,&|
00000700  45 37 0d 03 e8 1f dc 20  5f 60 2c 26 44 37 2c 45  |E7..... _`,&D7,E|
00000710  73 63 61 70 65 2c 26 38  46 2c 54 61 62 2c 26 39  |scape,&8F,Tab,&9|
00000720  46 0d 03 f2 1b dc 20 43  61 70 73 4c 6f 63 6b 2c  |F..... CapsLock,|
00000730  26 42 46 2c 43 74 72 6c  2c 26 46 45 0d 03 fc 28  |&BF,Ctrl,&FE...(|
00000740  dc 20 53 68 69 66 74 4c  6f 63 6b 2c 26 41 46 2c  |. ShiftLock,&AF,|
00000750  53 68 69 66 74 2c 26 46  46 2c 44 65 6c 65 74 65  |Shift,&FF,Delete|
00000760  2c 26 41 36 0d 04 06 24  dc 20 43 6f 70 79 2c 26  |,&A6...$. Copy,&|
00000770  39 36 2c 52 65 74 75 72  6e 2c 26 42 36 2c 43 73  |96,Return,&B6,Cs|
00000780  72 20 55 70 2c 26 43 36  0d 04 10 1f dc 20 43 73  |r Up,&C6..... Cs|
00000790  72 20 44 6f 77 6e 2c 26  44 36 2c 43 73 72 20 4c  |r Down,&D6,Csr L|
000007a0  65 66 74 2c 26 45 36 0d  04 1a 28 dc 20 43 73 72  |eft,&E6...(. Csr|
000007b0  20 52 69 67 68 74 2c 26  38 36 2c 66 30 2c 26 44  | Right,&86,f0,&D|
000007c0  46 2c 66 31 2c 26 38 45  2c 66 32 2c 26 38 44 0d  |F,f1,&8E,f2,&8D.|
000007d0  04 24 28 dc 20 66 33 2c  26 38 43 2c 66 34 2c 26  |.$(. f3,&8C,f4,&|
000007e0  45 42 2c 66 35 2c 26 38  42 2c 66 36 2c 26 38 41  |EB,f5,&8B,f6,&8A|
000007f0  2c 66 37 2c 26 45 39 0d  04 2e 13 dc 20 66 38 2c  |,f7,&E9..... f8,|
00000800  26 38 39 2c 66 39 2c 26  38 38 0d 04 38 0d dc 20  |&89,f9,&88..8.. |
00000810  22 22 2c 26 31 30 30 0d  04 42 05 3a 0d 04 4c 0e  |"",&100..B.:..L.|
00000820  dd 20 a4 72 75 6e 67 61  6d 65 0d 04 56 08 ea 20  |. .rungame..V.. |
00000830  69 25 0d 04 60 0f e3 20  69 25 3d 30 20 b8 20 31  |i%..`.. i%=0 . 1|
00000840  35 0d 04 6a 17 6b 65 79  73 25 3f 6c 25 28 69 25  |5..j.keys%?l%(i%|
00000850  29 3d 6b 25 28 69 25 29  0d 04 74 05 ed 0d 04 7e  |)=k%(i%)..t....~|
00000860  10 3d ba 20 67 6f 25 20  80 20 26 46 46 0d 04 88  |.=. go% . &FF...|
00000870  05 3a 0d 04 92 18 dd 20  f2 6f 75 74 63 6f 6d 65  |.:..... .outcome|
00000880  28 6f 75 74 63 6f 6d 65  25 29 0d 04 9c 0d f2 73  |(outcome%).....s|
00000890  63 72 73 65 74 75 70 0d  04 a6 20 f1 8a 31 31 2c  |crsetup... ..11,|
000008a0  32 34 29 22 27 53 50 41  43 45 27 20 74 6f 20 72  |24)"'SPACE' to r|
000008b0  65 73 74 61 72 74 22 0d  04 b0 30 e7 20 6f 75 74  |estart"...0. out|
000008c0  63 6f 6d 65 25 3d 31 20  f2 74 65 78 74 28 31 32  |come%=1 .text(12|
000008d0  2c 31 33 2c 22 56 69 63  74 6f 72 3a 20 50 6c 61  |,13,"Victor: Pla|
000008e0  79 65 72 20 32 22 29 0d  04 ba 30 e7 20 6f 75 74  |yer 2")...0. out|
000008f0  63 6f 6d 65 25 3d 32 20  f2 74 65 78 74 28 31 32  |come%=2 .text(12|
00000900  2c 31 33 2c 22 56 69 63  74 6f 72 3a 20 50 6c 61  |,13,"Victor: Pla|
00000910  79 65 72 20 31 22 29 0d  04 c4 2c e7 20 6f 75 74  |yer 1")...,. out|
00000920  63 6f 6d 65 25 3d 33 20  f2 74 65 78 74 28 31 34  |come%=3 .text(14|
00000930  2c 31 33 2c 22 56 69 63  74 6f 72 3a 20 4e 6f 6e  |,13,"Victor: Non|
00000940  65 22 29 0d 04 ce 0c 2a  46 58 20 32 31 2c 30 0d  |e")....*FX 21,0.|
00000950  04 d8 0c f5 20 fd 20 a5  3d 33 32 0d 04 e2 05 e1  |.... . .=32.....|
00000960  0d 04 ec 05 3a 0d 04 f6  15 dd 20 f2 74 65 78 74  |....:..... .text|
00000970  28 58 25 2c 59 25 2c 61  24 29 0d 05 00 0b ea 20  |(X%,Y%,a$)..... |
00000980  41 25 2c 42 25 0d 05 0a  0c 58 25 3d 58 25 2a 33  |A%,B%....X%=X%*3|
00000990  32 0d 05 14 10 59 25 3d  38 36 30 2d 59 25 2a 33  |2....Y%=860-Y%*3|
000009a0  32 0d 05 1e 06 ef 35 0d  05 28 09 e6 20 30 2c 30  |2.....5..(.. 0,0|
000009b0  0d 05 32 13 e3 20 41 25  3d 2d 38 20 b8 20 38 20  |..2.. A%=-8 . 8 |
000009c0  88 20 34 0d 05 3c 13 e3  20 42 25 3d 2d 38 20 b8  |. 4..<.. B%=-8 .|
000009d0  20 38 20 88 20 34 0d 05  46 11 ec 20 58 25 2b 41  | 8 . 4..F.. X%+A|
000009e0  25 2c 59 25 2b 42 25 0d  05 50 09 f1 20 61 24 3b  |%,Y%+B%..P.. a$;|
000009f0  0d 05 5a 05 ed 0d 05 64  05 ed 0d 05 6e 09 e6 20  |..Z....d....n.. |
00000a00  30 2c 31 0d 05 78 0b ec  20 58 25 2c 59 25 0d 05  |0,1..x.. X%,Y%..|
00000a10  82 09 f1 20 61 24 3b 0d  05 8c 06 ef 34 0d 05 96  |... a$;.....4...|
00000a20  05 e1 0d 05 a0 05 3a 0d  05 aa 0e dd 20 f2 73 68  |......:..... .sh|
00000a30  6f 77 70 69 63 0d 05 b4  18 ea 20 41 25 2c 20 42  |owpic..... A%, B|
00000a40  25 2c 20 43 25 2c 20 44  25 2c 20 45 25 0d 05 be  |%, C%, D%, E%...|
00000a50  14 41 25 3d 70 69 63 25  3a 42 25 3d 26 36 30 43  |.A%=pic%:B%=&60C|
00000a60  30 0d 05 c8 05 f5 0d 05  d2 12 43 25 3d 3f 41 25  |0.........C%=?A%|
00000a70  3a 44 25 3d 41 25 21 31  0d 05 dc 36 e7 20 44 25  |:D%=A%!1...6. D%|
00000a80  20 e3 20 42 25 3d 42 25  20 b8 20 42 25 2b 34 2a  | . B%=B% . B%+4*|
00000a90  43 25 20 88 20 34 3a 21  42 25 3d 44 25 3a ed 20  |C% . 4:!B%=D%:. |
00000aa0  8b 20 42 25 3d 42 25 2b  43 25 2a 34 2b 34 0d 05  |. B%=B%+C%*4+4..|
00000ab0  e6 0b 41 25 3d 41 25 2b  35 0d 05 f0 10 fd 20 41  |..A%=A%+5..... A|
00000ac0  25 3d 70 69 63 65 6e 64  25 0d 05 fa 05 e1 0d ff  |%=picend%.......|
00000ad0

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .