Home » Archimedes archive » Archimedes World » AW-1993-06.adf » AWJune93 » !AWJune93/Goodies/Goosey/!GOOSEY/!RUNIMAGE
!AWJune93/Goodies/Goosey/!GOOSEY/!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 » Archimedes World » AW-1993-06.adf » AWJune93 |
| Filename: | !AWJune93/Goodies/Goosey/!GOOSEY/!RUNIMAGE |
| Read OK: | ✔ |
| File size: | 047A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1 REM >!RUNIMAGE
10 ON ERROR MODE 12:REPORT:PRINT " ";ERL:STOP
20 MODE 12+128
100 DIM S2 37576:S1=256:SYS &2E,10+S1,S2,"<OBEY$DIR>.LUNES"
110 PROClight
120 PROCmove
130 SYS &2E,9+S1,S2
180 PROCsound
190 CHAIN"<Obey$Dir>.GOOSE"
1000 DEF PROClight
1006 COLOUR 128+15:COLOUR 13
1007 CLS
1010 FOR L=0 TO 15:VDU 19,L,16,0,0,0:NEXT L
1020 SYS &2E,34+S1,S2,"LUNE",256,512
1030 SYS &2E,34+S1,S2,"MOON",128,332,8
1035 SYS &2E,34+S1,S2,"PROD",448,64,8
1040 DIM C%(7):RESTORE 1060
1050 FOR L=0 TO 7:READ C%(L):NEXT
1060 DATA 255,221,187,153,119,85,51,0
1070 FOR L=0 TO 255 STEP .25:VDU 19,9,16,L,L,L:NEXT L
1080 FOR L=255 TO 96 STEP -.5:VDU 19,9,16,L,L,L:NEXT L
1110 FOR L=0 TO 255
1120 FOR I=0 TO 7:VDU 19,I,16,L,L,L:NEXT I
1130 NEXT L
1140 FOR L=255 TO 0 STEP -1
1150 FOR I=0 TO 7
1160 IF L>C%(I) THEN VDU 19,I,16,L,L,L
1170 NEXT:NEXT
1180 ENDPROC
1200 DEF PROCmove
1210 X1=256:XX%=4:SCR%=1
1215 FOR L=PI TO 0 STEP -(PI/128)
1220 SYS 6,112,SCR%:CLS
1230 X1=320*SIN(L)+256
1235 SYS &2E,34+S1,S2,"PROD",448,64,8
1240 IF L<(PI/2) THEN SYS &2E,34+S1,S2,"MOON",128,332,8
1250 SYS &2E,34+S1,S2,"LUNE",X1,512
1260 IF L>=(PI/2) THEN SYS &2E,34+S1,S2,"MOON",128,332,8
1270 SYS 6,19:SYS 6,113,SCR%
1280 SCR%=(SCR%+1) MOD 2
1290 NEXT L
1295 ENDPROC
1400 DEF PROCsound
1410 *RMKILL STRINGLIB
1420 *RMKILL WAVESYNTH
1430 *RMKILL PERCUSSION
1440 FOR L=1 TO 11
1450 OSCLI("RMLOAD <OBEY$DIR>.FX"+STR$(L))
1460 NEXT L
1470 ENDPROC
� >!RUNIMAGE
� � � 12:�:� " ";�:�
� 12+128
d9 � S2 37576:S1=256:ș &2E,10+S1,S2,"<OBEY$DIR>.LUNES"
n �light
x
�move
� ș &2E,9+S1,S2
� �sound
� �"<Obey$Dir>.GOOSE"
�
� �light
� � 128+15:� 13
� �
�# � L=0 � 15:� 19,L,16,0,0,0:� L
�# ș &2E,34+S1,S2,"LUNE",256,512
% ș &2E,34+S1,S2,"MOON",128,332,8
$ ș &2E,34+S1,S2,"PROD",448,64,8
� C%(7):� �TdD
� L=0 � 7:� C%(L):�
$" � 255,221,187,153,119,85,51,0
.* � L=0 � 255 � .25:� 19,9,16,L,L,L:� L
8+ � L=255 � 96 � -.5:� 19,9,16,L,L,L:� L
V � L=0 � 255
`" � I=0 � 7:� 19,I,16,L,L,L:� I
j � L
t � L=255 � 0 � -1
~ � I=0 � 7
� � L>C%(I) � � 19,I,16,L,L,L
� �:�
� �
� � �move
� X1=256:XX%=4:SCR%=1
� � L=� � 0 � -(�/128)
� ș 6,112,SCR%:�
� X1=320*�(L)+256
�$ ș &2E,34+S1,S2,"PROD",448,64,8
�1 � L<(�/2) � ș &2E,34+S1,S2,"MOON",128,332,8
�" ș &2E,34+S1,S2,"LUNE",X1,512
�2 � L>=(�/2) � ș &2E,34+S1,S2,"MOON",128,332,8
� ș 6,19:ș 6,113,SCR%
SCR%=(SCR%+1) � 2
� L
�
x
� �sound
� *RMKILL STRINGLIB
� *RMKILL WAVESYNTH
� *RMKILL PERCUSSION
� � L=1 � 11
�# �("RMLOAD <OBEY$DIR>.FX"+�(L))
� � L
� �
� 00000000 0d 00 01 11 20 f4 20 3e 21 52 55 4e 49 4d 41 47 |.... . >!RUNIMAG|
00000010 45 0d 00 0a 19 20 ee 20 85 20 eb 20 31 32 3a f6 |E.... . . . 12:.|
00000020 3a f1 20 22 20 22 3b 9e 3a fa 0d 00 14 0d 20 eb |:. " ";.:..... .|
00000030 20 31 32 2b 31 32 38 0d 00 64 39 20 de 20 53 32 | 12+128..d9 . S2|
00000040 20 33 37 35 37 36 3a 53 31 3d 32 35 36 3a c8 99 | 37576:S1=256:..|
00000050 20 26 32 45 2c 31 30 2b 53 31 2c 53 32 2c 22 3c | &2E,10+S1,S2,"<|
00000060 4f 42 45 59 24 44 49 52 3e 2e 4c 55 4e 45 53 22 |OBEY$DIR>.LUNES"|
00000070 0d 00 6e 0b 20 f2 6c 69 67 68 74 0d 00 78 0a 20 |..n. .light..x. |
00000080 f2 6d 6f 76 65 0d 00 82 13 20 c8 99 20 26 32 45 |.move.... .. &2E|
00000090 2c 39 2b 53 31 2c 53 32 0d 00 b4 0b 20 f2 73 6f |,9+S1,S2.... .so|
000000a0 75 6e 64 0d 00 be 18 20 d7 22 3c 4f 62 65 79 24 |und.... ."<Obey$|
000000b0 44 69 72 3e 2e 47 4f 4f 53 45 22 0d 03 e8 0d 20 |Dir>.GOOSE".... |
000000c0 dd 20 f2 6c 69 67 68 74 0d 03 ee 12 20 fb 20 31 |. .light.... . 1|
000000d0 32 38 2b 31 35 3a fb 20 31 33 0d 03 ef 06 20 db |28+15:. 13.... .|
000000e0 0d 03 f2 23 20 e3 20 4c 3d 30 20 b8 20 31 35 3a |...# . L=0 . 15:|
000000f0 ef 20 31 39 2c 4c 2c 31 36 2c 30 2c 30 2c 30 3a |. 19,L,16,0,0,0:|
00000100 ed 20 4c 0d 03 fc 23 20 c8 99 20 26 32 45 2c 33 |. L...# .. &2E,3|
00000110 34 2b 53 31 2c 53 32 2c 22 4c 55 4e 45 22 2c 32 |4+S1,S2,"LUNE",2|
00000120 35 36 2c 35 31 32 0d 04 06 25 20 c8 99 20 26 32 |56,512...% .. &2|
00000130 45 2c 33 34 2b 53 31 2c 53 32 2c 22 4d 4f 4f 4e |E,34+S1,S2,"MOON|
00000140 22 2c 31 32 38 2c 33 33 32 2c 38 0d 04 0b 24 20 |",128,332,8...$ |
00000150 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c |.. &2E,34+S1,S2,|
00000160 22 50 52 4f 44 22 2c 34 34 38 2c 36 34 2c 38 0d |"PROD",448,64,8.|
00000170 04 10 13 20 de 20 43 25 28 37 29 3a f7 20 8d 54 |... . C%(7):. .T|
00000180 64 44 0d 04 1a 18 20 e3 20 4c 3d 30 20 b8 20 37 |dD.... . L=0 . 7|
00000190 3a f3 20 43 25 28 4c 29 3a ed 0d 04 24 22 20 dc |:. C%(L):...$" .|
000001a0 20 32 35 35 2c 32 32 31 2c 31 38 37 2c 31 35 33 | 255,221,187,153|
000001b0 2c 31 31 39 2c 38 35 2c 35 31 2c 30 0d 04 2e 2a |,119,85,51,0...*|
000001c0 20 e3 20 4c 3d 30 20 b8 20 32 35 35 20 88 20 2e | . L=0 . 255 . .|
000001d0 32 35 3a ef 20 31 39 2c 39 2c 31 36 2c 4c 2c 4c |25:. 19,9,16,L,L|
000001e0 2c 4c 3a ed 20 4c 0d 04 38 2b 20 e3 20 4c 3d 32 |,L:. L..8+ . L=2|
000001f0 35 35 20 b8 20 39 36 20 88 20 2d 2e 35 3a ef 20 |55 . 96 . -.5:. |
00000200 31 39 2c 39 2c 31 36 2c 4c 2c 4c 2c 4c 3a ed 20 |19,9,16,L,L,L:. |
00000210 4c 0d 04 56 10 20 e3 20 4c 3d 30 20 b8 20 32 35 |L..V. . L=0 . 25|
00000220 35 0d 04 60 22 20 e3 20 49 3d 30 20 b8 20 37 3a |5..`" . I=0 . 7:|
00000230 ef 20 31 39 2c 49 2c 31 36 2c 4c 2c 4c 2c 4c 3a |. 19,I,16,L,L,L:|
00000240 ed 20 49 0d 04 6a 08 20 ed 20 4c 0d 04 74 15 20 |. I..j. . L..t. |
00000250 e3 20 4c 3d 32 35 35 20 b8 20 30 20 88 20 2d 31 |. L=255 . 0 . -1|
00000260 0d 04 7e 0e 20 e3 20 49 3d 30 20 b8 20 37 0d 04 |..~. . I=0 . 7..|
00000270 88 20 20 e7 20 4c 3e 43 25 28 49 29 20 8c 20 ef |. . L>C%(I) . .|
00000280 20 31 39 2c 49 2c 31 36 2c 4c 2c 4c 2c 4c 0d 04 | 19,I,16,L,L,L..|
00000290 92 08 20 ed 3a ed 0d 04 9c 06 20 e1 0d 04 b0 0c |.. .:..... .....|
000002a0 20 dd 20 f2 6d 6f 76 65 0d 04 ba 18 20 58 31 3d | . .move.... X1=|
000002b0 32 35 36 3a 58 58 25 3d 34 3a 53 43 52 25 3d 31 |256:XX%=4:SCR%=1|
000002c0 0d 04 bf 19 20 e3 20 4c 3d af 20 b8 20 30 20 88 |.... . L=. . 0 .|
000002d0 20 2d 28 af 2f 31 32 38 29 0d 04 c4 14 20 c8 99 | -(./128).... ..|
000002e0 20 36 2c 31 31 32 2c 53 43 52 25 3a db 0d 04 ce | 6,112,SCR%:....|
000002f0 14 20 58 31 3d 33 32 30 2a b5 28 4c 29 2b 32 35 |. X1=320*.(L)+25|
00000300 36 0d 04 d3 24 20 c8 99 20 26 32 45 2c 33 34 2b |6...$ .. &2E,34+|
00000310 53 31 2c 53 32 2c 22 50 52 4f 44 22 2c 34 34 38 |S1,S2,"PROD",448|
00000320 2c 36 34 2c 38 0d 04 d8 31 20 e7 20 4c 3c 28 af |,64,8...1 . L<(.|
00000330 2f 32 29 20 8c 20 c8 99 20 26 32 45 2c 33 34 2b |/2) . .. &2E,34+|
00000340 53 31 2c 53 32 2c 22 4d 4f 4f 4e 22 2c 31 32 38 |S1,S2,"MOON",128|
00000350 2c 33 33 32 2c 38 0d 04 e2 22 20 c8 99 20 26 32 |,332,8..." .. &2|
00000360 45 2c 33 34 2b 53 31 2c 53 32 2c 22 4c 55 4e 45 |E,34+S1,S2,"LUNE|
00000370 22 2c 58 31 2c 35 31 32 0d 04 ec 32 20 e7 20 4c |",X1,512...2 . L|
00000380 3e 3d 28 af 2f 32 29 20 8c 20 c8 99 20 26 32 45 |>=(./2) . .. &2E|
00000390 2c 33 34 2b 53 31 2c 53 32 2c 22 4d 4f 4f 4e 22 |,34+S1,S2,"MOON"|
000003a0 2c 31 32 38 2c 33 33 32 2c 38 0d 04 f6 1a 20 c8 |,128,332,8.... .|
000003b0 99 20 36 2c 31 39 3a c8 99 20 36 2c 31 31 33 2c |. 6,19:.. 6,113,|
000003c0 53 43 52 25 0d 05 00 16 20 53 43 52 25 3d 28 53 |SCR%.... SCR%=(S|
000003d0 43 52 25 2b 31 29 20 83 20 32 0d 05 0a 08 20 ed |CR%+1) . 2.... .|
000003e0 20 4c 0d 05 0f 06 20 e1 0d 05 78 0d 20 dd 20 f2 | L.... ...x. . .|
000003f0 73 6f 75 6e 64 0d 05 82 16 20 2a 52 4d 4b 49 4c |sound.... *RMKIL|
00000400 4c 20 53 54 52 49 4e 47 4c 49 42 0d 05 8c 16 20 |L STRINGLIB.... |
00000410 2a 52 4d 4b 49 4c 4c 20 57 41 56 45 53 59 4e 54 |*RMKILL WAVESYNT|
00000420 48 0d 05 96 17 20 2a 52 4d 4b 49 4c 4c 20 50 45 |H.... *RMKILL PE|
00000430 52 43 55 53 53 49 4f 4e 0d 05 a0 0f 20 e3 20 4c |RCUSSION.... . L|
00000440 3d 31 20 b8 20 31 31 0d 05 aa 23 20 ff 28 22 52 |=1 . 11...# .("R|
00000450 4d 4c 4f 41 44 20 3c 4f 42 45 59 24 44 49 52 3e |MLOAD <OBEY$DIR>|
00000460 2e 46 58 22 2b c3 28 4c 29 29 0d 05 b4 08 20 ed |.FX"+.(L)).... .|
00000470 20 4c 0d 05 be 06 20 e1 0d ff | L.... ...|
0000047a 
.