home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / FADES.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  2KB  |  84 lines
  1. 1 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. 10 KEY
  3. 100 VARNAME
  4. 110 INC
  5. 120 NEXT
  6. 130 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  7. 140 REM fade in picture in bank 15
  8. 150 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  9. 160 VARNAME
  10. 170 FOR
  11. 180 SCREEN COPY
  12. 190 NEXT
  13. 2 REM NEEDS A PICTURE IN BANK
  14. 20 GET PALETTE
  15. 200 INC
  16. 210 IF
  17. 220 WAIT
  18. 230 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  19. 240 REM and fade out...............
  20. 250 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  21. 260 VARNAME
  22. 270 FOR
  23. 280 SCREEN COPY
  24. 290 NEXT
  25. 3 REM 14 AND 15...OKAY.EDDIE
  26. 30 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~
  27. 300 INC
  28. 310 IF
  29. 320 WAIT
  30. 330 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  31. 340 REM SECOND FADE OF THE DAY...
  32. 350 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  33. 360 KEY
  34. 370 MODE
  35. 380 CURS
  36. 390 HIDE
  37. 4 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~
  38. 40 REM a simple blind fade
  39. 400 SCREEN COPY
  40. 410 GET PALETTE
  41. 420 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  42. 430 REM vertical scroll fade thingy.
  43. 440 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  44. 450 VARNAME
  45. 460 REPEAT
  46. 470 FOR
  47. 480 SCREEN COPY
  48. 490 NEXT
  49. 50 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~
  50. 500 VARNAME
  51. 510 UNTIL
  52. 520 VARNAME
  53. 530 REPEAT
  54. 540 FOR
  55. 550 SCREEN COPY
  56. 560 NEXT
  57. 570 VARNAME
  58. 580 UNTIL
  59. 590 WAIT
  60. 60 DIM
  61. 600 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  62. 610 REM BOX SLIDE FADE, NUMBER THREE
  63. 620 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  64. 630 VARNAME
  65. 640 REPEAT
  66. 650 FOR
  67. 660 SCREEN COPY
  68. 670 NEXT
  69. 680 VARNAME
  70. 690 IF
  71. 70 VARNAME
  72. 700 UNTIL
  73. 710 WAIT
  74. 720 VARNAME
  75. 730 REPEAT
  76. 740 FOR
  77. 750 SCREEN COPY
  78. 760 NEXT
  79. 770 VARNAME
  80. 780 IF
  81. 790 UNTIL
  82. 80 SCREEN COPY
  83. 90 FOR
  84.