10 KEY OFF:CLS
20 SCREEN 0
30 WIDTH 40
40 PRINT"???????????????????????????????????????"
50 PRINT"??????????????????????????????????????"
60 PRINT"??                                   ??"
70 PRINT"??            4023-A.BAS             ??"
80 PRINT"??          CHRISTMAS CARD           ??"
90 PRINT"??                                   ??"
100 PRINT"??                                   ??"
110 PRINT"?? BROUGHT TO YOU BY THE MEMBERS OF  ??"
120 PRINT"??      ????? ????? ????? ?????      ??"
130 PRINT"??        ?   ?   ? ?     ?   ?      ??"
140 PRINT"??        ?   ????? ?     ?   ?      ??"
150 PRINT"??        ?   ?     ?     ?   ?      ??"
160 PRINT"??      ????? ?     ????? ?????      ??"
170 PRINT"??                                   ??"
180 PRINT"??      International PC Owners      ??"
190 PRINT"??                                   ??"
200 PRINT"??P.O. Box 10426, Pittsburgh PA 15234??"
210 PRINT"??                                   ??"
220 PRINT"??????????????????????????????????????"
230 PRINT"???????????????????????????????????????"
240 PRINT
250 PRINT "       PRESS ANY KEY TO CONTINUE
260 A$=INKEY$: IF A$="" THEN 260
270 WIDTH 80
280 CLS
1000 REM Written By Jim & Wendy
1010 KEY OFF
1020 SCREEN 2
1030 CLS:LINE (320,100)-(440,160),,B
1040 DRAW "BM500,10M492,15L12M488,20M484,25M500,22"
1050 DRAW "BM500,10M508,15R12M512,20M516,25M500,22"
1060 DRAW "BM320,100E60F60"
1070 DRAW "BM200,160U10l30E10l5E10l5E10l5E10l5E10"
1080 DRAW "F10L5F10L5F10L5F10L5F10L35"
1090 DRAW "BM375,160U30R20D30"
1100 DRAW "BM325,94U25R15D11"
1110 DRAW "BL10BD40D30R30U30L30BD15R30BD15BL15U30"
1120 DRAW "BR60D30R30U30L30BD15R30BD15BL15U30"
1130 DRAW "BD70BR215L640U200R640D200BU25BL30L580"
1140 DRAW "BR80BU5U10L30E10L5E10L5E10L5E10L5E10"
1150 DRAW "F10L5F10L5F10L5F10L5F10L5L30"
1160 DRAW "BD10BR450U10L30E10L5E10L5E10L5E10L5E10"
1170 DRAW "F10L5F10L5F10L5F10L5F10L5L30"
1180 LOCATE 3,5:FOR I = 1 TO 15:READ A:PRINT CHR$(A);:NEXT
1190 LOCATE 5,5:FOR I = 1 TO 20:READ A:PRINT CHR$(A);:NEXT
1200 LOCATE 7,5:FOR I = 1 TO 24:READ A:PRINT CHR$(A);:NEXT
1210 PLAY "MBT100O3D4G4G8A8G8F+8E4E4E4A4A8B8A8G8"
1220 PLAY "F+4D4D4B4B8O4C8O3B8A8G4E4D8D8E4A4O3F+4G2"
1230 FOR I=1 TO 400
1240 PSET (RND*637,RND*I*.5)
1250 NEXT
1260 FOR I= 1 TO 750
1270 PSET (RND*637,RND*190)
1280 PSET (RND*637,RND*25+165)
1290 PSET (RND*637,RND*25+165)
1300 NEXT
1310 CIRCLE (280,155),20:CIRCLE (280,140),15:CIRCLE (280,129),10
1320 DRAW "BM265,125R30Bl8U7L15D7"
1330 DRAW "BM265,140L10H5BM295,140R15E5"
1340 DRAW "C1BM279,129D1R1U1L1BM276,128U1R1D1L1BM282,128U1R1D1L1"
1350 DRAW "C1BM279,136D1R1U1L1BM279,140U1R1D1L1BM279,144U1R1D1L1"
1360 A$=INKEY$:IF A$="" THEN 1360
1370 DATA 77,69,82,82,89,00,67,72,82,73,83,84,77,65,83
1380 DATA 65,78,68,00,65,00,72,65,80,80,89,00,78,69,87,00,89,69,65,82
1390 DATA 70,82,79,77,00,66,79,66,00,65,78,69,83,00,65,78,68,00,70,65,77,73,76,89
,72,65,80,80,89,00,78,69,87,00,