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