Demos/!TheRing/D

Home » Archimedes archive » Micro User » MU 1991-06.adf » PD-Stuff » Demos/!TheRing/D_RUN

Demos/!TheRing/D_RUN

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-06.adf » PD-Stuff
Filename:	Demos/!TheRing/D_RUN
Read OK:	✔
File size:	0329 bytes
Load address:	0000
Exec address:	0000

File contents

   10MODE0
   11OFF
   12PRINT
   13*TIME
   14PRINT"DON'T WORRY THE FIRST SHAPE IS AT 25 FRAMES A SEC."
   20EN%=155568
   30 DIM J% 190000
   35JY%=&BEFC:KY%=J%+190000-76629 :K%=KY%:KY%=KY%+4
   40OSCLI "LOAD <Star$Dir>.D_CODES "+STR$~K%
   60FOR PJ%=0 TO ((EN%+255)/256)
   70S%=?KY%:KY%=KY%+1
   75PRINTTAB(0,0);JY%-J%
   76IF S%=230 THEN GOSUB 150:GOTO 110
   80IF S%=0 THEN GOSUB 130:GOTO 110
  100IF S%=255 THEN GOSUB 200
  110NEXT
  115CALL &BEFC
  116*playmod <BALL$Dir>.MODULES.RUNTUNE
  117END
  120REM TYPE1
  130FORD%=0TO15:!JY%=!KY%:KY%=KY%+4:JY%=JY%+4:!JY%=!KY%:KY%=KY%+4:JY%=JY%+4:!JY%=!KY%:KY%=KY%+4:JY%=JY%+4:!JY%=!KY%:KY%=KY%+4:JY%=JY%+4:NEXTD%:RETURN
  140REM TYPE2
  150E%=0
  160S%=!KY%:KY%=KY%+4:T%=?KY%:KY%=KY%+1
  170FOR N=0 TO T%:!JY%=S%:JY%=JY%+4:NEXT
  180E%=E%+4*T%+4:IF E%>255 THEN RETURN ELSE GOTO160
  190REM TYPE3
  200E%=0
  210S%=?KY%:KY%=KY%+1:T%=?KY%:KY%=KY%+1
  220FOR N=0 TO T%:?JY%=S%:JY%=JY%+1:NEXT
  230E%=E%+T%+1:IF E%>255 THEN RETURN ELSE GOTO210

�0
�
�

	*TIME
9�"DON'T WORRY THE FIRST SHAPE IS AT 25 FRAMES A SEC."
EN%=155568
 � J% 190000
#3JY%=&BEFC:KY%=J%+190000-76629 :K%=KY%:KY%=KY%+4
(%� "LOAD <Star$Dir>.D_CODES "+�~K%
<� PJ%=0 � ((EN%+255)/256)
FS%=?KY%:KY%=KY%+1
K�0,0);JY%-J%
L� S%=230 � � �tV@:� �Dn@
P� S%=0 � � �tB@:� �Dn@
d� S%=255 � � �dH@
n�
s� &BEFC
t'*playmod <BALL$Dir>.MODULES.RUNTUNE
u�
x� TYPE1
���D%=0�15:!JY%=!KY%:KY%=KY%+4:JY%=JY%+4:!JY%=!KY%:KY%=KY%+4:JY%=JY%+4:!JY%=!KY%:KY%=KY%+4:JY%=JY%+4:!JY%=!KY%:KY%=KY%+4:JY%=JY%+4:�D%:�
�� TYPE2
�E%=0
�'S%=!KY%:KY%=KY%+4:T%=?KY%:KY%=KY%+1
�"� N=0 � T%:!JY%=S%:JY%=JY%+4:�
�%E%=E%+4*T%+4:� E%>255 � � � �t`@
�� TYPE3
�E%=0
�'S%=?KY%:KY%=KY%+1:T%=?KY%:KY%=KY%+1
�"� N=0 � T%:?JY%=S%:JY%=JY%+1:�
�#E%=E%+T%+1:� E%>255 � � � �dR@
�

00000000  0d 00 0a 06 eb 30 0d 00  0b 05 87 0d 00 0c 05 f1  |.....0..........|
00000010  0d 00 0d 09 2a 54 49 4d  45 0d 00 0e 39 f1 22 44  |....*TIME...9."D|
00000020  4f 4e 27 54 20 57 4f 52  52 59 20 54 48 45 20 46  |ON'T WORRY THE F|
00000030  49 52 53 54 20 53 48 41  50 45 20 49 53 20 41 54  |IRST SHAPE IS AT|
00000040  20 32 35 20 46 52 41 4d  45 53 20 41 20 53 45 43  | 25 FRAMES A SEC|
00000050  2e 22 0d 00 14 0e 45 4e  25 3d 31 35 35 35 36 38  |."....EN%=155568|
00000060  0d 00 1e 10 20 de 20 4a  25 20 31 39 30 30 30 30  |.... . J% 190000|
00000070  0d 00 23 33 4a 59 25 3d  26 42 45 46 43 3a 4b 59  |..#3JY%=&BEFC:KY|
00000080  25 3d 4a 25 2b 31 39 30  30 30 30 2d 37 36 36 32  |%=J%+190000-7662|
00000090  39 20 3a 4b 25 3d 4b 59  25 3a 4b 59 25 3d 4b 59  |9 :K%=KY%:KY%=KY|
000000a0  25 2b 34 0d 00 28 25 ff  20 22 4c 4f 41 44 20 3c  |%+4..(%. "LOAD <|
000000b0  53 74 61 72 24 44 69 72  3e 2e 44 5f 43 4f 44 45  |Star$Dir>.D_CODE|
000000c0  53 20 22 2b c3 7e 4b 25  0d 00 3c 1d e3 20 50 4a  |S "+.~K%..<.. PJ|
000000d0  25 3d 30 20 b8 20 28 28  45 4e 25 2b 32 35 35 29  |%=0 . ((EN%+255)|
000000e0  2f 32 35 36 29 0d 00 46  15 53 25 3d 3f 4b 59 25  |/256)..F.S%=?KY%|
000000f0  3a 4b 59 25 3d 4b 59 25  2b 31 0d 00 4b 11 f1 8a  |:KY%=KY%+1..K...|
00000100  30 2c 30 29 3b 4a 59 25  2d 4a 25 0d 00 4c 1c e7  |0,0);JY%-J%..L..|
00000110  20 53 25 3d 32 33 30 20  8c 20 e4 20 8d 74 56 40  | S%=230 . . .tV@|
00000120  3a e5 20 8d 44 6e 40 0d  00 50 1a e7 20 53 25 3d  |:. .Dn@..P.. S%=|
00000130  30 20 8c 20 e4 20 8d 74  42 40 3a e5 20 8d 44 6e  |0 . . .tB@:. .Dn|
00000140  40 0d 00 64 15 e7 20 53  25 3d 32 35 35 20 8c 20  |@..d.. S%=255 . |
00000150  e4 20 8d 64 48 40 0d 00  6e 05 ed 0d 00 73 0b d6  |. .dH@..n....s..|
00000160  20 26 42 45 46 43 0d 00  74 27 2a 70 6c 61 79 6d  | &BEFC..t'*playm|
00000170  6f 64 20 3c 42 41 4c 4c  24 44 69 72 3e 2e 4d 4f  |od <BALL$Dir>.MO|
00000180  44 55 4c 45 53 2e 52 55  4e 54 55 4e 45 0d 00 75  |DULES.RUNTUNE..u|
00000190  05 e0 0d 00 78 0b f4 20  54 59 50 45 31 0d 00 82  |....x.. TYPE1...|
000001a0  8a e3 44 25 3d 30 b8 31  35 3a 21 4a 59 25 3d 21  |..D%=0.15:!JY%=!|
000001b0  4b 59 25 3a 4b 59 25 3d  4b 59 25 2b 34 3a 4a 59  |KY%:KY%=KY%+4:JY|
000001c0  25 3d 4a 59 25 2b 34 3a  21 4a 59 25 3d 21 4b 59  |%=JY%+4:!JY%=!KY|
000001d0  25 3a 4b 59 25 3d 4b 59  25 2b 34 3a 4a 59 25 3d  |%:KY%=KY%+4:JY%=|
000001e0  4a 59 25 2b 34 3a 21 4a  59 25 3d 21 4b 59 25 3a  |JY%+4:!JY%=!KY%:|
000001f0  4b 59 25 3d 4b 59 25 2b  34 3a 4a 59 25 3d 4a 59  |KY%=KY%+4:JY%=JY|
00000200  25 2b 34 3a 21 4a 59 25  3d 21 4b 59 25 3a 4b 59  |%+4:!JY%=!KY%:KY|
00000210  25 3d 4b 59 25 2b 34 3a  4a 59 25 3d 4a 59 25 2b  |%=KY%+4:JY%=JY%+|
00000220  34 3a ed 44 25 3a f8 0d  00 8c 0b f4 20 54 59 50  |4:.D%:...... TYP|
00000230  45 32 0d 00 96 08 45 25  3d 30 0d 00 a0 27 53 25  |E2....E%=0...'S%|
00000240  3d 21 4b 59 25 3a 4b 59  25 3d 4b 59 25 2b 34 3a  |=!KY%:KY%=KY%+4:|
00000250  54 25 3d 3f 4b 59 25 3a  4b 59 25 3d 4b 59 25 2b  |T%=?KY%:KY%=KY%+|
00000260  31 0d 00 aa 22 e3 20 4e  3d 30 20 b8 20 54 25 3a  |1...". N=0 . T%:|
00000270  21 4a 59 25 3d 53 25 3a  4a 59 25 3d 4a 59 25 2b  |!JY%=S%:JY%=JY%+|
00000280  34 3a ed 0d 00 b4 25 45  25 3d 45 25 2b 34 2a 54  |4:....%E%=E%+4*T|
00000290  25 2b 34 3a e7 20 45 25  3e 32 35 35 20 8c 20 f8  |%+4:. E%>255 . .|
000002a0  20 8b 20 e5 8d 74 60 40  0d 00 be 0b f4 20 54 59  | . ..t`@..... TY|
000002b0  50 45 33 0d 00 c8 08 45  25 3d 30 0d 00 d2 27 53  |PE3....E%=0...'S|
000002c0  25 3d 3f 4b 59 25 3a 4b  59 25 3d 4b 59 25 2b 31  |%=?KY%:KY%=KY%+1|
000002d0  3a 54 25 3d 3f 4b 59 25  3a 4b 59 25 3d 4b 59 25  |:T%=?KY%:KY%=KY%|
000002e0  2b 31 0d 00 dc 22 e3 20  4e 3d 30 20 b8 20 54 25  |+1...". N=0 . T%|
000002f0  3a 3f 4a 59 25 3d 53 25  3a 4a 59 25 3d 4a 59 25  |:?JY%=S%:JY%=JY%|
00000300  2b 31 3a ed 0d 00 e6 23  45 25 3d 45 25 2b 54 25  |+1:....#E%=E%+T%|
00000310  2b 31 3a e7 20 45 25 3e  32 35 35 20 8c 20 f8 20  |+1:. E%>255 . . |
00000320  8b 20 e5 8d 64 52 40 0d  ff                       |. ..dR@..|
00000329

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .