Home » Archimedes archive » Acorn User » AU 1997-12.adf » Regulars » StarInfo/Vibe/SPARKLINE
StarInfo/Vibe/SPARKLINE
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 1997-12.adf » Regulars |
Filename: | StarInfo/Vibe/SPARKLINE |
Read OK: | ✔ |
File size: | 0293 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM > SPARKLINE 20 30MODE31:OFF 50FOR I=0TO7:COLOUR7-I,I*34,I*34,I*34:NEXT 60COLOUR135:CLS:COLOUR0 70DIM SP1 &4000,SP2 &80000,DX%(200),DY%(200),DC%(200) 80SP1!0=&3FFF:SP1!4=0:SP1!8=16:SP1!12=16 90SP2!0=&7FFFF:SP2!4=0:SP2!8=16:SP2!12=16 100FORN%=1TO150:DX%(N%)=RND(1182):DY%(N%)=RND(22):DC%(N%)=RND(14):NEXT 110 120SYS"OS_SpriteOp",256+10,SP1,"Spark" 130FORM%=1TO14 140NL$=STR$(M%) 150PROCDRAW 160NEXT 170SYS"OS_SpriteOp",256+12,SP2,"LINE" 180REPEAT 190FORM%=1TO14 200NL$=STR$(M%) 210WAIT:WAIT 220PROCDRAW 230NEXT 240UNTIL 0 250END 260 270DEF PROCDRAW 280GCOL7:RECTANGLE FILL 0,0,1200,40 290FORN%=1TO150 300DC%(N%)=DC%(N%)MOD14+1:NS$=STR$(DC%(N%)) 310SYS"OS_SpriteOp",256+34,SP1,NS$,DX%(N%),DY%(N%),8 320NEXT 330SYS"OS_SpriteOp",256+16,SP2,NL$,0,0,0,1200,40 340ENDPROC
� > SPARKLINE �31:� 2!� I=0�7:�7-I,I*34,I*34,I*34:� < �135:�:�0 F5� SP1 &4000,SP2 &80000,DX%(200),DY%(200),DC%(200) P*SP1!0=&3FFF:SP1!4=0:SP1!8=16:SP1!12=16 Z+SP2!0=&7FFFF:SP2!4=0:SP2!8=16:SP2!12=16 d;�N%=1�150:DX%(N%)=�(1182):DY%(N%)=�(22):DC%(N%)=�(14):� n x&ș"OS_SpriteOp",256+10,SP1,"Spark" ��M%=1�14 � NL$=�(M%) � �DRAW �� �%ș"OS_SpriteOp",256+12,SP2,"LINE" �� ��M%=1�14 � NL$=�(M%) � Ȗ:Ȗ � �DRAW �� �� 0 �� � �DRAW �7:ȓ Ȑ 0,0,1200,40 " �N%=1�150 ,'DC%(N%)=DC%(N%)�14+1:NS$=�(DC%(N%)) 64ș"OS_SpriteOp",256+34,SP1,NS$,DX%(N%),DY%(N%),8 @� J0ș"OS_SpriteOp",256+16,SP2,NL$,0,0,0,1200,40 T� �
00000000 0d 00 0a 11 f4 20 3e 20 53 50 41 52 4b 4c 49 4e |..... > SPARKLIN| 00000010 45 0d 00 14 04 0d 00 1e 09 eb 33 31 3a 87 0d 00 |E.........31:...| 00000020 32 21 e3 20 49 3d 30 b8 37 3a fb 37 2d 49 2c 49 |2!. I=0.7:.7-I,I| 00000030 2a 33 34 2c 49 2a 33 34 2c 49 2a 33 34 3a ed 0d |*34,I*34,I*34:..| 00000040 00 3c 0d fb 31 33 35 3a db 3a fb 30 0d 00 46 35 |.<..135:.:.0..F5| 00000050 de 20 53 50 31 20 26 34 30 30 30 2c 53 50 32 20 |. SP1 &4000,SP2 | 00000060 26 38 30 30 30 30 2c 44 58 25 28 32 30 30 29 2c |&80000,DX%(200),| 00000070 44 59 25 28 32 30 30 29 2c 44 43 25 28 32 30 30 |DY%(200),DC%(200| 00000080 29 0d 00 50 2a 53 50 31 21 30 3d 26 33 46 46 46 |)..P*SP1!0=&3FFF| 00000090 3a 53 50 31 21 34 3d 30 3a 53 50 31 21 38 3d 31 |:SP1!4=0:SP1!8=1| 000000a0 36 3a 53 50 31 21 31 32 3d 31 36 0d 00 5a 2b 53 |6:SP1!12=16..Z+S| 000000b0 50 32 21 30 3d 26 37 46 46 46 46 3a 53 50 32 21 |P2!0=&7FFFF:SP2!| 000000c0 34 3d 30 3a 53 50 32 21 38 3d 31 36 3a 53 50 32 |4=0:SP2!8=16:SP2| 000000d0 21 31 32 3d 31 36 0d 00 64 3b e3 4e 25 3d 31 b8 |!12=16..d;.N%=1.| 000000e0 31 35 30 3a 44 58 25 28 4e 25 29 3d b3 28 31 31 |150:DX%(N%)=.(11| 000000f0 38 32 29 3a 44 59 25 28 4e 25 29 3d b3 28 32 32 |82):DY%(N%)=.(22| 00000100 29 3a 44 43 25 28 4e 25 29 3d b3 28 31 34 29 3a |):DC%(N%)=.(14):| 00000110 ed 0d 00 6e 04 0d 00 78 26 c8 99 22 4f 53 5f 53 |...n...x&.."OS_S| 00000120 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 31 30 2c |priteOp",256+10,| 00000130 53 50 31 2c 22 53 70 61 72 6b 22 0d 00 82 0c e3 |SP1,"Spark".....| 00000140 4d 25 3d 31 b8 31 34 0d 00 8c 0d 4e 4c 24 3d c3 |M%=1.14....NL$=.| 00000150 28 4d 25 29 0d 00 96 09 f2 44 52 41 57 0d 00 a0 |(M%).....DRAW...| 00000160 05 ed 0d 00 aa 25 c8 99 22 4f 53 5f 53 70 72 69 |.....%.."OS_Spri| 00000170 74 65 4f 70 22 2c 32 35 36 2b 31 32 2c 53 50 32 |teOp",256+12,SP2| 00000180 2c 22 4c 49 4e 45 22 0d 00 b4 05 f5 0d 00 be 0c |,"LINE".........| 00000190 e3 4d 25 3d 31 b8 31 34 0d 00 c8 0d 4e 4c 24 3d |.M%=1.14....NL$=| 000001a0 c3 28 4d 25 29 0d 00 d2 09 c8 96 3a c8 96 0d 00 |.(M%)......:....| 000001b0 dc 09 f2 44 52 41 57 0d 00 e6 05 ed 0d 00 f0 07 |...DRAW.........| 000001c0 fd 20 30 0d 00 fa 05 e0 0d 01 04 04 0d 01 0e 0b |. 0.............| 000001d0 dd 20 f2 44 52 41 57 0d 01 18 18 e6 37 3a c8 93 |. .DRAW.....7:..| 000001e0 20 c8 90 20 30 2c 30 2c 31 32 30 30 2c 34 30 0d | .. 0,0,1200,40.| 000001f0 01 22 0d e3 4e 25 3d 31 b8 31 35 30 0d 01 2c 27 |."..N%=1.150..,'| 00000200 44 43 25 28 4e 25 29 3d 44 43 25 28 4e 25 29 83 |DC%(N%)=DC%(N%).| 00000210 31 34 2b 31 3a 4e 53 24 3d c3 28 44 43 25 28 4e |14+1:NS$=.(DC%(N| 00000220 25 29 29 0d 01 36 34 c8 99 22 4f 53 5f 53 70 72 |%))..64.."OS_Spr| 00000230 69 74 65 4f 70 22 2c 32 35 36 2b 33 34 2c 53 50 |iteOp",256+34,SP| 00000240 31 2c 4e 53 24 2c 44 58 25 28 4e 25 29 2c 44 59 |1,NS$,DX%(N%),DY| 00000250 25 28 4e 25 29 2c 38 0d 01 40 05 ed 0d 01 4a 30 |%(N%),8..@....J0| 00000260 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 00000270 32 35 36 2b 31 36 2c 53 50 32 2c 4e 4c 24 2c 30 |256+16,SP2,NL$,0| 00000280 2c 30 2c 30 2c 31 32 30 30 2c 34 30 0d 01 54 05 |,0,0,1200,40..T.| 00000290 e1 0d ff |...| 00000293