home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / rickstest.bas < prev    next >
BASIC Source File  |  1988-05-22  |  311b  |  16 lines
  1. 10    screen 1,4,0
  2. 11    pena 4
  3. 20    scnclr : goto 1000
  4. 100   ask mouse x%,y%,b%:? at (0,0);x%;y%;
  5. 101   if b%=0 then 100
  6. 102   RETURN
  7. 1000  gosub 100
  8. 1010  x1%=x%:y1%=y%
  9. 1020  gosub 100
  10. 1030  x2%=x%:y2%=y%
  11. 1050  box(y1%,x1%;y2%,x2%) ,1
  12. 1060  gosub 100
  13. 1070  scnclr
  14. 1080  goto 1000
  15. 2000  BOX(50,50;100,100) ,1
  16.