Home » Archimedes archive » Acorn User » AU 1996-06.adf » Regulars » StarInfo/Jerome/Lowe/Trigger

StarInfo/Jerome/Lowe/Trigger

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 1996-06.adf » Regulars
Filename: StarInfo/Jerome/Lowe/Trigger
Read OK:
File size: 02BF bytes
Load address: 0000
Exec address: 0000
File contents
   10REM Trigger
   11REM Weirdsville!
   21
   30MODE 12
   40OFF
   50
   60ORIGIN 640,480
   70
   80PROCinit
   90
  100REPEAT
  110    PROCrot
  120    PROCbanks
  130UNTIL FALSE
  140
  150END
  160
  170DEF PROCinit
  180DIM grid(10,2)
  190DIM gridrot(10,2)
  200bank1=1
  210bank2=2
  220MOUSE ON
  230
  240FOR x=0 TO 10
  250    FOR y=0 TO 10
  260        grid(x,1)=30*x
  270        grid(y,2)=30*y
  280    NEXT y
  290NEXT x
  300angle=0
  310
  320ENDPROC
  330
  340DEF PROCrot
  350FOR x=0 TO 10
  360    FOR y=0 TO 10
  370        MOUSE j,h,k
  380        gridrot(x,1)=grid(x,1)+j*SIN(RAD angle)
  390        gridrot(y,2)=grid(y,2)+j*COS(RAD angle)
  400        angle=angle+h/10
  410        PLOT 69,gridrot(x,1)-150,gridrot(y,2)-150
  420    NEXT y
  430NEXT x
  440ENDPROC
  450
  460DEF PROCbanks
  470SYS 6,112,bank1
  480SYS 6,113,bank2
  490WAIT
  500WAIT
  510CLS
  520SWAP bank1,bank2
  530ENDPROC
  540
  550
  560


� Trigger
� Weirdsville!

� 12
(�
2
<ȑ 640,480
F
P	�init
Z
d�
n    �rot
x    �banks
�� �
�
��
�
�� �init
�� grid(10,2)
�� gridrot(10,2)
�bank1=1
�bank2=2
�ȗ �
�
�� x=0 � 10
�    � y=0 � 10
        grid(x,1)=30*x
        grid(y,2)=30*y
    � y
"� x
,angle=0
6
@�
J
T
� �rot
^� x=0 � 10
h    � y=0 � 10
r        ȗ j,h,k
|/        gridrot(x,1)=grid(x,1)+j*�(� angle)
�/        gridrot(y,2)=grid(y,2)+j*�(� angle)
�        angle=angle+h/10
�2        � 69,gridrot(x,1)-150,gridrot(y,2)-150
�    � y
�� x
��
�
�� �banks
�ș 6,112,bank1
�ș 6,113,bank2
�Ȗ
�Ȗ
��
Ȕ bank1,bank2
�

&
0
�
00000000  0d 00 0a 0d f4 20 54 72  69 67 67 65 72 0d 00 0b  |..... Trigger...|
00000010  12 f4 20 57 65 69 72 64  73 76 69 6c 6c 65 21 0d  |.. Weirdsville!.|
00000020  00 15 04 0d 00 1e 08 eb  20 31 32 0d 00 28 05 87  |........ 12..(..|
00000030  0d 00 32 04 0d 00 3c 0e  c8 91 20 36 34 30 2c 34  |..2...<... 640,4|
00000040  38 30 0d 00 46 04 0d 00  50 09 f2 69 6e 69 74 0d  |80..F...P..init.|
00000050  00 5a 04 0d 00 64 05 f5  0d 00 6e 0c 20 20 20 20  |.Z...d....n.    |
00000060  f2 72 6f 74 0d 00 78 0e  20 20 20 20 f2 62 61 6e  |.rot..x.    .ban|
00000070  6b 73 0d 00 82 07 fd 20  a3 0d 00 8c 04 0d 00 96  |ks..... ........|
00000080  05 e0 0d 00 a0 04 0d 00  aa 0b dd 20 f2 69 6e 69  |........... .ini|
00000090  74 0d 00 b4 10 de 20 67  72 69 64 28 31 30 2c 32  |t..... grid(10,2|
000000a0  29 0d 00 be 13 de 20 67  72 69 64 72 6f 74 28 31  |)..... gridrot(1|
000000b0  30 2c 32 29 0d 00 c8 0b  62 61 6e 6b 31 3d 31 0d  |0,2)....bank1=1.|
000000c0  00 d2 0b 62 61 6e 6b 32  3d 32 0d 00 dc 08 c8 97  |...bank2=2......|
000000d0  20 ee 0d 00 e6 04 0d 00  f0 0e e3 20 78 3d 30 20  | .......... x=0 |
000000e0  b8 20 31 30 0d 00 fa 12  20 20 20 20 e3 20 79 3d  |. 10....    . y=|
000000f0  30 20 b8 20 31 30 0d 01  04 1a 20 20 20 20 20 20  |0 . 10....      |
00000100  20 20 67 72 69 64 28 78  2c 31 29 3d 33 30 2a 78  |  grid(x,1)=30*x|
00000110  0d 01 0e 1a 20 20 20 20  20 20 20 20 67 72 69 64  |....        grid|
00000120  28 79 2c 32 29 3d 33 30  2a 79 0d 01 18 0b 20 20  |(y,2)=30*y....  |
00000130  20 20 ed 20 79 0d 01 22  07 ed 20 78 0d 01 2c 0b  |  . y..".. x..,.|
00000140  61 6e 67 6c 65 3d 30 0d  01 36 04 0d 01 40 05 e1  |angle=0..6...@..|
00000150  0d 01 4a 04 0d 01 54 0a  dd 20 f2 72 6f 74 0d 01  |..J...T.. .rot..|
00000160  5e 0e e3 20 78 3d 30 20  b8 20 31 30 0d 01 68 12  |^.. x=0 . 10..h.|
00000170  20 20 20 20 e3 20 79 3d  30 20 b8 20 31 30 0d 01  |    . y=0 . 10..|
00000180  72 14 20 20 20 20 20 20  20 20 c8 97 20 6a 2c 68  |r.        .. j,h|
00000190  2c 6b 0d 01 7c 2f 20 20  20 20 20 20 20 20 67 72  |,k..|/        gr|
000001a0  69 64 72 6f 74 28 78 2c  31 29 3d 67 72 69 64 28  |idrot(x,1)=grid(|
000001b0  78 2c 31 29 2b 6a 2a b5  28 b2 20 61 6e 67 6c 65  |x,1)+j*.(. angle|
000001c0  29 0d 01 86 2f 20 20 20  20 20 20 20 20 67 72 69  |).../        gri|
000001d0  64 72 6f 74 28 79 2c 32  29 3d 67 72 69 64 28 79  |drot(y,2)=grid(y|
000001e0  2c 32 29 2b 6a 2a 9b 28  b2 20 61 6e 67 6c 65 29  |,2)+j*.(. angle)|
000001f0  0d 01 90 1c 20 20 20 20  20 20 20 20 61 6e 67 6c  |....        angl|
00000200  65 3d 61 6e 67 6c 65 2b  68 2f 31 30 0d 01 9a 32  |e=angle+h/10...2|
00000210  20 20 20 20 20 20 20 20  f0 20 36 39 2c 67 72 69  |        . 69,gri|
00000220  64 72 6f 74 28 78 2c 31  29 2d 31 35 30 2c 67 72  |drot(x,1)-150,gr|
00000230  69 64 72 6f 74 28 79 2c  32 29 2d 31 35 30 0d 01  |idrot(y,2)-150..|
00000240  a4 0b 20 20 20 20 ed 20  79 0d 01 ae 07 ed 20 78  |..    . y..... x|
00000250  0d 01 b8 05 e1 0d 01 c2  04 0d 01 cc 0c dd 20 f2  |.............. .|
00000260  62 61 6e 6b 73 0d 01 d6  12 c8 99 20 36 2c 31 31  |banks...... 6,11|
00000270  32 2c 62 61 6e 6b 31 0d  01 e0 12 c8 99 20 36 2c  |2,bank1...... 6,|
00000280  31 31 33 2c 62 61 6e 6b  32 0d 01 ea 06 c8 96 0d  |113,bank2.......|
00000290  01 f4 06 c8 96 0d 01 fe  05 db 0d 02 08 12 c8 94  |................|
000002a0  20 62 61 6e 6b 31 2c 62  61 6e 6b 32 0d 02 12 05  | bank1,bank2....|
000002b0  e1 0d 02 1c 04 0d 02 26  04 0d 02 30 04 0d ff     |.......&...0...|
000002bf