Home » Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » WELCOME/Graphic5

WELCOME/Graphic5

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 » Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF
Filename: WELCOME/Graphic5
Read OK:
File size: 01AA bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
    5ONERRORGOTO465
  430MODE2:VDU23,1,0;0;0;0;29,640;520;:FORC=0TO3:CLS:FORL%=12TO500STEP20:GCOL0,RND(8)-1:X%=RND(L%):Y%=RND(X%):A%=RND(L%):C%=RND(A%):B%=RND(L%):D%=RND(B%):FORI=0TO1:GCOL0,RND(8)-1:X%=RND(L%):Y%=RND(X%):A%=RND(L%):C%=RND(A%):B%=RND(L%):D%=RND(B%):FORI=0TO1
  450MOVEX%,Y%:MOVEA%,C%:PLOT85,B%,D%:MOVE-X%,Y%:MOVE-A%,C%:PLOT85,-B%,D%:MOVEX%,-Y%:MOVEA%,-C%:PLOT85,B%,-D%:MOVE-X%,-Y%:MOVE-A%,-C%:PLOT85,-B%,-D%:T%=X%:X%=Y%:Y%=T%:T%=A%:A%=C%:C%=T%:T%=B%:B%=D%:D%=T%:NEXT,,:A=INKEY200:NEXT:MODE1:FORZ%=0TO4:VDU19,Z%,0;0;:NEXT
  465CHAIN"POLY":END
��dQA
���2:�23,1,0;0;0;0;29,640;520;:�C=0�3:�:�L%=12�500�20:�0,�(8)-1:X%=�(L%):Y%=�(X%):A%=�(L%):C%=�(A%):B%=�(L%):D%=�(B%):�I=0�1:�0,�(8)-1:X%=�(L%):Y%=�(X%):A%=�(L%):C%=�(A%):B%=�(L%):D%=�(B%):�I=0�1
���X%,Y%:�A%,C%:�85,B%,D%:�-X%,Y%:�-A%,C%:�85,-B%,D%:�X%,-Y%:�A%,-C%:�85,B%,-D%:�-X%,-Y%:�-A%,-C%:�85,-B%,-D%:T%=X%:X%=Y%:Y%=T%:T%=A%:A%=C%:C%=T%:T%=B%:B%=D%:D%=T%:�,,:A=�200:�:�1:�Z%=0�4:�19,Z%,0;0;:�
�
�"POLY":�
�
00000000  0d 00 05 0b ee 85 e5 8d  64 51 41 0d 01 ae c5 eb  |........dQA.....|
00000010  32 3a ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |2:.23,1,0;0;0;0;|
00000020  32 39 2c 36 34 30 3b 35  32 30 3b 3a e3 43 3d 30  |29,640;520;:.C=0|
00000030  b8 33 3a db 3a e3 4c 25  3d 31 32 b8 35 30 30 88  |.3:.:.L%=12.500.|
00000040  32 30 3a e6 30 2c b3 28  38 29 2d 31 3a 58 25 3d  |20:.0,.(8)-1:X%=|
00000050  b3 28 4c 25 29 3a 59 25  3d b3 28 58 25 29 3a 41  |.(L%):Y%=.(X%):A|
00000060  25 3d b3 28 4c 25 29 3a  43 25 3d b3 28 41 25 29  |%=.(L%):C%=.(A%)|
00000070  3a 42 25 3d b3 28 4c 25  29 3a 44 25 3d b3 28 42  |:B%=.(L%):D%=.(B|
00000080  25 29 3a e3 49 3d 30 b8  31 3a e6 30 2c b3 28 38  |%):.I=0.1:.0,.(8|
00000090  29 2d 31 3a 58 25 3d b3  28 4c 25 29 3a 59 25 3d  |)-1:X%=.(L%):Y%=|
000000a0  b3 28 58 25 29 3a 41 25  3d b3 28 4c 25 29 3a 43  |.(X%):A%=.(L%):C|
000000b0  25 3d b3 28 41 25 29 3a  42 25 3d b3 28 4c 25 29  |%=.(A%):B%=.(L%)|
000000c0  3a 44 25 3d b3 28 42 25  29 3a e3 49 3d 30 b8 31  |:D%=.(B%):.I=0.1|
000000d0  0d 01 c2 cb ec 58 25 2c  59 25 3a ec 41 25 2c 43  |.....X%,Y%:.A%,C|
000000e0  25 3a f0 38 35 2c 42 25  2c 44 25 3a ec 2d 58 25  |%:.85,B%,D%:.-X%|
000000f0  2c 59 25 3a ec 2d 41 25  2c 43 25 3a f0 38 35 2c  |,Y%:.-A%,C%:.85,|
00000100  2d 42 25 2c 44 25 3a ec  58 25 2c 2d 59 25 3a ec  |-B%,D%:.X%,-Y%:.|
00000110  41 25 2c 2d 43 25 3a f0  38 35 2c 42 25 2c 2d 44  |A%,-C%:.85,B%,-D|
00000120  25 3a ec 2d 58 25 2c 2d  59 25 3a ec 2d 41 25 2c  |%:.-X%,-Y%:.-A%,|
00000130  2d 43 25 3a f0 38 35 2c  2d 42 25 2c 2d 44 25 3a  |-C%:.85,-B%,-D%:|
00000140  54 25 3d 58 25 3a 58 25  3d 59 25 3a 59 25 3d 54  |T%=X%:X%=Y%:Y%=T|
00000150  25 3a 54 25 3d 41 25 3a  41 25 3d 43 25 3a 43 25  |%:T%=A%:A%=C%:C%|
00000160  3d 54 25 3a 54 25 3d 42  25 3a 42 25 3d 44 25 3a  |=T%:T%=B%:B%=D%:|
00000170  44 25 3d 54 25 3a ed 2c  2c 3a 41 3d a6 32 30 30  |D%=T%:.,,:A=.200|
00000180  3a ed 3a eb 31 3a e3 5a  25 3d 30 b8 34 3a ef 31  |:.:.1:.Z%=0.4:.1|
00000190  39 2c 5a 25 2c 30 3b 30  3b 3a ed 0d 01 d1 0d d7  |9,Z%,0;0;:......|
000001a0  22 50 4f 4c 59 22 3a e0  0d ff                    |"POLY":...|
000001aa
WELCOME/Graphic5.m0
WELCOME/Graphic5.m1
WELCOME/Graphic5.m2
WELCOME/Graphic5.m4
WELCOME/Graphic5.m5