C64S tape image fileEXP IN SW        ZHIRES GRAPHICS ‚;ò COLOR CALIBRATE š,YCALENDAR        'STORY PROB A‰òÿÿUNIT4DRILL 4‰òÿÿUNIT5QUIZ ,‰òÿÿSENTENCES G‰òÿÿUNIT7QUIZ  ç1,2:ç0,1:ç4,1Þ 1,1Eà 1,8,1,"HIGH RESOLUTION GRAPHICS"K#:a$� DRAW AXIS LINESy(å 1,0,100 ¤ 319,100“2å 1, 160,20 ¤ 160,199™7:·8� DRAW TICK MARKS ON AXISÑ<� MARK ² 0 ¤ 319 © 10ìFå 1,MARK,98 ¤ MARK,102÷P‚ MARKZ� MARK ² 20 ¤ 199 © 10.då 1,158,MARK ¤ 162,MARK9n‚ MARK?x:\y� DRAW CURVE USING LINESe}ç1,8{‚� X ² 0 ¤ 319 © 4–ŒY ² 100ª(¿(X­25.5)¬80)¬–å 1,160,100 ¤ X,Y´ ‚ Xº¡:à¢� PUT AN OUTLINE AROUND THE CURVEí¥� K²«1¤1ùªæ 0,100´� X ² 0 ¤ 319 © 2*¾Y ² 100ª(¿(X­25.5)¬80)8Èå ¤ XªK,Y@Ò‚ XHׂ KXá¡ù A$:Þ œ:¢ —281,38" �I²1¤8:ùI,Ç(I):‚-n™"“Ž"_œ:™"“":ç4,2,7:ç0,2,7:†I%(13,4),D%(13),DS%(12)�"�L²1¤13:‡I%(L,1),I%(L,2),I%(L,3),I%(L,4):‚L¦,�I²1¤12:‡DS%(I):‚IÆ6ƒ9,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,08Jƒ11,27,3,0, 16,12,1,1, 17,12,4,0, 18,12,4,0, 19,12,4,0, 20,12,4,0‚TWK$²"SATURDAY SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY "«^ƒ31,28,31,30,31,30,31,31,30,31,30,31öhYR$²" 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 MM¤E$(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�"mÖH$(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�"VþRW$²"":BK$²"��������������������„FR$²" ":�1800:Ÿ3,3:L²1¤E1²7:�1790:�2010:E1²0:�1780ÈD%(L)²Å(ST$):‹I%(L,4)²1§AT$²ST$ä&�I²1¤8:‹Ê(W$,I,1)³±C$§‚0‘I‰600,590,600,580,570,690,910,630,600:�1980&DL²1:‰5300NL²L«2>X‹L³0§L²12RbL²Lª1:‹L±13§L²1il�I²1¤10:¡C$:‚:‰530€v‹L±0¯L³4§HP²1:‰680—€‹L±4¯L³8§HP²2:‰680ªŠ‹L²4§HP²8:‰680½”‹L²8§HP²9:‰680ÈžHP²L«6訙È(RW$,24)¦1)H$(HP)"":‰530*²E1²0:�1780:�1790:E1²8:�1790:W1$²" ":W2$²W1$:AD²0:AY²0N¼E1²0:D0²0:�I²1¤4:D0²D0ªD%(I):‚ImÆD1²0:�J²5¤8:D1²D1ªD%(J):‚JŒÐ‹D0²0¯D1²0§E1²9:�1780:‰530šÚ‹D0²0‰810¼äD0²D%(1)ªD%(2):D1²D%(5)ªD%(6)Óî‹D0²0¯D%(4)²0§‰810ëø‹D0²0¯D%(4)³±0§‰790L²1:M²D%(1):D²D%(2):Y²D%(3):�1150:‹E1³±0‰530A �970:D%(4)²JN:�1050:W1$²LN$:‰810kL²1:JN²D%(4):Y²D%(3):�1230:‹E1³±0‰530“ �1010:D%(1)²M:D%(2)²D:�1050:W1$²LN$ª*‹D1²0¯D%(8)²0§‰870Â4‹D1²0¯D%(8)³±0§‰850ú>L²5:M²D%(5):D²D%(6):Y²D%(7):�1150:‹E1³±0§L²Lª4:‰530H�970:D%(8)²JN:�1050:W2$²LN$:‰870PRL²5:JN²D%(8):Y²D%(7):�1230:‹E1³±0§L²Lª4:‰530x\�1010:D%(5)²M:D%(6)²D:�1050:W2$²LN$šf‹D%(1)³±0¯D%(5)³±0§�1260:‰900Çp‹D%(10)²0¯D%(11)²0¯D%(12)²0¯D%(13)²0‰900Ñz�1370ë„�2220:E1²6:�1780:‰530Ž‹D%(1)²0°D%(1)±12§E1²1:�1780:L²1:‰5306˜‹D%(3)²0§E1²3:�1780:L²3:‰530J¢M²D%(1):Y²D%(3)i¬D²1:�1050:�1580:E1²5:�1780|¶¡Z$:‹Z$²""‰950…À‰280žÊJN²0:‹M²1§JN²D:‰1000ÃÔ�I²1¤M«1:JN²JNªDS%(I):‚I:JN²JNªDàÞ‹M±2§�1100:‹LY²1§JN²JNª1æèŽîòM²1ü‹JN±59§�1100:‹LY²1§DS%(2)²297‹DS%(M)³JN§JN²JN«DS%(M):M²Mª1:‰1020LDS%(2)²28:D²JN:Žb‹M³3§M²Mª12:Y²Y«1—$N²Dª2¬Mªµ(.6¬(Mª1))ªYªµ(Y­4)«µ(Y­100)ªµ(Y­400)ª2².N²µ((N­7«µ(N­7))¬7ª.5)Ç8N0²N¬9:‹N²0§N0²1ÝBLN$²Ê(WK$,N0,9):Ž÷LLY²0:‹µ(Y­4)²Y­4§LY²1VY3²µ(Y­100):‹Y³±Y3¬100§Ž,`‹Y3­4³±µ(Y3­4)§LY²0LjDS%(2)²28:‹LY²1§DS%(2)²29:ŽRtŽj~‹Y²0§E1²3:L²3:‰1780‚ˆ‹D²0§E1²2:L²2:‰1780Ÿ’‹M±12°M²0§E1²1:L²1:‰1780Íœ‹(M²4°M²6°M²9°M²11)¯(D±30)§ER²2:L²2:‰1780¦‹(M²1°M²3°M²5°M²7°M²10°M²12)¯(D±31)§E1²2:L²2:‰1780°‹M³±2§Ž5º�1100:‹(LY²1¯D³30)°(LY²0¯D³29)§ŽHÄE1²2:L²2:‰1780`΋Y²0§E1²3:L²3:‰1780‰Ø�1100:‹(LY²1¯JN³367)°(LY²0¯JN³366)§ŽœâE1²4:L²4:‰1780ÅìAY²0:AD²0:‹D%(4)²D%(8)¯D%(3)²D%(7)§Žö‹D%(3)±D%(7)§Y1²D%(3):D1²D%(4):Y2²D%(7):D2²D%(8):‰1320;‹D%(3)³D%(7)§Y1²D%(7):D1²D%(8):Y2²D%(3):D2²D%(4):‰1320Q Y1²D%(7):Y2²D%(3)z‹D%(4)±D%(8)§D1²D%(4):D2²D%(8):‰1340£‹D%(4)³D%(8)§D1²D%(8):D2²D%(4):‰1340Î(Y²Y2:�1100:‹LY²1¯(Y1²Y2¯D1³60)§AD²ADª1î2‹D1³D2§D1²D1ª365ªLY:Y1²Y1«1<AY²Y1«Y2:AD²ADªD1«D2=F�I²9¤13:™È(RW$,I%(I,1))¦I%(I,2))È(FR$,I%(I,3)):‚IVP�I²9¤13:D%(I)²0:‚I:ŽtZJN²0:D²0:M²0:Y²D%(3):AD²0ŒdAS²1:‹AT$²"-"§AS²«1�nAD²D%(10)¬ASÄxAD²ADª(D%(11)¬7¬AS):‹D%(12)²0‰1450ý‚Y²D%(3):M²D%(1):�M3²1¤D%(12):�1100:AD²ADª(DS%(M)¬AS) ŒM²MªAS:‹M²0§M²12 –‹M²13§M²1(  ‚M3< ªY²Yª(D%(13)¬AS)L ´JN²D%(4)ªAD] ¾‹JN³366‰1500y È�1100:‹LY²1¯JN³367‰1500– ÒJN²JN«365«LY:Y²Yª1:‰1470¥ Ü‹JN±0‰1530Ç æ�1100:‹LY²1¯JN²0§JN²365:‰1530ä ðJN²JNª365ªLY:Y²Y«1:‰1500ÿ úD%(7)²Y:‹D%(12)²0‰1560C$²"� �"i*HZ²Z«2:‹Z³0§Z²1:‰2030s*R‰2180‡*\‹I%(L,4)²0‰2180‘*f‰2030¥*p‹I%(L,4)²1‰2180¯*z‰2030ã*„™TK$"�"C$;:¡#3,TK$:™"�";:Z²Zª1:‹Z³²I%(L,3)‰2030+Ž¡#3,ST$:‹ST$³±TK$§™"�"TK$;9+˜™È(BK$,Z);:ST$²"":�I²1¤I%(L,3):¡#3,Z$:ST$²ST$ªZ$:‚?+¢Ž]+¬™"�":�I²1¤9:‹D%(I)²0‰2260—+¶™È(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)2CT²275 :� COLOR TABLE IN RAMMç 0,1 :� SCREEN BLACKh(ç 4,6,3:� BORDER GREEN�2ç 1,2 :� TEXT WHITE <™"“" :� CLEAR THE SCREENÄF™" COLOR CALIBRATER"èP™" ¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸"ûZZ$²"¥ ��¥ ‘">dDL$²"°®��«Ý��«Ý��«Ý��«Ý��«Ý��«Ý��«Ý��«Ý��­½‘‘‘‘‘‘‘‘‘"]nAR$²"©ß�’�§¥��§¥‘‘‘���"|xER$²" ��� ��� ‘‘‘"‹‚™"";¦Œ�I²2¤16:ç 1,I,0:™Z$;:‚Ì–ç1,2:™:™"";:�I²2¤16:™DL$;:‚é �I²0¤15:—CTªI,I:L(I)²0:‚ªCD$²"":ç1,2,38´™È(CD$,15);:�I²1¤15:™£4ªI¬2)" ";:‚U¾™:™""AR$:AP²1:LA²1�È™È(CD$,23)"USE THE CURSOR KEYS TO ADJUST THE COLORS";ÆÒç1,3,3:™"¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸"ÒÜç 1,2,3Øæ:òð� WAIT FOR A KEYPRESSú¡A$:‹A$³±"‘"¯A$³±""¯A$³±"�"¯A$³±""§250%:E‹A$²""§AP²APª1:‹AP²16§AP²1f‹A$²"�"§AP²AP«1:‹AP² 0§AP²15}"‹A$²"‘"°A$²""§320—,™È(CD$,17)£3ª2¬LA)ER$¼6™È(CD$,17)£3ª2¬AP)AR$:LA²AP:‰250Ì@‹A$²""§410üJL²L(AP):L(AP)²L(AP)ª1:‹L(AP)²8§L(AP)²7:‰250-Tç1,2:™È(CD$,15«L)£4ª2¬AP)"Ý‘�";:ç1,2,3:™" "[^ç 1,APª1,L(AP):™È(CD$,5)£3ª2¬AP)Z$:ç1,2,3ah:ƒr� THIS LINE POKES THE CORRECT¡|� COLOR VALUE INTO MEMORY½†—CTªAP,APª16¬L(AP):‰250Ã�:ôšL²L(AP):L(AP)²L(AP)«1:‹L(AP)²«1§L(AP)²0:‰250%¤ç1,2:™È(CD$,15«L)£4ª2¬AP)"Ý�";:ç1,2,3:™" ".®‰3507¸‰440