‰910*� ** ML STOP KEY DISABLE **U™"x©=�©�X` êÿ©ÿ…‘L4êx©1�©ê�X`t™"xhhhªh¨hhhhhhh˜HŠHX`111"…™"hhhhhhh`1"§� ** 4 - POP ML SUBROUTINE **È � **GENERAL INPUT ROUTINE **Î:ò� ** TO OUR BEST KNOWLEDGE THIS � PROGRAM IS FREE FOR/ � DUPLICATION IN CANADA.L � IF YOU HAVE CONTARYi � INFORMATION, PLEASE� � CONTACT COMMODORE CANADA ANDµ � EVERY EFFORT WILL BE MADE TOÖ � WITHDRAW COPIES OF THISè � PROGRAM.î : #� +++ INPUT SECTION +++" (—UO,0:UR$²"":UI$²""2 *‹UL²0§UL²80E -™" ��";:—UC,0Y 2¡UI$:‹UI$²""§50ƒ 7‹UI$²Ç(13)¯Ã(UR$)±²1§—UC,1:™" �";:‰85– <‹UI$²Ç(20)§105ª >‹ Ã(UR$)²±UL§50Ï A�120:� CHECK FOR VALID CHARACTERß FUR$²UR$ªUI$é K™UI$;ñ P‰505 T"PLURALS.C0" PRG S ” "0:BIGTIME.C2",8: PRGZ U� +++ CHECK FOR HELP REQUEST +++‚ Z‹UR$²UX$§195:� EXIT TO HELP ROUTINE‘ _‹UF²1§�240ž dUF²0:™:Ž· f� ++ CHECK DELETE ++È i‹Ã(UR$)³1§50à nUR$²È(UR$,Ã(UR$)«1)ò s™"� ��";:‰50 x� ++ CHECK FOR VALID CHARACTERS +++ }‹Ã(US$)²0§150< ‚�US²1¤Ã(US$)S ‡‹UI$²Ê(US$,US,1)§ŽY Œ‚f ‘UI$²"":Ž� –� ** STANDARD INPUT **’ ˜‹Æ(UI$)²46§Ž£ ›‹UI$²Ç(32)§ŽÀ  ‹Æ(UI$)³48°Æ(UI$)±57§170Æ ¥Žã ª‹Æ(UI$)³65°Æ(UI$)±90§180é ¯Ž ´‹Æ(UI$)³193°Æ(UI$)±218§UI$²"":Ž0 ¹‹Â(UT)²UU%§UI$²Ç(Æ(UI$)«128):Ž6 »ŽC ¾UI$²"":Žh ÃUF²1:� +++ HELP ROUTINE EXIT +++q Å�250z È�245™ Í�UQ²UB¤(U2%¬256ªU1%ªU3%«2)µ ÒUQ%(UQ«UB)²Â(UQ):‚:™"“"È ×UZ²1:UV%²Â(UT)Ñ Ø‰300ö ÙUZ²0:US$²UJ$:UG$²UK$:UP²UJ:UL²UK-Ú‹Â(50003)²0§—53281,1:™"“";:—53281,6:—53280,14:‰2207Û™"“";fÜUT$²UL$:—UT,UV%:�UQ²UB¤(U2%¬256ªU1%ªU3%«3){á—UQ,UQ%(UQ«UB):‚‡æ—U1,U1%“è—U2,U2%Ÿé—U4,U4%­ê—U3,U3%«1µë‰35çðUD%²((U2%¬256ªU1%ªU3%)«UB)­40:™È(UD$,UD%ª1):Ž"õ™È(UD$,24);"  HELP COMING ’ ":ŽNúU1%²Â(U1):U2%²Â(U2):U3%²Â(U3):U4%²Â(U4)vûUJ$²US$:UK$²UG$:UL$²UT$:UJ²UP:UK²UL|ÿŽ�,� ** MENU **“-:Â.™"“":—UT,UU%:‹Â(50003)²0§—53281,9:—53280,8È/:å1™" MENU"6™" --------------------------------------"3;™" 1. BIGTIME "Z@™" 2. USER INSTRUCTIONS"vO™" 3. QUIT"¥T™" --------------------------------------"ÐY™" PRESS A NUMBER KEY (1-3) ";÷^UL²1:US$²"123":�35:� INPUT ROUTINE _‹Ã(UR$)±1§300`US$²""-c‘Å(UR$)�1000,400,396Gd‹Å(UR$)²2¯Z$²"H"§1330Ph‰300w‹� ** RE-ENABLE STOP KEY AND END **¦Œ‹Â(50003)³±1¯Â(50003)³±160¯Â(50003)³±0§399Ð�žUUª71:‹Â(50003)²0§—53281,6:—53280,14ÜŽ™"š“":€ç��875:Ž�� ** STUDENT INSTRUCTIONS **7•™"“":—UT,UL%:‹Â(50003)²0§—53281,0:—53280,0UšUP²0:UG$²"ÕSER ÉNST":�850†¸™" ÔHIS PROGRAM SIMULATES A DIGITAL CLOCK."µº™" ÙOU CAN CHOOSE EITHER A 12 HOUR FORMAT"ä¼™" OR A 24 HOUR FORMAT. ÙOU CAN ALSO SET"¾™" AN ALARM. (ÔHE ALARM IS RATHER QUIET"BÀ™" THOUGH AND PROBABLY WILL NOT WAKE YOU "g™" UP FROM YOUR FRENCH CLASS.)"—Ä™" ÔYPE AT ANY TIME TO RETURN TO THE"§Æ™" MENU. "°å�835Äê‹UZ²1§žUP%:‰217ÊóŽëô� ** TEACHER INSTRUCTIONS **õ™"“":—UT,UL%:‹Â(50003)²0§—53281,2:—53280,10<öUP²0:UG$²"ÔEACHER ÉNST":�850j÷™" ÔO THE BEST OF OUR KNOWLEDGE,"“ø™" THIS PROGRAM IS IN THE PUBLIC"¿ù™" DOMAIN. ÉF THIS IS NOT THE CASE"Üú™" PLEASE CONTACT:"û™" ÃOMMODORE ÂUSINESS ÍACHINES")ü™" 3370 ÐHARMACY ÁVE.Mý™" ÁGINCOURT, ÏNTARIO"oþ™" ÃANADA Í1× 2Ë4"�ÿ™" (416) 499-4292"¥UP²1:� 835:� 850:Ï™" ÐROGRAM ÎAME: ÐROGRAM ÔITLEñ™" ×RITTEN ÂY : ÕNKNOWN™" ÕPGRADED ÂY : ÙOUR ÎAME@™" ÔHIS PROGRAM WILL RUN ON ANYg™" ÂÁÓÉà2.0 ÐÅÔ ÃÏÍÐÕÔÅÒŽ™" ÂÁÓÉà 4.0 ÐÅÔ ÃÏÍÐÕÔÅÒ°™" 8032 ÃÂÍ ÃÏÍÐÕÔÅÒÕ™" ÃÏÍÍÏÄÏÒÅ 64 ÃÏÍÐÕÔÅÒÞ �835çD�835ûN‹UZ²1§žUP%:‰217WŽ'X� ** PROGRAM MODIFICATION INST **8Y™"“":—UT,UL%X]UP²0:UG$²"ÐROGRAM ÍOD":�850a”�835u²‹UZ²1§žUP%:‰217{»Ž ¼� ** TO USE 8032 LOAD CBM4032 **ÖÆ™"“BEFORE RUNNING THIS PROGRAM ON AN 8032  Й" LOAD THE 'CBM 4032' PROGRAM"ÚžUUª71ä€B� ** TO USE 8032 LOAD CBM4032 **�™"“BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"™ž1093:€¹ � ** T I T L E P A G E **í"™"“";:—UT,UU%:‹Â(50003)²0§—53280,14:—53281,6$�I²1¤38:™"¦’";:‚&�I²1¤22:™"�¦’";:‚3(�I²1¤37:™"��¦’";:‚K*�I²1¤22:™"‘�¦’";:‚p,™"© ’’.™" ’  ’©³0™" ’ £ßÑ2™"ß ’ù4™"C O M M O D O R E6™"EDUCATIONAL;8™"SOFTWAREV:� ** COMMODORE LOGO **Ž;™È(UD$,24);"PRESS SPACE BAR OR WAIT’":I²0°<¡A$:‹A$³±" "§I²Iª1:‹I³250§828Ô>T1$²"":T2$²"":T3$²"":T4$²"":I²0Ý@‰300ùC� ** SPACE BAR PRESS **4H—UO,0:™È(UD$,24);"PRESS SPACE BAR TO CONTINUE’"KL¡UI$:‹UI$³±" "§844QNŽqR� ** PAGE DESIGN ROUTINE **}TUP²UPª1¡W™"“"È(UT$ªUP$,21);É(UP$ªUG$,18)Ð\™" --------------------------------------"ß`‹UH³±0§870a™È(UD$,24);È(UP$,7);"HELP - PRESS H "$fUH²0:™"":ŽCk� ** PLEASE WAIT REMARK **yp™È(UD$,24);" ONE MOMENT PLEASE... "uŽœ„� ** SET UP VARIABLES **ç…UX$²"H":†UQ%(1000):UB²32768:U1²196:U2²197:U3²198:U4²216:UC²167:UU²1024%†UT²59468:UU%²12:UL%²14:UP%²1146:UM²32768:UO²158:— 50003,0h‡‹Â(50003)²0§UB²1024:U1²209:U2²210:U3²211:U4²214:UC²204:UU²2048§ˆ‹Â(50003)²0§UT²53272:UU%²21:UL%²23:UP%²2139:UM²1024:UO²198ˉUD$²""ýŠUP$²" "K‹UT$²" ÂÉÇÔÉÍÅ     ":� PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***QŒŽkŽ� ** SET VARIABLES **w�† A$(9)€“�900†”:Œ•:§˜� ** CHECK FOR 8032 **Å�™"“":™" ":� SHIFTED SPACEÜ¢‹Â(UBª40)³±96§�700õ£� ** MEMORY CHECK ** ¤‹ ¸(0)±2000§9377¥™"“THIS MACHINE DOES NOT HAVE ENOUGH"[¦™"MEMORY TO RUN THIS PROGRAM !"f§žUUª71l¨€†©™"“":‹Â(50003)²0§962µ¬� ** BASIC 2.0 OR 4.0 OR C-64 SETUP **ó­—1075,133:—1076,144:—1077,234:—1079,4:—1080,133:—1081,145) ®—1091,155:—1098,133:—1099,144:—1100,234:—1103,133K ¯—1104,145:—1105,234:—1082,234b ±‹Â(50003)³±160§955‘ ¶—1093,88:—1094,228:—1097,85:—1102,228:‰965¦ »‹Â(50003)³±1§990Õ À—1093,49:—1094,230:—1097,46:—1102,230:‰965!—2099,141:—2100,20:—2101,3:—2103,8:—2104,141:—2105,21K!×2106,3:—2115,145:—2117,52:—2118,234:—2121,49:—2122,141…!Ä—2123,20:—2124,3:—2126,234:—2127,141:—2128,21:—2129,3£!ÅžUUª48:� DISABLE STOP KEY´!Ê�800:� TITLEÄ!Ô‰300:� MENUõ!Þ™"“THE PGM WILL NOT WORK ON THIS MACHINE!":€*"è‹UZ²1§žUP%:žUP%:UZ²0:� ** PROGRAM STARTS HERE **V"é™"“";:Œ:‹Â(50003)²0§—53281,6:—53280,14"™"“":—UT,UL%:� REVISED BY JOHN KACUR–"$Œ:UH²1:UG$²"":�850À"%™" ÄO YOU WANT THE ALARM OPTION? ";Ö"&US$²"YN":UL²1:�35è"'‹UR$²"Y"§AL²1ú"(‹UR$²"N"§AL²00#)™" ÏÐÔÉÏÎÓ:":™" A) 12.00 HOUR FORMAT"V#*™" B) 24.00 HOUR FORMAT."‹#+™" ÅNTER ÏPTION -> ";:US$²"AB":UL²1:�35�#,‹UR$²"A"§OP²1¹#L� BIG TIME 2.0 NON-STOPÚ#V� ORIGINALLY BY SCOTT MAUCUSö#`� MODIFIED BY B. SEILERü#j�$t�I²0¤9 4$~� SET UP A DIGIT@$ˆ�J²1 ¤5H$’‡A$h$œ� MOVE CURSOR DOWN & 3 LEFT‚$¦A$(I)²A$(I)ªA$ª"���"Š$°‚ J’$º‡A$¯$Ä� MOVE CURSOR RIGHT & UPË$ÎA$(I)²A$(I)ªA$ª"‘‘‘‘‘"Ò$Ø‚Iá$Ù‹AL²0§1260"%Ú™"“":—UT,UU%:™" PLEASE TYPE THE TIME YOU WANT THE ALARM"E%Û™" MINUTES"m%Ý™" HOURSÀ®  °ÀSECONDS"�%Þ™" Ý Â Ý"®%ß™" HHMMSS"ß%à™È(UD$,14)" ������";&áUS$²"0123456789":UL²6:�35:AL$²UR$&â‹Ã(AL$)³±6§‰1242-&ç� ASK FOR TIMEl&ì™"“":—UT,UU%:™" PLEASE TYPE THE CURRENT TIME"�&ö™" MINUTES"·&™" HOURSÀ®  °ÀSECONDS"×& ™" Ý Â Ý"ø&™" HHMMSS")'™È(UD$,14)" ������";N'US$²"0123456789":UL²6:�35:A$²UR$b'‹Ã(A$)³±6§‰1296v'� SET TIME HERE�'(TI$²A$˜'2� DRAW "TIME" WORD¢'<�2260¸'F� DRAW BORDER BOXÂ'P�2090Õ'Z�**MAIN LOOP**÷'d� POSITION CURSOR AT1ST DIGIT(n™"";.(x� DRAW NUMERALS FOR TIME9(‚�I²1¤6Q(Œ™A$(Å(Ê(TI$,I,1)));s(–� INSERT COLON TWEEN HH-MM-SS‘( ‹I²2°I²4§™"×�ב‘‘‘";¶(¥‹OP²1¯Å(TI$)±126000§TI$²"000000"Ï(¦‹AL$²TI$§�5000:�5000ì(§¡Z$:‹Z$²"H"§ œ:�900:‰300ô(ª‚ Iÿ(´‰ 1390)¾� DIGITS DATA STRING#)ȃ"ΣÍ".)Òƒ"¥ §"9)܃"¥ §"D)æƒ"¥ §"O)ðƒ"¥ §"Z)úƒ"ͤÎ"e)ƒ" Î¥"p)ƒ" ¥"{)ƒ" ¥"†)"ƒ" ¥"‘),ƒ" ¥"œ)6ƒ"¤¤Ì"§)@ƒ"ΣÍ"²)Jƒ" §"½)Tƒ" ¤Î"È)^ƒ"Î "Ó)hƒ"¥ "Þ)rƒ"̤¤"é)|ƒ"ΣÍ"ô)†ƒ" §"ÿ)�ƒ" ¤Î" *šƒ" Í"*¤ƒ" §" *®ƒ"ͤÎ"+*¸ƒ"¥ ¥"6*ƒ"¥ ¥"A*̃"̤Ì"L*Öƒ" ¥"W*àƒ" ¥"b*êƒ" ¥"n*ôƒ "Ï££"z*þƒ "̤ "†*ƒ " Í"’*ƒ " §"ž*ƒ " §"ª*&ƒ "ͤÎ"¶*0ƒ "ΣÍ"Â*:ƒ "¥ "Î*Dƒ "̤ "Ú*Nƒ "¥ Í"æ*Xƒ "¥ §"ò*bƒ "ͤÎ"þ*lƒ "Ï£Ð" +vƒ " Î"+€ƒ " Î ""+Šƒ "§ ".+”ƒ "§ ":+žƒ "§ "F+¨ƒ "ΣÍ"R+²ƒ "¥ §"^+¼ƒ "ͤÎ"j+ƃ "Î Í"v+Ѓ "¥ §"‚+Úƒ "ͤÎ"Ž+äƒ "ΣÍ"š+îƒ "¥ §"¦+øƒ "ͤº"²+ƒ " §"¾+ ƒ " §"Ê+ƒ "ͤÎ"é+ � WRITE BORDERS FOR DIGITSó+*™" "; ,4�I²1¤37:™"¤";:‚:™8,>™"§Í Î¥"C,H�I²1¤2t,R™"§"¦I)"Í"¦35«2¬I)"Î"¦I)"¥" z,\‚µ,f™"§ Ï";:�I²1¤29:™"£";:‚:™"Ð ¥" À,p�I²1¤8Ý,z™"§ ¥"¦29)"§ ¥" ã,„‚-Ž™"§ Ì";:�I²1¤29:™"¤";:‚:™"º ¥" +-˜�I²2¤1©«1K-¢™"§"¦I)"Î"¦35«2¬I)"Í"¦I)"¥"Q-¬‚€-¶™"§Î Í¥"»-À™" ";:�I²1¤37:™"£";:‚:™ Á-ÊŽÓ-Ô� TIME HEADERÝ-Þ™"“";ê-ã—53281,0÷-ä—53280,0.å™"" .èW²10&.ò™¦W)"£Ð££ £Ï §Í Î¥ Ï££"C.ü™¦W)" § ¥ § ÍÎ ¥ ̤ "`. ™¦W)" §    ¥ §    ¥ ¥  "}. ™¦W)" § ¤Ì § ¥ ̤¤"‡. ™"";�. Žš.ˆ�QQ²1¤10Ð.‰—54296,15:—54277,75:—54276,33:—54273,17:—54272,37â.Š�QZ²1¤200:‚QZ/‹—54276,0:—54277,0:—54272,0 /Œ‚QQ/ŽŽ