StarInfo/Jeffs/Trapper

Home » Archimedes archive » Acorn User » AU 1997-09 B.adf » Regulars » StarInfo/Jeffs/Trapper

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 User » AU 1997-09 B.adf » Regulars
Filename:	StarInfo/Jeffs/Trapper
Read OK:	✔
File size:	03FA bytes
Load address:	0000
Exec address:	0000

File contents

   10MODE9:OFF
   20T=2:DIM S(T,1)
   30FOR Y=0 TO 20:FOR X=0 TO 39
   40IF Y=0 OR Y=20 OR X=0 OR X=39 COLOUR1:VDU88 ELSE IF RND(4)=1 COLOUR5:VDU79 ELSE VDU32
   50NEXT:NEXT
   60COLOUR3:FOR Q=0 TO T:S(Q,0)=RND(19)+19:S(Q,1)=RND(19):PRINTTAB(S(Q,0),S(Q,1));"S":NEXT
   70X=10:Y=10:COLOUR 7:VDU 31,X,Y,35
   80COLOUR7:PRINTTAB(8,21);"(Z,X,K,M) SPACE to start":REPEATUNTILGET=32:PRINTTAB(8,21);SPC(24)
   90D=FALSE:K=0:REPEAT:TIME=0:REPEATUNTILTIME>2:K+=1:IF K=5 K=0
  100FOR Q=0 TO T
  110IF RND(3)=1 I=RND(3)-2:J=RND(3)-2 ELSE I=SGN(X-S(Q,0)):J=SGN(Y-S(Q,1))
  120VDU 31,S(Q,0)+I,S(Q,1)+J:SYS 6,135 TO ,F:IF (F=32 OR F=35) AND K=0 VDU 31,S(Q,0),S(Q,1),32:S(Q,0)+=I:S(Q,1)+=J:COLOUR3:VDU 31,S(Q,0),S(Q,1),83:IF F=35 D=TRUE
  130NEXT
  140IF INKEY-98 I=-1 ELSE IF INKEY-67 I=1 ELSE I=0
  150IF INKEY-71 J=-1 ELSE IF INKEY-102 J=1 ELSE J=0
  160PROCmove(X,Y,I,J):IF NOT D COLOUR 7:VDU 31,X,Y,35
  170E=FALSE:Q=0:REPEAT
  180A=-1:REPEAT:B=-1:REPEAT:VDU 31,S(Q,0)+B,S(Q,1)+A:SYS 6,135 TO ,F:IF F<>88 AND F<>79 AND F<>83 E=TRUE:UNTIL E:UNTIL E ELSE B+=1:UNTIL B=2:A+=1:UNTIL A=2
  190Q+=1:UNTIL E OR Q>T
  200UNTIL NOT E OR D
  210COLOUR7:IF D PRINTTAB(0,22);"You loose!"; ELSE PRINTTAB(0,22);"You win!";
  220PRINT" Hit Space":REPEATUNTILGET=32
  230END
  240DEF PROCmove(A,B,C,D)
  250A+=C:B+=D:VDU 31,A,B:SYS 6,135 TO ,F
  260IF F=32 COLOUR5:VDU 31,A,B,79:VDU 31,X,Y,32:X+=I:Y+=J:ENDPROC
  270IF F=79 PROCmove(A,B,C,D)
  280ENDPROC


�9:�
T=2:� S(T,1)
� Y=0 � 20:� X=0 � 39
(<� Y=0 � Y=20 � X=0 � X=39 �1:�88 � � �(4)=1 �5:�79 � �32
2�:�
<D�3:� Q=0 � T:S(Q,0)=�(19)+19:S(Q,1)=�(19):�S(Q,0),S(Q,1));"S":�
FX=10:Y=10:� 7:� 31,X,Y,35
P>�7:�8,21);"(Z,X,K,M) SPACE to start":���=32:�8,21);�(24)
Z&D=�:K=0:�:�=0:���>2:K+=1:� K=5 K=0
d
� Q=0 � T
n<� �(3)=1 I=�(3)-2:J=�(3)-2 � I=�(X-S(Q,0)):J=�(Y-S(Q,1))
x�� 31,S(Q,0)+I,S(Q,1)+J:ș 6,135 � ,F:� (F=32 � F=35) � K=0 � 31,S(Q,0),S(Q,1),32:S(Q,0)+=I:S(Q,1)+=J:�3:� 31,S(Q,0),S(Q,1),83:� F=35 D=�
��
�"� �-98 I=-1 � � �-67 I=1 � I=0
�#� �-71 J=-1 � � �-102 J=1 � J=0
�(�move(X,Y,I,J):� � D � 7:� 31,X,Y,35
�
E=�:Q=0:�
�rA=-1:�:B=-1:�:� 31,S(Q,0)+B,S(Q,1)+A:ș 6,135 � ,F:� F<>88 � F<>79 � F<>83 E=�:� E:� E � B+=1:� B=2:A+=1:� A=2
�Q+=1:� E � Q>T
�
� � E � D
�6�7:� D �0,22);"You loose!"; � �0,22);"You win!";
��" Hit Space":���=32
��
�� �move(A,B,C,D)
�$A+=C:B+=D:� 31,A,B:ș 6,135 � ,F
1� F=32 �5:� 31,A,B,79:� 31,X,Y,32:X+=I:Y+=J:�
� F=79 �move(A,B,C,D)
�
�

00000000  0d 00 0a 08 eb 39 3a 87  0d 00 14 10 54 3d 32 3a  |.....9:.....T=2:|
00000010  de 20 53 28 54 2c 31 29  0d 00 1e 19 e3 20 59 3d  |. S(T,1)..... Y=|
00000020  30 20 b8 20 32 30 3a e3  20 58 3d 30 20 b8 20 33  |0 . 20:. X=0 . 3|
00000030  39 0d 00 28 3c e7 20 59  3d 30 20 84 20 59 3d 32  |9..(<. Y=0 . Y=2|
00000040  30 20 84 20 58 3d 30 20  84 20 58 3d 33 39 20 fb  |0 . X=0 . X=39 .|
00000050  31 3a ef 38 38 20 8b 20  e7 20 b3 28 34 29 3d 31  |1:.88 . . .(4)=1|
00000060  20 fb 35 3a ef 37 39 20  8b 20 ef 33 32 0d 00 32  | .5:.79 . .32..2|
00000070  07 ed 3a ed 0d 00 3c 44  fb 33 3a e3 20 51 3d 30  |..:...<D.3:. Q=0|
00000080  20 b8 20 54 3a 53 28 51  2c 30 29 3d b3 28 31 39  | . T:S(Q,0)=.(19|
00000090  29 2b 31 39 3a 53 28 51  2c 31 29 3d b3 28 31 39  |)+19:S(Q,1)=.(19|
000000a0  29 3a f1 8a 53 28 51 2c  30 29 2c 53 28 51 2c 31  |):..S(Q,0),S(Q,1|
000000b0  29 29 3b 22 53 22 3a ed  0d 00 46 1d 58 3d 31 30  |));"S":...F.X=10|
000000c0  3a 59 3d 31 30 3a fb 20  37 3a ef 20 33 31 2c 58  |:Y=10:. 7:. 31,X|
000000d0  2c 59 2c 33 35 0d 00 50  3e fb 37 3a f1 8a 38 2c  |,Y,35..P>.7:..8,|
000000e0  32 31 29 3b 22 28 5a 2c  58 2c 4b 2c 4d 29 20 53  |21);"(Z,X,K,M) S|
000000f0  50 41 43 45 20 74 6f 20  73 74 61 72 74 22 3a f5  |PACE to start":.|
00000100  fd a5 3d 33 32 3a f1 8a  38 2c 32 31 29 3b 89 28  |..=32:..8,21);.(|
00000110  32 34 29 0d 00 5a 26 44  3d a3 3a 4b 3d 30 3a f5  |24)..Z&D=.:K=0:.|
00000120  3a d1 3d 30 3a f5 fd 91  3e 32 3a 4b 2b 3d 31 3a  |:.=0:...>2:K+=1:|
00000130  e7 20 4b 3d 35 20 4b 3d  30 0d 00 64 0d e3 20 51  |. K=5 K=0..d.. Q|
00000140  3d 30 20 b8 20 54 0d 00  6e 3c e7 20 b3 28 33 29  |=0 . T..n<. .(3)|
00000150  3d 31 20 49 3d b3 28 33  29 2d 32 3a 4a 3d b3 28  |=1 I=.(3)-2:J=.(|
00000160  33 29 2d 32 20 8b 20 49  3d b4 28 58 2d 53 28 51  |3)-2 . I=.(X-S(Q|
00000170  2c 30 29 29 3a 4a 3d b4  28 59 2d 53 28 51 2c 31  |,0)):J=.(Y-S(Q,1|
00000180  29 29 0d 00 78 8c ef 20  33 31 2c 53 28 51 2c 30  |))..x.. 31,S(Q,0|
00000190  29 2b 49 2c 53 28 51 2c  31 29 2b 4a 3a c8 99 20  |)+I,S(Q,1)+J:.. |
000001a0  36 2c 31 33 35 20 b8 20  2c 46 3a e7 20 28 46 3d  |6,135 . ,F:. (F=|
000001b0  33 32 20 84 20 46 3d 33  35 29 20 80 20 4b 3d 30  |32 . F=35) . K=0|
000001c0  20 ef 20 33 31 2c 53 28  51 2c 30 29 2c 53 28 51  | . 31,S(Q,0),S(Q|
000001d0  2c 31 29 2c 33 32 3a 53  28 51 2c 30 29 2b 3d 49  |,1),32:S(Q,0)+=I|
000001e0  3a 53 28 51 2c 31 29 2b  3d 4a 3a fb 33 3a ef 20  |:S(Q,1)+=J:.3:. |
000001f0  33 31 2c 53 28 51 2c 30  29 2c 53 28 51 2c 31 29  |31,S(Q,0),S(Q,1)|
00000200  2c 38 33 3a e7 20 46 3d  33 35 20 44 3d b9 0d 00  |,83:. F=35 D=...|
00000210  82 05 ed 0d 00 8c 22 e7  20 a6 2d 39 38 20 49 3d  |......". .-98 I=|
00000220  2d 31 20 8b 20 e7 20 a6  2d 36 37 20 49 3d 31 20  |-1 . . .-67 I=1 |
00000230  8b 20 49 3d 30 0d 00 96  23 e7 20 a6 2d 37 31 20  |. I=0...#. .-71 |
00000240  4a 3d 2d 31 20 8b 20 e7  20 a6 2d 31 30 32 20 4a  |J=-1 . . .-102 J|
00000250  3d 31 20 8b 20 4a 3d 30  0d 00 a0 28 f2 6d 6f 76  |=1 . J=0...(.mov|
00000260  65 28 58 2c 59 2c 49 2c  4a 29 3a e7 20 ac 20 44  |e(X,Y,I,J):. . D|
00000270  20 fb 20 37 3a ef 20 33  31 2c 58 2c 59 2c 33 35  | . 7:. 31,X,Y,35|
00000280  0d 00 aa 0d 45 3d a3 3a  51 3d 30 3a f5 0d 00 b4  |....E=.:Q=0:....|
00000290  72 41 3d 2d 31 3a f5 3a  42 3d 2d 31 3a f5 3a ef  |rA=-1:.:B=-1:.:.|
000002a0  20 33 31 2c 53 28 51 2c  30 29 2b 42 2c 53 28 51  | 31,S(Q,0)+B,S(Q|
000002b0  2c 31 29 2b 41 3a c8 99  20 36 2c 31 33 35 20 b8  |,1)+A:.. 6,135 .|
000002c0  20 2c 46 3a e7 20 46 3c  3e 38 38 20 80 20 46 3c  | ,F:. F<>88 . F<|
000002d0  3e 37 39 20 80 20 46 3c  3e 38 33 20 45 3d b9 3a  |>79 . F<>83 E=.:|
000002e0  fd 20 45 3a fd 20 45 20  8b 20 42 2b 3d 31 3a fd  |. E:. E . B+=1:.|
000002f0  20 42 3d 32 3a 41 2b 3d  31 3a fd 20 41 3d 32 0d  | B=2:A+=1:. A=2.|
00000300  00 be 12 51 2b 3d 31 3a  fd 20 45 20 84 20 51 3e  |...Q+=1:. E . Q>|
00000310  54 0d 00 c8 0d fd 20 ac  20 45 20 84 20 44 0d 00  |T..... . E . D..|
00000320  d2 36 fb 37 3a e7 20 44  20 f1 8a 30 2c 32 32 29  |.6.7:. D ..0,22)|
00000330  3b 22 59 6f 75 20 6c 6f  6f 73 65 21 22 3b 20 8b  |;"You loose!"; .|
00000340  20 f1 8a 30 2c 32 32 29  3b 22 59 6f 75 20 77 69  | ..0,22);"You wi|
00000350  6e 21 22 3b 0d 00 dc 18  f1 22 20 48 69 74 20 53  |n!";....." Hit S|
00000360  70 61 63 65 22 3a f5 fd  a5 3d 33 32 0d 00 e6 05  |pace":...=32....|
00000370  e0 0d 00 f0 14 dd 20 f2  6d 6f 76 65 28 41 2c 42  |...... .move(A,B|
00000380  2c 43 2c 44 29 0d 00 fa  24 41 2b 3d 43 3a 42 2b  |,C,D)...$A+=C:B+|
00000390  3d 44 3a ef 20 33 31 2c  41 2c 42 3a c8 99 20 36  |=D:. 31,A,B:.. 6|
000003a0  2c 31 33 35 20 b8 20 2c  46 0d 01 04 31 e7 20 46  |,135 . ,F...1. F|
000003b0  3d 33 32 20 fb 35 3a ef  20 33 31 2c 41 2c 42 2c  |=32 .5:. 31,A,B,|
000003c0  37 39 3a ef 20 33 31 2c  58 2c 59 2c 33 32 3a 58  |79:. 31,X,Y,32:X|
000003d0  2b 3d 49 3a 59 2b 3d 4a  3a e1 0d 01 0e 19 e7 20  |+=I:Y+=J:...... |
000003e0  46 3d 37 39 20 f2 6d 6f  76 65 28 41 2c 42 2c 43  |F=79 .move(A,B,C|
000003f0  2c 44 29 0d 01 18 05 e1  0d ff                    |,D).......|
000003fa

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