Simple Christmas greeting card and plays a tune.
Content
Image Gallery
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