Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape39a_acorn_eu_1992_october.wav » SneakT2

SneakT2

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_tape39a_acorn_eu_1992_october.wav
Filename: SneakT2
Read OK: ✔
File size: 04A0 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

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

File contents
   10REM>SneakT2
   20MODE 1:PROC_IICs
   30PRINT TAB(12,4)"Sneak Thief"
   40PRINT TAB(12)"By Mike Cook"
   50PRINT:PRINT TAB(4)"I squared C 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%=FN_IICr
  240REM HOLD UNTIL STARTED
  250REPEAT
  260A%=FN_IICr
  270PROC_DISPLAY(A%,200)
  280UNTIL ABS(S%-A%)>2
  290
  300L%=A%
  310REPEAT
  320FOR E%=1 TO LEVEL%
  330*FX19
  340NEXT
  350A%=FN_IICr
  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
  620
  630DEF PROC_IICs
  640DIM PBK% 5, PBS% 4
  650?PBS%=&4
  660REM Set up the control register
  670SYS "IIC_Control",&90,PBS%,1
  680ENDPROC
  690
  700DEF FN_IICr
  710PRINT TAB(0,12)
  720SYS "IIC_Control",&91,PBK%,4
  730=PBK%?1



�>SneakT2
� 1:�_IICs
� �12,4)"Sneak Thief"
(� �12)"By Mike Cook"
2 �:� �4)"I squared C 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%=�_IICr
�� HOLD UNTIL STARTED
��

A%=�_IICr
�_DISPLAY(A%,200)
� �(S%-A%)>2
"
,	L%=A%
6�
@� E%=1 � LEVEL%
J	*FX19
T�
^
A%=�_IICr
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�
l
v� �_IICs
�� PBK% 5, PBS% 4
�?PBS%=&4
�!� Set up the control register
�ș "IIC_Control",&90,PBS%,1
��
�
�� �_IICr
�� �0,12)
�ș "IIC_Control",&91,PBK%,4
�=PBK%?1
�
00000000  0d 00 0a 0d f4 3e 53 6e  65 61 6b 54 32 0d 00 14  |.....>SneakT2...|
00000010  0e eb 20 31 3a f2 5f 49  49 43 73 0d 00 1e 19 f1  |.. 1:._IICs.....|
00000020  20 8a 31 32 2c 34 29 22  53 6e 65 61 6b 20 54 68  | .12,4)"Sneak Th|
00000030  69 65 66 22 0d 00 28 18  f1 20 8a 31 32 29 22 42  |ief"..(.. .12)"B|
00000040  79 20 4d 69 6b 65 20 43  6f 6f 6b 22 0d 00 32 20  |y Mike Cook"..2 |
00000050  f1 3a f1 20 8a 34 29 22  49 20 73 71 75 61 72 65  |.:. .4)"I square|
00000060  64 20 43 20 56 65 72 73  69 6f 6e 22 0d 00 3c 07  |d C Version"..<.|
00000070  f1 3a f1 0d 00 46 2f f1  8a 32 29 22 43 4f 50 59  |.:...F/..2)"COPY|
00000080  52 49 47 48 54 20 41 63  6f 72 6e 20 43 6f 6d 70  |RIGHT Acorn Comp|
00000090  75 74 69 6e 67 20 4f 63  74 2e 20 39 32 22 3a f1  |uting Oct. 92":.|
000000a0  3a f1 0d 00 50 47 f1 3a  f1 22 54 68 69 73 20 72  |:...PG.:."This r|
000000b0  65 71 75 69 72 65 73 20  74 68 65 20 68 61 72 64  |equires the hard|
000000c0  77 61 72 65 20 64 65 73  63 72 69 62 65 64 20 69  |ware described i|
000000d0  6e 20 74 68 65 20 42 6f  64 79 20 42 75 69 6c 64  |n the Body Build|
000000e0  20 61 72 74 69 63 61 6c  22 0d 00 5a 20 f1 3a f1  | artical"..Z .:.|
000000f0  22 54 72 61 69 6e 69 6e  67 20 6f 72 20 47 61 6d  |"Training or Gam|
00000100  65 20 28 54 2f 47 29 22  3b 0d 00 64 0a 4a 24 3d  |e (T/G)";..d.J$=|
00000110  be 3a f1 0d 00 6e 23 e8  22 4c 65 76 65 6c 20 28  |.:...n#."Level (|
00000120  31 20 69 73 20 65 61 73  69 65 73 74 29 20 22 3b  |1 is easiest) ";|
00000130  4c 45 56 45 4c 25 0d 00  78 13 ef 20 32 33 3b 38  |LEVEL%..x.. 23;8|
00000140  32 30 32 3b 30 3b 30 3b  30 0d 00 82 0a f2 5f 47  |202;0;0;0....._G|
00000150  41 52 44 0d 00 8c 0a e5  20 8d 74 42 40 0d 00 96  |ARD..... .tB@...|
00000160  05 e0 0d 00 a0 04 0d 00  aa 0c dd 20 f2 5f 47 41  |........... ._GA|
00000170  52 44 0d 00 b4 07 db 3a  db 0d 00 be 18 f1 20 8a  |RD.....:...... .|
00000180  30 2c 34 29 22 53 6e 65  61 6b 20 54 68 69 65 66  |0,4)"Sneak Thief|
00000190  22 0d 00 c8 13 f1 22 42  79 20 4d 69 6b 65 20 43  |"....."By Mike C|
000001a0  6f 6f 6b 22 0d 00 d2 1c  f1 20 8a 30 2c 32 34 29  |ook"..... .0,24)|
000001b0  22 41 62 73 6f 6c 75 74  65 20 4c 65 76 65 6c 22  |"Absolute Level"|
000001c0  0d 00 dc 14 f1 20 8a 30  2c 31 38 29 22 43 68 61  |..... .0,18)"Cha|
000001d0  6e 67 65 22 0d 00 e6 0d  53 25 3d a4 5f 49 49 43  |nge"....S%=._IIC|
000001e0  72 0d 00 f0 18 f4 20 48  4f 4c 44 20 55 4e 54 49  |r..... HOLD UNTI|
000001f0  4c 20 53 54 41 52 54 45  44 0d 00 fa 05 f5 0d 01  |L STARTED.......|
00000200  04 0d 41 25 3d a4 5f 49  49 43 72 0d 01 0e 15 f2  |..A%=._IICr.....|
00000210  5f 44 49 53 50 4c 41 59  28 41 25 2c 32 30 30 29  |_DISPLAY(A%,200)|
00000220  0d 01 18 10 fd 20 94 28  53 25 2d 41 25 29 3e 32  |..... .(S%-A%)>2|
00000230  0d 01 22 04 0d 01 2c 09  4c 25 3d 41 25 0d 01 36  |.."...,.L%=A%..6|
00000240  05 f5 0d 01 40 13 e3 20  45 25 3d 31 20 b8 20 4c  |....@.. E%=1 . L|
00000250  45 56 45 4c 25 0d 01 4a  09 2a 46 58 31 39 0d 01  |EVEL%..J.*FX19..|
00000260  54 05 ed 0d 01 5e 0d 41  25 3d a4 5f 49 49 43 72  |T....^.A%=._IICr|
00000270  0d 01 68 15 f2 5f 44 49  53 50 4c 41 59 28 41 25  |..h.._DISPLAY(A%|
00000280  2c 32 30 30 29 0d 01 72  0f 44 25 3d 94 28 41 25  |,200)..r.D%=.(A%|
00000290  2d 4c 25 29 0d 01 7c 14  e7 20 44 25 3e 32 20 8c  |-L%)..|.. D%>2 .|
000002a0  20 f2 5f 41 4c 41 52 4d  0d 01 86 17 f2 5f 44 49  | ._ALARM....._DI|
000002b0  53 50 4c 41 59 28 38 2a  44 25 2c 34 30 30 29 0d  |SPLAY(8*D%,400).|
000002c0  01 90 09 4c 25 3d 41 25  0d 01 9a 0b fd 20 53 25  |...L%=A%..... S%|
000002d0  3d 41 25 0d 01 a4 05 e1  0d 01 ae 04 0d 01 b8 0d  |=A%.............|
000002e0  dd 20 f2 5f 41 4c 41 52  4d 0d 01 c2 1f e7 20 ac  |. ._ALARM..... .|
000002f0  28 4a 24 3d 22 47 22 20  84 20 4a 24 3d 22 67 22  |(J$="G" . J$="g"|
00000300  29 20 ef 37 20 3a 20 e1  0d 01 cc 0e e3 20 4e 25  |) .7 : ...... N%|
00000310  3d 31 20 b8 20 35 0d 01  d6 11 d4 20 31 2c 2d 31  |=1 . 5..... 1,-1|
00000320  35 2c 31 31 30 2c 35 0d  01 e0 0c 4b 24 3d bf 28  |5,110,5....K$=.(|
00000330  33 30 29 0d 01 ea 10 d4  20 31 2c 2d 31 35 2c 37  |30)..... 1,-15,7|
00000340  30 2c 35 0d 01 f4 0c 4b  24 3d bf 28 33 30 29 0d  |0,5....K$=.(30).|
00000350  01 fe 05 ed 0d 02 08 05  e1 0d 02 12 04 0d 02 1c  |................|
00000360  16 dd 20 f2 5f 44 49 53  50 4c 41 59 28 4d 25 2c  |.. ._DISPLAY(M%,|
00000370  59 25 29 0d 02 26 09 e6  20 30 2c 31 0d 02 30 0a  |Y%)..&.. 0,1..0.|
00000380  ec 20 30 2c 59 25 0d 02  3a 0d df 20 4d 25 2a 34  |. 0,Y%..:.. M%*4|
00000390  2c 59 25 0d 02 44 09 e6  20 30 2c 30 0d 02 4e 0d  |,Y%..D.. 0,0..N.|
000003a0  df 20 31 30 32 34 2c 59  25 0d 02 58 35 e7 20 59  |. 1024,Y%..X5. Y|
000003b0  25 3d 32 30 30 20 8c 20  f1 8a 31 36 2c 32 34 29  |%=200 . ..16,24)|
000003c0  3b 4d 25 3b 89 28 33 29  3b 20 8b 20 f1 8a 37 2c  |;M%;.(3); . ..7,|
000003d0  31 38 29 3b 4d 25 2f 38  3b 89 28 33 29 3b 0d 02  |18);M%/8;.(3);..|
000003e0  62 05 e1 0d 02 6c 04 0d  02 76 0c dd 20 f2 5f 49  |b....l...v.. ._I|
000003f0  49 43 73 0d 02 80 14 de  20 50 42 4b 25 20 35 2c  |ICs..... PBK% 5,|
00000400  20 50 42 53 25 20 34 0d  02 8a 0c 3f 50 42 53 25  | PBS% 4....?PBS%|
00000410  3d 26 34 0d 02 94 21 f4  20 53 65 74 20 75 70 20  |=&4...!. Set up |
00000420  74 68 65 20 63 6f 6e 74  72 6f 6c 20 72 65 67 69  |the control regi|
00000430  73 74 65 72 0d 02 9e 1f  c8 99 20 22 49 49 43 5f  |ster...... "IIC_|
00000440  43 6f 6e 74 72 6f 6c 22  2c 26 39 30 2c 50 42 53  |Control",&90,PBS|
00000450  25 2c 31 0d 02 a8 05 e1  0d 02 b2 04 0d 02 bc 0c  |%,1.............|
00000460  dd 20 a4 5f 49 49 43 72  0d 02 c6 0c f1 20 8a 30  |. ._IICr..... .0|
00000470  2c 31 32 29 0d 02 d0 1f  c8 99 20 22 49 49 43 5f  |,12)...... "IIC_|
00000480  43 6f 6e 74 72 6f 6c 22  2c 26 39 31 2c 50 42 4b  |Control",&91,PBK|
00000490  25 2c 34 0d 02 da 0b 3d  50 42 4b 25 3f 31 0d ff  |%,4....=PBK%?1..|
000004a0
SneakT2.m0
SneakT2.m1
SneakT2.m2
SneakT2.m4
SneakT2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .