home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / CYL.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  2KB  |  47 lines
  1. 1 REM THE COOL CARROTS CYLINDER SCROLLER SOURCE CODE
  2. 100 REM GIANT DEMO V3.13C
  3. 110 REM (not now!)
  4. 120 REM By The New Cool Carrot
  5. 130 REM Started 11/6/90
  6. 140 REM wot's wiv de rem's?
  7. 150 FOR
  8. 160 IF
  9. 170 REM Only needs d(30) : can be changed
  10. 180 REM Vars a to f clear; also MPSA, MPSB and MPSC
  11. 190 FADE
  12. 2 REM PUBLISHED BY BITS DISC MAGAZINE YEAH!!!!
  13. 200 REM THE SCROLL SEQUENCE
  14. 210 REM REQUIRES PACKED SCREEN IN BANK          TWO, NO DATA IN BANK FIVE.
  15. 220 REM (c) TCC 7/90 and 10/90.                 i.e. gimme a mention eddie!
  16. 230 MENU
  17. 240 MODE
  18. 250 REM CYLINDER for GIANT SEQ. V2.2
  19. 260 FOR
  20. 270 VARNAME
  21. 280 NEXT
  22. 290 REM CYLINDER MAIN PART
  23. 3 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  24. 300 MODE
  25. 310 VARNAME
  26. 320 FOR
  27. 330 LOGIC
  28. 340 FOR
  29. 350 VARNAME
  30. 360 REM Sets memory pointers for screen grabbing (gimme gimme)
  31. 370 IF
  32. 380 VARNAME
  33. 390 FOR
  34. 400 COPY
  35. 410 COPY
  36. 420 VARNAME
  37. 430 NEXT
  38. 440 NEXT
  39. 450 SCREEN SWAP
  40. 460 VARNAME
  41. 470 INC
  42. 480 FADE
  43. 490 BACK
  44. 500 REM Hope Ian likes it
  45. 510 REM (Why do I keep putting in bloody REM statements?)
  46. 520 REM Goodbye!     TCC
  47.