910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`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 *UL0UL80E -" ";:UC,0Y 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P505 T"PLURALS.C0" PRG S "0:BIGTIME.C2",8: PRGZ U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS +++ }(US$)0150< US1(US$)S UI$(US$,US,1)Y f UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"":0 (UT)UU%UI$((UI$)128):6 C UI$"":h UF1: +++ HELP ROUTINE EXIT +++q 250z 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK-(50003)053281,1:"";:53281,6:53280,14:2207"";fUT$UL$:UT,UV%:UQUB(U2%256U1%U3%3){UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):"(UD$,24);"  HELP COMING ":NU1%(U1):U2%(U2):U3%(U3):U4%(U4)vUJ$US$:UK$UG$:UL$UT$:UJUP:UKUL|, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------"3;" 1. BIGTIME "Z@" 2. USER INSTRUCTIONS"vO" 3. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-3) ";^UL1:US$"123":35: INPUT ROUTINE _(UR$)1300`US$""-c(UR$)1000,400,396Gd(UR$)2Z$"H"1330Ph300w ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **7"":UT,UL%:(50003)053281,0:53280,0UUP0: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. "835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10<UP0: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 24"" (416) 499-4292"UP1: 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  835D835NUZ1UP%:217W'X ** PROGRAM MODIFICATION INST **8Y"":UT,UL%X]UP0:UG$"ROGRAM OD":850a835uUZ1UP%:217{ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032  " LOAD THE 'CBM 4032' PROGRAM"UU71B ** 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)053280,14:53281,6$I138:"";:&I122:"";:3(I137:"";:K*I122:"";: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":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **4HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"KLUI$:UI$" "844QNqR ** PAGE DESIGN ROUTINE **}TUPUP1W""(UT$UP$,21);(UP$UG$,18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "$fUH0:"":Ck ** PLEASE WAIT REMARK **yp(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024%UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0h(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "KUT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Qk ** SET VARIABLES **w A$(9)900:: ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK **  (0)20009377"THIS MACHINE DOES NOT HAVE ENOUGH"["MEMORY TO RUN THIS PROGRAM !"fUU71l"":(50003)0962 ** 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)160955 1093,88:1094,228:1097,85:1102,228:965 (50003)1990 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!UU48: DISABLE STOP KEY!800: TITLE!300: MENU!"THE PGM WILL NOT WORK ON THIS MACHINE!":*"UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **V""";::(50003)053281,6:53280,14""":UT,UL%: REVISED BY JOHN KACUR"$:UH1:UG$"":850"%" O YOU WANT THE ALARM OPTION? ";"&US$"YN":UL1:35"'UR$"Y"AL1"(UR$"N"AL00#)" :":" A) 12.00 HOUR FORMAT"V#*" B) 24.00 HOUR FORMAT."#+" NTER PTION -> ";:US$"AB":UL1:35#,UR$"A"OP1#L BIG TIME 2.0 NON-STOP#V ORIGINALLY BY SCOTT MAUCUS#` MODIFIED BY B. SEILER#j$tI09 4$~ SET UP A DIGIT@$J1 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$AL01260"%"":UT,UU%:" PLEASE TYPE THE TIME YOU WANT THE ALARM"E%" MINUTES"m%" HOURS SECONDS"%" "%" HHMMSS"%(UD$,14)" ";&US$"0123456789":UL6:35:AL$UR$&(AL$)61242-& ASK FOR TIMEl&"":UT,UU%:" PLEASE TYPE THE CURRENT TIME"&" MINUTES"&" HOURS SECONDS"& " "&" HHMMSS")'(UD$,14)" ";N'US$"0123456789":UL6:35:A$UR$b'(A$)61296v' SET TIME HERE'(TI$A$'2 DRAW "TIME" WORD'<2260'F DRAW BORDER BOX'P2090'Z**MAIN LOOP**'d POSITION CURSOR AT1ST DIGIT(n"";.(x DRAW NUMERALS FOR TIME9(I16Q(A$(((TI$,I,1)));s( INSERT COLON TWEEN HH-MM-SS(I2I4"ם";(OP1(TI$)126000TI$"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+*" "; ,4I137:"";::8,>" Υ"C,HI12t,R""I)""352I)""I)"" z,\,f" ";:I129:"";::" " ,pI18,z" "29)" " ,-" ";:I129:"";::" " +-I211K-""I)""352I)""I)""Q--" ͥ"-" ";:I137:"";:: -- TIME HEADER-"";-53281,0-53280,0."" .W10&.W)"УϠ Υ ϣ"C.W)" ̤ "`. W)" "}. W)" ̠ ̤". "";. .QQ110.54296,15:54277,75:54276,33:54273,17:54272,37.QZ1200:QZ/54276,0:54277,0:54272,0 /QQ/