home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser19.arj / stoser19.msa / GIVEAWAY / RASTFADE.BAS (.txt) < prev    next >
Atari STOS Basic  |  1994-11-14  |  2KB  |  66 lines
  1. 1 REM 1 Colour Raster fade thingy
  2. 10 KEY
  3. 100 NEXT
  4. 11 REM 
  5. 110 DATA
  6. 111 REM 
  7. 112 REM skip over to the main routine
  8. 113 REM 
  9. 12 REM Set up a colour bank
  10. 120 GOTO
  11. 121 REM 
  12. 122 REM The actual fade rout
  13. 123 REM 
  14. 13 REM Clear the whole lot to 0 (black) then set the top half to $777 (white)
  15. 130 FOR
  16. 14 REM 
  17. 140 EXTENSION (Index #18) (Token 0x8e)
  18. 150 WAIT VBL
  19. 160 NEXT
  20. 170 WAIT KEY
  21. 180 FOR
  22. 190 EXTENSION (Index #18) (Token 0x8e)
  23. 2 REM Requires Son Of Missing Link Whatever that extension EX? is
  24. 20 RESERVE
  25. 200 WAIT VBL
  26. 210 NEXT
  27. 220 EXTENSION (Index #18) (Token 0x8e)
  28. 230 RETURN
  29. 231 REM 
  30. 232 REM Bung some text on the screen so we can fade it on
  31. 234 REM 
  32. 240 FADE
  33. 250 LOCATE
  34. 260 LOCATE
  35. 270 FOR
  36. 280 LOCATE
  37. 290 LOCATE
  38. 3 REM AB94
  39. 30 FILL
  40. 300 PRINT
  41. 31 REM 
  42. 310 PRINT
  43. 320 PRINT
  44. 330 PRINT
  45. 340 PRINT
  46. 350 CENTRE
  47. 360 CENTRE
  48. 370 CENTRE
  49. 380 CENTRE
  50. 390 CENTRE
  51. 4 REM 
  52. 40 FOR
  53. 400 GOSUB
  54. 410 REM 
  55. 420 REM All done
  56. 430 REM 
  57. 440 DEFAULT
  58. 50 DOKE
  59. 60 NEXT
  60. 61 REM 
  61. 62 REM Make the middle join a nice fade from white to black
  62. 63 REM 
  63. 70 FOR
  64. 80 READ
  65. 90 DOKE
  66.