home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / misc / mouse.lbr / Z80.MZE / Z80.MSE
Encoding:
Text File  |  1988-07-12  |  2.5 KB  |  105 lines
  1.  
  2. ~ Z80.MSE
  3.  
  4. 4 s:     ~ Number of seconds to pause
  5.  
  6. 125 N:   ~ N = number of cycles in 1 second, where 1 cycle is
  7.          ~     the time it takes to execute w. 1- w: s. ^
  8.  
  9. #S,s.;   ~ Pause s seconds
  10.  
  11. 26 !'    ~ Clear the screen
  12.  
  13. "!Z80.MSE (2/2/85)!"
  14.  
  15. #S,s.;   ~ Pause s seconds
  16.  
  17. 26 !'    ~ Clear the screen
  18.  
  19. ~ The program draws Z80 Mouse .
  20.  
  21. 8 0 1- R: C:    ~ Establish offsets
  22.  
  23. 'Z G:      ~ Establish plotting graphic
  24. #Z;        ~ Draw Z
  25.  
  26. '8 G:      ~ New graphic
  27. #E;        ~ Draw 8
  28.  
  29. '0 G:      ~ New graphic
  30. #R;        ~ Draw 0
  31.  
  32. 'M G:      ~ New graphic
  33. #M;        ~ Draw Mouse
  34.  
  35. #P,03,10; " Z80  Mouse "
  36. #P,05,10; " (2/2/85) "
  37. #P,19,58; " L + L "
  38.  
  39. ~ End of main program
  40.  
  41. $Z ~ The letter Z's data
  42. #H,10,3,10; #H,11,9,2; #H,12,8,2; #H,13,7,2; #H,14,6,2;
  43. #H,15,5,2; #H,16,4,2; #H,17,3,2; #H,18,2,2; #H,19,1,21;
  44. @
  45.  
  46. $E ~ The number 8's data
  47. #H,18,19,2; #H,17,18,2; #Q,16,18; #H,15,18,2; #H,14,20,2;
  48. #H,13,19,2; #Q,12,19; #H,11,19,2; #H,10,21,5; #H,11,26,2;
  49. #Q,12,27; #H,13,25,2; #H,14,24,2; #H,15,26,2; #Q,16,27;
  50. #H,17,26,2; #H,18,25,2; #H,19,23,11;
  51. @
  52.  
  53. $R ~ The number 0's data
  54. #Q,19,34; #Q,18,34; #H,17,32,2; #H,16,31,2; #H,15,30,2;
  55. #Q,14,30; #H,13,30,2; #H,12,31,2; #H,11,32,2; #H,10,34,2;
  56. #H,11,36,2; #H,12,37,2; #H,13,38,2; #Q,14,39; #H,15,38,2;
  57. #H,16,37,2; #H,17,36,2; #Q,18,35; #H,19,34,13;
  58. @
  59.  
  60. $M ~ The Mouse !
  61. #Q,19,46; #H,18,46,4; #H,17,43,3; #K,14,42,3; #Q,13,43;
  62. #H,12,44,2; #H,11,46,2; #Q,12,48; #Q,10,48; #Q,9,49; #H,8,46,2;
  63. #Q,8,49; #H,7,44,2; #H,7,48,2; #H,6,43,2; #Q,6,50; #H,5,42,2;
  64. #H,4,42,2; #Q,3,44; #H,2,45,3; #H,3,48,3; #Q,2,51; #H,1,52,2;
  65. #K,2,54,2; #H,3,55,3; #H,2,58,3; #Q,3,61; #H,4,62,2; #H,5,62,2;
  66. #H,6,61,2; #H,6,55,2; #H,7,56,2; #H,7,60,2; #Q,8,55; #H,8,58,2;
  67. #Q,9,55; #Q,10,56; #H,11,55,2; #Q,12,54; #Q,12,58; #Q,13,59; #K,14,60,2;
  68. #Q,16,59; #H,17,57,3; #Q,17,62; #H,18,54,8; #H,19,50,4;
  69. @
  70.  
  71. $Q ~ Shorthand !
  72.  
  73. #P,1%,2%; G. !'
  74.  
  75. @
  76.  
  77. $P ~ Position cursor at row 1% R. +
  78.    ~                    col 2% C. +
  79.  
  80. 27 !' "="  1% R. 32 ++ !'
  81.            2% C. 32 ++ !'
  82.  
  83. @
  84.  
  85. $H ~ Draws a 3% unit horizontal line (from left to right) from 1%,2%
  86.  
  87. 2% c: ~ c holds column
  88. 3% w:
  89. (w. ^ #Q,1%,c.; w. 1- w: c. 1+ c:)
  90.  
  91. @
  92.  
  93. $K ~ Draws a 3% unit vertical line (from top down) from 1%,2%
  94.  
  95. 1% r: ~ r holds the row
  96. 3% w:
  97. (w. ^ #Q,r.,2%; w. 1- w: r. 1+ r:)
  98.  
  99. @
  100.  
  101. $S  ~ Pause 1% second(s)
  102. N. 1% * w: ( w. 1- w: w. ^ )
  103.  
  104. @
  105.