Home » Archimedes archive » Micro User » MU 1991-12.adf » PD-Stuff » Misc/!Santa/!RunImage
Misc/!Santa/!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-12.adf » PD-Stuff |
| Filename: | Misc/!Santa/!RunImage |
| Read OK: | ✔ |
| File size: | 042F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!RunImage 20REM (C)1989 PAUL VIGAY 30REM (C) Xmas Alterations by K.R.Ellis 40REM A completely silly little demo 50REM 60REM version 1.1a (4th October 1989) 70REM 80task%=&4B534154 90path$="<Santa$Path>" 100SYS "Wimp_Initialise",200,task%,"Santa" TO ,task_handle% 110DIM pb% 256,pal% 16,scale% 16 120end%=FALSE 130X%=-150-RND(10000):Y%=RND(900):S=3:s=.2:M%=0 140s%=OPENIN(path$+".Sprites"):t%=EXT#s%+16:CLOSE#s%:DIM sprites% t% 150!sprites%=t%:sprites%!8=3 160SYS "OS_SpriteOp",&109,sprites% 170SYS "OS_SpriteOp",&10A,sprites%,path$+".Sprites" 180 190REPEAT 200 SYS "Wimp_Poll",,pb% TO reason% 210 CASE reason% OF 220 WHEN 0:SYS "Wimp_ReadPixTrans",&100,sprites%,"3",0,0,0,scale%,pal% 230 SYS "OS_SpriteOp",&134,sprites%,STR$(INT(S)),X%,Y%,8,scale%,pal% 240 S+=s 250S=3 260 IF S>3.6 s=-.2 270 IF S<.4 s=.2 280 X%=X%+2:IF X%>1280 X%=RND(1280)-RND(9280):Y%=RND(900) 290 WHEN 6:end%=TRUE 300 WHEN 8:SYS "Wimp_ProcessKey",pb%!24 310 WHEN 17,18 320 CASE pb%!16 OF 330 WHEN 0:end%=TRUE 340 ENDCASE 350 ENDCASE 360UNTIL end% 370SYS "Wimp_CloseDown",task_handle%,task% 380END
� >!RunImage
� (C)1989 PAUL VIGAY
'� (C) Xmas Alterations by K.R.Ellis
($� A completely silly little demo
2�
<%� version 1.1a (4th October 1989)
F�
Ptask%=&4B534154
Zpath$="<Santa$Path>"
d:ș "Wimp_Initialise",200,task%,"Santa" � ,task_handle%
n � pb% 256,pal% 16,scale% 16
x
end%=�
�,X%=-150-�(10000):Y%=�(900):S=3:s=.2:M%=0
�8s%=�(path$+".Sprites"):t%=�#s%+16:�#s%:� sprites% t%
� !sprites%=t%:sprites%!8=3
�"ș "OS_SpriteOp",&109,sprites%
�3ș "OS_SpriteOp",&10A,sprites%,path$+".Sprites"
�
��
�# ș "Wimp_Poll",,pb% � reason%
� Ȏ reason% �
�F � 0:ș "Wimp_ReadPixTrans",&100,sprites%,"3",0,0,0,scale%,pal%
�I ș "OS_SpriteOp",&134,sprites%,�(�(S)),X%,Y%,8,scale%,pal%
� S+=s
�S=3
� S>3.6 s=-.2
� S<.4 s=.2
= X%=X%+2:� X%>1280 X%=�(1280)-�(9280):Y%=�(900)
" � 6:end%=�
,' � 8:ș "Wimp_ProcessKey",pb%!24
6 � 17,18
@ Ȏ pb%!16 �
J � 0:end%=�
T �
^ �
h
� end%
r*ș "Wimp_CloseDown",task_handle%,task%
|�
� 00000000 0d 00 0a 10 f4 20 3e 21 52 75 6e 49 6d 61 67 65 |..... >!RunImage| 00000010 0d 00 14 18 f4 20 28 43 29 31 39 38 39 20 50 41 |..... (C)1989 PA| 00000020 55 4c 20 56 49 47 41 59 0d 00 1e 27 f4 20 28 43 |UL VIGAY...'. (C| 00000030 29 20 58 6d 61 73 20 41 6c 74 65 72 61 74 69 6f |) Xmas Alteratio| 00000040 6e 73 20 62 79 20 4b 2e 52 2e 45 6c 6c 69 73 0d |ns by K.R.Ellis.| 00000050 00 28 24 f4 20 41 20 63 6f 6d 70 6c 65 74 65 6c |.($. A completel| 00000060 79 20 73 69 6c 6c 79 20 6c 69 74 74 6c 65 20 64 |y silly little d| 00000070 65 6d 6f 0d 00 32 05 f4 0d 00 3c 25 f4 20 76 65 |emo..2....<%. ve| 00000080 72 73 69 6f 6e 20 31 2e 31 61 20 28 34 74 68 20 |rsion 1.1a (4th | 00000090 4f 63 74 6f 62 65 72 20 31 39 38 39 29 0d 00 46 |October 1989)..F| 000000a0 05 f4 0d 00 50 13 74 61 73 6b 25 3d 26 34 42 35 |....P.task%=&4B5| 000000b0 33 34 31 35 34 0d 00 5a 18 70 61 74 68 24 3d 22 |34154..Z.path$="| 000000c0 3c 53 61 6e 74 61 24 50 61 74 68 3e 22 0d 00 64 |<Santa$Path>"..d| 000000d0 3a c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 |:.. "Wimp_Initia| 000000e0 6c 69 73 65 22 2c 32 30 30 2c 74 61 73 6b 25 2c |lise",200,task%,| 000000f0 22 53 61 6e 74 61 22 20 b8 20 2c 74 61 73 6b 5f |"Santa" . ,task_| 00000100 68 61 6e 64 6c 65 25 0d 00 6e 1f de 20 70 62 25 |handle%..n.. pb%| 00000110 20 32 35 36 2c 70 61 6c 25 20 31 36 2c 73 63 61 | 256,pal% 16,sca| 00000120 6c 65 25 20 31 36 0d 00 78 0a 65 6e 64 25 3d a3 |le% 16..x.end%=.| 00000130 0d 00 82 2c 58 25 3d 2d 31 35 30 2d b3 28 31 30 |...,X%=-150-.(10| 00000140 30 30 30 29 3a 59 25 3d b3 28 39 30 30 29 3a 53 |000):Y%=.(900):S| 00000150 3d 33 3a 73 3d 2e 32 3a 4d 25 3d 30 0d 00 8c 38 |=3:s=.2:M%=0...8| 00000160 73 25 3d 8e 28 70 61 74 68 24 2b 22 2e 53 70 72 |s%=.(path$+".Spr| 00000170 69 74 65 73 22 29 3a 74 25 3d a2 23 73 25 2b 31 |ites"):t%=.#s%+1| 00000180 36 3a d9 23 73 25 3a de 20 73 70 72 69 74 65 73 |6:.#s%:. sprites| 00000190 25 20 74 25 0d 00 96 1d 21 73 70 72 69 74 65 73 |% t%....!sprites| 000001a0 25 3d 74 25 3a 73 70 72 69 74 65 73 25 21 38 3d |%=t%:sprites%!8=| 000001b0 33 0d 00 a0 22 c8 99 20 22 4f 53 5f 53 70 72 69 |3...".. "OS_Spri| 000001c0 74 65 4f 70 22 2c 26 31 30 39 2c 73 70 72 69 74 |teOp",&109,sprit| 000001d0 65 73 25 0d 00 aa 33 c8 99 20 22 4f 53 5f 53 70 |es%...3.. "OS_Sp| 000001e0 72 69 74 65 4f 70 22 2c 26 31 30 41 2c 73 70 72 |riteOp",&10A,spr| 000001f0 69 74 65 73 25 2c 70 61 74 68 24 2b 22 2e 53 70 |ites%,path$+".Sp| 00000200 72 69 74 65 73 22 0d 00 b4 04 0d 00 be 05 f5 0d |rites"..........| 00000210 00 c8 23 20 20 c8 99 20 22 57 69 6d 70 5f 50 6f |..# .. "Wimp_Po| 00000220 6c 6c 22 2c 2c 70 62 25 20 b8 20 72 65 61 73 6f |ll",,pb% . reaso| 00000230 6e 25 0d 00 d2 12 20 20 c8 8e 20 72 65 61 73 6f |n%.... .. reaso| 00000240 6e 25 20 ca 0d 00 dc 46 20 20 20 20 c9 20 30 3a |n% ....F . 0:| 00000250 c8 99 20 22 57 69 6d 70 5f 52 65 61 64 50 69 78 |.. "Wimp_ReadPix| 00000260 54 72 61 6e 73 22 2c 26 31 30 30 2c 73 70 72 69 |Trans",&100,spri| 00000270 74 65 73 25 2c 22 33 22 2c 30 2c 30 2c 30 2c 73 |tes%,"3",0,0,0,s| 00000280 63 61 6c 65 25 2c 70 61 6c 25 0d 00 e6 49 20 20 |cale%,pal%...I | 00000290 20 20 20 20 20 20 20 20 20 c8 99 20 22 4f 53 5f | .. "OS_| 000002a0 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 73 |SpriteOp",&134,s| 000002b0 70 72 69 74 65 73 25 2c c3 28 a8 28 53 29 29 2c |prites%,.(.(S)),| 000002c0 58 25 2c 59 25 2c 38 2c 73 63 61 6c 65 25 2c 70 |X%,Y%,8,scale%,p| 000002d0 61 6c 25 0d 00 f0 13 20 20 20 20 20 20 20 20 20 |al%.... | 000002e0 20 20 53 2b 3d 73 0d 00 fa 07 53 3d 33 0d 01 04 | S+=s....S=3...| 000002f0 1c 20 20 20 20 20 20 20 20 20 20 20 e7 20 53 3e |. . S>| 00000300 33 2e 36 20 73 3d 2d 2e 32 0d 01 0e 1a 20 20 20 |3.6 s=-.2.... | 00000310 20 20 20 20 20 20 20 20 e7 20 53 3c 2e 34 20 73 | . S<.4 s| 00000320 3d 2e 32 0d 01 18 3d 20 20 20 20 20 20 20 20 20 |=.2...= | 00000330 20 20 58 25 3d 58 25 2b 32 3a e7 20 58 25 3e 31 | X%=X%+2:. X%>1| 00000340 32 38 30 20 58 25 3d b3 28 31 32 38 30 29 2d b3 |280 X%=.(1280)-.| 00000350 28 39 32 38 30 29 3a 59 25 3d b3 28 39 30 30 29 |(9280):Y%=.(900)| 00000360 0d 01 22 12 20 20 20 20 c9 20 36 3a 65 6e 64 25 |..". . 6:end%| 00000370 3d b9 0d 01 2c 27 20 20 20 20 c9 20 38 3a c8 99 |=...,' . 8:..| 00000380 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe| 00000390 79 22 2c 70 62 25 21 32 34 0d 01 36 0f 20 20 20 |y",pb%!24..6. | 000003a0 20 c9 20 31 37 2c 31 38 0d 01 40 1a 20 20 20 20 | . 17,18..@. | 000003b0 20 20 20 20 20 20 20 c8 8e 20 70 62 25 21 31 36 | .. pb%!16| 000003c0 20 ca 0d 01 4a 1b 20 20 20 20 20 20 20 20 20 20 | ...J. | 000003d0 20 20 20 c9 20 30 3a 65 6e 64 25 3d b9 0d 01 54 | . 0:end%=...T| 000003e0 10 20 20 20 20 20 20 20 20 20 20 20 cb 0d 01 5e |. ...^| 000003f0 07 20 20 cb 0d 01 68 0a fd 20 65 6e 64 25 0d 01 |. ...h.. end%..| 00000400 72 2a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 |r*.. "Wimp_Close| 00000410 44 6f 77 6e 22 2c 74 61 73 6b 5f 68 61 6e 64 6c |Down",task_handl| 00000420 65 25 2c 74 61 73 6b 25 0d 01 7c 05 e0 0d ff |e%,task%..|....| 0000042f
.