C64S tape image fileEXP IN SW ZHIRES GRAPHICS ; COLOR CALIBRATE ,YCALENDAR'STORY PROB AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ  1,2:0,1:4,1 1,1E 1,8,1,"HIGH RESOLUTION GRAPHICS"K#:a$ DRAW AXIS LINESy( 1,0,100 319,1002 1, 160,20 160,1997:8 DRAW TICK MARKS ON AXIS< MARK 0 319 10F 1,MARK,98 MARK,102P MARKZ MARK 20 199 10.d 1,158,MARK 162,MARK9n MARK?x:\y DRAW CURVE USING LINESe}1,8{ X 0 319 4Y 100((X25.5)80) 1,160,100 X,Y X: PUT AN OUTLINE AROUND THE CURVE K11 0,100 X 0 319 2*Y 100((X25.5)80)8 XK,Y@ XH KX A$: : 281,38" I18:I,(I):-n""_:"":4,2,7:0,2,7:I%(13,4),D%(13),DS%(12)"L113:I%(L,1),I%(L,2),I%(L,3),I%(L,4):L,I112:DS%(I):I69,4,2,0, 9,7,2,0, 9,10,4,0@11,6,3,0, 9,25,2,0, 9,28,2,0, 9,31,4,08J11,27,3,0, 16,12,1,1, 17,12,4,0, 18,12,4,0, 19,12,4,0, 20,12,4,0TWK$"SATURDAY SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY "^31,28,31,30,31,30,31,31,30,31,30,31hYR$" JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY "1rYR$YR$" AUGUSTSEPTEMBER OCTOBER NOVEMBER DECEMBER "c|E$(0)" "E$(1)"INVALID MONTH FIELD":E$(2)"INVALID DAY FIELD"E$(3)"MISSING THE YEAR":E$(4)"INVALID JULIAN DATE"E$(5)"PRESS RETURN":E$(6)"MONTHLY CALENDAR TYPE MME$(7)"PRESS F1 TO CALCULATE, HELP FOR HELP"E$(8)" ** CALCULATING **":E$(9)"NO DATA FOUND!"H$(1)"ENTER THE STARTING DATE AS MM DD YYYY"H$(2)"ENTER THE ENDING DATE AS MM DD YYYY"*H$(3)"ENTER THE DIRECTION. EX. + FORWARD"mH$(4)"ENTER NUMBER OF DAYS":H$(5)"ENTER NUMBER OF WEEKS"H$(6)"ENTER NUMBER OF MONTHS":H$(7)"ENTER NUMBER OF YEARS"H$(8)"ENTER THE STARTING JULIAN DATE AS DDD"H$(9)"ENTER THE ENDING JULIAN DATE AS DDD"VRW$"":BK$"FR$" ":1800:3,3:L1E17:1790:2010:E10:1780D%(L)(ST$):I%(L,4)1AT$ST$&I18:(W$,I,1)C$0I600,590,600,580,570,690,910,630,600:1980&DL1:5300NLL2>XL0L12RbLL1:L13L1ilI110:C$::530vL0L4HP1:680L4L8HP2:680L4HP8:680L8HP9:680HPL6(RW$,24)1)H$(HP)"":530*E10:1780:1790:E18:1790:W1$" ":W2$W1$:AD0:AY0NE10:D00:I14:D0D0D%(I):ImD10:J58:D1D1D%(J):JD00D10E19:1780:530D00810D0D%(1)D%(2):D1D%(5)D%(6)D00D%(4)0810D00D%(4)0790L1:MD%(1):DD%(2):YD%(3):1150:E10530A 970:D%(4)JN:1050:W1$LN$:810kL1:JND%(4):YD%(3):1230:E10530 1010:D%(1)M:D%(2)D:1050:W1$LN$*D10D%(8)08704D10D%(8)0850>L5:MD%(5):DD%(6):YD%(7):1150:E10LL4:530H970:D%(8)JN:1050:W2$LN$:870PRL5:JND%(8):YD%(7):1230:E10LL4:530x\1010:D%(5)M:D%(6)D:1050:W2$LN$fD%(1)0D%(5)01260:900pD%(10)0D%(11)0D%(12)0D%(13)0900z13702220:E16:1780:530D%(1)0D%(1)12E11:1780:L1:5306D%(3)0E13:1780:L3:530JMD%(1):YD%(3)iD1:1050:1580:E15:1780|Z$:Z$""950280JN0:M1JND:1000I1M1:JNJNDS%(I):I:JNJNDM21100:LY1JNJN1M1JN591100:LY1DS%(2)297DS%(M)JNJNJNDS%(M):MM1:1020LDS%(2)28:DJN:bM3MM12:YY1$ND2M(.6(M1))Y(Y4)(Y100)(Y400)2.N((N7(N7))7.5)8N0N9:N0N01BLN$(WK$,N0,9):LLY0:(Y4)Y4LY1VY3(Y100):YY3100,`Y34(Y34)LY0LjDS%(2)28:LY1DS%(2)29:Rtj~Y0E13:L3:1780D0E12:L2:1780M12M0E11:L1:1780(M4M6M9M11)(D30)ER2:L2:1780(M1M3M5M7M10M12)(D31)E12:L2:1780M251100:(LY1D30)(LY0D29)HE12:L2:1780`Y0E13:L3:17801100:(LY1JN367)(LY0JN366)E14:L4:1780AY0:AD0:D%(4)D%(8)D%(3)D%(7)D%(3)D%(7)Y1D%(3):D1D%(4):Y2D%(7):D2D%(8):1320;D%(3)D%(7)Y1D%(7):D1D%(8):Y2D%(3):D2D%(4):1320Q Y1D%(7):Y2D%(3)zD%(4)D%(8)D1D%(4):D2D%(8):1340D%(4)D%(8)D1D%(8):D2D%(4):1340(YY2:1100:LY1(Y1Y2D160)ADAD12D1D2D1D1365LY:Y1Y11<AYY1Y2:ADADD1D2=FI913:(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3)):IVPI913:D%(I)0:I:tZJN0:D0:M0:YD%(3):AD0dAS1:AT$"-"AS1nADD%(10)ASxADAD(D%(11)7AS):D%(12)01450YD%(3):MD%(1):M31D%(12):1100:ADAD(DS%(M)AS) MMAS:M0M12 M13M1( M3< YY(D%(13)AS)L JND%(4)AD] JN3661500y 1100:LY1JN3671500 JNJN365LY:YY1:1470 JN01530 1100:LY1JN0JN365:1530 JNJN365LY:YY1:1500 D%(7)Y:D%(12)01560C$" "i*HZZ2:Z0Z1:2030s*R2180*\I%(L,4)02180*f2030*pI%(L,4)12180*z2030*TK$""C$;:#3,TK$:"";:ZZ1:ZI%(L,3)2030+#3,ST$:ST$TK$""TK$;9+(BK$,Z);:ST$"":I1I%(L,3):#3,Z$:ST$ST$Z$:?+]+"":I19:D%(I)02260+(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3))(BK$,I%(I,3));+(((D%(I)),2))I%(I,3)("******",I%(I,3)):2260+((D%(I)),2,I%(I,3)),I:(RW$,13)4)""W1$12)W2$6,(RW$,20)24)""((AD),2,3)" "e,(RW$,20)31)""((AY),2,4)" ":"":,:"":  L(16)2CT275 : COLOR TABLE IN RAMM 0,1 : SCREEN BLACKh( 4,6,3: BORDER GREEN2 1,2 : TEXT WHITE<"" : CLEAR THE SCREENF" COLOR CALIBRATER"P" "ZZ$"  ">dDL$""]nAR$""|xER$"   """;I216: 1,I,0:Z$;:1,2::"";:I216:DL$;:I015:CTI,I:L(I)0:CD$"":1,2,38(CD$,15);:I115:4I2)" ";:U:""AR$:AP1:LA1(CD$,23)"USE THE CURSOR KEYS TO ADJUST THE COLORS";1,3,3:"" 1,2,3: WAIT FOR A KEYPRESSA$:A$""A$""A$""A$""250%:EA$""APAP1:AP16AP1fA$""APAP1:AP 0AP15}"A$""A$""320,(CD$,17)32LA)ER$6(CD$,17)32AP)AR$:LAAP:250@A$""410JLL(AP):L(AP)L(AP)1:L(AP)8L(AP)7:250-T1,2:(CD$,15L)42AP)"ݑ";:1,2,3:" "[^ 1,AP1,L(AP):(CD$,5)32AP)Z$:1,2,3ah:r THIS LINE POKES THE CORRECT| COLOR VALUE INTO MEMORYCTAP,AP16L(AP):250:LL(AP):L(AP)L(AP)1:L(AP)1L(AP)0:250%1,2:(CD$,15L)42AP)"";:1,2,3:" ".3507440