home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STESTOS / STESTOS1.MSA / TUTORIAL.BAS / BLITTER.P1 / HARDZOOM.BAS (.txt) < prev   
Atari STOS Basic  |  1995-01-11  |  4KB  |  53 lines
  1. 10 REM    ***************************
  2. 100 RESERVE
  3. 110 GET PALETTE
  4. 120 EXTENSION (Index #6) (Token 0xac)
  5. 130 VARNAME
  6. 140 IF
  7. 150 VARNAME
  8. 160 IF
  9. 170 VARNAME
  10. 180 EXTENSION (Index #6) (Token 0xac)
  11. 190 EXTENSION (Index #6) (Token 0xac)
  12. 20 REM    *    not very good Demo   *
  13. 200 EXTENSION (Index #6) (Token 0xac)
  14. 210 EXTENSION (Index #6) (Token 0xac)
  15. 220 EXTENSION (Index #6) (Token 0xac)
  16. 230 EXTENSION (Index #6) (Token 0xac)
  17. 240 EXTENSION (Index #6) (Token 0xac)
  18. 250 EXTENSION (Index #6) (Token 0xac)
  19. 260 EXTENSION (Index #6) (Token 0xac)
  20. 270 EXTENSION (Index #6) (Token 0xac)
  21. 280 EXTENSION (Index #6) (Token 0xac)
  22. 290 EXTENSION (Index #6) (Token 0xac)
  23. 30 REM    *  using a slow harware   *
  24. 300 EXTENSION (Index #6) (Token 0xac)
  25. 310 EXTENSION (Index #6) (Token 0xac)
  26. 320 EXTENSION (Index #6) (Token 0xac)
  27. 330 EXTENSION (Index #6) (Token 0xac)
  28. 340 EXTENSION (Index #6) (Token 0xac)
  29. 350 EXTENSION (Index #6) (Token 0xac)
  30. 360 EXTENSION (Index #6) (Token 0xac)
  31. 370 EXTENSION (Index #6) (Token 0xac)
  32. 380 EXTENSION (Index #6) (Token 0xac)
  33. 390 EXTENSION (Index #6) (Token 0xac)
  34. 40 REM    *  zoom effect  ...       *
  35. 400 EXTENSION (Index #6) (Token 0xac)
  36. 410 EXTENSION (Index #6) (Token 0xac)
  37. 420 EXTENSION (Index #6) (Token 0xac)
  38. 430 EXTENSION (Index #6) (Token 0xac)
  39. 440 EXTENSION (Index #6) (Token 0xac)
  40. 450 EXTENSION (Index #6) (Token 0xac)
  41. 460 EXTENSION (Index #6) (Token 0xac)
  42. 470 EXTENSION (Index #6) (Token 0xac)
  43. 480 EXTENSION (Index #6) (Token 0xac)
  44. 490 EXTENSION (Index #6) (Token 0xac)
  45. 50 REM    *      BLITTER EXT        *
  46. 500 IF
  47. 510 SCREEN SWAP
  48. 530 GOTO
  49. 60 REM    ***************************  Press fire  to exit or mouse button
  50. 70 MODE
  51. 80 LOGIC
  52. 90 FLASH
  53.