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