home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / starlet / genienec / demo.drw < prev    next >
Encoding:
Text File  |  1980-01-01  |  4.0 KB  |  84 lines
  1.  
  2. ;
  3. ;    Test of the DRAW.COM Interpreter
  4. ; 
  5. ;    This file demonstrates the features of DRAW.COM
  6. ;
  7. C1                     ;set color
  8. T80,32,10 T80,32,8             ;draw 5 circles
  9. T80,32,6 T80,32,4 T80,32,2        
  10. V380,32,10                ;draw a filled circle
  11. S160,64 Demonstration of DRAW"         ;print str in center
  12. B1,1,479,127                ;move to upper left, box1
  13. B3,3,476,125                ;move to upper left, box2
  14. B5,5,473,123                ;move to upper left, box3
  15. F1,140,40,285,75            ;box text and XOR
  16. ;    Print user-defined numerals
  17. M18,60 A9,0,0,0,0,28,20,20,20,28    ;  0
  18. M26,60 A9,0,0,0,0,8,24,8,8,28        ;  1
  19. M34,60 A9,0,0,0,0,8,20,4,8,28        ;  2
  20. M42,60 A9,0,0,0,0,24,4,8,4,24        ;  3
  21. M50,60 A9,0,0,0,0,20,20,28,4,4        ;  4
  22. M58,60 A9,0,0,0,0,28,16,12,4,28         ;  5
  23. M66,60 A9,0,0,0,0,8,16,24,20,8          ;  6
  24. M74,60 A9,0,0,0,0,28,4,8,8,8            ;  7
  25. M82,60 A9,0,0,0,0,28,20,8,20,28         ;  8
  26. M89,60 A9,0,0,0,0,8,20,12,4,8           ;  9
  27. ;    Print user-defined alphabet
  28. M18,80 A9,0,0,0,0,60,6,62,70,59        ;  a 
  29. M26,80 A9,0,0,112,48,62,51,51,51,110    ;  b 
  30. M34,80 A9,0,0,0,0,62,99,96,99,30    ;  c 
  31. M42,80 A9,0,0,7,6,62,102,102,102,59    ;  d 
  32. M50,80 A9,0,0,0,0,62,99,127,96,30    ;  e 
  33. M58,80 A9,0,0,14,27,24,60,24,24,60    ;  f 
  34. M66,80 A12,0,0,0,0,59,102,102,102,62,6,70,60    ;  g 
  35. M74,80 A9,0,0,112,48,54,59,51,51,115    ;  h 
  36. M82,80 A9,0,0,24,0,56,24,24,24,60    ;  i 
  37. M89,80 A12,0,0,0,6,0,6,6,6,6,102,102,60    ;  j 
  38. M98,80 A9,0,0,112,48,51,51,60,51,115    ;  k 
  39. M106,80 A9,0,0,56,24,24,24,24,24,60    ;  l 
  40. M114,80 A9,0,0,0,0,99,127,127,107,99    ;  m 
  41. M122,80 A9,0,0,0,0,126,99,99,99,99    ;  n 
  42. M130,80 A9,0,0,0,0,62,99,99,99,62    ;  o 
  43. M138,80 A11,0,0,0,0,110,51,51,51,62,48,48,120    ;  p 
  44. M146,80 A11,0,0,0,0,59,102,102,102,62,6,6,15    ;  q 
  45. M154,80 A9,0,0,0,0,110,51,51,48,120    ;  r 
  46. M162,80 A9,0,0,0,0,63,96,62,3,126    ;  s 
  47. M170,80 A9,0,0,8,24,62,24,24,26,12    ;  t 
  48. M178,80 A9,0,0,0,0,108,108,108,108,59    ;  u 
  49. M186,80 A9,0,0,0,0,108,108,108,60,24    ;  v 
  50. M194,80 A9,0,0,0,0,99,107,127,127,54    ;  w 
  51. M202,80 A9,0,0,0,0,99,54,28,54,99    ;  x 
  52. M210,80 A11,0,0,0,0,99,99,99,99,63,3,35,30    ;  y 
  53. M218,80 A9,0,0,0,0,126,76,24,50,126    ;  z 
  54. S312,72 0123456789"            ;print Starlet numbers
  55. S312,96 abcdefghijklmnopqrstuvwxyz"    ;print Starlet font
  56. M18,100 A9,28,62,99,99,127,99,99,99,99    ;  a - now uppercase
  57. M26,100 A9,126,51,51,51,62,51,51,51,126    ;  b 
  58. M34,100 A9,30,51,96,96,96,96,96,51,30    ;  c 
  59. M42,100 A9,124,54,51,51,51,51,51,54,124    ;  d 
  60. M50,100 A9,127,49,48,52,60,52,48,49,127    ;  e 
  61. M58,100 A9,127,49,48,52,60,52,48,48,120    ;  f 
  62. M66,100 A9,30,51,96,96,96,103,97,49,31    ;  g 
  63. M74,100 A9,99,99,99,99,127,99,99,99,99    ;  h 
  64. M82,100 A9,60,24,24,24,24,24,24,24,60    ;  i 
  65. M90,100 A9,15,6,6,6,6,6,102,102,60      ;  J 
  66. M98,100 A9,115,51,54,52,60,54,54,51,115    ;  k 
  67. M106,100 A9,120,48,48,48,48,48,49,51,127    ;  l 
  68. M114,100 A9,99,119,127,127,107,99,99,99,99    ;  m 
  69. M122,100 A9,99,115,123,127,111,103,99,99,99    ;  n 
  70. M130,100 A9,28,54,99,99,99,99,99,54,28    ;  o 
  71. M138,100 A9,126,51,49,51,62,48,48,48,120    ;  p 
  72. M146,100 A9,62,99,99,99,99,99,103,62,7    ;  q 
  73. M154,100 A9,126,51,49,51,62,60,54,50,115    ;  r 
  74. M162,100 A9,62,99,96,96,62,3,3,99,62    ;  s 
  75. M170,100 A9,127,89,24,24,24,24,24,24,60    ;  t 
  76. M178,100 A9,99,99,99,99,99,99,99,99,62    ;  u 
  77. M186,100 A9,99,99,99,99,99,99,99,62,8    ;  v 
  78. M194,100 A9,99,99,99,99,99,107,127,119,99;  w 
  79. M202,100 A9,99,99,54,54,28,54,54,99,99    ;  x 
  80. M210,100 A9,119,34,34,54,28,8,8,8,28    ;  y 
  81. M218,100 A9,127,99,70,12,24,48,97,99,127    ;  z 
  82. S312,112 ABCDEFGHIJKLMNOPQRSTUVWXYZ"    ;print Starlet font
  83. $                    ;done
  84.