home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / text_zone.AMOS / text_zone.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  430 b   |  20 lines
  1. Rem***textzone example*****
  2. Reserve Zone 3
  3. Curs Off : Cls 0 : Paper 0 : Pen 6
  4. A$="QUIT" : B$="PLAY" : C$="HIGH SCORE TABLES"
  5. Locate 10,10 : Print Border$(A$,1)
  6. Locate 10,10
  7. Print Zone$(A$,1)
  8. Pen 4
  9. Locate 15,15 : Print Border$(B$,1)
  10. Locate 15,15 : Print Zone$(B$,2)
  11. Pen 3
  12. Locate 20,20 : Print Border$(C$,1)
  13. Locate 20,20 : Print Zone$(C$,3)
  14. Do 
  15. MZ=Mouse Zone
  16. If Mouse Key=1 and MZ>0
  17. Bell 
  18. Locate 0,23 : Cline : Print MZ
  19. End If 
  20. Loop