;
;       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