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