Home » Archimedes archive » Acorn User » AU 1994-Xmas.adf » Programs » StarInfo/December/Poulter/!3D_Acorn/!RunImage
StarInfo/December/Poulter/!3D_Acorn/!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 » Acorn User » AU 1994-Xmas.adf » Programs |
| Filename: | StarInfo/December/Poulter/!3D_Acorn/!RunImage |
| Read OK: | ✔ |
| File size: | 0417 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !RunImage
20REM By J. D. Poulter
30REM
40ON ERROR MODE 9:REPORT:PRINT" at line ";ERL:END
50MODE 13:MODE 9
60*Run Demo:DemoPal
70PROCInit
80REPEAT
90PROCSetUp
100REPEAT
110FOR Pos%=0 TO -256 STEP -4
120SYS 6,112,bank%
130bank%=3-bank%
140SYS 6,113,bank%
150WAIT
160FOR X%=Pos% TO 1279 STEP 256:FOR Y%=0 TO 1023 STEP 256:SYS &2E,546,s%,Sp%,X%,Y%,0:NEXT:NEXT
170SYS&2E,546,s%,l%,320,296,8
180FORA%=0TONB%
190SYS&2E,546,s%,B%,X%(A%),Y%(A%),8
200X%(A%)+=Sp%(A%)
210IFX%(A%)>E%X%(A%)=N%
220NEXT
230NEXT
240UNTIL End%
250UNTIL Fin%
260END
270:
280DEF PROCInit
290Fin%=0
300End%=0
310ENDPROC
320:
330DEF PROCSetUp
340size%=FNSize("<Obey$Dir>.Sprites")+64
350DIM s% size%
360s%!0=size%
370SYS"OS_SpriteOp",256+9,s%
380SYS"OS_SpriteOp",256+10,s%,"Demo:Sprites"
390SYS"OS_SpriteOp",256+24,s%,"sponge" TO ,,Sp%
400SYS"OS_SpriteOp",256+24,s%,"logo" TO ,,l%
410SYS"OS_SpriteOp",256+24,s%,"acorn" TO ,,B%
420NB%=20
430Layers%=4
440divSp%=NB% DIV Layers%
450DIM X%(NB%),Y%(NB%),Sp%(NB%)
460FOR A=0 TO NB%
470X%(A)=RND(320)*4
480Y%(A)=RND(230)*4
490Sp%(A)=(A DIV divSp%+1)*4
500NEXT
510n%=546:N%=-50:E%=1280
520bank%=1
530ENDPROC
540:
550DEF FNSize(f$)
560SYS "OS_File",20,f$ TO ,,,,Size%
570=Size%
� > !RunImage
� By J. D. Poulter
�
( � � � 9:�:�" at line ";�:�
2 � 13:� 9
<*Run Demo:DemoPal
F �Init
P�
Z
�SetUp
d�
n� Pos%=0 � -256 � -4
xș 6,112,bank%
�bank%=3-bank%
�ș 6,113,bank%
�Ȗ
�L� X%=Pos% � 1279 � 256:� Y%=0 � 1023 � 256:ș &2E,546,s%,Sp%,X%,Y%,0:�:�
� ș&2E,546,s%,l%,320,296,8
�
�A%=0�NB%
�#ș&2E,546,s%,B%,X%(A%),Y%(A%),8
�X%(A%)+=Sp%(A%)
��X%(A%)>E%X%(A%)=N%
��
��
�
� End%
�
� Fin%
�
:
� �Init
"
Fin%=0
,
End%=0
6�
@:
J � �SetUp
T(size%=�Size("<Obey$Dir>.Sprites")+64
^� s% size%
hs%!0=size%
r ș"OS_SpriteOp",256+9,s%
|,ș"OS_SpriteOp",256+10,s%,"Demo:Sprites"
�.ș"OS_SpriteOp",256+24,s%,"sponge" � ,,Sp%
�+ș"OS_SpriteOp",256+24,s%,"logo" � ,,l%
�,ș"OS_SpriteOp",256+24,s%,"acorn" � ,,B%
�
NB%=20
�
Layers%=4
�divSp%=NB% � Layers%
� � X%(NB%),Y%(NB%),Sp%(NB%)
�� A=0 � NB%
�X%(A)=�(320)*4
�Y%(A)=�(230)*4
�Sp%(A)=(A � divSp%+1)*4
��
�n%=546:N%=-50:E%=1280
bank%=1
�
:
&� �Size(f$)
0"ș "OS_File",20,f$ � ,,,,Size%
:
=Size%
� 00000000 0d 00 0a 11 f4 20 3e 20 21 52 75 6e 49 6d 61 67 |..... > !RunImag|
00000010 65 0d 00 14 16 f4 20 42 79 20 4a 2e 20 44 2e 20 |e..... By J. D. |
00000020 50 6f 75 6c 74 65 72 0d 00 1e 05 f4 0d 00 28 1e |Poulter.......(.|
00000030 ee 20 85 20 eb 20 39 3a f6 3a f1 22 20 61 74 20 |. . . 9:.:." at |
00000040 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 32 0c eb 20 |line ";.:...2.. |
00000050 31 33 3a eb 20 39 0d 00 3c 15 2a 52 75 6e 20 44 |13:. 9..<.*Run D|
00000060 65 6d 6f 3a 44 65 6d 6f 50 61 6c 0d 00 46 09 f2 |emo:DemoPal..F..|
00000070 49 6e 69 74 0d 00 50 05 f5 0d 00 5a 0a f2 53 65 |Init..P....Z..Se|
00000080 74 55 70 0d 00 64 05 f5 0d 00 6e 18 e3 20 50 6f |tUp..d....n.. Po|
00000090 73 25 3d 30 20 b8 20 2d 32 35 36 20 88 20 2d 34 |s%=0 . -256 . -4|
000000a0 0d 00 78 12 c8 99 20 36 2c 31 31 32 2c 62 61 6e |..x... 6,112,ban|
000000b0 6b 25 0d 00 82 11 62 61 6e 6b 25 3d 33 2d 62 61 |k%....bank%=3-ba|
000000c0 6e 6b 25 0d 00 8c 12 c8 99 20 36 2c 31 31 33 2c |nk%...... 6,113,|
000000d0 62 61 6e 6b 25 0d 00 96 06 c8 96 0d 00 a0 4c e3 |bank%.........L.|
000000e0 20 58 25 3d 50 6f 73 25 20 b8 20 31 32 37 39 20 | X%=Pos% . 1279 |
000000f0 88 20 32 35 36 3a e3 20 59 25 3d 30 20 b8 20 31 |. 256:. Y%=0 . 1|
00000100 30 32 33 20 88 20 32 35 36 3a c8 99 20 26 32 45 |023 . 256:.. &2E|
00000110 2c 35 34 36 2c 73 25 2c 53 70 25 2c 58 25 2c 59 |,546,s%,Sp%,X%,Y|
00000120 25 2c 30 3a ed 3a ed 0d 00 aa 1d c8 99 26 32 45 |%,0:.:.......&2E|
00000130 2c 35 34 36 2c 73 25 2c 6c 25 2c 33 32 30 2c 32 |,546,s%,l%,320,2|
00000140 39 36 2c 38 0d 00 b4 0d e3 41 25 3d 30 b8 4e 42 |96,8.....A%=0.NB|
00000150 25 0d 00 be 23 c8 99 26 32 45 2c 35 34 36 2c 73 |%...#..&2E,546,s|
00000160 25 2c 42 25 2c 58 25 28 41 25 29 2c 59 25 28 41 |%,B%,X%(A%),Y%(A|
00000170 25 29 2c 38 0d 00 c8 13 58 25 28 41 25 29 2b 3d |%),8....X%(A%)+=|
00000180 53 70 25 28 41 25 29 0d 00 d2 17 e7 58 25 28 41 |Sp%(A%).....X%(A|
00000190 25 29 3e 45 25 58 25 28 41 25 29 3d 4e 25 0d 00 |%)>E%X%(A%)=N%..|
000001a0 dc 05 ed 0d 00 e6 05 ed 0d 00 f0 0a fd 20 45 6e |............. En|
000001b0 64 25 0d 00 fa 0a fd 20 46 69 6e 25 0d 01 04 05 |d%..... Fin%....|
000001c0 e0 0d 01 0e 05 3a 0d 01 18 0b dd 20 f2 49 6e 69 |.....:..... .Ini|
000001d0 74 0d 01 22 0a 46 69 6e 25 3d 30 0d 01 2c 0a 45 |t..".Fin%=0..,.E|
000001e0 6e 64 25 3d 30 0d 01 36 05 e1 0d 01 40 05 3a 0d |nd%=0..6....@.:.|
000001f0 01 4a 0c dd 20 f2 53 65 74 55 70 0d 01 54 28 73 |.J.. .SetUp..T(s|
00000200 69 7a 65 25 3d a4 53 69 7a 65 28 22 3c 4f 62 65 |ize%=.Size("<Obe|
00000210 79 24 44 69 72 3e 2e 53 70 72 69 74 65 73 22 29 |y$Dir>.Sprites")|
00000220 2b 36 34 0d 01 5e 0e de 20 73 25 20 73 69 7a 65 |+64..^.. s% size|
00000230 25 0d 01 68 0e 73 25 21 30 3d 73 69 7a 65 25 0d |%..h.s%!0=size%.|
00000240 01 72 1c c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |.r..."OS_SpriteO|
00000250 70 22 2c 32 35 36 2b 39 2c 73 25 0d 01 7c 2c c8 |p",256+9,s%..|,.|
00000260 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 |."OS_SpriteOp",2|
00000270 35 36 2b 31 30 2c 73 25 2c 22 44 65 6d 6f 3a 53 |56+10,s%,"Demo:S|
00000280 70 72 69 74 65 73 22 0d 01 86 2e c8 99 22 4f 53 |prites"......"OS|
00000290 5f 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 32 |_SpriteOp",256+2|
000002a0 34 2c 73 25 2c 22 73 70 6f 6e 67 65 22 20 b8 20 |4,s%,"sponge" . |
000002b0 2c 2c 53 70 25 0d 01 90 2b c8 99 22 4f 53 5f 53 |,,Sp%...+.."OS_S|
000002c0 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 32 34 2c |priteOp",256+24,|
000002d0 73 25 2c 22 6c 6f 67 6f 22 20 b8 20 2c 2c 6c 25 |s%,"logo" . ,,l%|
000002e0 0d 01 9a 2c c8 99 22 4f 53 5f 53 70 72 69 74 65 |...,.."OS_Sprite|
000002f0 4f 70 22 2c 32 35 36 2b 32 34 2c 73 25 2c 22 61 |Op",256+24,s%,"a|
00000300 63 6f 72 6e 22 20 b8 20 2c 2c 42 25 0d 01 a4 0a |corn" . ,,B%....|
00000310 4e 42 25 3d 32 30 0d 01 ae 0d 4c 61 79 65 72 73 |NB%=20....Layers|
00000320 25 3d 34 0d 01 b8 18 64 69 76 53 70 25 3d 4e 42 |%=4....divSp%=NB|
00000330 25 20 81 20 4c 61 79 65 72 73 25 0d 01 c2 1e de |% . Layers%.....|
00000340 20 58 25 28 4e 42 25 29 2c 59 25 28 4e 42 25 29 | X%(NB%),Y%(NB%)|
00000350 2c 53 70 25 28 4e 42 25 29 0d 01 cc 0f e3 20 41 |,Sp%(NB%)..... A|
00000360 3d 30 20 b8 20 4e 42 25 0d 01 d6 12 58 25 28 41 |=0 . NB%....X%(A|
00000370 29 3d b3 28 33 32 30 29 2a 34 0d 01 e0 12 59 25 |)=.(320)*4....Y%|
00000380 28 41 29 3d b3 28 32 33 30 29 2a 34 0d 01 ea 1b |(A)=.(230)*4....|
00000390 53 70 25 28 41 29 3d 28 41 20 81 20 64 69 76 53 |Sp%(A)=(A . divS|
000003a0 70 25 2b 31 29 2a 34 0d 01 f4 05 ed 0d 01 fe 19 |p%+1)*4.........|
000003b0 6e 25 3d 35 34 36 3a 4e 25 3d 2d 35 30 3a 45 25 |n%=546:N%=-50:E%|
000003c0 3d 31 32 38 30 0d 02 08 0b 62 61 6e 6b 25 3d 31 |=1280....bank%=1|
000003d0 0d 02 12 05 e1 0d 02 1c 05 3a 0d 02 26 0f dd 20 |.........:..&.. |
000003e0 a4 53 69 7a 65 28 66 24 29 0d 02 30 22 c8 99 20 |.Size(f$)..0".. |
000003f0 22 4f 53 5f 46 69 6c 65 22 2c 32 30 2c 66 24 20 |"OS_File",20,f$ |
00000400 b8 20 2c 2c 2c 2c 53 69 7a 65 25 0d 02 3a 0a 3d |. ,,,,Size%..:.=|
00000410 53 69 7a 65 25 0d ff |Size%..|
00000417 
.