Santa

Source Code

    2 REM   \..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..
    3 REM   \:      SANTA-C     \ :
    4 REM   \:        by        \ :
    5 REM   \:   WARREN FRICKE  \ :
    6 REM   \:      -1985-      \ :
    7 REM   \''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''
   10 GO SUB 5000
   20 GO SUB 4000
   40 DIM e$(32)
   50 LET f$=e$+CHR$ 144+CHR$ 145+CHR$ 146+CHR$ 145+CHR$ 144+CHR$ 145+CHR$ 146+CHR$ 145+CHR$ 151+CHR$ 152
   60 LET g$=e$+CHR$ 147+CHR$ 148+CHR$ 149+CHR$ 150+CHR$ 147+CHR$ 148+CHR$ 149+CHR$ 150+CHR$ 153+CHR$ 154
   70 LET h$=e$+CHR$ 149+CHR$ 150+CHR$ 147+CHR$ 148+CHR$ 149+CHR$ 150+CHR$ 147+CHR$ 148+CHR$ 153+CHR$ 154
 1000 RESTORE 5130
 1010 READ a,b,c,d,e,f,g,h,i,j
 1020 LET a$="d17d14d15e17f17d17d19d21e22g22d14d15e17e17e17d19d17e15g15e14e17e10e14e12g15e09i10"
 1030 LET b$="g79e79d79"
 1040 LET c$="g69e69e12e14e12e11e12e09g09e12e14e12e11e12h09e14e16e14e13e14e11e11e11d11d12e14e12e11e09e07e69f07d07d04d05e07f07d07d09d11e12g12d04d05e07e07e07d09d07e05g05e04e07e00e04e02g05e14j12h69"
 1050 LET d$=a$+b$
 1100 FOR n=1 TO LEN d$-2 STEP 3
 1135 LET duration=VAL d$(n): LET pitch=VAL d$(n+1 TO n+2)-10: BEEP duration/48,pitch: GO SUB 2000+(1000 AND n/2=INT (n/2)): NEXT n
 1200 FOR n=1 TO LEN a$-2 STEP 3
 1235 LET duration=VAL a$(n): LET pitch=VAL a$(n+1 TO n+2)-10: BEEP duration/48,pitch: GO SUB 2000+(1000 AND n/2=INT (n/2)): NEXT n
 1300 FOR n=1 TO LEN c$-2 STEP 3
 1335 LET duration=VAL c$(n): LET pitch=VAL c$(n+1 TO n+2)-10: BEEP duration/48,pitch: GO SUB 2000+(1000 AND n/2=INT (n/2)): NEXT n
 1350 PAUSE 30
 1360 GO TO 1100
 2000 REM  FIRST POSITION 
 2005 PRINT AT 6,0; INK 6;f$( TO 32)' INK 6;g$( TO 32): GO TO 3500
 3000 REM  second position
 3005 PRINT AT 6,0; INK 6;f$( TO 32)' INK 6;h$( TO 32)
 3500 LET f$=f$(2 TO LEN f$)+f$(1): LET g$=g$(2 TO LEN g$)+g$(1): LET h$=h$(2 TO LEN h$)+h$(1): RETURN 
 4000 REM  background
 4005 BORDER 0: PAPER 0: INK 7: CLS 
 4020 FOR n=1 TO 20
 4030 PLOT OVER 1; INK (3*RND+4);255*RND,30*RND+145
 4040 NEXT n
 4050 PLOT 0,48: DRAW 255,32
 4060 PLOT 0,112: DRAW 110,-51
 4070 PRINT AT 14,5;"\::\::\::\::\::\::";AT 15,5;"\::\::\::\::\::\::"
 4080 PRINT AT 16,5; INK 1;"\ :\::\::\::\::\: ";AT 17,5;"\ '\''\''\''\''\' "
 4090 PRINT AT 16,6; INK 6;"\..";AT 16,9;"\..";AT 17,9;"\''"
 4100 PRINT AT 13,5; INK 2;"\ :"
 4120 PRINT INK 1;AT 12,5;".";AT 11,5;".";AT 9,8;"."
 4130 PRINT INK 1;AT 11,6;"S"; OVER 1;CHR$ 8;"s"
 4140 PRINT INK 1;AT 10,7;"O"; OVER 1;CHR$ 8;"s"
 4150 PRINT FLASH 1; INK 4; PAPER 2;AT 19,2;"                  ";AT 20,2;" MERRY  CHRISTMAS ";AT 21,2;"                  "
 4160 PRINT INK 4;AT 9,26;"\::";AT 10,25;"\:: \::";AT 11,26;"\::\::";AT 12,25;"\:: \::\::";AT 13,26;"\::\::";AT 14,24;"\:: \::\::\::";AT 15,23;"\:: \::\::\:: \::";AT 16,22;"\::       \::"
 4170 FOR r=16 TO 18: PRINT INK 6;AT r,26;"\::": NEXT r
 4200 PRINT AT 8,26;"_"
 4210 PRINT AT 9,25;"_";AT 9,27;"_"
 4220 PRINT AT 11,28;"_";AT 13,28;"_";AT 14,29;"_";AT 15,30;"_"
 4230 PRINT AT 17,11;"_";AT 18,2;"__________________";AT 19,24;"______";AT 20,21;"____"
 4250 RETURN 
 5000 REM sleigh graphics
 5002 FOR j=USR CHR$ 144 TO USR CHR$ 154+7: READ k: POKE j,k: NEXT j
 5005 RETURN 
 5010 DATA 0,2,4,8,120,24,28,27
 5020 DATA 0,0,0,0,0,0,24,240
 5030 DATA 0,16,16,32,96,176,24,27
 5040 DATA 19,15,6,28,32,64,0,0
 5050 DATA 112,242,48,24,4,2,0,0
 5060 DATA 19,79,60,32,16,8,0,0
 5070 DATA 112,242,48,32,32,64,128,0
 5080 DATA 0,0,6,7,2,3,7,7
 5090 DATA 0,0,1,2,21,88,170
 5100 DATA 95,151,188,82,49,15,0,0
 5110 DATA 218,254,8,20,34,255,0,0
 5130 DATA .25,.5,1,2,4,6,8,12,16,20
 9997 STOP 
 9998 SAVE "SANTA" LINE 1