home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser10.arj / stoser10.msa / GIVEAWAY / YESNO.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  1KB  |  30 lines
  1. 1 REM **********  YES/NO BY P.J.HICKMAN **********
  2. 10 KEY
  3. 20 VARNAME
  4. 30 VARNAME
  5. 40 GOSUB
  6. 4999 REM **********  window routine  **********
  7. 50 IF
  8. 5000 VARNAME
  9. 5010 CHANGE MOUSE
  10. 5020 LIMIT MOUSE
  11. 5030 WINDOPEN
  12. 5040 CENTRE
  13. 5050 UNKNOWN OP: 0x3A
  14. 5060 WINDOPEN
  15. 5070 WINDOPEN
  16. 5080 SET ZONE
  17. 5090 SET ZONE
  18. 5100 UNKNOWN OP: 0x3A
  19. 5110 VARNAME
  20. 5120 REPEAT
  21. 5130 VARNAME
  22. 5140 UNTIL
  23. 5150 UNKNOWN OP: 0x3A
  24. 5160 IF
  25. 5170 WINDEL
  26. 5180 RETURN
  27. 60 END
  28. 70 UNKNOWN OP: 0x3A
  29. 80 UNKNOWN OP: 0x3A
  30.