home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd602 / 20x20.amos / 20x20.amosSourceCode
AMOS Source Code  |  1993-02-25  |  383b  |  19 lines
  1. 'steve bye sept 1992 ,don't ask me why!
  2. '
  3. Dim GRID(20,20)
  4. Rem 20X20 grid in hires
  5. Screen Open 0,640,200,16,Hires : Flash Off 
  6. Reserve Zone 400
  7. Curs Off : Cls 0 : Pen 6 : Paper 0
  8. Ink 11 : A=1
  9. For X=100 To 404 Step 16
  10.    For Y=30 To 182 Step 8
  11.       Box X,Y To X+16,Y+8
  12.       Set Zone A,X,Y To X+16,Y+8 : Inc A
  13.    Next 
  14. Next 
  15. Do 
  16. MZ=Mouse Zone
  17. Locate 0,0 : Print MZ;"  "
  18. Loop 
  19. Wait Key