P/D/LINES

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_31.ADF » P/D/LINES

P/D/LINES

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_User_Group » EUG_31.ADF
Filename:	P/D/LINES
Read OK:	✔
File size:	00D4 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents

   10 REM A. FARMER
   20 REM RANDOM COLOURED LINES
   23MODE2
   25PRINTTAB(5,5)"EUG"
   30 REPEAT
   50 VDU 23,1,0;0;0
   60 count=0
   70 MOVE 0,0
   80 REPEAT
   90 count=count+1
  100 X=RND(1279)
  110 Y=RND(1023)
  120 GCOL 0,RND(7)
  130 DRAW X,Y
  140 UNTIL count>1000
  150 UNTIL FALSE


 � A. FARMER
 � RANDOM COLOURED LINES
�2
�5,5)"EUG"
 �
2 � 23,1,0;0;0
< count=0
F
 � 0,0
P �
Z count=count+1
d X=�(1279)
n Y=�(1023)
x
 � 0,�(7)
�
 � X,Y
� � count>1000
� � �
�

00000000  0d 00 0a 10 20 f4 20 41  2e 20 46 41 52 4d 45 52  |.... . A. FARMER|
00000010  0d 00 14 1c 20 f4 20 52  41 4e 44 4f 4d 20 43 4f  |.... . RANDOM CO|
00000020  4c 4f 55 52 45 44 20 4c  49 4e 45 53 0d 00 17 06  |LOURED LINES....|
00000030  eb 32 0d 00 19 0f f1 8a  35 2c 35 29 22 45 55 47  |.2......5,5)"EUG|
00000040  22 0d 00 1e 06 20 f5 0d  00 32 11 20 ef 20 32 33  |".... ...2. . 23|
00000050  2c 31 2c 30 3b 30 3b 30  0d 00 3c 0c 20 63 6f 75  |,1,0;0;0..<. cou|
00000060  6e 74 3d 30 0d 00 46 0a  20 ec 20 30 2c 30 0d 00  |nt=0..F. . 0,0..|
00000070  50 06 20 f5 0d 00 5a 12  20 63 6f 75 6e 74 3d 63  |P. ...Z. count=c|
00000080  6f 75 6e 74 2b 31 0d 00  64 0e 20 58 3d b3 28 31  |ount+1..d. X=.(1|
00000090  32 37 39 29 0d 00 6e 0e  20 59 3d b3 28 31 30 32  |279)..n. Y=.(102|
000000a0  33 29 0d 00 78 0d 20 e6  20 30 2c b3 28 37 29 0d  |3)..x. . 0,.(7).|
000000b0  00 82 0a 20 df 20 58 2c  59 0d 00 8c 11 20 fd 20  |... . X,Y.... . |
000000c0  63 6f 75 6e 74 3e 31 30  30 30 0d 00 96 08 20 fd  |count>1000.... .|
000000d0  20 a3 0d ff                                       | ...|
000000d4

P/D/LINES.m0

P/D/LINES.m1

P/D/LINES.m2

P/D/LINES.m4

P/D/LINES.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .