;
; Test of the DRAW.COM Interpreter
;
; This file demonstrates the features of DRAW.COM
;
C1 ;set color
T80,32,10 T80,32,8 ;draw 5 circles
T80,32,6 T80,32,4 T80,32,2
V380,32,10 ;draw a filled circle
S160,64 Demonstration of DRAW" ;print str in center
B1,1,479,127 ;move to upper left, box1
B3,3,476,125 ;move to upper left, box2
B5,5,473,123 ;move to upper left, box3
F1,140,40,285,75 ;box text and XOR
; Print user-defined numerals
M18,60 A9,0,0,0,0,28,20,20,20,28 ; 0
M26,60 A9,0,0,0,0,8,24,8,8,28 ; 1
M34,60 A9,0,0,0,0,8,20,4,8,28 ; 2
M42,60 A9,0,0,0,0,24,4,8,4,24 ; 3
M50,60 A9,0,0,0,0,20,20,28,4,4 ; 4
M58,60 A9,0,0,0,0,28,16,12,4,28 ; 5
M66,60 A9,0,0,0,0,8,16,24,20,8 ; 6
M74,60 A9,0,0,0,0,28,4,8,8,8 ; 7
M82,60 A9,0,0,0,0,28,20,8,20,28 ; 8
M89,60 A9,0,0,0,0,8,20,12,4,8 ; 9
; Print user-defined alphabet
M18,80 A9,0,0,0,0,60,6,62,70,59 ; a
M26,80 A9,0,0,112,48,62,51,51,51,110 ; b
M34,80 A9,0,0,0,0,62,99,96,99,30 ; c
M42,80 A9,0,0,7,6,62,102,102,102,59 ; d
M50,80 A9,0,0,0,0,62,99,127,96,30 ; e
M58,80 A9,0,0,14,27,24,60,24,24,60 ; f
M66,80 A12,0,0,0,0,59,102,102,102,62,6,70,60 ; g
M74,80 A9,0,0,112,48,54,59,51,51,115 ; h
M82,80 A9,0,0,24,0,56,24,24,24,60 ; i
M89,80 A12,0,0,0,6,0,6,6,6,6,102,102,60 ; j
M98,80 A9,0,0,112,48,51,51,60,51,115 ; k
M106,80 A9,0,0,56,24,24,24,24,24,60 ; l
M114,80 A9,0,0,0,0,99,127,127,107,99 ; m
M122,80 A9,0,0,0,0,126,99,99,99,99 ; n
M130,80 A9,0,0,0,0,62,99,99,99,62 ; o
M138,80 A11,0,0,0,0,110,51,51,51,62,48,48,120 ; p
M146,80 A11,0,0,0,0,59,102,102,102,62,6,6,15 ; q
M154,80 A9,0,0,0,0,110,51,51,48,120 ; r
M162,80 A9,0,0,0,0,63,96,62,3,126 ; s
M170,80 A9,0,0,8,24,62,24,24,26,12 ; t
M178,80 A9,0,0,0,0,108,108,108,108,59 ; u
M186,80 A9,0,0,0,0,108,108,108,60,24 ; v
M194,80 A9,0,0,0,0,99,107,127,127,54 ; w
M202,80 A9,0,0,0,0,99,54,28,54,99 ; x
M210,80 A11,0,0,0,0,99,99,99,99,63,3,35,30 ; y
M218,80 A9,0,0,0,0,126,76,24,50,126 ; z
S312,72 0123456789" ;print Starlet numbers
S312,96 abcdefghijklmnopqrstuvwxyz" ;print Starlet font
M18,100 A9,28,62,99,99,127,99,99,99,99 ; a - now uppercase
M26,100 A9,126,51,51,51,62,51,51,51,126 ; b
M34,100 A9,30,51,96,96,96,96,96,51,30 ; c
M42,100 A9,124,54,51,51,51,51,51,54,124 ; d
M50,100 A9,127,49,48,52,60,52,48,49,127 ; e
M58,100 A9,127,49,48,52,60,52,48,48,120 ; f
M66,100 A9,30,51,96,96,96,103,97,49,31 ; g
M74,100 A9,99,99,99,99,127,99,99,99,99 ; h
M82,100 A9,60,24,24,24,24,24,24,24,60 ; i
M90,100 A9,15,6,6,6,6,6,102,102,60 ; J
M98,100 A9,115,51,54,52,60,54,54,51,115 ; k
M106,100 A9,120,48,48,48,48,48,49,51,127 ; l
M114,100 A9,99,119,127,127,107,99,99,99,99 ; m
M122,100 A9,99,115,123,127,111,103,99,99,99 ; n
M130,100 A9,28,54,99,99,99,99,99,54,28 ; o
M138,100 A9,126,51,49,51,62,48,48,48,120 ; p
M146,100 A9,62,99,99,99,99,99,103,62,7 ; q
M154,100 A9,126,51,49,51,62,60,54,50,115 ; r
M162,100 A9,62,99,96,96,62,3,3,99,62 ; s
M170,100 A9,127,89,24,24,24,24,24,24,60 ; t
M178,100 A9,99,99,99,99,99,99,99,99,62 ; u
M186,100 A9,99,99,99,99,99,99,99,62,8 ; v
M194,100 A9,99,99,99,99,99,107,127,119,99; w
M202,100 A9,99,99,54,54,28,54,54,99,99 ; x
M210,100 A9,119,34,34,54,28,8,8,8,28 ; y
M218,100 A9,127,99,70,12,24,48,97,99,127 ; z
S312,112 ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;print Starlet font
$ ;done
