Home » Archimedes archive » Archimedes World » AW-1995-01-Disc1.adf » Disk1Jan95 » !AWJan95/Goodies/DrawBasic/!DrawBasic/Library/Examples/Chapter/Ex_7_12

!AWJan95/Goodies/DrawBasic/!DrawBasic/Library/Examples/Chapter/Ex_7_12

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-01-Disc1.adf » Disk1Jan95
Filename: !AWJan95/Goodies/DrawBasic/!DrawBasic/Library/Examples/Chapter/Ex_7_12
Read OK: ✔
File size: 0069 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
�Origin(5,5)
 f=�Text("This is a message",1,0)
 FOR i%=1 TO 20
   f=�Rotate(f,0,0,2*PI/20)
   NEXT
�Quit

00000000  a0 4f 72 69 67 69 6e 28  35 2c 35 29 0a 20 66 3d  |.Origin(5,5). f=|
00000010  bb 54 65 78 74 28 22 54  68 69 73 20 69 73 20 61  |.Text("This is a|
00000020  20 6d 65 73 73 61 67 65  22 2c 31 2c 30 29 0a 20  | message",1,0). |
00000030  46 4f 52 20 69 25 3d 31  20 54 4f 20 32 30 0a 20  |FOR i%=1 TO 20. |
00000040  20 20 66 3d bb 52 6f 74  61 74 65 28 66 2c 30 2c  |  f=.Rotate(f,0,|
00000050  30 2c 32 2a 50 49 2f 32  30 29 0a 20 20 20 4e 45  |0,2*PI/20).   NE|
00000060  58 54 0a a0 51 75 69 74  0a                       |XT..Quit.|
00000069

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .