Home » Archimedes archive » Micro User » MU 1991-05.adf » PDStuff » SillyBits/!Troll/!RunImage
SillyBits/!Troll/!RunImage
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 » Micro User » MU 1991-05.adf » PDStuff |
Filename: | SillyBits/!Troll/!RunImage |
Read OK: | ✔ |
File size: | 03F6 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM > !RunImage 20DIM q% 4:$q%="TASK" 30DIM block 32:FOR i%=0 TO 31:i%?block=0:NEXT 40SYS"Wimp_Initialise",200,!q%,"Hi Y'all!" TO ,task 50j%=0:s%=1:si%=1:x%=32:i%=8:GCOL0,0 60X=OPENUP"<Obey$Dir>.Sprites":t%=16+EXT#X:CLOSE#X 70DIM spr% t% 80!spr%=t%:spr%!8=7 90SYS"OS_SpriteOp",&109,spr% 100SYS"OS_SpriteOp",&10A,spr%,"<Obey$Dir>.Sprites" 120x%+=i% 130REPEAT 140SYS"OS_SpriteOp",&134,spr%,"xtk0",x%-i%-8,132,0 160IF j%>0 THEN 170 SYS"OS_SpriteOp",&134,spr%,"xtk4",x%,132,0 180 j%+=1:IF j%=11 THEN 190 i%=k%:j%=0 200 IF s%>4 THEN 210 s%=1 220 ELSE 230 s%=5 240 ENDIF 250 ENDIF 260ELSE 270 SYS"OS_SpriteOp",&134,spr%,"xtk"+STR$s%,x%,132,0 280 x%+=i% 290 IF x% MOD 64=0 THEN s%+=si% 300 IF s%=4 AND si%=1 THEN s%=3:si%=-1 310 IF s%=4 AND si%=-1 THEN s%=5:si%=1 320 IF s%=0 THEN s%=1:si%=1 330 IF s%=8 THEN s%=7:si%=-1 340 IF x%>1168 OR x%<32 THEN 350 k%=-i%:x%-=i%:i%=0:j%=1 360 ENDIF 370ENDIF 380WAIT 390SYS"Wimp_Poll",0,block TO dummy 400IF dummy=8 SYS"Wimp_ProcessKey",block!24 410IF dummy=6 OR ((dummy=17 OR dummy=18) AND block!16=0) THEN 420 SYS"Wimp_CloseDown",task,!q%:END 430ENDIF 440UNTIL 0
� > !RunImage � q% 4:$q%="TASK" '� block 32:� i%=0 � 31:i%?block=0:� (3ș"Wimp_Initialise",200,!q%,"Hi Y'all!" � ,task 2#j%=0:s%=1:si%=1:x%=32:i%=8:�0,0 <)X=�"<Obey$Dir>.Sprites":t%=16+�#X:�#X F � spr% t% P!spr%=t%:spr%!8=7 Zș"OS_SpriteOp",&109,spr% d2ș"OS_SpriteOp",&10A,spr%,"<Obey$Dir>.Sprites" x x%+=i% �� �2ș"OS_SpriteOp",&134,spr%,"xtk0",x%-i%-8,132,0 �� j%>0 � �/ ș"OS_SpriteOp",&134,spr%,"xtk4",x%,132,0 � j%+=1:� j%=11 � � i%=k%:j%=0 � � s%>4 � � s%=1 � � � s%=5 � � � � � 2 ș"OS_SpriteOp",&134,spr%,"xtk"+�s%,x%,132,0 x%+=i% " � x% � 64=0 � s%+=si% ," � s%=4 � si%=1 � s%=3:si%=-1 6" � s%=4 � si%=-1 � s%=5:si%=1 @ � s%=0 � s%=1:si%=1 J � s%=8 � s%=7:si%=-1 T � x%>1168 � x%<32 � ^ k%=-i%:x%-=i%:i%=0:j%=1 h � r� |Ȗ �!ș"Wimp_Poll",0,block � dummy �*� dummy=8 ș"Wimp_ProcessKey",block!24 �6� dummy=6 � ((dummy=17 � dummy=18) � block!16=0) � �# ș"Wimp_CloseDown",task,!q%:� �� �� 0 �
00000000 0d 00 0a 11 f4 20 3e 20 21 52 75 6e 49 6d 61 67 |..... > !RunImag| 00000010 65 0d 00 14 15 de 20 71 25 20 34 3a 24 71 25 3d |e..... q% 4:$q%=| 00000020 22 54 41 53 4b 22 0d 00 1e 27 de 20 62 6c 6f 63 |"TASK"...'. bloc| 00000030 6b 20 33 32 3a e3 20 69 25 3d 30 20 b8 20 33 31 |k 32:. i%=0 . 31| 00000040 3a 69 25 3f 62 6c 6f 63 6b 3d 30 3a ed 0d 00 28 |:i%?block=0:...(| 00000050 33 c8 99 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c |3.."Wimp_Initial| 00000060 69 73 65 22 2c 32 30 30 2c 21 71 25 2c 22 48 69 |ise",200,!q%,"Hi| 00000070 20 59 27 61 6c 6c 21 22 20 b8 20 2c 74 61 73 6b | Y'all!" . ,task| 00000080 0d 00 32 23 6a 25 3d 30 3a 73 25 3d 31 3a 73 69 |..2#j%=0:s%=1:si| 00000090 25 3d 31 3a 78 25 3d 33 32 3a 69 25 3d 38 3a e6 |%=1:x%=32:i%=8:.| 000000a0 30 2c 30 0d 00 3c 29 58 3d ad 22 3c 4f 62 65 79 |0,0..<)X=."<Obey| 000000b0 24 44 69 72 3e 2e 53 70 72 69 74 65 73 22 3a 74 |$Dir>.Sprites":t| 000000c0 25 3d 31 36 2b a2 23 58 3a d9 23 58 0d 00 46 0d |%=16+.#X:.#X..F.| 000000d0 de 20 73 70 72 25 20 74 25 0d 00 50 15 21 73 70 |. spr% t%..P.!sp| 000000e0 72 25 3d 74 25 3a 73 70 72 25 21 38 3d 37 0d 00 |r%=t%:spr%!8=7..| 000000f0 5a 1d c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |Z..."OS_SpriteOp| 00000100 22 2c 26 31 30 39 2c 73 70 72 25 0d 00 64 32 c8 |",&109,spr%..d2.| 00000110 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&| 00000120 31 30 41 2c 73 70 72 25 2c 22 3c 4f 62 65 79 24 |10A,spr%,"<Obey$| 00000130 44 69 72 3e 2e 53 70 72 69 74 65 73 22 0d 00 78 |Dir>.Sprites"..x| 00000140 0a 78 25 2b 3d 69 25 0d 00 82 05 f5 0d 00 8c 32 |.x%+=i%........2| 00000150 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00000160 26 31 33 34 2c 73 70 72 25 2c 22 78 74 6b 30 22 |&134,spr%,"xtk0"| 00000170 2c 78 25 2d 69 25 2d 38 2c 31 33 32 2c 30 0d 00 |,x%-i%-8,132,0..| 00000180 a0 0c e7 20 6a 25 3e 30 20 8c 0d 00 aa 2f 20 20 |... j%>0 ..../ | 00000190 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 000001a0 26 31 33 34 2c 73 70 72 25 2c 22 78 74 6b 34 22 |&134,spr%,"xtk4"| 000001b0 2c 78 25 2c 31 33 32 2c 30 0d 00 b4 15 20 20 6a |,x%,132,0.... j| 000001c0 25 2b 3d 31 3a e7 20 6a 25 3d 31 31 20 8c 0d 00 |%+=1:. j%=11 ...| 000001d0 be 12 20 20 20 20 69 25 3d 6b 25 3a 6a 25 3d 30 |.. i%=k%:j%=0| 000001e0 0d 00 c8 10 20 20 20 20 e7 20 73 25 3e 34 20 8c |.... . s%>4 .| 000001f0 0d 00 d2 0e 20 20 20 20 20 20 73 25 3d 31 0d 00 |.... s%=1..| 00000200 dc 09 20 20 20 20 cc 0d 00 e6 0e 20 20 20 20 20 |.. ..... | 00000210 20 73 25 3d 35 0d 00 f0 09 20 20 20 20 cd 0d 00 | s%=5.... ...| 00000220 fa 07 20 20 cd 0d 01 04 05 cc 0d 01 0e 32 20 20 |.. .........2 | 00000230 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00000240 26 31 33 34 2c 73 70 72 25 2c 22 78 74 6b 22 2b |&134,spr%,"xtk"+| 00000250 c3 73 25 2c 78 25 2c 31 33 32 2c 30 0d 01 18 0c |.s%,x%,132,0....| 00000260 20 20 78 25 2b 3d 69 25 0d 01 22 1b 20 20 e7 20 | x%+=i%..". . | 00000270 78 25 20 83 20 36 34 3d 30 20 8c 20 73 25 2b 3d |x% . 64=0 . s%+=| 00000280 73 69 25 0d 01 2c 22 20 20 e7 20 73 25 3d 34 20 |si%..," . s%=4 | 00000290 80 20 73 69 25 3d 31 20 8c 20 73 25 3d 33 3a 73 |. si%=1 . s%=3:s| 000002a0 69 25 3d 2d 31 0d 01 36 22 20 20 e7 20 73 25 3d |i%=-1..6" . s%=| 000002b0 34 20 80 20 73 69 25 3d 2d 31 20 8c 20 73 25 3d |4 . si%=-1 . s%=| 000002c0 35 3a 73 69 25 3d 31 0d 01 40 19 20 20 e7 20 73 |5:si%=1..@. . s| 000002d0 25 3d 30 20 8c 20 73 25 3d 31 3a 73 69 25 3d 31 |%=0 . s%=1:si%=1| 000002e0 0d 01 4a 1a 20 20 e7 20 73 25 3d 38 20 8c 20 73 |..J. . s%=8 . s| 000002f0 25 3d 37 3a 73 69 25 3d 2d 31 0d 01 54 19 20 20 |%=7:si%=-1..T. | 00000300 e7 20 78 25 3e 31 31 36 38 20 84 20 78 25 3c 33 |. x%>1168 . x%<3| 00000310 32 20 8c 0d 01 5e 1f 20 20 20 20 6b 25 3d 2d 69 |2 ...^. k%=-i| 00000320 25 3a 78 25 2d 3d 69 25 3a 69 25 3d 30 3a 6a 25 |%:x%-=i%:i%=0:j%| 00000330 3d 31 0d 01 68 07 20 20 cd 0d 01 72 05 cd 0d 01 |=1..h. ...r....| 00000340 7c 06 c8 96 0d 01 86 21 c8 99 22 57 69 6d 70 5f ||......!.."Wimp_| 00000350 50 6f 6c 6c 22 2c 30 2c 62 6c 6f 63 6b 20 b8 20 |Poll",0,block . | 00000360 64 75 6d 6d 79 0d 01 90 2a e7 20 64 75 6d 6d 79 |dummy...*. dummy| 00000370 3d 38 20 c8 99 22 57 69 6d 70 5f 50 72 6f 63 65 |=8 .."Wimp_Proce| 00000380 73 73 4b 65 79 22 2c 62 6c 6f 63 6b 21 32 34 0d |ssKey",block!24.| 00000390 01 9a 36 e7 20 64 75 6d 6d 79 3d 36 20 84 20 28 |..6. dummy=6 . (| 000003a0 28 64 75 6d 6d 79 3d 31 37 20 84 20 64 75 6d 6d |(dummy=17 . dumm| 000003b0 79 3d 31 38 29 20 80 20 62 6c 6f 63 6b 21 31 36 |y=18) . block!16| 000003c0 3d 30 29 20 8c 0d 01 a4 23 20 20 c8 99 22 57 69 |=0) ....# .."Wi| 000003d0 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 2c 74 61 |mp_CloseDown",ta| 000003e0 73 6b 2c 21 71 25 3a e0 0d 01 ae 05 cd 0d 01 b8 |sk,!q%:.........| 000003f0 07 fd 20 30 0d ff |.. 0..| 000003f6