‘’ â"ø"INIÔDECODÅYEAÒYSAÖMONTÈÃÄÉC¨HASH±ÎØBOÔTOÐÑREÍDAÙÊP¨HASH³ÁOFÆÂHASH²CÈCÖTDUÒAR2¨TÌDUÒHLÆHÒMIÎTEMP¨Q¨HASH1ÉQI¨HASH2ÉHA³POW¨ÙHASH3ÉAR1¨CODÅA±BOT±TOP±Á.NÁFA@Á ÛE @Á‹KÁ{G@ @!@"Á#«F@$Á%·HÁ&óI@'(Á)?L@*Á++:,-. / }  ,  VCR« CODER/DECODER/ %  INITIALIZING P€% }% ! ÃREATE CODE, OR ÄECODE%)‹(_C6‹-+‹"@:C,,%+‹"@:c,,%@$+‹"@:D,,%@$+‹"@:d,,O‹"U ý_ @02 ‹b«<  @0FTPO«ZYEAR=‚d*+‚P:‚,,  ERROR IN YEAR* @nMONTH=„xC&+„P:„,,)+„ @,)+„!@,9 ERROR IN MONTHC A‚DAY=ŒA&+P:,,)+ @,)+!@1,7  ERROR IN DAYA A0– CHANNEL=˜ 6™-˜&@ E&+˜P:˜,,)+˜ @,)+˜!@d,; ERROR IN CHANNELE APª11'STARTING TIME, HH.MM IN 24 HOUR FORMAT=Ÿ´jH+P:Ÿ,!@$,)+++A$ŸaA,a@0,,)+Ÿ ,` ERROR IN START TIMEj Ap¾DURATION IN MINUTES=È\<+ ,)++a@0,,)+P:,,)+!A,R ERROR IN DURATION\ AÒzP:Ÿ,"@$ 6Ÿ-Ÿ&@$.6-%@:"@2F6-@T6„-„%@`„"@l6„-@z6‚-‚%@Ü! 6ƒ-‚!6‚-+‚aA,a@æD6š-P:Ÿ,$@6+++A$Ÿ,aA,"@0,D6š-š%@ð.%6š-@$š%+]@0,&@.6œ-ª8š,ú P¥ 6¬-””"6-6•-@"\6†-@%P:L:”,,-‡-†&@J6’8†&‡&@,-+”a@,X6”-”]@\ ‡,P©6S6-%‡-†&@O6-%P:’8†&‡&@,$@#‡%?P,S ‡@P“JS6”-%‡-†&@O6”-”%P:’8†&‡&@,$@#‡%?P,S ‡TA^K6Ž-&@1-+–&$+„%@,&•,a@2= K-%@2h!6Œ-Ž$@2%%@!6­-Œr:‡-@(6ˆ8‡,-Œa@66Œ-Œ]@: ‡| 6®-†P%‡-†&@>6ˆ8‡%@,-a@L6-]@P ‡®6†-†%@š#®"#6†-@%P:L:­,,¤P£®I6…-%‡-†&@E6…-…%P:ˆ8‡,$@#‡%?P,I ‡¸;†!@1 CANÎÏÔ BE CODED IN SIX DIGITS; A  }  YEAR= ƒÌ MONTH= „Ö DAY= à TIME=Ÿê  DURATION=  MINUTESô  CHANNEL= ˜þ CODE= …QTO&YEAR=‚6ƒ-‚0*+‚P:‚,,  ERROR IN YEAR* AP:MONTH=„DC&+„P:„,,)+„ @,)+„!@,9 ERROR IN MONTHC ApN>CODE=……4 CODE MUST BE POSITVE> AXI6†-@%P:L:…,,.+…P:…,,)+†!@,?  INVALID CODEI Ab<‡-†&@*6ˆ8‡,-…a@86…-…]@< ‡lP‰v+6Š-†&@6‹-+‡-Š€##6‹-‹%ˆ8‡,$P:@#‡%?P,Š ‡”6‚-+‚aA,a@ž6Œ-‹aA¨6-‹]A²6Ž-+Œ&@,]@2¼-+Œ&@,a@2Æ6-Ž%@Ð!Ú6†-@%P:L:,,ä‘-†&@î,6’8†&@&‘,-a@,6-]@ø ‘P“ %6”-%‘-†&@1-6”-”%’8†&@&‘,$P:@#‘%?P,1 ‘ @*6”-6•-4A>##6–-+%$+„%@,%•,a@2HP—R*œ!Ay  INVALID CODE* AP\r6˜-™%@6š-›8œ,:6-@0$+ša@,%@0J6ž-+š]@,Z6Ÿ-+ž]@,r6 -@0$+ža@,f }   CHANNEL= ˜p' TIME= Ÿ !' : z „  DURATION=  MINUTESŽ* YEAR= ƒ MONTH= „* DAY= ˜Q¢T¬O‰¶6Š-†&@À$‡-Š 6¡8‡,-$ ‡Ê!‡-Š!‘-Š&‡Ô%6¡8‡%‘,-¡8‡%‘,%¢8‡,$ˆ8‘,! ‘% ‡Þ)‡-Š%6ˆ8‡,-¡8‡,a@) ‡èˆ8Š,"A `òQüTO£6Š-†&@$‡-Š 6¡8‡,-$ ‡$!‡-Š!‘-Š&‡.%6¡8‡%‘,-¡8‡%‘,%¤8‡,$ˆ8‘,! ‘% ‡8)‡-Š%6ˆ8‡,-¡8‡,a@) ‡Bˆ8Š,"APLQVT`O—j««6œ-+”VA,'@%+”VA(,%+”V@2,$@%+”V@,$@%+”V@,$@%+”V@,$@%+–V@,'@%+–V@,'@%+–V@,t6™-+”VAV,'@%+”V@d,'@%+”V@,$@%+”V@,$@%+–V@,'@%+–V@,'@~QˆT’O¥œÇÇ6”-+œVAV,$@%+™V@2,$@%+œVA(,%+™V@,$@%+œV@d,'@%+œV@2,'@%+œV@,'@%+™V@,'@%+™V@,'@%+œV@,'@¦cc6–-+œV@,$@%+™V@,$@%+œV@,$@%+™V@,$@%+œV@,°QºTÄO¦Îß6§8,-@/6§8@,-¨%@[6§8@,-+¨%@,$§8@,'@‡6§8@,-+¨%@,$§8@,'@³6§8@,-+¨%@,$§8@,'@ß6§8@,-+¨%@,$§8@,'@Ø$‡-Š 6¡8‡,-$ ‡â!‡-Š!‘-Š&‡ì6¡8‡%‘,-¡8‡%‘,%§8‡,$’8‘,ö  ‘ ‡:‡-Š66¡8‡,-+¡8‡,%$§8‡%@,,a@: ‡ QTO“(6Š-†&@6•-2 ‡-Š6•-•%’8‡, ‡<$¨-‚P¦ 6•-•%¡8Š,$ ¨F!‡-Š6’8‡,-¡8‡,! ‡P ’8,"A@ZQdTnO©x‚6§8,-@26§8@,-6+‚%@,U6§8@,-6‚$§8@,'@‚6§8@,-6+‚&@,$§8@,'@‚]06§8@,-6+‚&@,$§8@,'@]6§8@,-6+‚&@,$§8@,'@Œ6Š-†&@–$‡-Š 6¡8‡,-$ ‡ !‡-Š!‘-Š&‡ª6¡8‡%‘,-¡8‡%‘,%§8‡,$’8‘,´  ‘ ‡¾Y‡-Š66’8‡,-+¡8‡,%$§8‡%@,,a@E’8‡, Y6’8‡,-@%’8‡,È ‡Ò ’8,"A0ÜQæTðO€úUU370,320,390,330,310,350,360,290,380,341,280,410,340,323,400,300,403,423,401,363›UU381,441,421,283,301,443,230,220,460,321,422,420,250,270,190,261,430,241,203,361›UU440,240,160,170,343,180,450,210,383,150,461,201,140,260,143,221,281,200,163,470›RR263,243,183,130,362,120,110,0,473,442,262,181,332,322,292,402,372,121,242,10›"NN33,1,342,3,161,141,433,100,312,233,223,172,452,182,432,333,471,23,282,30›,LL73,302,303,463,382,162,90,60,273,202,142,20,472,70,40,453,80,123,83,50›6OO132,11,451,21,13,462,331,171,2,393,193,412,101,351,43,392,192,353,133,371›@OO291,232,12,173,212,293,22,153,413,62,63,272,252,52,431,231,373,131,111,41›JKK313,151,122,352,81,152,92,91,32,253,31,53,391,61,213,42,71,103,191,51›TRR411,82,311,93,271,251,72,211,102,113,112,222,474,464,454,444,434,424,414,404›^UU394,384,374,364,354,344,334,324,314,304,294,284,274,264,254,244,234,224,214,204›hJJ194,184,174,164,154,144,134,124,114,104,94,84,74,64,54,44,34,24,14,4›rUU475,465,455,445,435,425,415,405,395,385,375,365,355,345,335,325,315,305,295,285›|SS275,265,255,245,235,225,215,205,195,185,175,165,155,145,135,125,115,105,95,85›†LL75,65,55,45,35,25,15,5,476,466,456,446,436,426,416,406,396,386,376,366›UU356,346,336,326,316,306,296,286,276,266,256,246,236,226,216,206,196,186,176,166›šJJ156,146,136,126,116,106,96,86,76,66,56,46,36,26,16,6,477,467,457,447›¤UU437,427,417,407,397,387,377,367,357,347,337,327,317,307,297,287,277,267,257,247›®OO237,227,217,207,197,187,177,167,157,147,137,127,117,107,97,87,77,67,57,47›¸PP37,27,17,7,478,468,458,448,438,428,418,408,398,388,378,368,358,348,338,328›ÂUU318,308,298,288,278,268,258,248,238,228,218,208,198,188,178,168,158,148,138,128›ÌJJ118,108,98,88,78,68,58,48,38,28,18,8,479,469,459,449,439,429,419,409›ÖUU399,389,379,369,359,349,339,329,319,309,299,289,279,269,259,249,239,229,219,209›àJJ199,189,179,169,159,149,139,129,119,109,99,89,79,69,59,49,39,29,19,9›ê›9Ay,ª9Ay,ô #A0þ$‡-Ay"‹$6›8‡,-‹ 6ª8‹,-‡ ‡DDGIVEN A TABLELIST VALUE=I, AR2(I) IS THE TIME/DURATION; DECODE›::GIVEN A TIMEDUR=X, AR1(X) IS THE TABLE INDEX; ENCODE›&THE DATA VALUES GIVE:›077LAST DIGIT + 1 = NUMBER OF HALF HOURS OF DURATION›:MMFIRST TWO DIGITS = NUMBER OF HALF HOURS FROM MIDNIGHT FOR SHOW TO START›DCCTHE INDEX (PLACE IN DATA ARRAY) GIVES THE TABLE LOOK UP VALUE›NTX¢9@,¤9@,bQ DATA, DECODE, HASH1›l6,8,1,5,0,6,3,1›vQI DATA, ENCODE, HASH1I›€0,0,0,0,9,3,7,1›Š #A”1 ‡-@6@$"‹-6¢8‡,-‹1 ‡ž #A ¨1 ‡-@6@$"‹-6¤8‡,-‹1 ‡²T¼O&’9@,¡9@,§9@,OTABLES FOR HASH3 (TEMP FOR HASH1 TOO!)›Æ8ˆ9@,8FOR THE CODE (8 DIGITS), HASH1/HASH1I›ÐQ€D1:VCRPLUS.BAS