Home » Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Drawer

Graphics/Drawer

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 » Programs_B.ADF
Filename: Graphics/Drawer
Read OK:
File size: 047B bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10 X=0:X2=0
   20 MODE 2
   30 VDU 23,1,0;0;0;0
   40 VDU 23,224,8,28,62,127,62,28,8,0
   50 READ Y,Y2
   60 IF Y=-1 THEN RESTORE 130:GOTO 50
   70 COLOUR 2
   80 PRINTTAB(Y,Y2);CHR$(224)
   90 COLOUR 4
  100 PRINTTAB(X,X2);CHR$(224)
  102 PRINTTAB(0,1);" ";TAB(0,0);" "
  105 N=N+1
  110 FOR A=1 TO 50:NEXT
  115 X=Y:X2=Y2
  120 GOTO 50
  130 DATA 10,10,10,9,10,8,10,7,10,6,10,5,10,5,10,6,10,7,10,8,10,9,10,10
  140 DATA 10,9,10,8,10,9,10,10,10,9,10,10,10,10,9,9,8,8,7,7,6,6,5,5,5,5
  150 DATA 6,6,7,7,8,8,9,9,10,10,9,9,8,8,9,9,10,10,9,9,10,10,10,10,10,10
  160 DATA 11,9,12,8,13,7,14,6,15,5,15,5,14,6,13,7,12,8,11,9,10,10,11,9
  170 DATA 12,8,11,9,10,10,10,10,10,9,10,8,10,7,10,6,10,5,10,4,10,3,10,2,10,1,10,0
  180 DATA 10,0,10,1,10,2,10,3,10,4,10,5,10,6,10,7,10,8,10,9,10,10,10,9,10,8
  190 DATA 10,7,10,8,10,9,10,10,10,9,10,8,10,9,10,10,10,9,10,10
  200 DATA 11,10,12,10,13,10,14,10,15,10,16,10,17,10,18,10,18,11,18,12,18,11,18,10,18
  210 DATA 10,17,10,16,10,15,10,14,10,13,10,12,10,11,10,10,10
  220 DATA 9,10,8,10,7,10,6,10,5,10,4,10,3,10,2,10,1,10
  230 DATA 1,11,1,12,1,13,1,12,1,13,2,13,3,13,4,13,5,13,6,13,7,13,8,13,9,13,10,13,10,12,10,11,10,12,10,13
  240 DATA 11,13,12,13,13,13,14,13,15,13,16,13,17,13,18,13,18,12,18,11,18,10,17,10
  250 DATA 16,10,15,10,14,10,13,10,12,10,11,10,10,10,-1,0


 X=0:X2=0
 � 2
 � 23,1,0;0;0;0
(# � 23,224,8,28,62,127,62,28,8,0
2 � Y,Y2
< � Y=-1 � � �tB@:� �Tr@
F � 2
P �Y,Y2);�(224)
Z � 4
d �X,X2);�(224)
f �0,1);" ";�0,0);" "
i
 N=N+1
n � A=1 � 50:�
s X=Y:X2=Y2
x � �Tr@
�D � 10,10,10,9,10,8,10,7,10,6,10,5,10,5,10,6,10,7,10,8,10,9,10,10
�D � 10,9,10,8,10,9,10,10,10,9,10,10,10,10,9,9,8,8,7,7,6,6,5,5,5,5
�D � 6,6,7,7,8,8,9,9,10,10,9,9,8,8,9,9,10,10,9,9,10,10,10,10,10,10
�C � 11,9,12,8,13,7,14,6,15,5,15,5,14,6,13,7,12,8,11,9,10,10,11,9
�N � 12,8,11,9,10,10,10,10,10,9,10,8,10,7,10,6,10,5,10,4,10,3,10,2,10,1,10,0
�H � 10,0,10,1,10,2,10,3,10,4,10,5,10,6,10,7,10,8,10,9,10,10,10,9,10,8
�; � 10,7,10,8,10,9,10,10,10,9,10,8,10,9,10,10,10,9,10,10
�Q � 11,10,12,10,13,10,14,10,15,10,16,10,17,10,18,10,18,11,18,12,18,11,18,10,18
�9 � 10,17,10,16,10,15,10,14,10,13,10,12,10,11,10,10,10
�3 � 9,10,8,10,7,10,6,10,5,10,4,10,3,10,2,10,1,10
�e � 1,11,1,12,1,13,1,12,1,13,2,13,3,13,4,13,5,13,6,13,7,13,8,13,9,13,10,13,10,12,10,11,10,12,10,13
�N � 11,13,12,13,13,13,14,13,15,13,16,13,17,13,18,13,18,12,18,11,18,10,17,10
�5 � 16,10,15,10,14,10,13,10,12,10,11,10,10,10,-1,0
�
00000000  0d 00 0a 0d 20 58 3d 30  3a 58 32 3d 30 0d 00 14  |.... X=0:X2=0...|
00000010  08 20 eb 20 32 0d 00 1e  13 20 ef 20 32 33 2c 31  |. . 2.... . 23,1|
00000020  2c 30 3b 30 3b 30 3b 30  0d 00 28 23 20 ef 20 32  |,0;0;0;0..(# . 2|
00000030  33 2c 32 32 34 2c 38 2c  32 38 2c 36 32 2c 31 32  |3,224,8,28,62,12|
00000040  37 2c 36 32 2c 32 38 2c  38 2c 30 0d 00 32 0b 20  |7,62,28,8,0..2. |
00000050  f3 20 59 2c 59 32 0d 00  3c 1b 20 e7 20 59 3d 2d  |. Y,Y2..<. . Y=-|
00000060  31 20 8c 20 f7 20 8d 74  42 40 3a e5 20 8d 54 72  |1 . . .tB@:. .Tr|
00000070  40 0d 00 46 08 20 fb 20  32 0d 00 50 13 20 f1 8a  |@..F. . 2..P. ..|
00000080  59 2c 59 32 29 3b bd 28  32 32 34 29 0d 00 5a 08  |Y,Y2);.(224)..Z.|
00000090  20 fb 20 34 0d 00 64 13  20 f1 8a 58 2c 58 32 29  | . 4..d. ..X,X2)|
000000a0  3b bd 28 32 32 34 29 0d  00 66 19 20 f1 8a 30 2c  |;.(224)..f. ..0,|
000000b0  31 29 3b 22 20 22 3b 8a  30 2c 30 29 3b 22 20 22  |1);" ";.0,0);" "|
000000c0  0d 00 69 0a 20 4e 3d 4e  2b 31 0d 00 6e 11 20 e3  |..i. N=N+1..n. .|
000000d0  20 41 3d 31 20 b8 20 35  30 3a ed 0d 00 73 0e 20  | A=1 . 50:...s. |
000000e0  58 3d 59 3a 58 32 3d 59  32 0d 00 78 0b 20 e5 20  |X=Y:X2=Y2..x. . |
000000f0  8d 54 72 40 0d 00 82 44  20 dc 20 31 30 2c 31 30  |.Tr@...D . 10,10|
00000100  2c 31 30 2c 39 2c 31 30  2c 38 2c 31 30 2c 37 2c  |,10,9,10,8,10,7,|
00000110  31 30 2c 36 2c 31 30 2c  35 2c 31 30 2c 35 2c 31  |10,6,10,5,10,5,1|
00000120  30 2c 36 2c 31 30 2c 37  2c 31 30 2c 38 2c 31 30  |0,6,10,7,10,8,10|
00000130  2c 39 2c 31 30 2c 31 30  0d 00 8c 44 20 dc 20 31  |,9,10,10...D . 1|
00000140  30 2c 39 2c 31 30 2c 38  2c 31 30 2c 39 2c 31 30  |0,9,10,8,10,9,10|
00000150  2c 31 30 2c 31 30 2c 39  2c 31 30 2c 31 30 2c 31  |,10,10,9,10,10,1|
00000160  30 2c 31 30 2c 39 2c 39  2c 38 2c 38 2c 37 2c 37  |0,10,9,9,8,8,7,7|
00000170  2c 36 2c 36 2c 35 2c 35  2c 35 2c 35 0d 00 96 44  |,6,6,5,5,5,5...D|
00000180  20 dc 20 36 2c 36 2c 37  2c 37 2c 38 2c 38 2c 39  | . 6,6,7,7,8,8,9|
00000190  2c 39 2c 31 30 2c 31 30  2c 39 2c 39 2c 38 2c 38  |,9,10,10,9,9,8,8|
000001a0  2c 39 2c 39 2c 31 30 2c  31 30 2c 39 2c 39 2c 31  |,9,9,10,10,9,9,1|
000001b0  30 2c 31 30 2c 31 30 2c  31 30 2c 31 30 2c 31 30  |0,10,10,10,10,10|
000001c0  0d 00 a0 43 20 dc 20 31  31 2c 39 2c 31 32 2c 38  |...C . 11,9,12,8|
000001d0  2c 31 33 2c 37 2c 31 34  2c 36 2c 31 35 2c 35 2c  |,13,7,14,6,15,5,|
000001e0  31 35 2c 35 2c 31 34 2c  36 2c 31 33 2c 37 2c 31  |15,5,14,6,13,7,1|
000001f0  32 2c 38 2c 31 31 2c 39  2c 31 30 2c 31 30 2c 31  |2,8,11,9,10,10,1|
00000200  31 2c 39 0d 00 aa 4e 20  dc 20 31 32 2c 38 2c 31  |1,9...N . 12,8,1|
00000210  31 2c 39 2c 31 30 2c 31  30 2c 31 30 2c 31 30 2c  |1,9,10,10,10,10,|
00000220  31 30 2c 39 2c 31 30 2c  38 2c 31 30 2c 37 2c 31  |10,9,10,8,10,7,1|
00000230  30 2c 36 2c 31 30 2c 35  2c 31 30 2c 34 2c 31 30  |0,6,10,5,10,4,10|
00000240  2c 33 2c 31 30 2c 32 2c  31 30 2c 31 2c 31 30 2c  |,3,10,2,10,1,10,|
00000250  30 0d 00 b4 48 20 dc 20  31 30 2c 30 2c 31 30 2c  |0...H . 10,0,10,|
00000260  31 2c 31 30 2c 32 2c 31  30 2c 33 2c 31 30 2c 34  |1,10,2,10,3,10,4|
00000270  2c 31 30 2c 35 2c 31 30  2c 36 2c 31 30 2c 37 2c  |,10,5,10,6,10,7,|
00000280  31 30 2c 38 2c 31 30 2c  39 2c 31 30 2c 31 30 2c  |10,8,10,9,10,10,|
00000290  31 30 2c 39 2c 31 30 2c  38 0d 00 be 3b 20 dc 20  |10,9,10,8...; . |
000002a0  31 30 2c 37 2c 31 30 2c  38 2c 31 30 2c 39 2c 31  |10,7,10,8,10,9,1|
000002b0  30 2c 31 30 2c 31 30 2c  39 2c 31 30 2c 38 2c 31  |0,10,10,9,10,8,1|
000002c0  30 2c 39 2c 31 30 2c 31  30 2c 31 30 2c 39 2c 31  |0,9,10,10,10,9,1|
000002d0  30 2c 31 30 0d 00 c8 51  20 dc 20 31 31 2c 31 30  |0,10...Q . 11,10|
000002e0  2c 31 32 2c 31 30 2c 31  33 2c 31 30 2c 31 34 2c  |,12,10,13,10,14,|
000002f0  31 30 2c 31 35 2c 31 30  2c 31 36 2c 31 30 2c 31  |10,15,10,16,10,1|
00000300  37 2c 31 30 2c 31 38 2c  31 30 2c 31 38 2c 31 31  |7,10,18,10,18,11|
00000310  2c 31 38 2c 31 32 2c 31  38 2c 31 31 2c 31 38 2c  |,18,12,18,11,18,|
00000320  31 30 2c 31 38 0d 00 d2  39 20 dc 20 31 30 2c 31  |10,18...9 . 10,1|
00000330  37 2c 31 30 2c 31 36 2c  31 30 2c 31 35 2c 31 30  |7,10,16,10,15,10|
00000340  2c 31 34 2c 31 30 2c 31  33 2c 31 30 2c 31 32 2c  |,14,10,13,10,12,|
00000350  31 30 2c 31 31 2c 31 30  2c 31 30 2c 31 30 0d 00  |10,11,10,10,10..|
00000360  dc 33 20 dc 20 39 2c 31  30 2c 38 2c 31 30 2c 37  |.3 . 9,10,8,10,7|
00000370  2c 31 30 2c 36 2c 31 30  2c 35 2c 31 30 2c 34 2c  |,10,6,10,5,10,4,|
00000380  31 30 2c 33 2c 31 30 2c  32 2c 31 30 2c 31 2c 31  |10,3,10,2,10,1,1|
00000390  30 0d 00 e6 65 20 dc 20  31 2c 31 31 2c 31 2c 31  |0...e . 1,11,1,1|
000003a0  32 2c 31 2c 31 33 2c 31  2c 31 32 2c 31 2c 31 33  |2,1,13,1,12,1,13|
000003b0  2c 32 2c 31 33 2c 33 2c  31 33 2c 34 2c 31 33 2c  |,2,13,3,13,4,13,|
000003c0  35 2c 31 33 2c 36 2c 31  33 2c 37 2c 31 33 2c 38  |5,13,6,13,7,13,8|
000003d0  2c 31 33 2c 39 2c 31 33  2c 31 30 2c 31 33 2c 31  |,13,9,13,10,13,1|
000003e0  30 2c 31 32 2c 31 30 2c  31 31 2c 31 30 2c 31 32  |0,12,10,11,10,12|
000003f0  2c 31 30 2c 31 33 0d 00  f0 4e 20 dc 20 31 31 2c  |,10,13...N . 11,|
00000400  31 33 2c 31 32 2c 31 33  2c 31 33 2c 31 33 2c 31  |13,12,13,13,13,1|
00000410  34 2c 31 33 2c 31 35 2c  31 33 2c 31 36 2c 31 33  |4,13,15,13,16,13|
00000420  2c 31 37 2c 31 33 2c 31  38 2c 31 33 2c 31 38 2c  |,17,13,18,13,18,|
00000430  31 32 2c 31 38 2c 31 31  2c 31 38 2c 31 30 2c 31  |12,18,11,18,10,1|
00000440  37 2c 31 30 0d 00 fa 35  20 dc 20 31 36 2c 31 30  |7,10...5 . 16,10|
00000450  2c 31 35 2c 31 30 2c 31  34 2c 31 30 2c 31 33 2c  |,15,10,14,10,13,|
00000460  31 30 2c 31 32 2c 31 30  2c 31 31 2c 31 30 2c 31  |10,12,10,11,10,1|
00000470  30 2c 31 30 2c 2d 31 2c  30 0d ff                 |0,10,-1,0..|
0000047b
Graphics/Drawer.m0
Graphics/Drawer.m1
Graphics/Drawer.m2
Graphics/Drawer.m4
Graphics/Drawer.m5