C64S tape image fileMASTERING YOUR VIC20 ’ÀVIC PLAYER /Q SONG EDITOR ðMASTER µn#WORD DETECTIVE 6"+ANSWER MACHINE kW.BREAKUP ÿÁ7VIC CLOCK ¿APC-DEMO1 ]ÄCPC-DEMO2 # EPC-MULTI-DEMO YBLPC-HALF-DEMO šOBAR SORT !§[PHONE BOOK  ÇcMICRO CALC  —36879,27:�12000'�9500:�100009¡A$:‹A$²""§30Q(V²Å(A$):‹V³1°V±6§30z2‘V�1000,2000,3000,4000,5000,6000:‰20†èV²0:F²0¢ò�11000:� PRINT KEYBOARDªüD²0Ä¡A$:D²Dª1:‹A$²""§1030Ò‹F²1§1050â�9700:—CR,0þF²0:‹A$²" "§�8000:‰1010#$‹A$²""°A$²""§—CR,0:W%(Vª1)²0:Ž0.TP²Æ(A$)d8‹TP±133¯TP³137§R²136«TP:CR²RªRG:�9500:F²1:‰1020~BNX²TP«42:‹NX±50§ NX²3˜LNP²NP%(NX):—CR,A%(NP)±VV²Vª1:‹V²L§W%(V)²0:Ž»`‰1020ÓЙ"“PLAYING":™B$:V²1ûÚ‹W%(V)²0§™"NO SONG IN MEMORY":‰9000ä�9200î�9800&ø—CR,0:V²Vª1:‹V±L§Ž8¡A$:‹A$³±""§ŽM �9200:‹X³±0§2030W‰9000v¸ �9100:Ÿ1,1,1,B$:˜1,B$,CR$;ˆ ˜1,W%(V);CR$;§Ì ‹W%(V)²0§ 1:™"SAVED":‰9000·Ö V²Vª1:‰3010Õ �9100:Ÿ1,1,0,B$:„1,B$:™B$⪄1,W%(V)´‹W%(V)²0 §  1:™"LOADED":‰9000¾V²Vª1:‰4010$ˆ™"TEMPO=";SD’™"NEW TEMPO=";:…S:‹S³1§5010JœŽUp™"“":€e@�9500:�9200yJ™"“CHOICES:"‹T™"C’ONTINUE"›^™"R’EPLAY"³h™"B’ACK UP 1 NOTE"Ãr™:™"WHICH?"×|¡A$:‹A$²""§8060ö†‹A$²"C"§ V²V«1:�9200:‰9500�‹A$²"R"§�2000:‰8010 š‹A$³±"B"§8060.¤‹V²1‰8060D®V²V«1:�9200:�9800T¸�9500:‰8060e(#�I²1¤700:‚:Ž�Œ#™"“WHAT IS THE NAME":™"OF THE SONG"›–#V²1:…B$:ާð#X²W%(V)Àú#R²µ(X­10000):CR²RGªRÓ$Y²µ(X«R¬10000)ã$NP²µ(Y­100)õ$D²µ(Y«NP¬100)"$N²A%(NP):Ž%�I²0¤2:—RGªI,0:‚:Ž*ä%‹D±99§D²99Hî%W%(V)²µ(R¬10000ªNP¬100ªD)Nø%ŽnH&—CR,A%(NP):�I²1¤(S¬D)­8:‚:Ž'™"“�":V²0•'™"VIC PLAYER"À$'™"1’ PLAY SONG":™"2’ REPLAY SONG"æ.'™"3’ SAVE SONG":™"4’ LOAD SONG"8'™"5’ CHANGE TEMPO ";S;"’"B'™"6’ QUIT"*L'™"CHOOSE?":ŽBø*™"“PLAY WHEN READY"Š+™"�SPACE BAR TO PAUSE":™"CRSR TO END SONG":™"A, F, OR K = REST"© +™"¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤";Ø+™"ÝÝ ’Ý ’Ý ’ÝÝÝ ’Ý ’ÝÝÝ ’Ý ’Ý ’Ý"; +™"ÝÝ2’Ý3’Ý4’ÝÝÝ6’Ý7’ÝÝÝ9’Ý0’Ý+’Ý";(*+™"�’Ý­À±À±À½Ý­À±À½Ý­À±À±À½";^4+™"�ÝF�ÝG�ÝA�ÝB�ÝC�ÝD�ÝE�ÝF�ÝG�ÝA�ÝB�";~>+™"�ÝQÝWÝEÝRÝTÝYÝUÝIÝOÝPÝ@";ŸH+™"�’±À±À±À±À±À±À±À±À±À±À±À";ÍR+™"� ÝÝ ’Ý ’ÝÝÝ ’Ý ’Ý ’ÝÝÝ ’Ý ’ÝÝ";û\+™"� ÝÝS’ÝD’ÝÝÝG’ÝH’ÝJ’ÝÝÝL’Ý:’ÝÝ";f+™"� Ý­À±À½Ý­À±À±À½Ý­À±À½Ý";Op+™"� ÝC�ÝD�ÝE�ÝF�ÝG�ÝA�ÝB�ÝC�ÝD�ÝE�Ý";oz+™"� ÝZÝXÝCÝVÝBÝNÝMÝ,Ý.Ý/Ý";‘„+™"�’ ­À±À±À±À±À±À±À±À±À±À±";—Ž+ŽÆà.S²50:L²260:†W%(L),A%(38),NP%(50):CR$²Ç(13)äê.RG²36874:�I²0¤2:—RGªI,0:‚òô.—36878,15øþ.Œ /�I²0¤38:‡A%(I):‚#/�I²0¤50:‡NP%(I):‚5/R²1:CR²RGªR:ŽZÈ2ƒ135,143,147,151,159,163,167,175Ò2ƒ179,183,187,191,195,199,201,203¤Ü2ƒ207,209,212,215,217,219,221,223Éæ2ƒ225,227,228,229,231,232,233,235èð2ƒ236,237,238,239,240,241,0 °6ƒ36,34,12,38,14,16,32,38,18,20.º6ƒ22,38,25,27,38,30,15,38,38,38RÄ6ƒ14,16,35,38,7,4,3,21,38,6,8,29vÎ6ƒ10,38,13,11,9,31,33,17,23,1,24�Ø6ƒ28,5,19,2,26,0,38,37  �12000(d™"“SONG EDITOR"Fn™"1’ EDIT":™"2’ PLAY"Vx™"3’ SAVE"s‚™"4’ LOAD": ™"5’ QUIT"‡Œ™"CHOOSE?":B²0‘–�1540º ‘Å(A$)�1000,2000,4000,5000,6000:‰100Ôè™"“CURRENT SONG: ";B$ÜüV²0ù™" # N O L # N O L"$V²Vª1:J²Jª1:V$²Ä(V):‹Ã(V$)³3§V$²" "ªV$<‹Ã(V$)±3§V$²É(V$,3)o$�9200:‹X²0§™"END":™"":‰1140‹.D$²Ä(D):‹D³10§D$²" "ªD$Ÿ8™V$;" "N$;O$;D$®B‹J³15§1040ÁL‹J²15§™"";ÕV™"";ä`‹J³30§1040êj™ t™"N’EXT,P’REVIOUS OR #’"&~A$²"":…A$:TP²V:V²Å(A$)4ˆ‹V²0§1430X’™"“C’HNGE,D’ELET OR I’NSRT?"oœ�1540:‹A$²"C"§1200y¦‰1460ƒ°�9200¡Ä™"LENGTH NOTE OCT REGTR"³Ø‹W%(V)²0§1270ÏâD$²Ä(D):‹D³10§D$²" "ªD$íì™D$" "N$" "O$" "RöA$²"":…"NEW LENGTH: ";A$:‹A$²""§1410.û‹Å(A$)±99 §A$²"99"C‹A$³±"/"§D²Å(A$)j A$²"":…"NEW NOTE: ";A$:‹A$²""§1360�‹A$³±"/"§N$²A$:‹Ã(N$)²1§N$²N$ª" "¹(A$²"":…"NEW OCTAVE: ";A$:‹A$²""§1360Ï-‹Å(A$)±3 § A$²"3"â2‹A$³±"/"§O$²A$ <A$²"":…"NEW REGISTER: ";A$:‹A$²""§1360#A‹Å(A$)±2 § A$²"2"8F‹A$³±"/"§R²Å(A$)^PNP²«1:�I²0¤12:‹N$²N$(I)§NP²I:I²12dZ‚‚d‹NP²«1§™"NOT FOUND":‰1200“i‹NP²12§NP²38ÀnNP²NPªÅ(O$)¬12:W%(V)²µ(R¬10000ªNP¬100ªD)ÐxV²Vª1:‰1200Û‚V²TP«J臋V³0§V²0ûŒJ²0:™"“":‰1030–‹A$²"P"§V²TP«(Jª30):‰14159 ‹A$²"N"§™"“":J²0:V²TP:‰1030CªJ²0:ŽT´‹A$²"D"§1510t¾�I²1¤L:‹W%(I)²0§A$²Ä(I):I²LˆÈ‚:�I²Å(A$)¤V©«1œÒW%(Iª1)²W%(I):‚¦Ü‰1270¾æW%(V)²W%(Vª1):V²Vª1Õð‹W%(V)²0§J²V:‰1410ßú‰1510ó¡A$:‹A$²""§1540ùŽÐ™"“PLAYING ";B$:V²1;Ú‹W%(V)²0§™"NO SONG IN MEMORY":�7000:ŽEä�9200\î—CR,N:�I²1¤S¬D­8:‚sø—CR,0:V²Vª1:‹V±L§Ž…¡A$:‹A$³±""§Žš �9200:‹X³±0§2030 ŽÍ ™"“WHAT IS THE":™"NAME OF THE SONG ":…B$ùªV²1:‹W%(V)²0§™"NO SONG TO SAVE":�7000:Ž´Ÿ1,1,1,B$:˜1,B$;CR$;$¾˜1,W%(V);CR$;EÈ‹W%(V)²0§ 1:™"SAVED":�7000:ŽUÒV²Vª1:‰4030rˆ™"“WHAT IS THE NAME":V²1Š’™"OF THE SONG":… B$«œŸ1,1,0,B$:„1,B$:™"FOUND ";B$¸¦„1,W%(V)Ò°‹W%(V)³±0§V²Vª1:‰5030Ûº 1:Žæp™"“":€÷X�I²1¤700:‚:Žð#X²W%(V)/ú#R²µ(X­10000):Y²µ(X«R¬10000):NP²µ(Y­100)I$D²µ(Y«NP¬100):CR²RGªRn$N²A%(NP):‹NP²38§NP²12:O²0:‰ 9250ˆ$O²µ(NP­12):NP²NP«O¬12£"$N$²N$(NP):O$²É(Ä(O),1)©,$Ž×à.S²50:L²260:†W%(L),A%(38),N$(12):CR$²Ç(13)õê.RG²36874:�I²0¤2:—RGªI,0:‚ ô.—36878,15:—36879,30"þ.�I²0¤12:‡N$(I):‚7/�I²0¤38:‡A%(I):‚I/R²1:CR²RGªR:ŽuÈ2ƒC ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,[]–Ò2ƒ135,143,147,151,159,163,167·Ü2ƒ175,179,183,187,191,195,199Øæ2ƒ201,203,207,209,212,215,217ùð2ƒ219,221,223,225,227,228,229ú2ƒ231,232,233,235,236,237,238-3ƒ239,240,241,0: � 8000:�7500:� SET UP CONSTANTS, SELECT # OF PLAYERSld�7000:�5000:� SELECT GAME LEVEL, WAIT FOR KEYŸn‘NP�1000,4000:� RANDOM OR PLAYER-INPUT PATTERN¨xGN²1Í‚�2000:‰150:� HEADER, ENTER GUESSñŒ�2020:� ENTER GUESS (NO HEADER)–‹T$²"?"§�9000:‰100 PM²0:OM²0?ª� 3000:� PROCESS GUESS, RETURN PM,OMU´‹PM²NN§�6000:‰100h¾™£12)"� "PM;OMzÈGN²GNª1: ‰140˜è� GENERATE RANDOM NUMBERS§ò� I²1 ¤ NNºüRN²µ(»(1)¬Nª1)Ê‹ RP § 1090àRQ²0:‹ I²1 § 1090ð� J²1 ¤ I«1 $‹ RN²R(J) § RQ²«1: J²I«1.‚ J%8‹ RQ § 10201BR(I)²RN9L‚ I?VŽRÐ� PRINT HEADERsÚ™"“œSELECT LETTER’ ON OFF"‡ä� PROCESS GUESS–î� I²1 ¤ NN ø™FD$;²—CF,0:—CFª3,0Ç ¡ T$:‹T$²""§2060Ñ—CF,1ÿ ‹T$²"_"§™CR$"‘ ‘":I²NN:‚:‰2030*‹T$²"?"§I²NN:‚:‰2140D4T²Æ(T$)«64: ‹ T³1 ° T±N § ™BK$;: ‰ 2040Q>™OB$(T);]HGU(I)²TeR‚ Ik\Ž}¸ � CLEAR FLAGSŒ � I²1 ¤ NN¡Ì PF(I)²0: PG(I)²0©Ö ‚ IÊà � CHECK FOR POSITION MATCHESÙê � I²1 ¤ NNô ‹ R(I)²GU(I) § PF(I)²«1: PG(I)²«1: PM²PMª1þ ‚ I.¬ � CHECK FOR OTHER MATCHES=¶ � I²1 ¤ NNMÀ ‹PG(I)§3570\Ê � J²1 ¤ NNlÔ ‹PF(J)§3560 Þ ‹ R(I)²GU(J) §OM²OMª1: PF(J)²«1: PG(I)²«1: J²NN¨è ‚ J°ò ‚ I¶ü ŽÊ � INPUT PATTERN䪙"“ONE PLAYER ENTERS"ô´™" PATTERN"¾™"WHILE OTHER PLAYER"!È™" LOOKS AWAY"8Ò™"ENTER PATTERN:"DÜ�I²1¤NNNæ™FD$;Xð—CF,0lú¡T$:‹T$²""§4090v—CF,1”‹T$²"_"§™BK$:I²NN:‚:‰4060±T²Æ(T$)«64:‹T³1°T±N§4080¾"™OB$(T);É,R(I)²TÏ6‚Õ@ŽÞˆ™CN$ó’¡T$:‹ T$²""§5010ùœŽp� CONGRATULATIONS$z‹GN²1§MS²1:‰6070=„‹GN³²G(1)§MS²2:‰6070VŽ‹GN³²G(2)§MS²3:‰6070o˜‹GN³²G(3)§MS²4:‰6070ˆ¢‹GN³²G(4)§MS²5:‰6070‘¬MS²6›¶™"“";§À�I²«1¤0´Ê‹I§™"";ÅÔ™""MS$(MS)ÚÞ™"œYOU TOOK Ÿ";çè‹I§™"";ò™Ê(Ä(GN),2);"’œ TRIES!"ü�J²1¤200:‚J‚I#™CN$5¡T$:‹T$³±""§Ž?$‰6080E.ŽfX� PROCESS INITIAL CONDITIONS{b™"“SELECT GAME:"Žl™"1’ EASY" v™"2’ MID"³€™"3’ HARD"Ç”¡T$:‹T$²""§7060ážT²Å(T$):‹T³1°T±3§7060÷¨‘T�7100,7200,7300ý²Ž/¼N²4:RP²0:G(1)²3:G(2)²5:G(3)²7:G(4)²10:G(5)²15BÆ™"“EASY GAME:"LÐ�7400`Ú™"ONLY ONCE"f䎙 N²4:RP²«1:G(1)²4:G(2)²6:G(3)²8:G(4)²12:G(5)²18«*™"“MID GAME:"µ4�7400Î>™"MORE THAN ONCE"ÔHŽ„N²6:RP²«1:G(1)²5:G(2)²7:G(3)²10:G(4)²15:G(5)²20Ž™"“HARD GAME:"%˜�7400>¢™"MORE THAN ONCE"D¬Žqè™"";:�I²1¤N:™OB$(I)" ";:‚:™" ALLOWED"�ò™"EACH MAY BE USED"­ü™"_’ TO CLEAR GUESS"É™"?’ TO GIVE UP"ÏŽìL™"“�1’ OR 2’ PLAYERS?" V�5010:‹T$³"1"°T$±"2"§7510`NP²Å(T$):Ž3@� SET-UP OF CONSTANTScJOB$(1)²"�A’": OB$(2)²"B’": OB$(3)²"ŸC’"“TOB$(4)²"œD’": OB$(5)²"E’": OB$(6)²"F’"È^CN$²"ANY KEY WHEN READY"þhNN²4:FD$²"� >":BK$²"��":CR$²Ç(13):CF²204:I²»(«TI)>|MS$(1)²"A PSYCHIC!":MS$(2)²"EXCELLENT!":MS$(3)²"VERY GOOD!"z†MS$(4)²"GOOD":MS$(5)²"FAIR":MS$(6)²"TRY,TRY,TRY AGAIN!"€�ŽŸ(#� PRINT PATTERN ON GIVE-UPÁ2#™CR$"‘GIVE UP?’ PATTERN IS:"â<#�I²1¤NN:™" >"OB$(R(I))"’";:‚îF#�5000:Ž� WORD DETECTIVE+ � 9000 : � INIT?d� MAIN PROGRAM]nR²µ(»(1)¬5)ª1:‹ R²X § 110xx… Z$ : ‹ Ã(Z$)²0 § 120¤‚‹ Z$ ² "THE RULE IS" § � 3000:X²R:‰ 110ÆŒ‹ Z$ ² "THE RULES ARE" § 4000áÇ� PROCESS NORMAL WORDõÈJ²0:D²0:V²0:C²0ÒF$ ² È(Z$,1)ÜL$ ² É(Z$,1)%æL ² Ã(Z$):ð‹ µ(L) ¯ 1 § J²1Lú‹ L ² 1 § 290\� K ² 1 ¤ L‚‹ Ê(Z$,K,1) ² Ê(Z$,Kª1,1) § D ² 1ˆ‚˜"� K ² 1 ¤ L«,V$ ² Ê(Z$,K,1)Ð6‹ V$²"A" ° V$²"E" ° V$²"I" § 340õ@‹ V$²"O" ° V$²"U" ° V$²"Y" § 340JC ² Cª1: ‰ 350TV ² Vª1^‚-ç� SELECT TESTVè‘ R � 1100,1200,1300,1400,1500:‰ 120gL‹ J²0 § 2000rV‰ 2100„°‹ L²³5 § 2100�º‰ 2000 ‹ C±V § 2000«‰ 2100¾x‹ F$³L$ § 2100É‚‰ 2000ÚÜ‹ D²1 § 2100忉 2000þÏ� CHANGE WORD COLOR%Й "‘";" ";"";: � GREEN FOR HATE2Ú™ Z$;""8äŽ\4™ "‘";" ";"";:� RED FOR LOVEg>‰ 2010z¸ � THE RULE IS— ™ "�RULE #";R:™: � 3100®Ì ™:™ "PRESS RETURN"ÇÖ ™ " TO CONTINUE: ";Òà … Z$:Žû ™ "I HATE WORDS WITH ":™ Y$(R«1):™#& ™ "I LOVE WORDS WITH ":™ X$(R«1);00 ™ "": ™6: ŽK � THE RULES AREnª™ "“�WORD DETECTIVE RULES:":™Œ´� R ² 1 ¤ 5:™ "�RULE #";R—¾� 3110�È‚§Ò‰ 110¼(#� INITIALIZATIONÎ2#† X$(4),Y$(4)Ô<#ŒäF#� I ² 0 ¤ 4ùP#‡ X$(I),Y$(I): ‚Z#™ "“�WORD DETECTIVE":™ ""1d#™ "IF I LIKE A WORD"Mn#™ " I MAKE IT RED":™fx#™ "IF I HATE A WORD"„‚#™ " I MAKE IT GREEN":™ŸŒ#™ "FIGURE OUT MY RULE"½–#™ " BY TRYING DIFFERENT"Р#™ " WORDS.":™îª#™ "WHEN YOU HAVE FIGURED" ´#™ " IT OUT, OR YOU GIVE"!¾#™ " UP, TYPE:"";È#™ "� THE RULE IS"ZÒ#™ " TO DISPLAY THE RULE."zÜ#™:™ "TO DISPLAY ALL OF THE"‘æ#™ " RULES, TYPE:"­ð#™ "� THE RULES ARE"¼ú#R ² »(«TI)Â$Žó'ƒ "ODD NO. OF LETTERS","EVEN NO. OF LETTERS""'ƒ "5 LETTERS OR FEWER","6 LETTERS OR MORE"U$'ƒ "VOWELS => CONSONANTS","VOWELS < CONSONANTS"ˆ.'ƒ "FIRST LETTER < LAST","FIRST LETTER => LAST"³8'ƒ "DOUBLE LETTERS","NO DOUBLE LETTERS"� THE ANSWER MACHINE9 ™ "“THE ANSWER MACHINE":™X™ "I KNOW EVERYTHING !": ™ˆ™ "YOU ASK QUESTIONS":™ " ABOUT ANYTHING,"½(™ " AND I WILL ANSWER":™ " WITH A YES, NO, OR"Ð2™ " MAYBE.":™ù<™ "TO EXIT, TYPE A":™ " SINGLE ?":™dS$ ² "": T ² 0: ™ : ™ "�?";2n¡ A$:‹ A$ ² "" § 110mx™ A$;: T ² T ª Æ(A$): S$ ² S$ ª A$ : ‹ A$ ³± "?" § 110€‚‹ S$ ² "?" § €ŠŒ™ ""¡–T ²T «µ(T­10)¬10ª1Ú ‘ T � 200,210,220,200,210,220,200,320,200,210: ‰ 100èÈ™ "YES":ŽöÒ™ "NO": Ž ÜR ²µ(»(0)¬10)ª1<ð‘ R ‰ 300,310,320,330,340,350,360,370,380,390M,™ "MAYBE": Žb6™ "SOMETIMES": Žv@™ "POSSIBLY": Ž’J™ "ARE YOU KIDDING?": Ž¥T™ "PERHAPS": ޼^™ "NOT LIKELY!": ŽÔh™ "INDUBITABLY!": Žér™ "OF COURSE": Ž |™ "I CAN'T TELL YOU THAT": Ž4†™ "PLEASE RE-PHRASE THE QUESTION": ŽE X²0:Y²X:X1²X:Y1²X:S0²X:S1²X:S2²X:S3²X:DY²X:DX²X:—36879,30:‰4000rèS1²S0ª22¬A:S2²S0ª22¬(Aª1):S3²S0ª22¬(Aª2)ˆò—S1,B:—S2,B:—S3,BŽüަÐTS²µ(Â(36872)­17)ª2»Ú‹TS³Aª2¯TS±A«2§ŽÊäB²SP:�1000ÙîA²TS:‰2150øQ0²«((Â(PA)¯4)²0):Q1²((Â(PA)¯8)²0)‹Q0³±0§S²«3:‰2130+ ‹Q1³±0§S²3:‰21301ŽB ¡A$:‹A$²""§ŽW*S²0:‹A$²""§S²«1g4‹A$²""§S²1x>‹A$²"‘"§S²«3ˆH‹A$²"�"§S²3—RB²SP:�1000¡\A²AªS®f‹A³2§A²2½p‹A±17§A²17ËzB²D:�1000Ñ„ŽÚ¸ OK²1ò ‘PDL�2000,2040,2080Ì X1²X:Y1²YÖ Y²YªDY:‹Y±19§Y²19#à ‹Y³2§Y²2@ê ‹Y²2°Y²19§DY²«DY:—V3,230Vô X²XªDX:‹X±19§X²19jþ —S0ªX1ª22¬Y1,SP— ‹X±15¯Â(S0ªXª22¬Y)²102§—V1,255:Q²5:�5000© —S0ªXª22¬Y,BL¼ ‹X±1¯X³19§3150Û& ‹X²19§DX²«DX:—V3,230:‰31500 ‹X²1¯(Y±²A°Y²A«1¯DY±0)¯(Y³²Aª2°Y²Aª3¯DY³0)§FLAG²1?: ‹FLAG²1§FLAG²0:DX²«DX:—V3,220:�5000:‰3150fD BALL²BALL«1:OK²0:—S0ªX1ª22¬Y1,SP:ŽxN —V1,0:—V3,0:Ž© V1²36874:V3²36876:CS²36879:PA²37137:—37139,0ÓªS0²4¬(Â(36866)¯128)ª64¬(Â(36869)¯112)Ý´�6000ï¾A²2:B²D:�1000þÈBALL²3:Q²1Ò�X²16¤18©2:�Y²2¤19,Ü—S0ªXª22¬Y,102:‚:‚;æ‹BNUS§4090MðSCRE²«1:�5000eú‘PDL‰4100,4100,4130ƒBUT²«((Â(PA)¯(PDL¬16))²0)”‹BUT³±1§4100ž‰4140´"¡A$:‹A$³±" "§4130Õ,X²2:Y²µ(»(1)¬14)ª2:DX²1:DY²1ß6�3000ì@‹OK§4150öJ—V3,0T‘PDL‰4190,4190,4220,^BUT²«((Â(PA)¯(PDL¬16))²0)=h‹BUT³±1§4190Gr‰4230]|¡A$:‹A$³±" "§4220o†—S0ªXª22¬Y,SP‘�‹BALL§SCRE²SCRE«1:�5000:‰4140µš™"“";:—CS,27:™"GAME OVER!Ф™"YOU SCORED"SCRE"’"Þ®™"POINTS!þ¸™"PREVIOUS HIGH WAS"HI"’",™"PRESS SPACE TO CONT.":‹SCRE±HI§HI²SCRE@Ì¡A$:‹A$²""§4300JÖ�6090Tà‰4030†ˆSCRE²SCREªQ:™V$"BALL="BALL" SCORE="SCRE;Ç’‹¨BNUS¯SCRE±170§SCRE²SCREª50:BALL²BALLª1:BNUS²«1:—V1,0:‰4050Ýœ‹Q²5§DX²«DX:‰5080û¦‹Y³²A¯DY±0§DY²«2¬DY:‰5080°‹Y±²Aª1¯DY³0§DY²«2¬DY:‰5080'ºDY²DY­2;Ä‹DY±0¯DY³1§DY²1Q΋DY³0¯DY±«1§DY²«1[ØQ²1:Žnp—36878,15:™"“"‡z™"VIC BREAKUP"Æ„™"K’EYBOARD, P’ADDLE":™"J’OYSTICK OR Q’UIT?"ÚŽ¡A$:‹A$²""§6030ò˜‹A$²"P"§PDL²1:‰6090 ¢‹A$²"J"§PDL²2:‰6090(¬‹A$²"K"§�6200:PDL²3:‰6090;¶‹A$²"Q"§™"“":€EÀ‰6030OÊ—CS,8pÔV$²""†ÞD²245:SP²32:BL²81�è™"“Ÿ"­ò™" ¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢»"Åü�I²1¤18:™£20);"¡":‚ä™" ¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢’¾"êŽ%8™:™" CURSOR’ TO MOVE PADDLE":™" SPACE BAR’ TO START"OB™:™" ->’ FOR DOWN":™:™" ^’ FOR UP"cL¡A$:‹A$²""§6220iVŽ  �8000T$²"T":�5500%™"“":d�I²1¤4:T(I)²«1:‚dn™""£21)Ê(TI$,5,1)"�"É(TI$,1)rx�I²4¤1©«1†‚T²Å(Ê(TI$,I,1))§Œ¡T$:‹T$³±""§�3000:I²1:‚:‰100¸–‘I�4060,4000È ‹T²T(I)§200Õª™PO$(I);ß´�1500ê¾T(I)²TðȂҙ""AP$(PMª1)Ü‹AF§�1000.æ™AL$(AFª1);:‹AF§™È(TA$,4)7ð‰110Iè� CHECK ALARMfò‹È(TI$,4)²È(TA$,4)§�2000lüŽ~Ü� PRINT DIGITÈæ™H$(S%(T,0))BK$V$(S%(T,1))UP$V$(S%(T,2))BK$H$(S%(T,3))BK$V$(S%(T,4));êð™UP$V$(S%(T,5))BK$H$(S%(T,6))ðúŽüÐ� ALARMÚ—SC,40ä—V3,240"î�J²1¤500:‚,ø—V3,08—SC,216> ŽP¸ � MODE SELECTg ‹T$²"A"§AF²¨(AF):Ž|Ì ™"“SELECT MODE:"’Ö ™" SET A’LARM"§à ™" SET T’IME"¹ê ™" RETURN"Ãô �7500Öþ ‹T$²CR$§™"“":Žï ‹T$²"A"§�5000:™"“":Ž ‹T$²"T"§�5500:™"“":Ž ‰3060& � PM CORRECTION7ªTM$²È(TI$,2)E´TM²Å(TM$)b¾‹TM±12§TM$²Ê(Ä(TM«12),2){È‹TM²0§TM$²"12":‰4060•Ò‹Ã(TM$)²1§TM$²"0"ªTM$©ÜT²Å(Ê(TM$,I,1))·æPM²TM±²12½ðŽÍˆ� SET ALARMÞ’AF²«1:—SC,40ðœTM$²TA$:�6000ü¦TA$²TM$°—SC,216ºŽ|� SET TIME(†—SC,72I�TF²«1:TM$²TI$:�6000:‹TF§5540UšTI$²TM$a¤—SC,216g®Ž|p� ALARM/TIME SET¦z™"“ "SA$((T$²"T")ª1):MF²«1:—RP,128΄T(1)²Å(È(TM$,2)):T(2)²Å(Ê(TM$,3,2))掋T(1)²0§TH²12:‰6060˜‹T(1)±12§TH²T(1)«12:‰6060¢TH²T(1)(¬PM²0:‹T(1)±11§PM²«1M¶TM$²È(ZR$,3«Ã(Ä(TH)))ªÊ(Ä(TH),2)zÀTM$²TM$ªÈ(ZR$,3«Ã(Ä(T(2))))ªÊ(Ä(T(2)),2)„Ê�7000¢Ô™""AP$(PMª1)MS$HM$(MFª1)¬8�7500ÇB‹T$²" "§MF²¨(MF):‰6100ðL‹T$²"+"§T(MFª2)²T(MFª2)ª1:TF²0:‰6300V‹T$²"-"§T(MFª2)²T(MFª2)«1:TF²0:‰6300*`‹T$²CR$§65004j‰6200Hœ‹T(1)±23§T(1)²0\¦‹T(1)³0§T(1)²23x°T(2)²T(2)«60¬µ(T(2)­60)‚º‰6030«dTM$²È(ZR$,3«Ã(Ä(T(1))))ªÊ(Ä(T(1)),2)ÝnTM$²TM$ªÈ(ZR$,3«Ã(Ä(T(2))))ªÊ(Ä(T(2)),2)ª"00"çx—RP,0킎X� STATIC TIME DISPLAYb�I²1¤45l™PO$(I);:T²Å(Ê(TM$,I,1)):�1500;v‚A€ŽUL¡T$:‹T$²""§7500[VŽw@� PRIMITIVE DEFINITIONSˆJZR$²"000000"®TV$(0)²" � � ":V$(1)²" � � ’"Î^H$(0)²" ":H$(1)²"  ’ "éhBK$²"����":UP$²"‘‘"rPO$(1)²"":PO$(2)²""-|PO$(3)²""O†PO$(4)²""š�MS$²"":HM$(0)²"HOURS’/MINUTES":HM$(1)²"HOURS/MINUTES"¶šAP$(0)²"PM":AP$(1)²"AM"ì¤AL$(0)²"SET:":AL$(1)²""®SC²36879:V3²36876:RP²650:CR$²Ç(13)<¸SA$(0)²"SET TIME":SA$(1)²"SET ALARM"R—SC,216:—36878,15m4!™"“�SETTING UP DIGITS"z9!†S%(9,6)…>!�I²0¤9ŒH!‡X—R!�J²0¤6²\!‹2®J¯X§S%(I,J)²1:‰8560Àf!S%(I,J)²0Çp!‚JΘ!‚IÔ¢!Žý(#ƒ119,36,93,109,46,107,123,37,127,111 —52,28:—56,28:œ:I²»(«TI)=—36879,27:CH²7168:CG²32768Z�I²0¤511:—CHªI,Â(CGªI):‚u(—36869,Â(36869)¯240°15³2A$²"�@@Ÿ@œ@@@�":DN$²"":CR$²Ç(13)Ê<DL$²"������ "ÔF�1000ìP™"“"A$;:V²200:�8000öZ‰ 500(d™DL$CR$""È(DN$,»(1)¬22ª1)£»(1)¬15)A$;:�J²1¤5Sn—CHª2,36:—CHª3,255:—CHª7,36:V²50:�8000x—CHª2,189:—CHª3,126:—CHª7,66:V²50:�8000…‚‚ŽŒ‰100˜ô�2000žç�¶è�I²0¤7:‡X:—CHªI,X:‚¼òŽÐСT$:‹T$²""§2000ÖÚŽå@�K²1¤V:‚:Ž(#ƒ24,60,165,126,60,24,36,66 —36879,27#—52,28:—56,28:œ6CL$²"�Ÿœž�"?(™"“"I2�8000_<—36867,Â(36867)°1zF—36869,Â(36869)¯240°15‰d™"@";¯n�I²1¤20:™"�A"Ê(CL$,(I¯7)ª1,1)"@";Æx�7000:‚:™"�A":‰100Ìç�ÝX�J²1¤100:‚:Žú@�I²0¤31:‡X:—7168ªI,X:‚:Ž6(#ƒ24,60,60,24,126,189,189,189,189,189,24,36,36,36,36,102[2#ƒ0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0- ™"“":—52,28:—56,28:œ:VC²36864:—VCª15,27USM²4¬(Â(VCª2)¯128)ª64¬(Â(VCª5)¯112)�CM²37888ª4¬(Â(VCª2)¯128):CG²32768:CH²7168:BL$²"� "¦(—VCª5,Â(VCª5)¯240°15¿2C²5:M²«1:�7000:�6000Ô<�8000:™"“":�5000öFA²3:�2000:B²4:�1500:S²1:�1000ÿP‰110 d�3000n�4000x‰100/è� SCREEN COLORQò—VCª15,(Â(VCª15)¯15)°(16¬S):ŽdÜ� BORDER COLOR‚æ—VCª15,(Â(VCª15)¯248)°B:Ž™Ð� AUXILLIARY COLOR»Ú—VCª14,(Â(VCª14)¯15)°(16¬A):ŽÑÄ � CHARACTER COLORúÎ �I²8¤16:�J²4¤14:—CMªI¬22ªJ,C°8:‚:‚:ޏ ¡T$:‹T$²""§3000 ‹T$²"B"§31000Ì ‹T$²"S"§3200AÖ ‹T$²"A"§3300Rà ‹T$²"C"§3400cê ‹T$²"M"§3500mô ‰3000‡ B²(Bª1)¯7:�1500:‰3600¢€ S²(Sª1)¯15:�1000:‰3600½ä A²(Aª1)¯15:�2000:‰3600×H C²(Cª1)¯7:�2500:‰3600ì¬ M²¨M:�7000:‰3600òŽ  CP$²"�":‹S²0§CP$²""5ª™""CP$"BORDER="B;BL$£12)"CHAR="C;BL$^´™""CP$"SCREEN="S;BL$£12)"AUX="A;BL$d¾Ž�ˆ� SET UP DISPLAY PATTERN¶’�I²3¤6:�J²12¤21:—SMªI¬22ªJ,35:—CMªI¬22ªJ,C°8:‚:‚øœ�I²8¤16:L²I¬22ª4:R²Lª10:—SMªL,34:—SMªR,34:—CMªL,C°8:—CMªR,C°8þ¦‚=°�I²1¤9:‡A1,A2,C1:—SMªA1,C1:—SMªA2,C1:—CMªA1,C°8:—CMªA2,C°8Eº‚:Ž[p� Ó CHARACTER SETzz�I²0¤511:—CHªI,Â(CGªI):‚:ާX� SET MULTICOLOR MODE FOR MOST OF SCREENÌb�I²66¤505:—CMªI,(C¯7)°(«M¬8):‚:Žì@� READ IN CUSTOM CHARACTERSJ�I²0¤13¬8«1:‡X:—CHª8¬32ªI,X:‚:Ž%(#ƒ0,0,0,0,0,0,0,0B2#ƒ85,85,85,85,85,85,85,85g<#ƒ170,170,170,170,170,170,170,170ŒF#ƒ255,255,255,255,255,255,255,255­P#ƒ79,67,64,80,148,164,165,169ÍZ#ƒ234,250,254,255,63,63,0,64ñd#ƒ149,165,169,170,250,255,252,48n#ƒ170,234,250,254,254,63,15,35x#ƒ64,64,148,148,148,166,234,255R‚#ƒ2,2,2,42,42,170,191,255uŒ#ƒ0,128,160,168,170,170,170,170’–#ƒ240,0,1,5,85,85,149,165¯ #ƒ63,15,67,80,84,85,85,85Õª#ƒ182,228,36,185,229,37,188,230,38û´#ƒ248,250,39,361,251,40,252,254,41!¾#ƒ314,272,42,317,273,43,320,274,44$ ™"“":—52,24:—56,24:œ:—36879,27NSM²4¬(Â(36866)¯128)ª64¬(Â(36869)¯112)lCM²37888ª4¬(Â(36866)¯128)•(MX²2¬22«1:MY²8¬23«1:CG²32768:CH²6144¥2�4000:�5000À<—36869,Â(36869)¯240°14ÉZ™"“"Õd�X²0¤43ênY²¿(X¬ÿ­44)®2¬MYôx�1000ú‚‚ „¡T$:‹T$²""§900ç�&è� PLOT ROUTINE1òY²MY«YIüSP²µ(Y­8)¬22ªµ(X­2)\XX²Â(SPªSM)«64k‹XX³0§XX²0‚‘(X¯1)ª1�2000,3000’$XC²64ªXLªXR©.—SPªCM,0:—SPªSM,XC¯8Ž¿Ð� X IS EVENÓÚXR²XX«µ(XX­9)¬9èäXL²9ª(7«(Y¯7))¬9îîŽý¸ � X IS ODD XL²µ(XX­9)¬9Ì XR²8«(Y¯7)#Ö Ž9 � COPY CHARACTERSVª�I²0¤511:—CHªI,Â(CGªI):‚\´Žuˆ� FILL AREA WITH 0'S—’BA²6656:�I²0¤8¬81«1:—BAªI,0:‚¶œ� POKE IN RIGHT HALF-LINESÁ¦�I²0¤8̰�J²1¤8⺗BAª8ª72¬Iª7¬J,15ëÄ‚J,I Î� POKE IN LEFT HALF-LINESØ�I²1¤8â�J²0¤86ìAD²BAª72¬Iª8«IªJ¬8Hö—AD,Â(AD)ª240Q‚J,IW Ž —36879,30:‰12000'è™"":‹A±LL§Ž8ò™È(CD$,A«1);Wü™È(B$,B%(A))È(C$,21«B%(A))‡A$²Ä(CO):�5000:CO$²A$:A$²Ä(SW):�5000:SW$²A$³™"žCMP"CO$" SWP"SW$"�";:�2000:ŽËЋX$²"X"§X$²"":‰2030àÚ¡A$:‹A$²" "§2030ñä�WW²1¤QT:‚:Žî¡A$:‹A$²""§2030ó‹A$²"X" §X$²"X"*ø‹A$²"F"§QT²1=‹A$²"S"§QT²200C ŽU¸ ‹CO(I)²0§3030| ™""È(CD$,2¬Iª4):™"";´Ì A$²Ä(CO(I)):�5000:™A$" ";:A$²Ä(SW(I)):�5000:™A$"’";½Ö ™: ŽÔ �I²1¤5:CO(I)²0:‚:Žìˆ‹Ã(A$)±3§A$²É(A$,3)’‹Ã(A$)³3§A$²" "ªA$ œŽ2pA²»(«RS):�I²1¤LL:B%(I)²»(1)¬21ª1:‚:ŽXX�J²1¤LL:F²0:�L²1¤(LLª1)«J:CO²COª1zbA²Lª1:™"ž";:�1000:™"�";:�1000©l‹B%(L)±B%(Lª1)§�7060:A²L:�1000:A²Lª1:�1000°v‚L¾€‹F²0§J²LLÇŠ‚J:ŽÛ”A²L:™"";:�1000ÿžT²B%(L):B%(L)²B%(Lª1):B%(Lª1)²T)¨SW²SWª1:A²Lª1:™"";:�1000:™"�";:F²1:Ž=@�I²2¤LL:T²B%(I)QJA²I:™"";:�1000…T�J²I«1¤1©«1:A²J:CO²COª1:™"ž";:�1000:™"�";:�1000˜^‹T±²B%(J)§8060¼hA²Jª1:SW²SWª1:™"";:�1000:™"�";ÝrB%(Jª1)²B%(J):A²Jª1:�1000:‚Jü|B%(Jª1)²T:A²Jª1:�1000:‚I:Ž (#�I²0¤LL«1"2#M²1:A²M:™"";:�10000<#�J²2¤LL«IkF#A²J:CO²COª1:™"ž";:�1000:™"�";:�1000:‹B%(J)³²B%(M)§9050¡P#A²M:SW²SWª1:™"�";:�1000:A²J:™"";:�1000:™"�";:M²JµZ#‚J:‹I²LL«1§9070Ûd#T²B%(M):B%(M)²B%(LL«I):B%(LL«I)²Tn#A²M:™"�";:�1000:A²LL«I:™"";:�1000%x#A²(LLª1)«I:‹A³LLª1§™"�";:�10008‚#‚I:A²1:�1000:ŽV'�I²1¤5:SP²SP%(I):�J²SP¤LLr'T²B%(J):A²J:™"";:�1000�$'�K²J«SP¤1©«SP:‹K²0§10040·.'A²K:CO²COª1:™"ž";:�1000:™"�";:�1000Ë8'‹T±²B%(K)§10080ÞB'B%(KªSP)²B%(K)õL'A²KªSP:™"�";:�1000 V'A²K:™"";:�1000:‚K#`'B%(KªSP)²T:SW²SWª1:j'A²KªSP:™"�";:�1000Ft'‚J:‚I:Žhø*B%(LLª1)²32767:P²1:QQ²LL:TP²0y+‹P±²QQ§11190¤ +K²QQª1:V²B%(P):I²P:J²K:A²P:™"";:�1000¾+J²J«1:‹B%(J)³²V§11050í +A²J:CO²COª1:™"ž";:�1000:™"�";:�1000:‰11030*+I²Iª1:‹I±LL§11070+4+A²I:CO²COª1:™"ž";:�1000:™"�";:�1000?>+‹B%(I)±²V§11090JH+‰11050ZR+‹J³²I§11130Œ\+A²I:SW²SWª1:™"";:�1000:A²J:™"";:�1000:™"�";¬f+T²B%(I):B%(I)²B%(J):B%(J)²TËp+A²I:�1000:A²J:�1000:‰11030ëz+B%(P)²B%(J):B%(J)²V:SW²SWª1„+A²P:�1000:A²J:™"";:�1000:™"�";:�1000)Ž+‹J«P³QQ«J§11170R˜+S%(TPª1)²P:S%(TPª2)²J«1:P²Jª1:‰11180v¢+S%(TPª1)²Jª1:S%(TPª2)²QQ:QQ²J«1‰¬+TP²TPª2:‰11010™¶+‹TP²0§11210ÁÀ+QQ²S%(TP):P²S%(TP«1):TP²TP«2:‰11010ÇÊ+Žìà.†B%(21),SP%(5),CO(5),SW(5):LS²20ê.SP%(1)²10:SP%(2)²6:SP%(3)²4:SP%(4)²2:SP%(5)²1Yô.B%(21)²30:Q$(1)²"BUBBLE":Q$(2)²"INSERT":Q$(3)²"SELECT"þ.Q$(4)²"SHELL":Q$(5)²"QUICK":RS²TIŸ/B$²"¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢"¿/CD$²""Ý/C$²" "í&/™"“":LL²20#0/™"VIC BAR SORTER":™"WHICH SORT? CMP SWP’"F:/�I²1¤5:™""I"’"Q$(I);:�3000:‚XD/™" 6’ QUIT"xN/™"CHOOSE":CO²0:SW²0:�2030“X/Q²Å(A$):‹Q³1°Q±6§12070£b/™"“":‹Q²6§€Ól/™"WHICH?":™"R’ANDOM BAR LENGTHS"v/™"K’EEP SAME LENGTHS":™"CHOOSE":�2030)€/‹A$²"R"§RS²TI:�6000:�4000:‰12190JŠ/‹A$²"K"¯B%(1)±0§�6000:‰12190U”/‰12140}ž/™"“�"Q$(Q)"’";:�I²1¤LL:A²I:�1000:‚¢¨/™""CD$"ž COMPARE TEMP SWAP";IJ/‘Q�7000,8000,9000,10000,11000é¼/™""CD$" PRESS ANY KEY "; Æ/�2030:CO(Q)²CO:SW(Q)²SW:‰12050SIZE²21:—36879,30:‰20001è¡A$:‹A$²""§10007òŽFЗ36869,242]Ú†N$(SIZE),P$(SIZE){äB$²" "�îP$(0)²"ÎOT ÕSED"ªø™"“ÖÉÃ"Ä™"ÔÅÌÅÐÈÏÎÅ ÌÏÇÜ ™"      �ÍÅÎÕ"ø™"1. ÃREATE NEW FILE ™"2. ÁDD,ÃHNG,ÄEL NAMES0*™"3. ÌOAD EXISTING FILEK4™"4. ÓAVE FILE TO TAPE^>™"5. ÓORT FILElH™"6. ÅXITƒR™"ÙOUR CHOICE?"–\�1000:A²0:AA²0Åf‘Å(A$)�3000,4000,5000,6000,7000,8000:‰2040߸ ™"“ÎAME OF FILE?÷ ™"ÒETURN IS DEFAULTÌ …F$:‹Ã(F$)²0§F$²"TELEPHONEFILE"#Ö I²1Cà ™"“ÅNTER ÌAST ÎAME(ÓPACE)";]ê ™"ÆIRST NAME <ÒETURN>tô ™"AND ÐHONE ÎUMBER‡þ ™"000-000-0000¢ ™"ÄÏÎÅ WHEN THROUGH":™ï …"ÎAME";N$(I):‹N$(I)²"ÄÏÎÅ"°N$(I)²"DONE"°N$(I)²"ÄONE"§I²I«1:N$(0)²Ä(I):Ž …"ÐHONE ";P$(I)& ‹I±SIZE«2§Ž#0 I²Iª1:‰30900 ™"“":J²0@ªJ²Jª1:™"‘";]´™N$(J);È(B$,20«Ã(N$(J)))l¾™¦9);P$(J)�È™:™"Ã’ORÄ’<ÒET>TO CONTINUE—Ò�1000©Ü‹Ã(A$)²0§4100çæ‹A$²"D"°A$²"Ä"§�K²J¤I:N$(K)²N$(Kª1):P$(K)²P$(Kª1):‚:I²I«1ð‹A$²"C"°A$²"Ã"§…"ÎEW NAME ";N$:‹Ã(N$)³±0§N$(J)²N$Tú‹A$²"C"°A$²"Ã"§…"ÎEW PHONE ";P$:‹Ã(P$)³±0§P$(J)²P$b‹J³I§4010}™"ÁDD MORE NAMES? Ù/΢�1000:‹A$²"Y"°A$²"Ù"§I²Iª1:‰3090¨"ŽÄˆ™"“×HAT IS THE NAMEà’™"OF THE EXISTING FILE?ûœ™"<ÒETURN> FOR DEFAULT¦…F$:‹Ã(F$)²0§F$²"TELEPHONEFILE"-°Ÿ1,1,0,F$Eº„1,N$(0):I²Å(N$(0))RÄ„1,P$(0)]Î�J²1¤IjØ„1,N$(J)wâ„1,P$(J)‚ì‚: 1:Ž—p™"“ÓAVING FILE¦zŸ 1,1,2,F$±„�J²0¤I¾Ž˜1,N$(J)˘˜1,P$(J)Ö¢‚: 1:ŽX‹N$(1)²""§™"“ÎO ÆILE TO ÓORT":�1000:Ž1b™"“ÖISUAL ÓÏÒÔ Ù/Î?":�1000:‹A$²"Y"§A²1bl™"Î’AMES OR Ð’HONE#S?":�1000:‹A$²"P"§AA²1uv�7160:‹A§�1000˜€N$(Iª1)²"ÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚÚ"³ŠP$(Iª1)²":::-:::-::::"Å”�K²1¤I:�L²1¤Içž‹(AA²0)¯(N$(L)±N$(Lª1))§�7130 ¨‹(AA²1)¯(P$(L)±P$(Lª1))§�7130²‹A§�7160:�1000$¼‚:‚HÆ™"ÐRESS ANY KEY TO CONT.":�1000NÐŽzÚTEMP$²N$(L):N$(L)²N$(Lª1):N$(Lª1)²TEMP$¦äTEMP$²P$(L):P$(L)²P$(Lª1):P$(Lª1)²TEMP$¬î޵ø™"“"À�J²1¤IÐ ‹J²L§™"";á‹AA²0§™N$(J)ò ‹AA²1§™P$(J)ý*™"’";4‚ >Ž@—36869,240:™"“":€ ™"“":—36879,8:�8000`CR$²Ç(13):DL$²Ç(20):RB$²" ’":BL$²" ":DI$²"Ú’�"xNL²10:†S$(NL),S(NL)Œ(LL²1:�8490:‰110›dLL²1:�8500ÅnS$²S$(LL):‹É(S$,1)²"?"§™""BL$CR$"‘";Ñs™S$DI$;Ûx�2000‚‹T$²"@"§™RB$:S$(LL)²S$:�3000:�7000:™"";:LL²1:‰110#Œ‹T$²"“"§100:–‹T$²CR$°T$²""§210J ‹T$²"‘"§270Zª‹T$²DL$§240€´‹T$²"_"§S$(LL)²S$:�5000:LL²1:‰110�¾S$²S$ªT$ŸÈ‹Ã(S$)³19§120­ÒS$(LL)²S$ÖÜLL²LLª1:‹LL²NLª1§LL²1:™RB$"";:‰110ëæ™RB$CR$CR$;:‰110úð‹S$²""§120 ú™RB$"��"DI$;%S$²È(S$,Ã(S$)«1):‰120hS$(LL)²S$:LL²LL«1:‹LL²0§LL²NL:™RB$"";:‰110™RB$CR$"‘‘‘";:‰110‰Ð�4500ÁÚ‹T$²"@"°T$²CR$°T$²""°T$²"‘"°T$²"_"°T$²DL$°T$²"“"§ŽÙä‹T$±","¯T$³";"§2070ñî‹T$±";"¯T$³"["§2070 ø‹T$±"'"¯T$³","§2070‹T$²"^"§2070$ ‰20002™T$DI$;:Žb¸ �9000:�JJ²1¤NL:‹É(S$(JJ),1)²"?"§�6500:‰3030x ‹Ã(S$(JJ))³3§3030ŒÌ A$²S$(JJ):�4000”Ö ‚:ŽÂ �II²1¤Ã(A$):XX²Æ(Ê(A$,II,1)):—511ªII,XX:‚ת—511ªII,0:ž828:Žë”¡T$:‹T$²""§4500ñžŽ ˆ™"“L’OAD OR S’AVE"’�4500+œ‹T$²"L"§SA²0:‰5050B¦‹T$²"S"§SA²1:‰5050L°‰5010^º…"NAME";NA$~ÄŸ1,1,SA,NA$:‹SA§�5090:‰5080ˆÎ�5110�Ø 1:�8000:�8510:ŽÈâA$²"":�II²1¤NL:S$²S$(II):‹S$²""§S$²"¿"ãìA$²A$ªS$ªCR$:‚:˜1,A$:Žö�II²1¤NL:„1,A$:‹A$²"¿"§A$²""S$(II)²A$:‚:ŽEdBB²Æ(È(S$(JJ),1))«64:‹BB±13§BB²BB«13:‰6530Žn‘BB�6560,6570,6580,6590,6600,6610,6620,6630,6640,6650,6660,6670,6680˜x‰6540á‚‘BB�6690,6700,6710,6720,6730,6740,6750,6760,6770,6780,6790,6800,6810îŒS(JJ)²XXô–Žÿ XX²A:Ž ªXX²B:Ž´XX²C:Ž ¾XX²D:Ž+ÈXX²E:Ž6ÒXX²F:ŽAÜXX²G:ŽLæXX²H:ŽWðXX²I:ŽbúXX²J:ŽmXX²K:ŽxXX²L:ŽƒXX²M:ŽŽ"XX²N:Ž™,XX²O:ޤ6XX²P:ޝ@XX²Q:ŽºJXX²R:ŽÅTXX²S:ŽÐ^XX²T:ŽÛhXX²U:ŽærXX²V:Žñ|XX²W:Žü†XX²X:Ž�XX²Y:ŽšXX²Z:Ž8X™"";:�II²1¤NL:S$²S$(II):SS²S(II)obX$²"":‹É(S$,1)²"?"§X$²Ä(SS)ª""ªÈ(BL$,16«Ã(Ä(SS)))€l™CR$S$X$:‚:Ž¢@Œ:�II²0¤42:‡AA:—828ªII,AA:‚:ŽÇ*!�II²1¤NL:‡S$(II):S(II)²0:‚:‰8510è4!�II²1¤NL:S$(II)²"":S(II)²0:‚>!™"“";:�II²1¤NL:S$²S$(II).H!™"ž"S$""È(BL$,20«Ã(S$)):‚:™"";:Žf(#A²0:B²A:C²A:D²A:E²A:F²A:G²A:H²A:I²A:J²A:K²A:L²A:M²A 2#N²A:O²A:P²A:Q²A:R²A:S²A:T²A:U²A:V²A:W²A:X²A:Y²A:Z²A:Žìd&ƒ165,122,141,112,3,165,123,141,113,3,169,0,133,122,169,2,133,123,32,1218x&ƒ197,169,0,133,122,169,2,133,123,32,165,201,173,112,3,133,122,173,113,3HŒ&ƒ133,123,96z¬&ƒA=8000,M=48,I=11.9,I=I/1200,D=(1-(1+I)^-M)/Iž¶&ƒP=A/D,P=INT(P*100+.5)/100,P?,,