Home » Archimedes archive » Archimedes World » AW-1993-08.adf » AWAug93 » !AWAug93/Goodies/Basic2/!Anim5/!RunImage

!AWAug93/Goodies/Basic2/!Anim5/!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-08.adf » AWAug93
Filename: !AWAug93/Goodies/Basic2/!Anim5/!RunImage
Read OK:
File size: 0267 bytes
Load address: 0000
Exec address: 0000
File contents
  100REM>!RunImage
  110REM Program: Sprite Animation
  120REM Purpose: Show Flipping Of Sprite In Y Axis
  130REM Author:  G.Stanley
  140REM Version: 1.13 August 1993
  150REM LEN Archimedes World 1993
  160:
  170 MODE15:OFF
  180 :
  190 PROCload_Sprite
  200 OSCLI("SCHOOSE Copyright")
  210 PLOT &ED,200,0
  220 OSCLI("SCHOOSE P5")
  230 PLOT &ED,350,900
  240:
  250 REPEAT
  260 PROCchoose_Sprite
  270 PROCPlot_Sprite
  280 UNTIL 0
  290:
  300 DEFPROCload_Sprite
  310 OSCLI("SLOAD <Obey$Dir>.Demo")
  320 ENDPROC
  330:
  340 DEFPROCchoose_Sprite
  350 OSCLI("SCHOOSE Pointer")
  360 ENDPROC
  370:
  380 DEFPROCPlot_Sprite
  390 X%=350:Y%=300
  400 PLOT &ED,X%,Y%
  410 *SFLIPY Pointer
  420 A=INKEY(200)
  430 PLOT &ED,X%,Y%
  440 *SFLIPY Pointer
  450 A=INKEY(200)
  460 ENDPROC
d�>!RunImage
n� Program: Sprite Animation
x0� Purpose: Show Flipping Of Sprite In Y Axis
�� Author:  G.Stanley
�� Version: 1.13 August 1993
�� � Archimedes World 1993
�:
�
 �15:�
� :
� �load_Sprite
� �("SCHOOSE Copyright")
� � &ED,200,0
� �("SCHOOSE P5")
� � &ED,350,900
�:
� �
 �choose_Sprite
 �Plot_Sprite
 � 0
":
, ��load_Sprite
6 �("SLOAD <Obey$Dir>.Demo")
@ �
J:
T ��choose_Sprite
^ �("SCHOOSE Pointer")
h �
r:
| ��Plot_Sprite
� X%=350:Y%=300
� � &ED,X%,Y%
� *SFLIPY Pointer
�
 A=�(200)
� � &ED,X%,Y%
� *SFLIPY Pointer
�
 A=�(200)
� �
�
00000000  0d 00 64 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |..d..>!RunImage.|
00000010  00 6e 1f f4 20 50 72 6f  67 72 61 6d 3a 20 53 70  |.n.. Program: Sp|
00000020  72 69 74 65 20 41 6e 69  6d 61 74 69 6f 6e 0d 00  |rite Animation..|
00000030  78 30 f4 20 50 75 72 70  6f 73 65 3a 20 53 68 6f  |x0. Purpose: Sho|
00000040  77 20 46 6c 69 70 70 69  6e 67 20 4f 66 20 53 70  |w Flipping Of Sp|
00000050  72 69 74 65 20 49 6e 20  59 20 41 78 69 73 0d 00  |rite In Y Axis..|
00000060  82 18 f4 20 41 75 74 68  6f 72 3a 20 20 47 2e 53  |... Author:  G.S|
00000070  74 61 6e 6c 65 79 0d 00  8c 1f f4 20 56 65 72 73  |tanley..... Vers|
00000080  69 6f 6e 3a 20 31 2e 31  33 20 41 75 67 75 73 74  |ion: 1.13 August|
00000090  20 31 39 39 33 0d 00 96  1d f4 20 a9 20 41 72 63  | 1993..... . Arc|
000000a0  68 69 6d 65 64 65 73 20  57 6f 72 6c 64 20 31 39  |himedes World 19|
000000b0  39 33 0d 00 a0 05 3a 0d  00 aa 0a 20 eb 31 35 3a  |93....:.... .15:|
000000c0  87 0d 00 b4 06 20 3a 0d  00 be 11 20 f2 6c 6f 61  |..... :.... .loa|
000000d0  64 5f 53 70 72 69 74 65  0d 00 c8 1b 20 ff 28 22  |d_Sprite.... .("|
000000e0  53 43 48 4f 4f 53 45 20  43 6f 70 79 72 69 67 68  |SCHOOSE Copyrigh|
000000f0  74 22 29 0d 00 d2 10 20  f0 20 26 45 44 2c 32 30  |t").... . &ED,20|
00000100  30 2c 30 0d 00 dc 14 20  ff 28 22 53 43 48 4f 4f  |0,0.... .("SCHOO|
00000110  53 45 20 50 35 22 29 0d  00 e6 12 20 f0 20 26 45  |SE P5").... . &E|
00000120  44 2c 33 35 30 2c 39 30  30 0d 00 f0 05 3a 0d 00  |D,350,900....:..|
00000130  fa 06 20 f5 0d 01 04 13  20 f2 63 68 6f 6f 73 65  |.. ..... .choose|
00000140  5f 53 70 72 69 74 65 0d  01 0e 11 20 f2 50 6c 6f  |_Sprite.... .Plo|
00000150  74 5f 53 70 72 69 74 65  0d 01 18 08 20 fd 20 30  |t_Sprite.... . 0|
00000160  0d 01 22 05 3a 0d 01 2c  12 20 dd f2 6c 6f 61 64  |..".:..,. ..load|
00000170  5f 53 70 72 69 74 65 0d  01 36 1f 20 ff 28 22 53  |_Sprite..6. .("S|
00000180  4c 4f 41 44 20 3c 4f 62  65 79 24 44 69 72 3e 2e  |LOAD <Obey$Dir>.|
00000190  44 65 6d 6f 22 29 0d 01  40 06 20 e1 0d 01 4a 05  |Demo")..@. ...J.|
000001a0  3a 0d 01 54 14 20 dd f2  63 68 6f 6f 73 65 5f 53  |:..T. ..choose_S|
000001b0  70 72 69 74 65 0d 01 5e  19 20 ff 28 22 53 43 48  |prite..^. .("SCH|
000001c0  4f 4f 53 45 20 50 6f 69  6e 74 65 72 22 29 0d 01  |OOSE Pointer")..|
000001d0  68 06 20 e1 0d 01 72 05  3a 0d 01 7c 12 20 dd f2  |h. ...r.:..|. ..|
000001e0  50 6c 6f 74 5f 53 70 72  69 74 65 0d 01 86 12 20  |Plot_Sprite.... |
000001f0  58 25 3d 33 35 30 3a 59  25 3d 33 30 30 0d 01 90  |X%=350:Y%=300...|
00000200  10 20 f0 20 26 45 44 2c  58 25 2c 59 25 0d 01 9a  |. . &ED,X%,Y%...|
00000210  14 20 2a 53 46 4c 49 50  59 20 50 6f 69 6e 74 65  |. *SFLIPY Pointe|
00000220  72 0d 01 a4 0d 20 41 3d  a6 28 32 30 30 29 0d 01  |r.... A=.(200)..|
00000230  ae 10 20 f0 20 26 45 44  2c 58 25 2c 59 25 0d 01  |.. . &ED,X%,Y%..|
00000240  b8 14 20 2a 53 46 4c 49  50 59 20 50 6f 69 6e 74  |.. *SFLIPY Point|
00000250  65 72 0d 01 c2 0d 20 41  3d a6 28 32 30 30 29 0d  |er.... A=.(200).|
00000260  01 cc 06 20 e1 0d ff                              |... ...|
00000267