Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape39a_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_tape39a_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:
- AEW website » mu » mu_5_25_discs_Micro_User_10_08_D-MU10_08.ssd » SneakT1
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape39a_acorn_eu_1992_october.wav » SneakT1
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape39b_acorn_eu_1992_october.wav » SneakT1
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