home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / BEND.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  1KB  |  26 lines
  1. 1 REM A FULL SCREEN PICTURE BENDER BY ah-YEAH
  2. 100 DIM
  3. 110 FOR
  4. 120 VARNAME
  5. 121 REM THIS IS WHERE THE SINE TABLE IS CALCULATED USING YOUR WOBBLE FACTOR!
  6. 130 VARNAME
  7. 140 NEXT
  8. 141 LOGIC
  9. 142 DEF
  10. 143 VARNAME
  11. 144 VARNAME
  12. 150 FOR
  13. 170 SCREEN COPY
  14. 171 INC
  15. 180 SCREEN SWAP
  16. 2 REM THIS ASKS FOR A WOBBLE FACTOR, THEN BENDS THE SCREEN
  17. 200 NEXT
  18. 210 GOTO
  19. 3 REM HORIZONTALLY USING THIS FACTOR.
  20. 4 REM NEEDS A PICTURE IN BANK 15
  21. 5 REM BASED ON CODE FROM 'HORIZ.BAS' ALSO ON THIS DISC
  22. 6 REM HAVE FUN...........................
  23. 90 KEY
  24. 91 CLS
  25. 92 LOCATE
  26.