home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE06.MSA / GIVEAWAY / SCREEN3.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  3KB  |  106 lines
  1. 1 REM  Program .....: SCREEN3
  2. 10 MODE
  3. 100 REM Place T$ on three screens
  4. 1000 VARNAME
  5. 1010 GOSUB
  6. 1020 RETURN
  7. 110 VARNAME
  8. 120 FOR
  9. 130 LOGIC
  10. 140 VARNAME
  11. 150 VARNAME
  12. 160 VARNAME
  13. 170 VARNAME
  14. 180 LOCATE
  15. 190 PRINT
  16. 1999 REM -- Move LEFT
  17. 2 REM  Author ......: Martin Cubitt
  18. 20 RESERVE
  19. 200 INC
  20. 2000 VARNAME
  21. 2010 GOSUB
  22. 2020 RETURN
  23. 210 VARNAME
  24. 220 VARNAME
  25. 230 IF
  26. 240 VARNAME
  27. 250 VARNAME
  28. 260 LOCATE
  29. 270 PRINT
  30. 280 INC
  31. 290 NEXT
  32. 2999 REM -- Copy screen/s onto physical
  33. 3 REM  Date ........: 24/6/93
  34. 30 RESERVE
  35. 300 LOGIC
  36. 3000 HIDE
  37. 3010 VARNAME
  38. 3020 VARNAME
  39. 3030 IF
  40. 3040 SCREEN COPY
  41. 3050 GOTO
  42. 3060 SCREEN COPY
  43. 3070 SCREEN COPY
  44. 3080 SCREEN COPY
  45. 3090 WAIT VBL
  46. 310 VARNAME
  47. 3100 SHOW
  48. 3110 RETURN
  49. 320 REM Here we go...
  50. 330 REM Set initial position (left most area!)
  51. 340 VARNAME
  52. 350 GOSUB
  53. 351 REM change mouse 4 :rem Your 1st sprite will be used!
  54. 360 SHOW
  55. 370 VARNAME
  56. 380 REPEAT
  57. 390 UNKNOWN OP: 0x3A
  58. 3999 REM -- Check under mouse
  59. 4 REM  Description .: Example of using mouse to move between three screens
  60. 40 RESERVE
  61. 400 UNKNOWN OP: 0x3A
  62. 4000 VARNAME
  63. 4010 VARNAME
  64. 4020 FOR
  65. 4030 IF
  66. 4040 VARNAME
  67. 410 UNKNOWN OP: 0x3A
  68. 4100 NEXT
  69. 4110 IF
  70. 4120 VARNAME
  71. 4130 BELL
  72. 4140 REPEAT
  73. 4150 UNTIL
  74. 420 UNKNOWN OP: 0x3A
  75. 430 UNKNOWN OP: 0x3A
  76. 440 UNKNOWN OP: 0x3A
  77. 4400 RETURN
  78. 450 UNKNOWN OP: 0x3A
  79. 460 UNKNOWN OP: 0x3A
  80. 470 UNTIL
  81. 480 CLW
  82. 490 IF
  83. 5 REM 
  84. 50 CLS
  85. 500 PRINT
  86. 510 GOTO
  87. 520 IF
  88. 530 PRINT
  89. 540 PRINT
  90. 550 GOTO
  91. 560 PRINT
  92. 570 PRINT
  93. 580 CURS
  94. 590 REPEAT
  95. 6 REM Replace SCREEN COPY with faster MISTY extension commands if you have them
  96. 60 CLS
  97. 600 UNTIL
  98. 610 END
  99. 7 REM 
  100. 70 CLS
  101. 8 REM 
  102. 80 DIM
  103. 9 REM 
  104. 90 VARNAME
  105. 999 REM --- Move RIGHT
  106.