home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d013 / basicprogs.lha / rickstest.bas < prev    next >
Encoding:
BASIC Source File  |  1986-02-22  |  311 b   |  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.