home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser11.arj / stoser11.msa / CUSTOM3.FLD / GEMALERT.BAS (.txt) < prev   
Atari STOS Basic  |  1987-04-22  |  5KB  |  47 lines
  1. 10 REM GEM Alert box demo
  2. 100 KEY
  3. 110 UNKNOWN OP: 0x3A
  4. 120 REM the program will run in any res BUT best in medium:                             you need to set colour 3 to not the same as colour 0 - or you won't be          able to see the box!!!
  5. 130 UNKNOWN OP: 0x3A
  6. 140 COLOUR
  7. 160 UNKNOWN OP: 0x3A
  8. 170 REM Print a short explanation
  9. 180 UNKNOWN OP: 0x3A
  10. 190 LOCATE
  11. 20 REM uses the GEM function FORM_ALERT to operate alerts
  12. 200 PRINT
  13. 210 PRINT
  14. 220 CLEAR KEY
  15. 230 UNKNOWN OP: 0x3A
  16. 240 REM the alert demo main start.                                                        A$ hold the ALERT definition, gosub 170  does the routine.
  17. 250 UNKNOWN OP: 0x3A
  18. 260 VARNAME
  19. 270 VARNAME
  20. 280 VARNAME
  21. 290 VARNAME
  22. 30 REM cannot use mouse and boxes though!
  23. 300 FOR
  24. 310 VARNAME
  25. 320 VARNAME
  26. 330 VARNAME
  27. 340 VARNAME
  28. 350 VARNAME
  29. 360 VARNAME
  30. 370 STOP
  31. 380 UNKNOWN OP: 0x3A
  32. 390 REM draw routine: STAD holds the ACTUAL string address so that GEM knows            where to find it. Put this address in AREG(0) and call the routine.             NOTE: the mouse is switched off first!
  33. 40 REM 
  34. 400 UNKNOWN OP: 0x3A
  35. 410 CLEAR KEY
  36. 420 RETURN
  37. 430 UNKNOWN OP: 0x3A
  38. 440 REM Exactly the same as line 170 except that the mouse is not turned off.
  39. 450 UNKNOWN OP: 0x3A
  40. 460 CLEAR KEY
  41. 470 RETURN
  42. 50 REM Auld Bastid 1993
  43. 60 REM 
  44. 70 UNKNOWN OP: 0x3A
  45. 80 REM Standard set up
  46. 90 UNKNOWN OP: 0x3A
  47.