home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / LEDGERS / LEDG_05.MSA / SOURCE / STEVE_J / PARA.BAS (.txt) < prev   
Atari STOS Basic  |  1987-04-22  |  19KB  |  82 lines
  1. 10 REM <<<< 2 layer paralax back ground >>>>
  2. 100 LOCATE
  3. 110 LOCATE
  4. 114 REM <<<< upack screen >>>>
  5. 115 RESERVE
  6. 120 REM <<<< set up the logo as screen$  >>>>
  7. 130 VARNAME
  8. 140 REM <<<< reserve all the screens     >>>>
  9. 150 FOR
  10. 160 REM <<<< start music playing >>>>
  11. 170 DREG
  12. 180 REM <<<< place the back tiles on    >>>>
  13. 190 REM <<<< y is the y pos on the logical screen >>>>>
  14. 20 REM <<<< by steve jarrett (c)1991    >>>>
  15. 200 REM <<<< scr is the screen bank number  >>>>>
  16. 210 REM <<<< blockx is the back tile position in bank 15 >>>>>
  17. 220 VARNAME
  18. 230 FOR
  19. 240 REM <<<< place back tiles on screen at pos x,y >>>>
  20. 250 SCREEN COPY
  21. 260 NEXT
  22. 270 IF
  23. 280 REM <<<< put logo on screen and copy to mbk >>>>
  24. 290 SCREEN$
  25. 30 REM <<<< you can use this code but   >>>>
  26. 300 SCREEN COPY
  27. 310 REM <<<< exit if all screens are done >>>>
  28. 320 IF
  29. 330 REM <<<< reset scr to number of 1st screen >>>>
  30. 340 VARNAME
  31. 350 REM <<<< main loop >>>>
  32. 360 REPEAT
  33. 370 LOGIC
  34. 380 INC
  35. 390 REM <<<< read suond chip volume channel 1 >>>>
  36. 40 REM <<<< please greet me in your prg >>>>
  37. 400 POKE
  38. 410 GOSUB
  39. 415 REM <<<< if no joy left or rite then after 500 vbls go into auto mode until joy left or rite >>>>>
  40. 420 IF
  41. 430 REM <<<< read joy left and move screens to left >>>>
  42. 440 IF
  43. 450 REM <<<< reset screens >>>>
  44. 460 IF
  45. 470 REM <<<< read joy rite and move screens to rite >>>>
  46. 480 IF
  47. 490 REM <<<< reset screens >>>>
  48. 50 REM <<<< usual start up stuff        >>>>
  49. 500 IF
  50. 510 REM <<<< screen swaps >>>>
  51. 520 PHYSIC
  52. 530 REM <<<< show prossesor time if tab pressed >>>>
  53. 540 IF
  54. 550 WAIT VBL
  55. 560 REM <<<< check tab key for press >>>>
  56. 570 IF
  57. 580 UNTIL
  58. 590 REM <<<< kill the music >>>>
  59. 60 MODE
  60. 600 CALL
  61. 610 REM <<<< fade and exit >>>>
  62. 620 FADE
  63. 630 DEFAULT
  64. 640 REM <<<< LIGHT TO SOUND ROUTINE >>>>
  65. 650 IF
  66. 660 IF
  67. 670 RETURN
  68. 680 REM <<<< change back colours >>>>
  69. 690 INC
  70. 70 LOGIC
  71. 700 IF
  72. 710 IF
  73. 720 IF
  74. 730 IF
  75. 740 IF
  76. 750 IF
  77. 760 IF
  78. 770 VARNAME
  79. 780 RETURN
  80. 80 REM <<<< print some text >>>>
  81. 90 LOCATE
  82.