Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape39b_acorn_eu_1992_october.wav » SneakT1

SneakT1

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_tape39b_acorn_eu_1992_october.wav
Filename: SneakT1
Read OK:
File size: 03F5 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

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

File contents
   10REM>SneakT1
   20MODE 1
   30PRINT TAB(12,4)"Sneak Thief"
   40PRINT TAB(12)"By Mike Cook"
   50PRINT:PRINT TAB(4)"Analogue Joystick Port Version"
   60PRINT:PRINT
   70PRINTTAB(2)"COPYRIGHT Acorn Computing Oct. 92":PRINT:PRINT
   80PRINT:PRINT"This requires the hardware described in the Body Build artical"
   90PRINT:PRINT"Training or Game (T/G)";
  100J$=GET$:PRINT
  110INPUT"Level (1 is easiest) ";LEVEL%
  120VDU 23;8202;0;0;0
  130PROC_GARD
  140GOTO 130
  150END
  160
  170DEF PROC_GARD
  180CLS:CLS
  190PRINT TAB(0,4)"Sneak Thief"
  200PRINT"By Mike Cook"
  210PRINT TAB(0,24)"Absolute Level"
  220PRINT TAB(0,18)"Change"
  230S%=ADVAL(1) DIV 256
  240REM HOLD UNTIL STARTED
  250REPEAT
  260A%=ADVAL(1) DIV 256
  270PROC_DISPLAY(A%,200)
  280UNTIL ABS(S%-A%)>2
  290
  300L%=A%
  310REPEAT
  320FOR E%=1 TO LEVEL%
  330*FX19
  340NEXT
  350A%=ADVAL(1) DIV 256
  360PROC_DISPLAY(A%,200)
  370D%=ABS(A%-L%)
  380IF D%>2 THEN PROC_ALARM
  390PROC_DISPLAY(8*D%,400)
  400L%=A%
  410UNTIL S%=A%
  420ENDPROC
  430
  440DEF PROC_ALARM
  450IF NOT(J$="G" OR J$="g") VDU7 : ENDPROC
  460FOR N%=1 TO 5
  470SOUND 1,-15,110,5
  480K$=INKEY$(30)
  490SOUND 1,-15,70,5
  500K$=INKEY$(30)
  510NEXT
  520ENDPROC
  530
  540DEF PROC_DISPLAY(M%,Y%)
  550GCOL 0,1
  560MOVE 0,Y%
  570DRAW M%*4,Y%
  580GCOL 0,0
  590DRAW 1024,Y%
  600IF Y%=200 THEN PRINTTAB(16,24);M%;SPC(3); ELSE PRINTTAB(7,18);M%/8;SPC(3);
  610ENDPROC


�>SneakT1
� 1
� �12,4)"Sneak Thief"
(� �12)"By Mike Cook"
2+�:� �4)"Analogue Joystick Port Version"
<�:�
F/�2)"COPYRIGHT Acorn Computing Oct. 92":�:�
PG�:�"This requires the hardware described in the Body Build artical"
Z �:�"Training or Game (T/G)";
d
J$=�:�
n#�"Level (1 is easiest) ";LEVEL%
x� 23;8202;0;0;0
�
�_GARD
�
� �tB@
��
�
�� �_GARD
��:�
�� �0,4)"Sneak Thief"
��"By Mike Cook"
�� �0,24)"Absolute Level"
�� �0,18)"Change"
�S%=�(1) � 256
�� HOLD UNTIL STARTED
��
A%=�(1) � 256
�_DISPLAY(A%,200)
� �(S%-A%)>2
"
,	L%=A%
6�
@� E%=1 � LEVEL%
J	*FX19
T�
^A%=�(1) � 256
h�_DISPLAY(A%,200)
rD%=�(A%-L%)
|� D%>2 � �_ALARM
��_DISPLAY(8*D%,400)
�	L%=A%
�� S%=A%
��
�
�
� �_ALARM
�� �(J$="G" � J$="g") �7 : �
�� N%=1 � 5
�� 1,-15,110,5
�K$=�(30)
�� 1,-15,70,5
�K$=�(30)
��
�

� �_DISPLAY(M%,Y%)
&	� 0,1
0
� 0,Y%
:
� M%*4,Y%
D	� 0,0
N
� 1024,Y%
X5� Y%=200 � �16,24);M%;�(3); � �7,18);M%/8;�(3);
b�
�
00000000  0d 00 0a 0d f4 3e 53 6e  65 61 6b 54 31 0d 00 14  |.....>SneakT1...|
00000010  07 eb 20 31 0d 00 1e 19  f1 20 8a 31 32 2c 34 29  |.. 1..... .12,4)|
00000020  22 53 6e 65 61 6b 20 54  68 69 65 66 22 0d 00 28  |"Sneak Thief"..(|
00000030  18 f1 20 8a 31 32 29 22  42 79 20 4d 69 6b 65 20  |.. .12)"By Mike |
00000040  43 6f 6f 6b 22 0d 00 32  2b f1 3a f1 20 8a 34 29  |Cook"..2+.:. .4)|
00000050  22 41 6e 61 6c 6f 67 75  65 20 4a 6f 79 73 74 69  |"Analogue Joysti|
00000060  63 6b 20 50 6f 72 74 20  56 65 72 73 69 6f 6e 22  |ck Port Version"|
00000070  0d 00 3c 07 f1 3a f1 0d  00 46 2f f1 8a 32 29 22  |..<..:...F/..2)"|
00000080  43 4f 50 59 52 49 47 48  54 20 41 63 6f 72 6e 20  |COPYRIGHT Acorn |
00000090  43 6f 6d 70 75 74 69 6e  67 20 4f 63 74 2e 20 39  |Computing Oct. 9|
000000a0  32 22 3a f1 3a f1 0d 00  50 47 f1 3a f1 22 54 68  |2":.:...PG.:."Th|
000000b0  69 73 20 72 65 71 75 69  72 65 73 20 74 68 65 20  |is requires the |
000000c0  68 61 72 64 77 61 72 65  20 64 65 73 63 72 69 62  |hardware describ|
000000d0  65 64 20 69 6e 20 74 68  65 20 42 6f 64 79 20 42  |ed in the Body B|
000000e0  75 69 6c 64 20 61 72 74  69 63 61 6c 22 0d 00 5a  |uild artical"..Z|
000000f0  20 f1 3a f1 22 54 72 61  69 6e 69 6e 67 20 6f 72  | .:."Training or|
00000100  20 47 61 6d 65 20 28 54  2f 47 29 22 3b 0d 00 64  | Game (T/G)";..d|
00000110  0a 4a 24 3d be 3a f1 0d  00 6e 23 e8 22 4c 65 76  |.J$=.:...n#."Lev|
00000120  65 6c 20 28 31 20 69 73  20 65 61 73 69 65 73 74  |el (1 is easiest|
00000130  29 20 22 3b 4c 45 56 45  4c 25 0d 00 78 13 ef 20  |) ";LEVEL%..x.. |
00000140  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 0d 00 82  |23;8202;0;0;0...|
00000150  0a f2 5f 47 41 52 44 0d  00 8c 0a e5 20 8d 74 42  |.._GARD..... .tB|
00000160  40 0d 00 96 05 e0 0d 00  a0 04 0d 00 aa 0c dd 20  |@.............. |
00000170  f2 5f 47 41 52 44 0d 00  b4 07 db 3a db 0d 00 be  |._GARD.....:....|
00000180  18 f1 20 8a 30 2c 34 29  22 53 6e 65 61 6b 20 54  |.. .0,4)"Sneak T|
00000190  68 69 65 66 22 0d 00 c8  13 f1 22 42 79 20 4d 69  |hief"....."By Mi|
000001a0  6b 65 20 43 6f 6f 6b 22  0d 00 d2 1c f1 20 8a 30  |ke Cook"..... .0|
000001b0  2c 32 34 29 22 41 62 73  6f 6c 75 74 65 20 4c 65  |,24)"Absolute Le|
000001c0  76 65 6c 22 0d 00 dc 14  f1 20 8a 30 2c 31 38 29  |vel"..... .0,18)|
000001d0  22 43 68 61 6e 67 65 22  0d 00 e6 11 53 25 3d 96  |"Change"....S%=.|
000001e0  28 31 29 20 81 20 32 35  36 0d 00 f0 18 f4 20 48  |(1) . 256..... H|
000001f0  4f 4c 44 20 55 4e 54 49  4c 20 53 54 41 52 54 45  |OLD UNTIL STARTE|
00000200  44 0d 00 fa 05 f5 0d 01  04 11 41 25 3d 96 28 31  |D.........A%=.(1|
00000210  29 20 81 20 32 35 36 0d  01 0e 15 f2 5f 44 49 53  |) . 256....._DIS|
00000220  50 4c 41 59 28 41 25 2c  32 30 30 29 0d 01 18 10  |PLAY(A%,200)....|
00000230  fd 20 94 28 53 25 2d 41  25 29 3e 32 0d 01 22 04  |. .(S%-A%)>2..".|
00000240  0d 01 2c 09 4c 25 3d 41  25 0d 01 36 05 f5 0d 01  |..,.L%=A%..6....|
00000250  40 13 e3 20 45 25 3d 31  20 b8 20 4c 45 56 45 4c  |@.. E%=1 . LEVEL|
00000260  25 0d 01 4a 09 2a 46 58  31 39 0d 01 54 05 ed 0d  |%..J.*FX19..T...|
00000270  01 5e 11 41 25 3d 96 28  31 29 20 81 20 32 35 36  |.^.A%=.(1) . 256|
00000280  0d 01 68 15 f2 5f 44 49  53 50 4c 41 59 28 41 25  |..h.._DISPLAY(A%|
00000290  2c 32 30 30 29 0d 01 72  0f 44 25 3d 94 28 41 25  |,200)..r.D%=.(A%|
000002a0  2d 4c 25 29 0d 01 7c 14  e7 20 44 25 3e 32 20 8c  |-L%)..|.. D%>2 .|
000002b0  20 f2 5f 41 4c 41 52 4d  0d 01 86 17 f2 5f 44 49  | ._ALARM....._DI|
000002c0  53 50 4c 41 59 28 38 2a  44 25 2c 34 30 30 29 0d  |SPLAY(8*D%,400).|
000002d0  01 90 09 4c 25 3d 41 25  0d 01 9a 0b fd 20 53 25  |...L%=A%..... S%|
000002e0  3d 41 25 0d 01 a4 05 e1  0d 01 ae 04 0d 01 b8 0d  |=A%.............|
000002f0  dd 20 f2 5f 41 4c 41 52  4d 0d 01 c2 1f e7 20 ac  |. ._ALARM..... .|
00000300  28 4a 24 3d 22 47 22 20  84 20 4a 24 3d 22 67 22  |(J$="G" . J$="g"|
00000310  29 20 ef 37 20 3a 20 e1  0d 01 cc 0e e3 20 4e 25  |) .7 : ...... N%|
00000320  3d 31 20 b8 20 35 0d 01  d6 11 d4 20 31 2c 2d 31  |=1 . 5..... 1,-1|
00000330  35 2c 31 31 30 2c 35 0d  01 e0 0c 4b 24 3d bf 28  |5,110,5....K$=.(|
00000340  33 30 29 0d 01 ea 10 d4  20 31 2c 2d 31 35 2c 37  |30)..... 1,-15,7|
00000350  30 2c 35 0d 01 f4 0c 4b  24 3d bf 28 33 30 29 0d  |0,5....K$=.(30).|
00000360  01 fe 05 ed 0d 02 08 05  e1 0d 02 12 04 0d 02 1c  |................|
00000370  16 dd 20 f2 5f 44 49 53  50 4c 41 59 28 4d 25 2c  |.. ._DISPLAY(M%,|
00000380  59 25 29 0d 02 26 09 e6  20 30 2c 31 0d 02 30 0a  |Y%)..&.. 0,1..0.|
00000390  ec 20 30 2c 59 25 0d 02  3a 0d df 20 4d 25 2a 34  |. 0,Y%..:.. M%*4|
000003a0  2c 59 25 0d 02 44 09 e6  20 30 2c 30 0d 02 4e 0d  |,Y%..D.. 0,0..N.|
000003b0  df 20 31 30 32 34 2c 59  25 0d 02 58 35 e7 20 59  |. 1024,Y%..X5. Y|
000003c0  25 3d 32 30 30 20 8c 20  f1 8a 31 36 2c 32 34 29  |%=200 . ..16,24)|
000003d0  3b 4d 25 3b 89 28 33 29  3b 20 8b 20 f1 8a 37 2c  |;M%;.(3); . ..7,|
000003e0  31 38 29 3b 4d 25 2f 38  3b 89 28 33 29 3b 0d 02  |18);M%/8;.(3);..|
000003f0  62 05 e1 0d ff                                    |b....|
000003f5
SneakT1.m0
SneakT1.m1
SneakT1.m2
SneakT1.m4
SneakT1.m5