Santa

Source Code

    1 REM     ***********************    *Underlined characters*    *are entered in       *    *GRAPHICS mode.       *    ***********************"SANTA" from ZX Computing Jan 86 Typed by Wm. J. Tilley
   22 GO SUB 101
   25 LET H=0: DIM H$(10)
   30 LET Y=1: DIM K$(4): LET L=5: LET S=0
   40 BRIGHT 0: PAPER 0: BORDER 0: CLS : POKE 23658,8
   50 INK 6: PRINT AT NOT PI,2; BRIGHT 1;"SANTA'S CHRISTMAS NIGHTMARE!";TAB 2;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
   52 GO SUB 9200
   55 REM \::\:: DEFINE KEYS
   57 INK 6: PRINT AT NOT PI,2; BRIGHT 1;"SANTA'S CHRISTMAS NIGHTMARE!";TAB 2;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
   60 INK 5: PRINT AT 5,NOT PI;"WHICH KEYS WOULD LIKE ?"'''"LEFT:"''"RIGHT:"''"UP:"''"DOWN:"
   70 FOR F=SGN PI TO 4: PRINT AT F*2+6,10; FLASH 1;"?"
   80 LET R$=INKEY$: IF R$<>"" THEN GO TO 80
   90 LET R$=INKEY$: IF R$="" THEN GO TO 90
   95 BEEP .05,20: PRINT AT F*2+6,10;R$: LET K$(F)=R$: NEXT F
   97 FOR F=SGN PI TO 4: FOR G=SGN PI TO 4: IF F=G THEN NEXT G: NEXT F: GO TO 100
   98 IF K$(F)=K$(G) THEN CLS : GO TO 57
   99 NEXT G: NEXT F
  100 GO TO 900
  101 REM \::\:: DEFINE GRAPHICS
  103 RESTORE 100
  105 FOR G=144 TO 159: FOR F=0 TO 7: READ A: POKE USR CHR$ G+F,A: NEXT F: NEXT G
  110 DATA 28,a,8,62,8,28,20,a
  120 DATA 56,124,214,186,124,214,146,16,24,52,82,255,169,255,153,255,56,120,44,46,42,58,40,104,24,36,24,36,66,a,36,24
  130 DATA 18,63,254,252,124,62,127,118
  140 DATA 30,a,76,111,236,255,a,126,0,1,a,3,255,252,68,a
  150 DATA 1,3,7,15,31,63,127,255,128,192,224,240,248,252,254,255
  160 DATA 102,a,a,a,255,a,a,a
  170 DATA 0,a,64,96,224,255,a,126,28,62,127,a,a,73,42,28
  180 DATA 255,32,a,255,a,2,a,255
  190 DATA 60,66,129,a,a,a,66,60,a,126,255,a,a,a,126,60
  199 RETURN 
  200 FOR Z=SGN PI TO 40: NEXT Z: RETURN 
  210 FOR G=SGN PI TO W*4: NEXT G: RETURN 
  900 REM \::\:: SCREEN 1
  902 BRIGHT 0: PAPER 7: BORDER 7: CLS 
  905 INK 1: PRINT AT 11,10;"PLEASE WAIT"
  910 DIM P(Y*79,2): FOR F=SGN PI TO Y*79: LET P(F,1)=INT (RND*30)+1: LET P(F,2)=INT (RND*3)+146: NEXT F
  920 INK 1: LET N=0: LET E=1: LET X=15
  950 GO SUB 9800: INK 2: CLS 
  990 POKE 23692,255
  995 GO SUB 9900
 1000 FOR F=SGN PI TO 100: LET S=S+1
 1050 PRINT AT NOT PI,X;"\a"
 1060 IF F<80 THEN FOR G=SGN PI TO Y: LET N=N+1: PRINT AT 21,P(N,1); INK 0;CHR$ P(N,2): NEXT G: PRINT AT 21,NOT PI; INK 4;"\b";AT 21,31;"\b"
 1065 GO SUB 1900
 1070 PRINT AT 21,NOT PI; INK 8; OVER 1,,,,: NEXT F: GO TO 2000
 1900 LET R$=INKEY$: FOR G=SGN PI TO 4: IF K$(G)=R$ THEN GO TO G*20+1900
 1910 NEXT G: GO TO 1960
 1920 IF ATTR (1,X-1)<>58 THEN PRINT AT 1,X-1; INK 2;"\f";AT NOT PI,X;" ": INK 1: GO SUB 9000: GO TO 900
 1930 LET X=X-1: IF X=0 THEN LET X=X+1: GO TO 1960
 1935 RETURN 
 1940 IF ATTR (1,X+1)<>58 THEN PRINT AT 1,X+1; INK 2;"\f";AT NOT PI,X;" ": INK 1: GO SUB 9000: GO TO 900
 1950 LET X=X+1: IF X=31 THEN LET X=X-1: GO TO 1960
 1955 RETURN 
 1960 IF ATTR (1,X)<>58 THEN PRINT AT 1,X; INK 2;"\f";AT NOT PI,X;" ": INK 1: GO SUB 9000: GO TO 900
 1980 RETURN 
 2000 INK 1: LET S=S+50*L: GO SUB 9820
 2005 PAPER 0: BORDER 0: CLS 
 2010 REM \::\:: STAGE 2
 2020 INK 5: LET E=2: GO SUB 9800: INK 6: LET W=10-Y: IF W<1 THEN LET W=1
 2030 LET C$="\::\::\::\::\::\::\::\::\::\::"( TO W)
 2040 PRINT AT 15,16;"\k";TAB 16;"\::"
 2100 PRINT AT 17,15-W/2;"\i";C$;"\j": FOR F=18 TO 21: PRINT AT F,15-W/2;C$;"\::\::": NEXT F
 2110 GO SUB 9900: FOR F=0 TO 29: PRINT AT NOT PI,F; INK 2;" \g"; INK 6;"\h": IF INKEY$=K$(4) THEN GO TO 2200
 2120 NEXT F: INK 5: GO SUB 9000: GO TO 2010
 2200 LET X=F+1: PRINT AT NOT PI,X; INK 2;"\l"; INK 6;"\h": INK 2: FOR F=2 TO 13: PRINT AT F-1,X;" ";AT F,X;"\m";AT F+1,X;"\a": GO SUB 200: NEXT F: IF X=16 THEN LET S=S+100: GO TO 2250
 2210 FOR F=14 TO 15: PRINT AT F-1,X;" ";AT F,X;"\m";AT F+1,X;"\a": GO SUB 200: NEXT F
 2220 IF X<16-(W/2+1) OR X>16+W/2 THEN FOR F=16 TO 20: PRINT AT F-1,X;" ";AT F,X;"\m";AT F+1,X;"\a": GO SUB 200: NEXT F: INK 5: GO SUB 9000: GO TO 2010
 2250 CLS 
 2300 INK 5: LET S=S+50+20*L: GO SUB 9820
 2500 REM \::\:: STAGE 3
 2510 CLS : LET E=3: INK 5: GO SUB 9800: INK 6: FOR F=5 TO 21: PRINT AT F,12;"\n";TAB 19;"\n": NEXT F: PRINT AT 4,12;"\n\n\n\n\n\n\n\n": FOR F=0 TO 3: PRINT AT F,13;"\n\n";TAB 17;"\n\n": NEXT F
 2520 PRINT AT 21,NOT PI;"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";AT 6,13;"\n\n\n";AT 20,12;"  \n"  
 2530 LET X=15: PRINT AT 5,x; INK 2;"\a"
 2540 LET W=10-Y: IF W<1 THEN LET W=1
 2550 LET W=W/2
 2590 GO SUB 9900
 2600 INK 5: FOR F=21 TO 6 STEP -1: GO SUB 210: PRINT AT F,16;"\..\..\..": IF F<21 THEN PRINT AT F+1,16;"   "
 2610 LET R$=INKEY$: IF R$=K$(2) THEN GO TO 2700
 2615 GO SUB 210: PRINT AT F,16;"\''\''\''": IF INKEY$=K$(2) THEN GO TO 2700
 2620 NEXT F: FOR F=6 TO 21: GO SUB 210: PRINT AT F-1,16;"   ";AT F,16;"\''\''\''": IF INKEY$=K$(2) THEN GO TO 2700
 2625 GO SUB 210: IF F<21 THEN PRINT AT F,16;"\..\..\.."
 2627 IF INKEY$=K$(2) THEN GO TO 2700
 2630 NEXT F
 2640 PRINT AT 17,NOT PI;"TIME:": PRINT AT 20,12;"   ": FOR T=20 TO 0 STEP -1: PRINT AT 17,5;T;" ": NEXT T: GO SUB 200: INK 5: GO SUB 9000: GO TO 2500
 2650 FOR F=6 TO 21: GO SUB 210: PRINT AT F,16;"\''\''\''";AT F-1,16; INK 2;"\a": IF INKEY$=K$(SGN PI) THEN GO TO 2690
 2658 PRINT AT F-1,16; INK 2;"\a  ": GO SUB 210: IF F<21 THEN PRINT AT F,16;"\..\..\.."
 2659 IF INKEY$=K$(SGN PI) THEN GO TO 2690
 2660 PRINT AT F-1,16;"   ": NEXT F: PRINT AT F-2,16; INK 2;"\a": PRINT AT 17,NOT PI;"TIME:": PRINT AT 20,14;" ": FOR T=20 TO 0 STEP -1: PRINT AT 17,5;T;" ": IF INKEY$=K$(SGN PI) THEN GO TO 2800
 2670 NEXT T: GO SUB 200: INK 5: GO SUB 9000
 2690 PRINT AT F-1,16;"   ";AT F,16;"\''\''\''": FOR F=F-1 TO 20: PRINT AT F-1,15;" ";AT F,15; INK 2;"\a": GO SUB 200: NEXT F: PRINT AT 20,15; INK 2;"\f": GO SUB 200: INK 5: GO SUB 9000: GO TO 2500
 2700 LET X=16: PRINT AT 5,15;" ": IF F=6 THEN GO TO 2650
 2710 IF F>6 THEN FOR F=6 TO F-1: PRINT AT F-1,16;" ";AT F,16; INK 2;"\a": GO SUB 200: NEXT F: PRINT AT F-1,16; INK 2;"\f": GO SUB 200: INK 5: GO SUB 9000: GO TO 2500
 2800 FOR F=15 TO 0 STEP -1: PRINT AT 20,F; INK 2;"\a ": FOR G=SGN PI TO 20: NEXT G: NEXT F
 2900 INK 5: LET S=S+50+(T+10)*L: GO SUB 9820
 3000 REM \::\:: STAGE 4
 3010 LET E=4: INK 5: GO SUB 9800
 3020 INK 4: FOR F=101 TO 61 STEP -20: FOR G=SGN PI TO 30: PLOT 30-G/2,F-G: DRAW G,0: NEXT G: NEXT F: INK 2: FOR F=26 TO 34: PLOT F,16: DRAW 0,15: NEXT F
 3030 INK 5: FOR F=0 TO 15: PLOT 20-F/2,F: DRAW F+20,0: NEXT F
 3040 LET W=10-Y: LET W=W/3: IF W<1 THEN LET W=1
 3090 LET X=30: INK 7: GO SUB 9900
 3100 PRINT AT 21,X; INK 2;"\a "
 3110 GO SUB 210: IF INKEY$=K$(SGN PI) THEN LET X=X-1: LET S=S+1: IF X=6 THEN GO TO 3300
 3120 IF RND<.15 AND X>11 THEN LET U=0: PRINT AT 21,X; INK 2;"\a ": GO TO 3200
 3130 GO TO 3100
 3200 FOR F=7 TO 31: GO SUB 210: LET S=S+1: PRINT AT 21,F-1;" \p": IF F=X AND U=0 THEN PRINT AT 21,X; INK 2;"\f": FOR F=SGN PI TO 20: NEXT F: INK 5: GO SUB 9000: GO TO 3000
 3210 IF INKEY$=K$(PI) AND U=0 THEN LET U=1: LET T=0: PRINT AT 21,X;" "
 3220 IF U=1 THEN LET T=T+1: IF T=5 THEN LET U=0: PRINT AT 20,X;" "
 3230 PRINT AT 21-U,X; INK 2;"\a": IF F=X AND U=0 THEN PRINT AT 21,X; INK 2;"\f": FOR F=SGN PI TO 20: NEXT F: INK 5: GO SUB 9000: GO TO 3000
 3240 NEXT F: LET U=0: PRINT AT 21,31;" ";AT 21,X; INK 2;"\a";AT 20,X;" ": LET S=S+5: GO TO 3100
 3300 PRINT AT 21,7;" ": FOR F=20 TO 10 STEP -1: PRINT AT F,6; INK 2;"\a";AT F+1,6;" ": FOR G=SGN PI TO 10: NEXT G: NEXT F
 3310 PRINT AT 10,6;" ": RESTORE 3320: FOR F=SGN PI TO 5: READ A,B: PRINT AT A,B; INK 2;"\a": FOR G=SGN PI TO 10: NEXT G: PRINT AT A,B;" ": NEXT F
 3320 DATA 9,5,8,4,7,3,8,2,9,1
 3330 FOR F=10 TO 21: PRINT AT F,NOT PI; INK 2;"\a";AT F-1,NOT PI;" ": FOR G=SGN PI TO 10: NEXT G: NEXT F
 3340 FOR F=SGN PI TO 200: NEXT F: INK 5: LET S=S+50: GO SUB 9820
 3500 REM \::\:: STAGE 5
 3510 LET E=5: INK 5: GO SUB 9800
 3600 PRINT AT 20,NOT PI; PAPER 7,,,,: FOR G=0 TO 5: FOR F=6+G TO 19: PRINT AT F,G; INK 6;"\::";AT F,31-G;"\::": NEXT F: PRINT AT G+5,G; INK 6;"\j";AT G+5,31-G;"\i": NEXT G: PRINT AT 6,2; INK 6;"\k";AT 7,2;"\::";AT 6,29;"\k";AT 7,29;"\::"
 3610 PRINT AT 19,15; INK 2;"\g"; INK 6;"\h": LET T=0
 3615 GO SUB 9900: IF INKEY$=K$(PI) THEN PRINT AT 11,11;"HANDS OFF!": FOR F=SGN PI TO 100: NEXT F: PRINT AT 11,11;"          ": GO TO 3615
 3617 PRINT AT 2,2; INK 7;"TIME:500"
 3620 FOR F=500 TO 0 STEP -1
 3625 PRINT AT 2,7; INK 7;F;" "
 3630 IF INKEY$=K$(PI) THEN LET T=T+1: GO TO 3650
 3640 NEXT F: GO TO 3700
 3650 IF INKEY$<>"" THEN LET F=F-1: PRINT AT 2,7; INK 7;F;" ": IF F>0 THEN GO TO 3650
 3655 IF F<1 THEN GO TO 3700
 3660 NEXT F
 3700 LET T=T*2: LET T=T-15*Y: LET T=T-36: LET T=19-T: IF T<0 THEN LET T=0
 3710 FOR F=18 TO T STEP -1: PRINT AT F,15; INK 2;"\g"; INK 6;"\h";AT F+1,15;"  ": GO SUB 200: LET S=S+20: NEXT F
 3720 FOR F=15 TO 29: GO SUB 200: PRINT AT T,F; INK 2;" \g"; INK 6;"\h": IF ATTR (T,F+3)=6 THEN GO SUB 200: GO TO 3750
 3730 NEXT F: GO TO 3800
 3750 INK 2: PRINT AT T,F+1;" \g": GO SUB 200: PRINT AT T,F+2;"\a": GO SUB 200: PRINT AT 19,F+2;"\f": INK 5: GO SUB 9000: GO TO 3500
 3800 LET S=S+200: GO SUB 9820
 4000 REM \::\:: NEXT YEAR
 4010 LET Y=Y+1
 4020 CLS : PRINT AT 6,NOT PI;"WELL DONE - YEAR ";Y+1983;" COMPLETED!";AT 12,NOT PI;"YOU NOW PROGRESS TO YEAR ";Y+1984'"WHICH, OBVIOUSLY, IS HARDER."
 4030 FOR F=SGN PI TO 400: NEXT F: GO TO 900
 9000 REM \::\:: YOU LOSE A LIFE
 9010 LET L=L-1: FOR F=SGN PI TO 100: NEXT F: CLS : PRINT AT 6,2;"BAD LUCK ! - YOU LOSE A LIFE";AT 12,10;L;" LIVES LEFT"
 9015 FOR F=15 TO 0 STEP -1: BEEP .1,F: NEXT F
 9020 FOR F=SGN PI TO 200: NEXT F: CLS : IF L=0 THEN GO TO 9100
 9030 INK 2: RETURN 
 9100 PRINT AT 4,NOT PI;"YOU REACHED YEAR ";Y+1984;" (STAGE ";E;")";AT 8,NOT PI;"YOU SCORED ";S
 9110 IF S>H THEN PRINT AT 12,NOT PI;"YOU BEAT THE HIGH SCORE         THE HIGH SCORE IS NOW ";S:: LET H=S: PRINT "PLEASE ENTER YOUR NAME": INPUT LINE H$        
 9120 IF S<H THEN PRINT AT 12,NOT PI;"THE HIGH SCORE REMAINS ";H'"BY ";H$
 9130 PRINT AT 19,NOT PI;"PRESS ANY KEY TO PLAY AGAIN"
 9140 IF INKEY$="" THEN GO TO 9140
 9150 RESTORE : CLS : GO TO 30
 9210 BRIGHT 1: INK 5: PRINT '"You play the part of Santa ("; INK 2;"\a"; INK 5;")"'"delivering presents to the last house on his round."
 9220 PRINT '"STAGE 1: Use the left and right keys to guide Santa through the snow avoiding the trees ("; INK 4;"\b"; INK 5;"), theigloos ("; INK 7;"\c"; INK 5;"), the penguins ("; INK 7;"\d"; INK 5;") andthe snowmen ("; INK 7;"\e"; INK 5;")."
 9230 PRINT '"STAGE 2: Press the down key to  parachute from your  sleigh ("; INK 2;"\g"; INK 6;"\h"; INK 5;") down onto the roof. Land on the chimney ("; INK 6;"\k"; INK 5;") for a points bonus."
 9235 GO SUB 9700
 9240 PRINT AT PI,NOT PI;"STAGE 3: Now you are inside the chimney and must get to the     bottom using the lift (\''\''\'').    Press the right key to step ontothe lift and, when the brick ("; INK 6;"\n"; INK 5;")at the bottom disappears, press the left  key before your time  limit runs out."
 9250 PRINT '"STAGE 4: Cross the floor to the Christmas tree using the left   key. When a snowball ("; INK 7;"\p"; INK 5;") appearswait until it is near you and   use the up key to jump over it. Wait until the snowball leaves  the screen and then continue    towards the Christmas tree."
 9255 GO SUB 9700
 9260 PRINT AT PI,NOT PI;"STAGE 5: Press the up key as    many times as you can while the clock ticks away. The more timesyou press it the more height thesleigh ("; INK 2;"\g"; INK 6;"\h"; INK 5;") will achieve. You   must get high enough to clear   the houses otherwise you'll     crash." 
 9270 PRINT '"At the beginning of each screen you will be given a brief       reminder of these instructions  and then traffic lights will    count you down to the start.    When the green light ("; INK 4;"\o"; INK 5;") lights up ("; INK 4;"\p"; INK 5;") the screen will start."
 9280 GO TO 9700
 9300 PRINT AT 8,12;"REMEMBER": PRINT AT 9,0: GO TO E*50+9300
 9350 PRINT "Use keys ";K$(SGN PI);" and ";K$(2);" to avoid the   obstacles. Be prepared for the  speed increase towards the end !": GO TO 9700
 9400 PRINT "Press key ";K$(4);" when Santa is over  the rooftop.": GO TO 9700
 9450 PRINT "Press key ";K$(2);" to step on the      lift. When the brick disappears press key ";K$(SGN PI);" to step off.": GO TO 9700
 9500 PRINT "Press key ";K$(SGN PI);" to move towards the tree and key ";K$(PI);" to jump the      snowballs.": GO TO 9700
 9550 PRINT "Press key ";K$(PI);" as fast as you can  to achieve height. Don't hold   key ";K$(PI);" down, it won't work !"
 9700 PRINT AT 21,PI;"PRESS ANY KEY TO CONTINUE"
 9710 IF INKEY$="" THEN GO TO 9710
 9720 PRINT AT PI,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
 9730 RETURN 
 9800 REM \::\:: NEXT SCREEN MESSAGE
 9810 CLS : PRINT AT 6,11;"YEAR:";Y+1984;AT 12,12;"STAGE ";E: FOR F=SGN PI TO 80: NEXT F: CLS : GO SUB 9300: RETURN 
 9820 REM END OF SCREEN MESSAGE
 9830 CLS : PRINT AT 5,11;"YEAR:";Y+1984;AT 10,NOT PI;"WELL DONE ! - STAGE ";E;" COMPLETED";AT 15,11;"SCORE:";S
 9840 FOR F=10 TO 25: BEEP .1,F: NEXT F: FOR F=SGN PI TO 200: NEXT F
 9900 REM \::\:: TRAFFIC LIGHTS
 9910 PRINT AT 1,NOT PI; INK 2;"\p";AT 2,NOT PI; INK 6;"\o";AT PI,NOT PI; INK 4;"\o": FOR F=SGN PI TO 50: NEXT F: PRINT AT 2,NOT PI; INK 6;"\p": FOR F=SGN PI TO 50: NEXT F: PRINT AT 1,NOT PI; INK 2;"\o";AT 2,NOT PI; INK 6;"\o";AT PI,NOT PI; INK 4;"\p": RETURN 
 9998 SAVE "SANTA" LINE 1: BEEP .1,.33