Home » Archimedes archive » Micro User » MU 1992-08.adf » PD » Silly/!ArcWolf/!RunImage

Silly/!ArcWolf/!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 1992-08.adf » PD
Filename: Silly/!ArcWolf/!RunImage
Read OK:
File size: 0306 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM >!RunImage
   20REM (C)1990 Anthony Hunt
   30REM A completely silly little demo
   40task%=&4B534154
   50SYS "Wimp_Initialise",200,task%,"ArcWolf" TO ,task_handle%
   60DIM block 256
   70end%=FALSE
   80*TUNING 0
   90*TUNING -10000
  100VOICES 8
  110*CHANNELVOICE 8 Creepy
  120SYS"Sound_Configure",0,0,110
  130REPEAT
  140  SYS "Wimp_Poll",,block TO reason%
  150  CASE reason% OF
  160    WHEN 0:S=RND(1000)
  170           IF S=157 PROCflash
  180    WHEN 6:end%=TRUE
  190    WHEN 8:SYS "Wimp_ProcessKey",block!24
  200    WHEN 17,18
  210           CASE block!16 OF
  220             WHEN 0:end%=TRUE
  230           ENDCASE
  240  ENDCASE
  250UNTIL end%
  260*RMKILL Creepy
  270SYS "Wimp_CloseDown",task_handle%,task%
  280END
  290:
  300DEFPROCflash
  310SOUND 8,-15,0,255
  320VDU19,4,7;0;19,0,24,255,255,255:WAIT:WAIT
  330VDU19,4,0;0;19,0,24,0,0,0:WAIT:WAIT
  340VDU19,4,16,112,112,112,19,0,24,112,112,112:WAIT
  350ENDPROC

� >!RunImage
� (C)1990 Anthony Hunt
$� A completely silly little demo
(task%=&4B534154
2<ș "Wimp_Initialise",200,task%,"ArcWolf" � ,task_handle%
<� block 256
F
end%=�
P
*TUNING 0
Z*TUNING -10000
dȠ 8
n*CHANNELVOICE 8 Creepy
xș"Sound_Configure",0,0,110
��
�%  ș "Wimp_Poll",,block � reason%
�  Ȏ reason% �
�    � 0:S=�(1000)
�           � S=157 �flash
�    � 6:end%=�
�)    � 8:ș "Wimp_ProcessKey",block!24
�    � 17,18
�           Ȏ block!16 �
�             � 0:end%=�
�           �
�  �
�
� end%
*RMKILL Creepy
*ș "Wimp_CloseDown",task_handle%,task%
�
":
,��flash
6� 8,-15,0,255
@'�19,4,7;0;19,0,24,255,255,255:Ȗ:Ȗ
J!�19,4,0;0;19,0,24,0,0,0:Ȗ:Ȗ
T/�19,4,16,112,112,112,19,0,24,112,112,112:Ȗ
^�
�
00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1a f4 20 28 43  29 31 39 39 30 20 41 6e  |..... (C)1990 An|
00000020  74 68 6f 6e 79 20 48 75  6e 74 0d 00 1e 24 f4 20  |thony Hunt...$. |
00000030  41 20 63 6f 6d 70 6c 65  74 65 6c 79 20 73 69 6c  |A completely sil|
00000040  6c 79 20 6c 69 74 74 6c  65 20 64 65 6d 6f 0d 00  |ly little demo..|
00000050  28 13 74 61 73 6b 25 3d  26 34 42 35 33 34 31 35  |(.task%=&4B53415|
00000060  34 0d 00 32 3c c8 99 20  22 57 69 6d 70 5f 49 6e  |4..2<.. "Wimp_In|
00000070  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 74 61  |itialise",200,ta|
00000080  73 6b 25 2c 22 41 72 63  57 6f 6c 66 22 20 b8 20  |sk%,"ArcWolf" . |
00000090  2c 74 61 73 6b 5f 68 61  6e 64 6c 65 25 0d 00 3c  |,task_handle%..<|
000000a0  0f de 20 62 6c 6f 63 6b  20 32 35 36 0d 00 46 0a  |.. block 256..F.|
000000b0  65 6e 64 25 3d a3 0d 00  50 0d 2a 54 55 4e 49 4e  |end%=...P.*TUNIN|
000000c0  47 20 30 0d 00 5a 12 2a  54 55 4e 49 4e 47 20 2d  |G 0..Z.*TUNING -|
000000d0  31 30 30 30 30 0d 00 64  08 c8 a0 20 38 0d 00 6e  |10000..d... 8..n|
000000e0  1a 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 38  |.*CHANNELVOICE 8|
000000f0  20 43 72 65 65 70 79 0d  00 78 1f c8 99 22 53 6f  | Creepy..x..."So|
00000100  75 6e 64 5f 43 6f 6e 66  69 67 75 72 65 22 2c 30  |und_Configure",0|
00000110  2c 30 2c 31 31 30 0d 00  82 05 f5 0d 00 8c 25 20  |,0,110........% |
00000120  20 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  | .. "Wimp_Poll",|
00000130  2c 62 6c 6f 63 6b 20 b8  20 72 65 61 73 6f 6e 25  |,block . reason%|
00000140  0d 00 96 12 20 20 c8 8e  20 72 65 61 73 6f 6e 25  |....  .. reason%|
00000150  20 ca 0d 00 a0 15 20 20  20 20 c9 20 30 3a 53 3d  | .....    . 0:S=|
00000160  b3 28 31 30 30 30 29 0d  00 aa 1d 20 20 20 20 20  |.(1000)....     |
00000170  20 20 20 20 20 20 e7 20  53 3d 31 35 37 20 f2 66  |      . S=157 .f|
00000180  6c 61 73 68 0d 00 b4 12  20 20 20 20 c9 20 36 3a  |lash....    . 6:|
00000190  65 6e 64 25 3d b9 0d 00  be 29 20 20 20 20 c9 20  |end%=....)    . |
000001a0  38 3a c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |8:.. "Wimp_Proce|
000001b0  73 73 4b 65 79 22 2c 62  6c 6f 63 6b 21 32 34 0d  |ssKey",block!24.|
000001c0  00 c8 0f 20 20 20 20 c9  20 31 37 2c 31 38 0d 00  |...    . 17,18..|
000001d0  d2 1c 20 20 20 20 20 20  20 20 20 20 20 c8 8e 20  |..           .. |
000001e0  62 6c 6f 63 6b 21 31 36  20 ca 0d 00 dc 1b 20 20  |block!16 .....  |
000001f0  20 20 20 20 20 20 20 20  20 20 20 c9 20 30 3a 65  |           . 0:e|
00000200  6e 64 25 3d b9 0d 00 e6  10 20 20 20 20 20 20 20  |nd%=.....       |
00000210  20 20 20 20 cb 0d 00 f0  07 20 20 cb 0d 00 fa 0a  |    .....  .....|
00000220  fd 20 65 6e 64 25 0d 01  04 12 2a 52 4d 4b 49 4c  |. end%....*RMKIL|
00000230  4c 20 43 72 65 65 70 79  0d 01 0e 2a c8 99 20 22  |L Creepy...*.. "|
00000240  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
00000250  74 61 73 6b 5f 68 61 6e  64 6c 65 25 2c 74 61 73  |task_handle%,tas|
00000260  6b 25 0d 01 18 05 e0 0d  01 22 05 3a 0d 01 2c 0b  |k%.......".:..,.|
00000270  dd f2 66 6c 61 73 68 0d  01 36 11 d4 20 38 2c 2d  |..flash..6.. 8,-|
00000280  31 35 2c 30 2c 32 35 35  0d 01 40 27 ef 31 39 2c  |15,0,255..@'.19,|
00000290  34 2c 37 3b 30 3b 31 39  2c 30 2c 32 34 2c 32 35  |4,7;0;19,0,24,25|
000002a0  35 2c 32 35 35 2c 32 35  35 3a c8 96 3a c8 96 0d  |5,255,255:..:...|
000002b0  01 4a 21 ef 31 39 2c 34  2c 30 3b 30 3b 31 39 2c  |.J!.19,4,0;0;19,|
000002c0  30 2c 32 34 2c 30 2c 30  2c 30 3a c8 96 3a c8 96  |0,24,0,0,0:..:..|
000002d0  0d 01 54 2f ef 31 39 2c  34 2c 31 36 2c 31 31 32  |..T/.19,4,16,112|
000002e0  2c 31 31 32 2c 31 31 32  2c 31 39 2c 30 2c 32 34  |,112,112,19,0,24|
000002f0  2c 31 31 32 2c 31 31 32  2c 31 31 32 3a c8 96 0d  |,112,112,112:...|
00000300  01 5e 05 e1 0d ff                                 |.^....|
00000306