home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac6_disk / gemma / gemmaacc / window11.bas (.txt) < prev    next >
Atari STOS Basic  |  1997-06-20  |  6KB  |  70 lines
  1. 10 IF
  2. 100 VARNAME
  3. 110 VARNAME
  4. 120 EXTENSION (Index #25) (Token 0xbc)
  5. 130 VARNAME
  6. 140 VARNAME
  7. 150 VARNAME
  8. 160 VARNAME
  9. 170 EXTENSION (Index #25) (Token 0xbc)
  10. 180 EXTENSION (Index #25) (Token 0xb8)
  11. 190 DIM
  12. 20 IF
  13. 200 VARNAME
  14. 210 VARNAME
  15. 220 VARNAME
  16. 230 VARNAME
  17. 240 VARNAME
  18. 250 VARNAME
  19. 260 VARNAME
  20. 270 IF
  21. 280 IF
  22. 290 IF
  23. 3 EXTENSION (Index #25) (Token 0xd4)
  24. 30 DIM
  25. 300 IF
  26. 310 REM 
  27. 320 IF
  28. 330 IF
  29. 340 IF
  30. 350 IF
  31. 360 IF
  32. 370 IF
  33. 380 REM f TYPE=24 then DUMMY=frm_alert(1,"[1][ "+str$(MESS3)+str$(MESS4)+" ][ OK ]")
  34. 390 IF
  35. 40 VARNAME
  36. 400 GOTO
  37. 410 VARNAME
  38. 420 EXTENSION (Index #25) (Token 0xba)
  39. 430 EXTENSION (Index #25) (Token 0xc0)
  40. 440 CURS
  41. 450 END
  42. 460 IF
  43. 470 IF
  44. 480 IF
  45. 490 IF
  46. 5 CLS
  47. 50 VARNAME
  48. 500 IF
  49. 510 IF
  50. 520 IF
  51. 530 IF
  52. 540 IF
  53. 550 IF
  54. 560 IF
  55. 570 IF
  56. 580 IF
  57. 590 IF
  58. 60 INK
  59. 600 IF
  60. 610 IF
  61. 620 IF
  62. 630 IF
  63. 640 IF
  64. 650 IF
  65. 660 RETURN
  66. 7 VARNAME
  67. 70 EXTENSION (Index #25) (Token 0xa2)
  68. 80 VARNAME
  69. 90 VARNAME
  70.