910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": " ";:UF1: +++ HELP ROUTINE EXIT +++ 250# 2457 UQUB(UB880)S UQ%(UQUB)(UQ)::""f UZ1:UV%(UT)o 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3) UQ,UQ%(UQUB):% U1,U1%1 U2,U2%= U4,U4%K U3,U3%1S 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL+, ** MENU **1-:`."":UT,UU%:(50003)053281,9:53280,8f/:1" MENU"6" --------------------------------------";" 1. BEGIN MIXED NUMBERS@" 2. STUDENT INSTRUCTIONS".E" 3. TEACHER INSTRUCTIONS"JO" 4. QUIT"yT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300$ ** RE-ENABLE STOP KEY AND END **S(50003)1(50003)160(50003)0399}UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 UH1:UP0:UG$"TUDENT NST":850:"  OU ARE ASKED FOR THE NUMBER OF"d" ADDENDS YOU WISH TO ADD.(4 IS"" THE MAX.) HEN YOU WILL BE GIVEN"" THE QUESTION.OU ARE TO TYPE IN""  THE DENOMINATOR, NUMERATOR AND":" THE INTEGER SUM." 835UZ1UP%:217%F ** TEACHER INSTRUCTIONS **v"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"<" PLEASE CONTACT:"f" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292" UH1:UP1: 835: 850:4" ROGRAM AME: IXED UMBERSV" RITTEN Y : NKNOWN{" PGRADED Y : TEVE UTZ" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217 W3X ** PROGRAM MODIFICATION INST **DY"":UT,UL%i]UH1:UP0:UG$"ROGRAM OD":850r835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"(UU71.N  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:," '."  H0" f2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **#;(UD$,24);"PRESS SPACE BAR OR WAIT":I0E<A$:A$" "II1:I250828i>T1$"":T2$"":T3$"":T4$"":I0r@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1<W""(UT$UP$,21);(UP$UG$(UP),18)k\" --------------------------------------"z`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u7 ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048B(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198fUD$""UP$" "UT$" ĠӠ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900* ** CHECK FOR 8032 **H"":"": SHIFTED SPACE_(UB40)96700x ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71 "":(50003)09628 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **v1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,88:1094,228:1097,85:1102,228:965)(50003)1990X1093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,1412123,20:2124,3:2126,234:2127,141:2128,21:2129,3&UU48: DISABLE STOP KEY7800: TITLEG300: MENUx"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **"";::(50003)053281,6:53280,14LUT$" MIXED NUMBERS":UG$"SET-UP" UP0:UH1:850:""= " MIXED NUMBERSj "  THIS PROGRAM EXERCISES YOUR "p  " ABILITY TO ADD MIXED NUMBERS.":835 UH1:850:""; " ϣ ϥ " ̤ ̥! !" 12345M!2" THE BOX ON THE LEFT HAS BEEN DIVIDEDT!<"!F" INTO FIVE EQUAL PARTS. THIS IS USUALLY!P" STATED BY THE SYMBOL Ò OR /. THUS ONE!Z"!d" OF THE SMALL BOXES IN THE RIGHT BIG""n" 17"x" BOX WOULD BE STATED AS OR 1/5.W"" 5b"""l"1800"UG$"QUESTION #""X0:UH1:UPW:850:"HOW MANY ADDENDS DO YOU WANT? ";:""(TYPE Q TO QUIT)#"";)#US$"Q234H":355#N1$UR$G#N1$"Q"2000U#N1(UR$)^#875#" "#" "# I1N1#A(I)((TI)10):A(I)01470$B(I)((TI)10):B(I)01480:B(I)11480($NA(I):DB(I):1730:$A(I)N:B(I)DZ$3);A(I)(A(I)B(I))B(I)q$(A(I)B(I));" "$" "; B(I)$:$N0:D1$I1N1:DDB(I):$"I1N1:NN(A(I)(DB(I))):$,1730$61601$@WW1:1440+%A(UD$,24);" HELP - PRESS H "P%J""17)"I N"%T""12)"TYPE DENOMINATOR":Q(ND):1840%^DD21710:%h""12);"TYPE NUMERATOR ":N3N(QD):1860%rN3N21720 &|""12);"TYPE INTEGER SUM ":1880&QQ21700i&"THAT'S RIGHT!":"***VERY GOOD***"w&ZZ(3X)&835:&" INTEGER SUM INCORRECT":XX1&" TRY AGAIN":1900:1660'" DENOMINATOR INCORRECT":XX1@'" TRY AGAIN":1900:1620s'"  NUMERATOR INCORRECT":XX1'" TRY AGAIN":1900:1640''PN21'NP(NP)1760'P'DP(DP)1780'1750'NNP:DDP((835:R(0""20);:" D ";:UL3:US$"01 23456789DH":35t(1D2$UR$:D2$"D"D2(D2$):(:""20)" ":1840(D""20);:" N ";:US$"0123 456789NH":35(EN2$UR$:N2$"N"N2(N2$):)N""20)" ":1860J)X""16);:"I ";:US$"012345 6789IH":35d)YQ2$"I"Q2(UR$):~)b""15)" " :1880)l835)n" " *p" ":*v""8)" ":E*W0b*UG$"END":UP0:UH1:850*"YOU GOT"Z"POINTS OUT OF A POSSIBLE"W3*"THAT'S"(Z(W3)100)"%!"*835*W0:Z0:UP0:X0*850*"YOU GOT"Z"P