10 REM <<<< 2 layer paralax back ground >>>>
100 LOCATE
110 LOCATE
114 REM <<<< upack screen >>>> 
115 RESERVE
120 REM <<<< set up the logo as screen$  >>>>
130 VARNAME
140 REM <<<< reserve all the screens     >>>>
150 FOR
160 REM <<<< start music playing >>>>
170 DREG
180 REM <<<< place the back tiles on    >>>> 
190 REM <<<< y is the y pos on the logical screen >>>>>
20 REM <<<< by steve jarrett (c)1991    >>>>
200 REM <<<< scr is the screen bank number  >>>>>
210 REM <<<< blockx is the back tile position in bank 15 >>>>> 
220 VARNAME
230 FOR
240 REM <<<< place back tiles on screen at pos x,y >>>>
250 SCREEN COPY
260 NEXT
270 IF
280 REM <<<< put logo on screen and copy to mbk >>>> 
290 SCREEN$
30 REM <<<< you can use this code but   >>>>
300 SCREEN COPY
310 REM <<<< exit if all screens are done >>>> 
320 IF
330 REM <<<< reset scr to number of 1st screen >>>>
340 VARNAME
350 REM <<<< main loop >>>>
360 REPEAT
370 LOGIC
380 INC
390 REM <<<< read suond chip volume channel 1 >>>> 
40 REM <<<< please greet me in your prg >>>>
400 POKE
410 GOSUB
415 REM <<<< if no joy left or rite then after 500 vbls go into auto mode until joy left or rite >>>>> 
420 IF
430 REM <<<< read joy left and move screens to left >>>> 
440 IF
450 REM <<<< reset screens >>>>
460 IF
470 REM <<<< read joy rite and move screens to rite >>>> 
480 IF
490 REM <<<< reset screens >>>>
50 REM <<<< usual start up stuff        >>>>
500 IF
510 REM <<<< screen swaps >>>> 
520 PHYSIC
530 REM <<<< show prossesor time if tab pressed >>>> 
540 IF
550 WAIT VBL
560 REM <<<< check tab key for press >>>>
570 IF
580 UNTIL
590 REM <<<< kill the music >>>> 
60 MODE
600 CALL
610 REM <<<< fade and exit >>>>
620 FADE
630 DEFAULT
640 REM <<<< LIGHT TO SOUND ROUTINE >>>> 
650 IF
660 IF
670 RETURN
680 REM <<<< change back colours >>>>
690 INC
70 LOGIC
700 IF
710 IF
720 IF
730 IF
740 IF
750 IF
760 IF
770 VARNAME
780 RETURN
80 REM <<<< print some text >>>>
90 LOCATE