10 POKE53280,0:POKE53281,0:PRINT"[147]" 20 POKE650,128:REM ALL KEYS REPEAT 22 POKE788,52:REM DISABLE STOP 30 DIMM$(13),ML(13),D$(8) 40 FORI=0TO11:READM$(I),ML(I):NEXT 50 DATA" [202]ANUARY ",31 60 DATA"[198]EBRUARY ",28 70 DATA" [205]ARCH ",31 80 DATA" [193]PRIL ",30 90 DATA" [205]AY ",31 100 DATA" [202]UNE ",30 110 DATA" [202]ULY ",31 120 DATA" [193]UGUST ",31 130 DATA"[211]EPTEMBER",30 140 DATA" [207]CTOBER ",31 150 DATA"[206]OVEMBER ",30 160 DATA"[196]ECEMBER ",31 170 FORI=0TO6:READD$(I):NEXT 180 DATA" [211]UNDAY " 190 DATA" [205]ONDAY " 200 DATA" [212]UESDAY " 210 DATA"[215]EDNESDAY" 220 DATA"[212]HURSDAY " 230 DATA" [198]RIDAY " 240 DATA"[211]ATURDAY " 250 BX$(0)="[176][192][192][192][192][192][192][192][192][192][174][157][221][157][157][157][157][157][157][157][157][157][157][157][221][157][173][192][192][192][192][192][192][192][192][192][189] 260 BX$(1)[178]"ORTANTANTANTAN^CMD(null)CMDCMDCMDCMDCMDCMD(null)CMD/TANTANTANTANEXP" 270 BX$(2)[178]"ORTANTANTANTANTANTAN^CMD(null)CMDCMDCMDCMDCMDCMDCMDCMD(null)CMD/TANTANTANTANTANTANEXP" 280 BX$(3)[178]BX$(0) 282 H[178]100:F[178]400 290 Y[178]4:[129]I[178]0[164]3:[135]X(I):[130] 300 [131]1,12,19,28:[143] TABS FOR BOXES 307 : 308 :[143] SCREEN 309 : 310 [153]"LOADFOR (null)LEFT$VAL (null)RIGHT$CHR$LEFT$(null)(null) (null)(null)ATNSTR$(null)(null)ATN(null) STR$ATN(null) LENATN(null)LEN(null)(null)ATN(null)(null)(null) 320 PRINT"[154] [205]ONTH [196]ATE [217]EAR [196]AY" 330 PRINT"[155] [195][210][211][210] [210][201][199][200][212]/[204][197][198][212][152] - [205]OVE BOX 340 B[178]8:[153][163]B)"LIST LEN(null)(null)(null) (null)(null)PRINT# - ASCORWARD 350 PRINTTAB(B)"[155][195][210][211][210] [196][207][215][206][152] - [194]ACK 360 [153][163]B)"LIST ASC1PRINT# - (null)EAR BACK 10 370 PRINTTAB(B)"[155] [198]2[152] - [217]EAR FORWARD 10 380 [153][163]B)"LIST ASC3PRINT# - (null)EAR BACK 100 390 PRINTTAB(B)"[155] [198]4[152] - [217]EAR FORWARD 100 410 [153][163]B)"LIST (null)PRINT# - (null)UIT 420 FORI=0TO3:POKE214,Y:PRINT"":PRINTTAB(X(I))BX$(I):NEXT 430 X=0:Y0=0:Y1=1:Y2=1994:DW=6:REM STARTING VALUES 440 POKE214,Y+1:PRINT"[159]" 450 PRINTTAB(X(0)+1)M$(Y0) 460 POKE214,Y+1:PRINT 470 PRINTTAB(X(1)+1)" [157][157][157]"STR$(Y1) 480 POKE214,Y+1:PRINT 490 PRINTTAB(X(2)+1)STR$(Y2) 492 GOSUB820 497 : 498 :REM GET LOOP 499 : 500 POKE214,Y:PRINT:PRINTTAB(X(X))""BX$(X):REM HIGHLIGHT 510 GETA$:IFA$=""THEN510 520 IFA$<>"[157]"ANDA$<>""THEN570 530 POKE214,Y:PRINT:PRINTTAB(X(X))""BX$(X):REM DE-HIGHLIGHT 540 IFA$=""THENX=X+1:IFX>2THENX=0:REM RIGHT 550 IFA$="[157]"THENX=X-1:IFX<0THENX=2:REM LEFT 560 GOTO500 567 : 568 :REM DOWN 569 : 570 IFA$<>""THEN650 580 ONX+1GOTO590,610,630 590 Y0=Y0-1:IFY0<0THENY0=11 592 IFY0=1THENIFY1>28THENY1=28 600 GOTO440 610 Y1=Y1-1:IFY1<1THENY1=ML(Y0)-((Y0=1)AND(Y2/4=INT(Y2/4))) 612 IFY2/H=INT(Y2/H)THENIFY2/F<>INT(Y2/F)THENIFY0=1ANDY1=29THENY1=Y1-1 620 GOTO440 630 Y2=Y2-1:IFY2<1584THENY2=1584:REM EARLIEST DATE 637 : 638 :REM UP 639 : 640 GOTO440 650 IFA$<>"[145]"THEN730 660 ONX+1GOTO670,690,710 670 Y0=Y0+1:IFY0>11THENY0=0 672 IFY0=1THENIFY1>28THENY1=28 680 GOTO440 690 Y1=Y1+1:IFY1>ML(Y0)-((Y0=1)AND(Y2/4=INT(Y2/4)))THENY1=1 692 IFY2/H=INT(Y2/H)THENIFY2/F<>INT(Y2/F)THENIFY0=1ANDY1=29THENY1=1 700 GOTO440 710 Y2=Y2+1:IFY2>9999THENY2=9999 720 GOTO440 727 : 728 :REM F-KEYS 729 : 730 IFA$CHR$(138)THEN800 750 IFA$=CHR$(133)THENY2=Y2-10:IFY2<1584THENY2=1584 760 IFA$=CHR$(137)THENY2=Y2+10:IFY2>9999THENY2=9999 770 IFA$=CHR$(134)THENY2=Y2-H:IFY2<1584THENY2=1584 780 IFA$=CHR$(138)THENY2=Y2+H:IFY2>9999THENY2=9999 790 GOTO440 800 IFA$="Q"THEN990:REM QUIT 802 GOTO440 807 : 808 :REM CALCULATE 809 : 820 NY=Y2-1584:REM # OF YEARS 830 NL=INT(NY/4)-INT((Y2-1500)/H)+INT((Y2-1200)/F):REM # OF LEAP YRS 840 ND=NY*365+NL+1:REM # OF DAYS 850 IF(Y2-1200)/F=INT((Y2-1200)/F)THEN880:REM IS YEAR 1600,2000,2400? 860 IF(Y2-1500)/H=INT((Y2-1500)/H)THEN890:REM IS YEAR 1700,1800,1900? 870 IFY2/4<>INT(Y2/4)THEN890:REM LEAP YEAR? 880 IFY0<2THENND=ND-1:REM BEFORE FEB 29? 890 NQ=0:IFY0THENFORI=0TOY0-1:NQ=NQ+ML(I):NEXT 900 NQ=NQ+Y1-1:ND=ND+NQ:REM # OF DAYS INCLUDING CURRENT YEAR 910 DQ=INT(ND/7):DW=ND-DQ*7:REM MODULO TO GET # OF DAY OF WEEK 920 POKE214,Y+1:PRINT:PRINTTAB(X(3)+1)D$(DW) 922 RETURN 960 GOTO520 987 : 988 :REM RETURN TO LS 989 : 990 POKE788,49:REM RE-ENABLE STOP 992 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN1010 1000 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN1020 1010 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END 1020 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I 1030 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END 10000 OPEN15,8,15,"S0:B.CALENDAR":CLOSE15:SAVE"B.CALENDAR",8:END