Home » Archimedes archive » Acorn User » AU 1995-02.adf » !Dark_DarkHorse » !DarkHorse/WorkHorses/Example/Quickflash
!DarkHorse/WorkHorses/Example/Quickflash
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 1995-02.adf » !Dark_DarkHorse |
| Filename: | !DarkHorse/WorkHorses/Example/Quickflash |
| Read OK: | ✔ |
| File size: | 02BE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > BASICflash 20 30REM * This file 'Quickflash' is just the same as 'BASICflash' 40REM * with the comments removed. 50 60 MODE 12 70 80 currcol% = 0:myxord% = 0:myyord% = 0:nocols% = 0 90 radius% = 50 100 A%=1280:B%=1024:C%=16:D%=0:E%=0 120 PROCinit(A%,B%,C%,D%,E%) 140 150 FOR n%=1 TO 1000 160 A%=RND(1280) 170 B%=RND(1024) 180 currcol%+=1:IF currcol%=16 currcol%=1 190 C%=currcol% 200 D%=0 210 PROCpoll(A%,B%,C%,D%) 220 NEXT n% 230 240 PROCshutdown 250 260END 270 280DEFPROCpoll(A%,B%,C%,D%) 290 GCOL 0,C% TINT D% 300 CIRCLE FILL A%, B%, radius% 310 GCOL 0,0 320 CIRCLE FILL myxord%, myyord%, radius% 330 myxord% = A% 340 myyord% = B% 350ENDPROC 360 370 380DEFPROCinit(A%,B%,C%,D%,E%) 390ENDPROC 410 420DEFPROCshutdown 430ENDPROC 440
� > BASICflash
?� * This file 'Quickflash' is just the same as 'BASICflash'
("� * with the comments removed.
2
<
� 12
F
P6 currcol% = 0:myxord% = 0:myyord% = 0:nocols% = 0
Z radius% = 50
d% A%=1280:B%=1024:C%=16:D%=0:E%=0
x �init(A%,B%,C%,D%,E%)
�
� � n%=1 � 1000
� A%=�(1280)
� B%=�(1024)
�, currcol%+=1:� currcol%=16 currcol%=1
� C%=currcol%
� D%=0
� �poll(A%,B%,C%,D%)
�
� n%
�
� �shutdown
�
�
��poll(A%,B%,C%,D%)
" � 0,C% Ȝ D%
, ȏ Ȑ A%, B%, radius%
6 � 0,0
@% ȏ Ȑ myxord%, myyord%, radius%
J myxord% = A%
T myyord% = B%
^�
h
r
|��init(A%,B%,C%,D%,E%)
��
�
���shutdown
��
�
� 00000000 0d 00 0a 12 f4 20 3e 20 42 41 53 49 43 66 6c 61 |..... > BASICfla|
00000010 73 68 0d 00 14 04 0d 00 1e 3f f4 20 2a 20 54 68 |sh.......?. * Th|
00000020 69 73 20 66 69 6c 65 20 27 51 75 69 63 6b 66 6c |is file 'Quickfl|
00000030 61 73 68 27 20 69 73 20 6a 75 73 74 20 74 68 65 |ash' is just the|
00000040 20 73 61 6d 65 20 61 73 20 27 42 41 53 49 43 66 | same as 'BASICf|
00000050 6c 61 73 68 27 0d 00 28 22 f4 20 2a 20 77 69 74 |lash'..(". * wit|
00000060 68 20 74 68 65 20 63 6f 6d 6d 65 6e 74 73 20 72 |h the comments r|
00000070 65 6d 6f 76 65 64 2e 0d 00 32 04 0d 00 3c 0a 20 |emoved...2...<. |
00000080 20 eb 20 31 32 0d 00 46 04 0d 00 50 36 20 20 63 | . 12..F...P6 c|
00000090 75 72 72 63 6f 6c 25 20 3d 20 30 3a 6d 79 78 6f |urrcol% = 0:myxo|
000000a0 72 64 25 20 3d 20 30 3a 6d 79 79 6f 72 64 25 20 |rd% = 0:myyord% |
000000b0 3d 20 30 3a 6e 6f 63 6f 6c 73 25 20 3d 20 30 0d |= 0:nocols% = 0.|
000000c0 00 5a 12 20 20 72 61 64 69 75 73 25 20 3d 20 35 |.Z. radius% = 5|
000000d0 30 0d 00 64 25 20 20 41 25 3d 31 32 38 30 3a 42 |0..d% A%=1280:B|
000000e0 25 3d 31 30 32 34 3a 43 25 3d 31 36 3a 44 25 3d |%=1024:C%=16:D%=|
000000f0 30 3a 45 25 3d 30 0d 00 78 1b 20 20 f2 69 6e 69 |0:E%=0..x. .ini|
00000100 74 28 41 25 2c 42 25 2c 43 25 2c 44 25 2c 45 25 |t(A%,B%,C%,D%,E%|
00000110 29 0d 00 8c 04 0d 00 96 13 20 20 e3 20 6e 25 3d |)........ . n%=|
00000120 31 20 b8 20 31 30 30 30 0d 00 a0 12 20 20 20 20 |1 . 1000.... |
00000130 41 25 3d b3 28 31 32 38 30 29 0d 00 aa 12 20 20 |A%=.(1280).... |
00000140 20 20 42 25 3d b3 28 31 30 32 34 29 0d 00 b4 2c | B%=.(1024)...,|
00000150 20 20 20 20 63 75 72 72 63 6f 6c 25 2b 3d 31 3a | currcol%+=1:|
00000160 e7 20 63 75 72 72 63 6f 6c 25 3d 31 36 20 63 75 |. currcol%=16 cu|
00000170 72 72 63 6f 6c 25 3d 31 0d 00 be 13 20 20 20 20 |rrcol%=1.... |
00000180 43 25 3d 63 75 72 72 63 6f 6c 25 0d 00 c8 0c 20 |C%=currcol%.... |
00000190 20 20 20 44 25 3d 30 0d 00 d2 1a 20 20 20 20 f2 | D%=0.... .|
000001a0 70 6f 6c 6c 28 41 25 2c 42 25 2c 43 25 2c 44 25 |poll(A%,B%,C%,D%|
000001b0 29 0d 00 dc 0a 20 20 ed 20 6e 25 0d 00 e6 06 20 |).... . n%.... |
000001c0 20 0d 00 f0 0f 20 20 f2 73 68 75 74 64 6f 77 6e | .... .shutdown|
000001d0 0d 00 fa 04 0d 01 04 05 e0 0d 01 0e 04 0d 01 18 |................|
000001e0 17 dd f2 70 6f 6c 6c 28 41 25 2c 42 25 2c 43 25 |...poll(A%,B%,C%|
000001f0 2c 44 25 29 0d 01 22 12 20 20 e6 20 30 2c 43 25 |,D%)..". . 0,C%|
00000200 20 c8 9c 20 44 25 0d 01 2c 1b 20 20 c8 8f 20 c8 | .. D%..,. .. .|
00000210 90 20 41 25 2c 20 42 25 2c 20 72 61 64 69 75 73 |. A%, B%, radius|
00000220 25 0d 01 36 0b 20 20 e6 20 30 2c 30 0d 01 40 25 |%..6. . 0,0..@%|
00000230 20 20 c8 8f 20 c8 90 20 6d 79 78 6f 72 64 25 2c | .. .. myxord%,|
00000240 20 6d 79 79 6f 72 64 25 2c 20 72 61 64 69 75 73 | myyord%, radius|
00000250 25 0d 01 4a 12 20 20 6d 79 78 6f 72 64 25 20 3d |%..J. myxord% =|
00000260 20 41 25 0d 01 54 12 20 20 6d 79 79 6f 72 64 25 | A%..T. myyord%|
00000270 20 3d 20 42 25 0d 01 5e 05 e1 0d 01 68 04 0d 01 | = B%..^....h...|
00000280 72 04 0d 01 7c 1a dd f2 69 6e 69 74 28 41 25 2c |r...|...init(A%,|
00000290 42 25 2c 43 25 2c 44 25 2c 45 25 29 0d 01 86 05 |B%,C%,D%,E%)....|
000002a0 e1 0d 01 9a 04 0d 01 a4 0e dd f2 73 68 75 74 64 |...........shutd|
000002b0 6f 77 6e 0d 01 ae 05 e1 0d 01 b8 04 0d ff |own...........|
000002be 
.