Home » Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95 » !AWApr95/Goodies/Draw/!DrawBasic/Library/Logo/Example_1/DBasicFile

!AWApr95/Goodies/Draw/!DrawBasic/Library/Logo/Example_1/DBasicFile

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-04-Disc1.adf » Disk1Apr95
Filename: !AWApr95/Goodies/Draw/!DrawBasic/Library/Logo/Example_1/DBasicFile
Read OK:
File size: 0382 bytes
Load address: 0000
Exec address: 0000
File contents
   10ON ERROR ON ERROR OFF : CHAIN "Throwback:Error"
   20LIBRARY "DrawBasic:Utils"
   30HIMEM =FNFreeSlot
   40PROCBeginDrawing
   50REM >DrawBasic:Standard
   60REM --------------------------------
   70REM
   80REM This is the standard DrawBasic
   90REM 'library' file
  100REM
  110REM  LEN The LIBER ABACI Press, June 1994
  120REM
  130REM -------------------------------
  140 
  150REM The main library calls:-
  160REM ======================
  170
  180 
  190    LIBRARY "DrawBasic:Resources.Paths"
  200    LIBRARY "DrawBasic:Resources.Figures"
  210    LIBRARY "DrawBasic:Resources.Points"
  220    LIBRARY "DrawBasic:Resources.Attributes"
  230    LIBRARY "DrawBasic:Resources.Fonts"
  240    LIBRARY "DrawBasic:Resources.Transforms"
  250    LIBRARY "DrawBasic:Resources.Scales"
  260
  270REM the application libraries:
  280REM =========================
  290
  300    LIBRARY "DrawBasic:Resources.Calculus.Graphs"
  310    LIBRARY "DrawBasic:resources.Calculus.ODEs"
  320
  330
  340
  350PROCCentimetres
  360
  370
  380 circle=FNCircle(3,3,2)
  390PROCQuit
  400

#� � � � � : � "Throwback:Error"
ț "DrawBasic:Utils"
� =�FreeSlot
(�BeginDrawing
2� >DrawBasic:Standard
<&� --------------------------------
F�
P$� This is the standard DrawBasic
Z� 'library' file
d�
n)�  � The LIBER ABACI Press, June 1994
x�
�%� -------------------------------
� 
�� The main library calls:-
�� ======================
�
� 
�&    ț "DrawBasic:Resources.Paths"
�(    ț "DrawBasic:Resources.Figures"
�'    ț "DrawBasic:Resources.Points"
�+    ț "DrawBasic:Resources.Attributes"
�&    ț "DrawBasic:Resources.Fonts"
�+    ț "DrawBasic:Resources.Transforms"
�'    ț "DrawBasic:Resources.Scales"

 � the application libraries:
� =========================
"
,0    ț "DrawBasic:Resources.Calculus.Graphs"
6.    ț "DrawBasic:resources.Calculus.ODEs"
@
J
T
^�Centimetres
h
r
| circle=�Circle(3,3,2)
�	�Quit
�
�
00000000  0d 00 0a 23 ee 20 85 20  ee 20 85 20 87 20 3a 20  |...#. . . . . : |
00000010  d7 20 22 54 68 72 6f 77  62 61 63 6b 3a 45 72 72  |. "Throwback:Err|
00000020  6f 72 22 0d 00 14 18 c8  9b 20 22 44 72 61 77 42  |or"...... "DrawB|
00000030  61 73 69 63 3a 55 74 69  6c 73 22 0d 00 1e 10 d3  |asic:Utils".....|
00000040  20 3d a4 46 72 65 65 53  6c 6f 74 0d 00 28 11 f2  | =.FreeSlot..(..|
00000050  42 65 67 69 6e 44 72 61  77 69 6e 67 0d 00 32 19  |BeginDrawing..2.|
00000060  f4 20 3e 44 72 61 77 42  61 73 69 63 3a 53 74 61  |. >DrawBasic:Sta|
00000070  6e 64 61 72 64 0d 00 3c  26 f4 20 2d 2d 2d 2d 2d  |ndard..<&. -----|
00000080  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000090  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 46 05 f4  |-----------..F..|
000000a0  0d 00 50 24 f4 20 54 68  69 73 20 69 73 20 74 68  |..P$. This is th|
000000b0  65 20 73 74 61 6e 64 61  72 64 20 44 72 61 77 42  |e standard DrawB|
000000c0  61 73 69 63 0d 00 5a 14  f4 20 27 6c 69 62 72 61  |asic..Z.. 'libra|
000000d0  72 79 27 20 66 69 6c 65  0d 00 64 05 f4 0d 00 6e  |ry' file..d....n|
000000e0  29 f4 20 20 a9 20 54 68  65 20 4c 49 42 45 52 20  |).  . The LIBER |
000000f0  41 42 41 43 49 20 50 72  65 73 73 2c 20 4a 75 6e  |ABACI Press, Jun|
00000100  65 20 31 39 39 34 0d 00  78 05 f4 0d 00 82 25 f4  |e 1994..x.....%.|
00000110  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000120  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000130  0d 00 8c 05 20 0d 00 96  1e f4 20 54 68 65 20 6d  |.... ..... The m|
00000140  61 69 6e 20 6c 69 62 72  61 72 79 20 63 61 6c 6c  |ain library call|
00000150  73 3a 2d 0d 00 a0 1c f4  20 3d 3d 3d 3d 3d 3d 3d  |s:-..... =======|
00000160  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00000170  00 aa 04 0d 00 b4 05 20  0d 00 be 26 20 20 20 20  |....... ...&    |
00000180  c8 9b 20 22 44 72 61 77  42 61 73 69 63 3a 52 65  |.. "DrawBasic:Re|
00000190  73 6f 75 72 63 65 73 2e  50 61 74 68 73 22 0d 00  |sources.Paths"..|
000001a0  c8 28 20 20 20 20 c8 9b  20 22 44 72 61 77 42 61  |.(    .. "DrawBa|
000001b0  73 69 63 3a 52 65 73 6f  75 72 63 65 73 2e 46 69  |sic:Resources.Fi|
000001c0  67 75 72 65 73 22 0d 00  d2 27 20 20 20 20 c8 9b  |gures"...'    ..|
000001d0  20 22 44 72 61 77 42 61  73 69 63 3a 52 65 73 6f  | "DrawBasic:Reso|
000001e0  75 72 63 65 73 2e 50 6f  69 6e 74 73 22 0d 00 dc  |urces.Points"...|
000001f0  2b 20 20 20 20 c8 9b 20  22 44 72 61 77 42 61 73  |+    .. "DrawBas|
00000200  69 63 3a 52 65 73 6f 75  72 63 65 73 2e 41 74 74  |ic:Resources.Att|
00000210  72 69 62 75 74 65 73 22  0d 00 e6 26 20 20 20 20  |ributes"...&    |
00000220  c8 9b 20 22 44 72 61 77  42 61 73 69 63 3a 52 65  |.. "DrawBasic:Re|
00000230  73 6f 75 72 63 65 73 2e  46 6f 6e 74 73 22 0d 00  |sources.Fonts"..|
00000240  f0 2b 20 20 20 20 c8 9b  20 22 44 72 61 77 42 61  |.+    .. "DrawBa|
00000250  73 69 63 3a 52 65 73 6f  75 72 63 65 73 2e 54 72  |sic:Resources.Tr|
00000260  61 6e 73 66 6f 72 6d 73  22 0d 00 fa 27 20 20 20  |ansforms"...'   |
00000270  20 c8 9b 20 22 44 72 61  77 42 61 73 69 63 3a 52  | .. "DrawBasic:R|
00000280  65 73 6f 75 72 63 65 73  2e 53 63 61 6c 65 73 22  |esources.Scales"|
00000290  0d 01 04 04 0d 01 0e 20  f4 20 74 68 65 20 61 70  |....... . the ap|
000002a0  70 6c 69 63 61 74 69 6f  6e 20 6c 69 62 72 61 72  |plication librar|
000002b0  69 65 73 3a 0d 01 18 1f  f4 20 3d 3d 3d 3d 3d 3d  |ies:..... ======|
000002c0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000002d0  3d 3d 3d 0d 01 22 04 0d  01 2c 30 20 20 20 20 c8  |===.."...,0    .|
000002e0  9b 20 22 44 72 61 77 42  61 73 69 63 3a 52 65 73  |. "DrawBasic:Res|
000002f0  6f 75 72 63 65 73 2e 43  61 6c 63 75 6c 75 73 2e  |ources.Calculus.|
00000300  47 72 61 70 68 73 22 0d  01 36 2e 20 20 20 20 c8  |Graphs"..6.    .|
00000310  9b 20 22 44 72 61 77 42  61 73 69 63 3a 72 65 73  |. "DrawBasic:res|
00000320  6f 75 72 63 65 73 2e 43  61 6c 63 75 6c 75 73 2e  |ources.Calculus.|
00000330  4f 44 45 73 22 0d 01 40  04 0d 01 4a 04 0d 01 54  |ODEs"..@...J...T|
00000340  04 0d 01 5e 10 f2 43 65  6e 74 69 6d 65 74 72 65  |...^..Centimetre|
00000350  73 0d 01 68 04 0d 01 72  04 0d 01 7c 1a 20 63 69  |s..h...r...|. ci|
00000360  72 63 6c 65 3d a4 43 69  72 63 6c 65 28 33 2c 33  |rcle=.Circle(3,3|
00000370  2c 32 29 0d 01 86 09 f2  51 75 69 74 0d 01 90 04  |,2).....Quit....|
00000380  0d ff                                             |..|
00000382