Home » Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Welcome/Graphic3

Welcome/Graphic3

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_backup.ADF
Filename: Welcome/Graphic3
Read OK:
File size: 011D bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
    5ONERRORGOTO110
   90MODE1:VDU5:FORC=1TO2:M%=400:REPEATVDU19,RND(3),RND(7);0;:GCOL3,RND(3):PROCD(600,500,512):M%=M%DIV2:UNTILM%<16:NEXT:A=INKEY200
  100DEFPROCD(X%,Y%,S%)IFS%<M%ENDPROCELSES%=S%DIV2:PROCD(X%+S%,Y%,S%):PROCD(X%-S%,Y%,S%):PROCD(X%,Y%-S%,S%):PROCD(X%,Y%+S%,S%):VDU29,X%;Y%;:MOVE0,S%:DRAWS%,0:DRAW0,-S%:DRAW-S%,0:DRAW0,S%:ENDPROC
  110MODE1:FORZ%=0TO4:VDU19,Z%,0;0;:NEXT:CHAIN"GRAPHIC5":END
��Dn@
ZY�1:�5:�C=1�2:M%=400:��19,�(3),�(7);0;:�3,�(3):�D(600,500,512):M%=M%�2:�M%<16:�:A=�200
d���D(X%,Y%,S%)�S%<M%�S%=S%�2:�D(X%+S%,Y%,S%):�D(X%-S%,Y%,S%):�D(X%,Y%-S%,S%):�D(X%,Y%+S%,S%):�29,X%;Y%;:�0,S%:�S%,0:�0,-S%:�-S%,0:�0,S%:�
n*�1:�Z%=0�4:�19,Z%,0;0;:�:�"GRAPHIC5":�
�
00000000  0d 00 05 0b ee 85 e5 8d  44 6e 40 0d 00 5a 59 eb  |........Dn@..ZY.|
00000010  31 3a ef 35 3a e3 43 3d  31 b8 32 3a 4d 25 3d 34  |1:.5:.C=1.2:M%=4|
00000020  30 30 3a f5 ef 31 39 2c  b3 28 33 29 2c b3 28 37  |00:..19,.(3),.(7|
00000030  29 3b 30 3b 3a e6 33 2c  b3 28 33 29 3a f2 44 28  |);0;:.3,.(3):.D(|
00000040  36 30 30 2c 35 30 30 2c  35 31 32 29 3a 4d 25 3d  |600,500,512):M%=|
00000050  4d 25 81 32 3a fd 4d 25  3c 31 36 3a ed 3a 41 3d  |M%.2:.M%<16:.:A=|
00000060  a6 32 30 30 0d 00 64 8d  dd f2 44 28 58 25 2c 59  |.200..d...D(X%,Y|
00000070  25 2c 53 25 29 e7 53 25  3c 4d 25 e1 8b 53 25 3d  |%,S%).S%<M%..S%=|
00000080  53 25 81 32 3a f2 44 28  58 25 2b 53 25 2c 59 25  |S%.2:.D(X%+S%,Y%|
00000090  2c 53 25 29 3a f2 44 28  58 25 2d 53 25 2c 59 25  |,S%):.D(X%-S%,Y%|
000000a0  2c 53 25 29 3a f2 44 28  58 25 2c 59 25 2d 53 25  |,S%):.D(X%,Y%-S%|
000000b0  2c 53 25 29 3a f2 44 28  58 25 2c 59 25 2b 53 25  |,S%):.D(X%,Y%+S%|
000000c0  2c 53 25 29 3a ef 32 39  2c 58 25 3b 59 25 3b 3a  |,S%):.29,X%;Y%;:|
000000d0  ec 30 2c 53 25 3a df 53  25 2c 30 3a df 30 2c 2d  |.0,S%:.S%,0:.0,-|
000000e0  53 25 3a df 2d 53 25 2c  30 3a df 30 2c 53 25 3a  |S%:.-S%,0:.0,S%:|
000000f0  e1 0d 00 6e 2a eb 31 3a  e3 5a 25 3d 30 b8 34 3a  |...n*.1:.Z%=0.4:|
00000100  ef 31 39 2c 5a 25 2c 30  3b 30 3b 3a ed 3a d7 22  |.19,Z%,0;0;:.:."|
00000110  47 52 41 50 48 49 43 35  22 3a e0 0d ff           |GRAPHIC5":...|
0000011d
Welcome/Graphic3.m0
Welcome/Graphic3.m1
Welcome/Graphic3.m2
Welcome/Graphic3.m4
Welcome/Graphic3.m5