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