Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/DrawBasic/Style/Example_5

!AWFeb95/Goodies/DrawBasic/Style/Example_5

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 » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95
Filename: !AWFeb95/Goodies/DrawBasic/Style/Example_5
Read OK:
File size: 0062 bytes
Load address: 0000
Exec address: 0000
File contents
REM Draws random circles

FOR i=1 TO 10
 �Fill(RND)
 �Circle(RND(15),RND(15),RND(3))
 NEXT
 
�Quit
00000000  52 45 4d 20 44 72 61 77  73 20 72 61 6e 64 6f 6d  |REM Draws random|
00000010  20 63 69 72 63 6c 65 73  0a 0a 46 4f 52 20 69 3d  | circles..FOR i=|
00000020  31 20 54 4f 20 31 30 0a  20 a0 46 69 6c 6c 28 52  |1 TO 10. .Fill(R|
00000030  4e 44 29 0a 20 a0 43 69  72 63 6c 65 28 52 4e 44  |ND). .Circle(RND|
00000040  28 31 35 29 2c 52 4e 44  28 31 35 29 2c 52 4e 44  |(15),RND(15),RND|
00000050  28 33 29 29 0a 20 4e 45  58 54 0a 20 0a a0 51 75  |(3)). NEXT. ..Qu|
00000060  69 74                                             |it|
00000062