home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / demos / 139 / box.ap < prev    next >
Encoding:
Text File  |  1988-03-03  |  506 b   |  32 lines
  1. |
  2. | Sample AutoPilot script to demonstrate simple screen graphics (monochrome)
  3. |___________________________________________________________________________
  4.  
  5. @box | draws a box at locations set by variables: ypos xpos
  6.     screen=`getl 1102
  7.     screen=screen + xpos + (80 * ypos)
  8.     a=0
  9. _again
  10.     `storew 65535 screen
  11.      a = a + 1
  12.     screen=screen+80
  13.     IF a<16
  14.         goto again
  15.     ENDIF
  16. @endsub
  17.  
  18.  
  19. xpos=10
  20. ypos=80
  21. box
  22.  
  23. xpos=32
  24. ypos=192
  25. box
  26.  
  27. xpos=56
  28. ypos=356
  29. box
  30.  
  31. QUIT
  32.