home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STESTOS / STESTOS1.MSA / TUTORIAL.BAS / BLITTER.P2 / PARABLIT.BAS (.txt) < prev    next >
Atari STOS Basic  |  1995-01-19  |  2KB  |  87 lines
  1. 10 MODE
  2. 100 EXTENSION (Index #6) (Token 0xac)
  3. 199 VARNAME
  4. 20 RESERVE
  5. 200 REM *************** Set up *************
  6. 210 VARNAME
  7. 220 IF
  8. 221 VARNAME
  9. 230 VARNAME
  10. 240 IF
  11. 241 VARNAME
  12. 25 RESERVE
  13. 250 VARNAME
  14. 260 IF
  15. 261 VARNAME
  16. 30 CLS
  17. 300 REM ************ Do the Blit ****************
  18. 35 LOAD
  19. 4 REM ***********************************************
  20. 40 FOR
  21. 400 EXTENSION (Index #6) (Token 0xac)
  22. 410 IF
  23. 5 REM ****** PRESS MOUSE TO EXIT PROGRAM  ***********
  24. 50 PLOT
  25. 500 EXTENSION (Index #6) (Token 0x9a)
  26. 5000 EXTENSION (Index #6) (Token 0x86)
  27. 5010 EXTENSION (Index #6) (Token 0x8c)
  28. 5020 EXTENSION (Index #6) (Token 0x82)
  29. 5030 EXTENSION (Index #6) (Token 0x84)
  30. 5040 EXTENSION (Index #6) (Token 0x88)
  31. 5050 EXTENSION (Index #6) (Token 0x8a)
  32. 5060 EXTENSION (Index #6) (Token 0x94)
  33. 5070 EXTENSION (Index #6) (Token 0x96)
  34. 5080 EXTENSION (Index #6) (Token 0x8e)
  35. 5090 EXTENSION (Index #6) (Token 0x90)
  36. 5100 EXTENSION (Index #6) (Token 0x92)
  37. 5110 EXTENSION (Index #6) (Token 0x9c)
  38. 5120 EXTENSION (Index #6) (Token 0x98)
  39. 5130 EXTENSION (Index #6) (Token 0xa4)
  40. 5140 EXTENSION (Index #6) (Token 0x9e)
  41. 5150 EXTENSION (Index #6) (Token 0xa2)
  42. 5160 IF
  43. 5170 EXTENSION (Index #6) (Token 0x86)
  44. 5180 EXTENSION (Index #6) (Token 0x8c)
  45. 5190 EXTENSION (Index #6) (Token 0x82)
  46. 5200 EXTENSION (Index #6) (Token 0x84)
  47. 5210 EXTENSION (Index #6) (Token 0x88)
  48. 5220 EXTENSION (Index #6) (Token 0x8a)
  49. 5230 EXTENSION (Index #6) (Token 0x94)
  50. 5240 EXTENSION (Index #6) (Token 0x96)
  51. 5250 EXTENSION (Index #6) (Token 0x8e)
  52. 5260 EXTENSION (Index #6) (Token 0x90)
  53. 5270 EXTENSION (Index #6) (Token 0x92)
  54. 5280 EXTENSION (Index #6) (Token 0x9c)
  55. 5290 EXTENSION (Index #6) (Token 0x98)
  56. 5300 EXTENSION (Index #6) (Token 0xa4)
  57. 5310 EXTENSION (Index #6) (Token 0x9e)
  58. 5320 EXTENSION (Index #6) (Token 0xa2)
  59. 5330 IF
  60. 5340 EXTENSION (Index #6) (Token 0x86)
  61. 5350 EXTENSION (Index #6) (Token 0x8c)
  62. 5360 EXTENSION (Index #6) (Token 0x82)
  63. 5370 EXTENSION (Index #6) (Token 0x84)
  64. 5380 EXTENSION (Index #6) (Token 0x88)
  65. 5390 EXTENSION (Index #6) (Token 0x8a)
  66. 5400 EXTENSION (Index #6) (Token 0x94)
  67. 5410 EXTENSION (Index #6) (Token 0x96)
  68. 5420 EXTENSION (Index #6) (Token 0x8e)
  69. 5430 EXTENSION (Index #6) (Token 0x90)
  70. 5440 EXTENSION (Index #6) (Token 0x92)
  71. 5450 EXTENSION (Index #6) (Token 0x9c)
  72. 5460 EXTENSION (Index #6) (Token 0x98)
  73. 5470 EXTENSION (Index #6) (Token 0xa4)
  74. 5480 EXTENSION (Index #6) (Token 0x9e)
  75. 5490 EXTENSION (Index #6) (Token 0xa2)
  76. 5500 IF
  77. 5600 IF
  78. 6 REM ***********************************************
  79. 60 NEXT
  80. 6000 SCREEN SWAP
  81. 6010 WAIT VBL
  82. 6020 GOTO
  83. 70 SCREEN COPY
  84. 75 LOGIC
  85. 80 VARNAME
  86. 90 CLS
  87.