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$; P50 U +++ CHECK FOR HELP REQUEST +++> ZUR$UX$195: EXIT TO HELP ROUTINEM _UF1240Z dUF0::s f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US,1)% 2 UI$"":M ** STANDARD INPUT **^ (UI$)46o UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128):  UI$"":4 UF1: +++ HELP ROUTINE EXIT +++= 250F 245e 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:220"";2UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)GUQ,UQ%(UQUB):SU1,U1%_U2,U2%kU4,U4%yU3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4)BUJ$US$:UK$UG$:UL$UT$:UJUP:UKULHY, ** MENU **_-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------" ;" 1. BEGIN METRIC (ECCO)"3@" 2. STUDENT INSTRUCTIONS"]E" 3. TEACHER INSTRUCTIONS"yO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE _(UR$)1300`US$""5c(UR$)1000,400,500,396>h300e ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **UT$" ETRIC ()="":UT,UL%:(50003)053281,0:53280,0^UP0:UG$"TUDENT NST":850h::" "" "" "$" ETRIC ONVERSIONS "R" " "" """:" OU WILL RECEIVE A MINIMUM" " OF 12 QUESTIONS. F YOU MAKE"5" A MISTAKE, THE COMPUTER WILL GIVE"]" YOU ANOTHER SIMILAR QUESTION."" OLLOW THROUGH TO END YOUR SCORE."835UP1:850" OTE:FTER EACH RESPONSE YOU GIVE," HIT TO INPUT YOUR DATA.""" O ADVANCE FROM ONE QUESTION"K" TO THE NEXT PRESS THE BAR."{" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H (OR ) . HIS" "" ONLY WORKS IF NO OTHER DATA IS TYPED"" IN. F DATA IS PRESENT YOU MUST FIRST">" DELETE IT AND THEN TYPE H (OR ) "G835[UZ1UP%:217a ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" ETRIC ()":UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"?" THIS PROGRAM IS IN THE PUBLIC"k" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24";" (416) 499-4292"QUP1: 835: 850:{" ROGRAM AME: ETRIC ()" RITTEN T : . . LAKELOCK .. "" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 ?" 64 M 835:850x " RADE EVEL: UNIOR-NTERMEDIATE" " UBJECT REA: ATH"" OPIC: ETRIC ONVERSIONS"" TUDENT IS DRILLED IN METRIC CONVER-"" SIONS (WITHIN METRIC). F A WRONG"F" ANSWER IS GIVEN, THE STUDENT MAY REPEAT"v" THE SAME QUESTION. ONVERSION EQUALITY"" IS GIVEN AT THIS TIME (I.E. 1=1000)"" F STUDENT GIVES WRONG ANSWER AGAIN,"" A SIMILIAR QUESTION IS PRESENTED AND"/ " STUDENT IS TOLD HOW TO MOVE THE DECIMAL"J"" POINT TO CONVERT."z$" HE DRILL CONTINUES UNTIL 12 QUESTIONS"&" ARE ANSWERED CORRECTLY AND A FINAL"(" SCORE IS GIVEN AT THE END OF THE DRILL"D835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **.Y"":UT,UL%N]UP0:UG$"ROGRAM OD":850W835kUZ1UP%:217q ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM" UU718 ** 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:"";:)(I137:"";:A*I122:"";:f," ."  0" 2" 4"C O M M O D O R E6"EDUCATIONAL18"SOFTWAREL: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS *** HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"A LUI$:UI$" "844G Ng R ** PAGE DESIGN ROUTINE **s TUPUP1 W""(UT$UP$,21);(UP$UG$(UP),18) \" --------------------------------------" `UH0870!a(UD$,24);(UP$,7);"HELP - PRESS H " !fUH0:"":?!k ** PLEASE WAIT REMARK **u!p(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,0d"(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048"(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198"UD$"""UP$" "G#UT$" à()": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***M#g# ** SET VARIABLES **p#900#A(1),A$(1),A(2),A$(2),A(3),A$(3),A(4),A$(4)#1000,K,1,"",0.01,C,0.001,M#RC$(1),RC$(2),RC$(3),RC$(4)$"CORRECT!","RIGHT","GOOD","THAT'S RIGHT!"2$RW$(1),RW$(2),RW$(3),RW$(4)U$"NO","WRONG","INCORRECT","NO"y$X(1),X(2),X(3),X(4):3,0,-2,-3$KK0:NR0:NW0:CT0$ ** CHECK FOR 8032 **$"":"": SHIFTED SPACE$(UB40)96700$ ** MEMORY CHECK **% (0)2000937<%"THIS MACHINE DOES NOT HAVE ENOUGH"`%"MEMORY TO RUN THIS PROGRAM !"k%UU71q%%"":(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,133P&1104,145:1105,234:1082,234g&(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,21P'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 **[("";::(50003)053281,6:53280,14y(UP0:UT$" METRIC (ECCO)"(` METRIC CONVERSIONS(j(t(~ DEVELOPED AT T.A.BLAKELOCK H.S.( SEPT.'79 BY R.M.SMYTHE) COPYING IS WELCOMED, BUT PLEASE() CREDIT THE ABOVE..)4)=)FG0K)xNR0:NW0V)K14a)I14p)CT4CT1})N(TI))IK1690)N(1))2020)N$(N))N$(N$,5))CTCT1)E902240)E90)25)""RW$(I))"""+*," TO GO FROM ";A$(K);U$;" TO "A$(I);U$","F*6" MOVE THE DECIMAL ";W*@MOV$"RIGHT"w*J X(K)X(I)0 MOV$"LEFT"*T" POINT ";(X(K)X(I));"TO THE":" ";MOV$*^""*h" TRY A SIMILAR QUESTION."*r*|NWNW1*KK0*835:1490+I+K)+UG$"FINAL SCORE":UP0:850:/+5+c+" OUT OF A TOTAL OF ";NRNW;" QUESTIONS"+" YOU GOT ";NR;" CORRECT AND ";NW;" INCORRECT."++SCNR(NRNW)100:SC(SC.1.5).1+" SCORE: ";SC;" %"+,SC25 " GET HELP FROM YOUR TEACHER."L,SC25SC40" HAT'S POOR. OU NEED MORE PRACTICE.",SC40SC50 " MORE PRACTICE IS RECOMMENDED.",&SC60SC70" THAT'S NOT BAD, BUT YOU COULD DO BETTER.",0SC70SC90 " YOU ARE PRETTY GOOD AT THIS."-:SC90" EXCELLENT!"D-DSC50SC60" THAT'S NOT THE BEST BUT A PASS"J-NP-X[-835:g-CTCT1v-CT4CT1-25)""RC$(CT)-NRNR1-KK0-E90-835:1690-NN(10(1))-NN5U$"G"-NN6U$"M".N((1000N))100 . KKKK1.K1NN100/. I1NN100@.*KK3N0.08F.4V.>N.012020y.CUG$"QUESTION #":UPNRNW:850.H.I""N;A$(K);U$;" = ? ";A$(I);U$.R.f" ANSWER IS... ";:US$".0123456789":UL10:35:Y$UR$.zY(Y$) /CNA(K)A(I)/Y$(Y)"/C$(C)3/C$Y$1950=/1530P/25)""RW$(I)V/_/E91w/(X(K)X(I))12310/" 1";A$(K);U$;" = ";10(X(K)X(I));A$(I);U$/" TRY THE QUESTION AGAIN:"/UPUP1:835:850::21200 " 1";A$(I);U$;" = ";10(X(I)X(K));A$(K);U$$0 2290I);U$/" TRY THE QUESTION AGAIN:"/UPUP1:835:850::21200 " 1";A$(I);U$;