1 'SANTA.BA (C) 1987 Ted Mckosky 10 CLS 20 YR = 1900+VAL(RIGHT$(DATE$,2)) 30 XM=358 40 IF YR MOD 4=0 AND YR MOD 100><0 THEN XM=XM+1 50 GOSUB 370 60 LINE(72,5)-(170,17),1,B 70 Y=200: Y2=200 80 FOR X=30 TO 57 STEP2 90 Y = Y-1: Y2=Y2+1 100 LINE(Y,X)-(Y2,X) 110 NEXT X 120 LINE(197,57)-(203,63),1,B 130 PRINT @153,"*" 140 FOR X = 1 TO 244 150 READ X1,Y1,X2,Y2 160 LINE(X1,Y1)-(X2,Y2) 170 NEXT X 180 H=23-VAL(LEFT$(TIME$,2)) 190 PRINT @153,"*" 200 CT=CT+1: IF CT=20 THEN MENU 210 M=59-VAL(MID$(TIME$,4,2)) 220 S=60-VAL(RIGHT$(TIME$,2)) 230 SH=(H*60)*60 240 SM=M*60 250 TS=SH+SM+S 260 CS=((XM-YD)*86400)+TS 270 HC=CS/3600 280 MC=CS/60 290 PD=TS/86400 300 PRINT @53,"Santa comes in:" 310 PRINT @135,USING"###";XM-YD;:PRINT @138,USING".####";PD;:PRINT" days" 320 PRINT @173,USING"#####.####";HC;:PRINT" hours" 330 PRINT @212,USING"######.####";MC;:PRINT" minutes" 340 PRINT @252,USING"##########";CS;:PRINT" seconds" 350 PRINT @153," ":FOR T=1 TO 30: NEXT T:GOTO 180 360 END 370 IF LEFT$(DATE$,2) = "01" THEN YD = VAL(MID$(DATE$,4,2)) 380 IF LEFT$(DATE$,2) = "02" THEN YD = 31+VAL(MID$(DATE$,4,2)) 390 IF LEFT$(DATE$,2) = "03" THEN YD = 59+VAL(MID$(DATE$,4,2)) 400 IF LEFT$(DATE$,2) = "04" THEN YD = 90+VAL(MID$(DATE$,4,2)) 410 IF LEFT$(DATE$,2) = "05" THEN YD = 120+VAL(MID$(DATE$,4,2)) 420 IF LEFT$(DATE$,2) = "06" THEN YD = 151+VAL(MID$(DATE$,4,2)) 430 IF LEFT$(DATE$,2) = "07" THEN YD = 181+VAL(MID$(DATE$,4,2)) 440 IF LEFT$(DATE$,2) = "08" THEN YD = 212+VAL(MID$(DATE$,4,2)) 450 IF LEFT$(DATE$,2) = "09" THEN YD = 243+VAL(MID$(DATE$,4,2)) 460 IF LEFT$(DATE$,2) = "10" THEN YD = 273+VAL(MID$(DATE$,4,2)) 470 IF LEFT$(DATE$,2) = "11" THEN YD = 304+VAL(MID$(DATE$,4,2)) 480 IF LEFT$(DATE$,2) = "12" THEN YD = 334+VAL(MID$(DATE$,4,2)) 490 IF LEFT$(DATE$,2)> "02" AND YR MOD 4=0 AND YR MOD 100><0 THEN YD=YD+1 500 RETURN 510 DATA 43, 1,47, 1,40, 2,50, 2,38, 3,52, 3,36, 4,54, 4,35, 5,55, 5,33, 6,58, 6 520 DATA 31, 7,49, 7,58, 7,60, 7,29, 8,46, 8,60, 8,61, 8,27, 9,44, 9,61, 9,62, 9 530 DATA 25,10,43,10,62,10,63,10,24,11,43,11,63,11,63,11,23,12,42,12,63,12,64,12 540 DATA 22,13,41,13,64,13,64,13,21,14,41,14,64,14,65,14,20,15,40,15,65,15,66,15 550 DATA 19,16,39,16,66,16,66,16,19,17,39,17,66,17,67,17,18,18,38,18,67,18,67,18 560 DATA 18,19,38,19,67,19,68,19,18,20,37,20,68,20,68,20,17,21,37,21,68,21,68,21 570 DATA 17,22,36,22,68,22,68,22,17,23,36,23,53,23,61,23,68,23,68,23,16,24,35,24 580 DATA 50,24,53,24,61,24,64,24,67,24,68,24,16,25,35,25,43,25,55,25,64,25,67,25 590 DATA 16,26,34,26,39,26,43,26,47,26,48,26,56,26,56,26,65,26,66,26,16,27,34,27 600 DATA 37,27,39,27,42,27,42,27,46,27,46,27,57,27,57,27,63,27,66,27,15,28,37,28 610 DATA 41,28,42,28,45,28,45,28,48,28,54,28,57,28,57,28,61,28,62,28,67,28,67,28 620 DATA 15,29,32,29,41,29,41,29,45,29,47,29,55,29,56,29,60,29,60,29,68,29,68,29 630 DATA 15,30,32,30,41,30,41,30,59,30,59,30,63,30,67,30,15,31,35,31,40,31,41,31 640 DATA 46,31,46,31,48,31,53,31,59,31,62,31,64,31,64,31,15,32,30,32,35,32,36,32 650 DATA 40,32,40,32,47,32,48,32,50,32,51,32,53,32,54,32,59,32,59,32,61,32,62,32 660 DATA 64,32,64,32,15,33,29,33,33,33,34,33,36,33,36,33,40,33,40,33,45,33,46,33 670 DATA 50,33,51,33,59,33,62,33,64,33,65,33,15,34,29,34,32,34,32,34,36,34,36,34 680 DATA 40,34,40,34,48,34,52,34,60,34,60,34,65,34,65,34,15,35,29,35,32,35,32,35 690 DATA 40,35,40,35,47,35,47,35,53,35,53,35,60,35,60,35,65,35,66,35,15,36,29,36 700 DATA 32,36,32,36,40,36,40,36,46,36,46,36,54,36,54,36,60,36,60,36,66,36,66,36 710 DATA 15,37,27,37,29,37,29,37,32,37,32,37,40,37,40,37,42,37,42,37,46,37,46,37 720 DATA 60,37,61,37,66,37,66,37,15,38,27,38,29,38,30,38,33,38,33,38,40,38,40,38 730 DATA 42,38,42,38,55,38,55,38,61,38,61,38,66,38,66,38,70,38,70,38,14,39,26,39 740 DATA 30,39,30,39,34,39,34,39,40,39,40,39,42,39,43,39,57,39,58,39,61,39,61,39 750 DATA 65,39,66,39,68,39,70,39, 9,40,25,40,30,40,31,40,40,40,45,40,54,40,61,40 760 DATA 65,40,65,40,67,40,68,40,70,40,70,40, 7,41, 9,41,14,41,24,41,31,41,32,41 770 DATA 36,41,36,41,41,41,42,41,45,41,54,41,61,41,67,41,70,41,70,41, 6,42, 7,42 780 DATA 13,42,23,42,32,42,36,42,42,42,43,42,69,42,70,42, 5,43, 6,43,16,43,22,43 790 DATA 36,43,36,43,43,43,44,43,68,43,69,43, 5,44, 5,44,17,44,20,44,36,44,36,44 800 DATA 44,44,46,44,53,44,59,44,66,44,68,44, 4,45, 5,45,18,45,18,45,36,45,37,45 810 DATA 46,45,53,45,59,45,66,45, 3,46, 4,46,18,46,18,46,37,46,37,46,51,46,52,46 820 DATA 54,46,58,46,60,46,61,46,66,46,67,46, 3,47, 3,47,18,47,19,47,37,47,37,47 830 DATA 52,47,52,47,60,47,60,47,67,47,68,47, 2,48, 3,48,19,48,19,48,37,48,38,48 840 DATA 52,48,53,48,59,48,60,48,67,48,68,48, 2,49, 2,49,19,49,19,49,21,49,31,49 850 DATA 38,49,38,49,53,49,59,49,68,49,68,49, 2,50, 2,50,19,50,34,50,38,50,39,50 860 DATA 68,50,68,50, 2,51, 2,51,18,51,37,51,39,51,39,51,68,51,68,51, 2,52, 3,52 870 DATA 18,52,40,52,68,52,69,52, 3,53, 3,53,17,53,41,53,69,53,69,53, 3,54, 4,54 880 DATA 15,54,43,54,69,54,69,54, 4,55, 6,55,13,55,44,55,69,55,70,55, 6,56, 7,56 890 DATA 11,56,45,56,70,56,70,56, 7,57,46,57,70,57,70,57,10,58,47,58,70,58,71,58 900 DATA 10,59,48,59,71,59,71,59,10,60,49,60,71,60,71,60, 9,61,50,61,71,61,72,61 910 DATA 9,62,51,62,72,62,72,62, 9,63,52,63,72,63,73,63