home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG061.ARC / DRAWBOX.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  48 lines
  1. * DRAWBOX.CMD
  2. * COPYRIGHT (c) 1983 BY DAVID A. BASSKIN
  3. * FREE UNLIMITED USE GRANTED - NO RESALE OR
  4. * COMMERCIAL USE PERMITTED - SEE COPYRIGHT NOTE
  5. * IN TEXT FILE DBGRAF.DOC
  6. *
  7. SET INTENSITY OFF
  8. SET TALK OFF
  9. * SET THE SCREEN BOUNDARIES
  10. STORE 61440 TO UL,START
  11. STORE UL+51 TO UR
  12. STORE UL+(128*23) TO BL
  13. STORE BL+51 TO BR,BRV
  14. STORE UR+128 TO URV
  15. STORE UL+128 TO ULVSTORE BL-128 TO BLV
  16. ERASE
  17. * DRAW THE BOX
  18. * DRAW THE TOP LINE
  19. DO WHILE START<=UR
  20.  POKE START,24
  21.  STORE START+1 TO START
  22. ENDDO
  23. * DRAW THE RIGHT SIDE LINE
  24. DO WHILE URV<=BR
  25.  POKE URV,4
  26.  STORE URV+128 TO URV
  27. ENDDO
  28. * DRAW THE BOTTOM LINE
  29. DO WHILE BRV>=BL
  30.  POKE BRV,23
  31.  STORE BRV-1 TO BRV
  32. ENDDO
  33. * DRAW THE LEFT SIDE LINE
  34. DO WHILE BLV>=(UL+128)
  35.  POKE BLV,1
  36.  STORE BLV-128 TO BLV
  37. ENDDO
  38. * ONCE THE BOX IS DRAWN, IT CAN BE FILLED
  39. @  2, 2 SAY "TEST LINE NUMBER 1"
  40. @  4, 2 SAY "TEST LINE NUMBER 2"
  41. @  7,12 SAY "TEST LINE NUMBER 3"
  42. @ 10,12 SAY "TEST LINE NUMBER 4"
  43. @ 16, 6 SAY "FINAL TEST LINE"
  44. SET CONSOLE OFF
  45. WAIT
  46. SET CONSOLE ON
  47. RELEASE START,UL,UR,BL,BR,ULV,URV,BLV,BRV
  48. RETURN