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 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 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%5 U2,U2%A U4,U4%O U3,U3%1W 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 **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN GUESS A NUMBER" @" 2. STUDENT INSTRUCTIONS"4E" 3. TEACHER INSTRUCTIONS"aJ" 4. MODIFICATION OF PROGRAM"}O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT ROUTINE_(UR$)1300`US$"">c(UR$)1000,400,500,600,396Gh300n ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **."":UT,UL%:(50003)053281,0:53280,0EPU$UG$:PUUP:UP1fUP0:UG$"TUDENT NST":850" ELCOME TO --Ғ! N THIS"" GAME YOU ARE SHOWN A NUMBER LINE AND "" YOU ARE ASKED TO GUESS A NUMBER BETWEEN"&" ZERO(0) AND NINE(9). HE COMPUTER WILL"R" GIVE YOU CLUES TO FIND THE NUMBER."j" Ġ!!!"~ 835:UP2:850"OTE:O ADVANCE FROM ONE QUESTION""TO THE NEXT PRESS THE BAR.""F AT ANY TIME YOU WISH TO RETURN")"TO THE PRESS H ."2835FUZ1UP%:217XUG$PU$:UPPU^ ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"'" THIS PROGRAM IS IN THE PUBLIC"S" DOMAIN. F THIS IS NOT THE CASE"p" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"#" (416) 499-4292"9UP1: 835: 850:e" ROGRAM AME: UESS UMBER"" RITTEN Y : . DWARDS" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64 & 835,I@NUZ1UP%:217RVUG$PU$:UPPUXW~X ** PROGRAM MODIFICATION INST **Y"":UT,UL%:(50003)053281,9:53280,9ZPU$UG$:PUUP]UP0:UG$"ROGRAM OD":850b" HE MODIFCATION AVAILABLE FOR THIS ";d" PROGRAM CONCERNS THE HINTS THAT THE"je" COMPUTER OFFERS AFTER EACH GUESS. T"f" PRESENT THESE HINTS ARE SET AS :"g" 'Ϡ. ٠Ҡ!'"h" 'Ϡ. ٠Ҡ!'";i" : HESE HINTS ARE PERMENANT PARTS OF THE PROGRAM AND EVEN ";j"AFTER MODIFICA- TION THEY WILL BE REACTIVATED WHENEVER THE ";k"PROGRAM IS LOADED."835UP2:850" O CHANGE THE HINTS THAT ARE GIVEN TO THE STUDENTS TYPE :"%" 1465 '******' <>"E" "p" 1475 '******' <>"" NSERT THE HINT YOU DESIRE IN PLACE OF  THE ******";" BEFORE RUNNING THE PROGRAM,"" BUT TAKE CARE THAT THE PROPER HINT IS  IN THE RIGHT LINE."!8355UZ1UP%:217GUG$PU$:UPPUMr ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 **_"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"k1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:B," d."  0" 2" 4"C O M M O D O R E6"EDUCATIONAL 8"SOFTWARE(: ** 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"LUI$:UI$" "844#NCR ** PAGE DESIGN ROUTINE **OTUPUP1sW""(UT$UP$,21);(UP$UG$,18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **Kp(UD$,24);" ONE MOMENT PLEASE... "Qun ** 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:UU2048y (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$" "!UT$" Ҡ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***#!=! ** SET VARIABLES **F!900L!:R!:m! ** CHECK FOR 8032 **!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"!""MEMORY TO RUN THIS PROGRAM !","UU712"L""":(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,133#1104,145:1105,234:1082,234(#(50003)160955W#1093,88:1094,228:1097,85:1102,228:965l#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103,8:2104,141:2105,21$2106,3:2115,145:2117,52:2118,234:2121,49:2122,141K$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3i$UU48: DISABLE STOP KEYz$800: TITLE$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **%"";::(50003)053281,6:53280,14"%E% GUESS-A-NUMBER APRIL 1981K%o% PRIMARY GRADE STUDENT GUESSES%$ A NUMBER FROM 0 - 9%.%8 8K P.E.T.%B%L%V CHRIS EDWARDS%`UT$" GUESS A NUMBER":UG$"":UP0%j9&t" ݠ SAN MATEO COUNTY &~" OFFICE OF EDUCATION & &" COMPUTER-USING EDUCATORS SOFTSWAP #'" q'"333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401'" (" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE ONLY AND [(" ARE NOT TO BE SOLD. a(:( MODIFIED FOR EXPERIENCE '82 BY RAFFAELO D'ALESSANDRO AND( KEITH D'SOUSA,SARNIA.(:("":UT,UU%(1630&)K0:"NUMBER LINE"1)Z13;)B176X) Z1UM241 UM277 4b)Z1,Bs) Z2120:Z2)Z1,(B128))BB1)(Z1)2Z)<)F 1760)PR((X)10))Z"WHAT IS YOUR GUESS? ";)d1930)n1760*x (AA$)47 (AA$)58 1430+*}AA$"H"195:1420L*"COME ON NOW!"V*1370c*N(AA$)m*1810~* NR 1480*NR1470*"";*"TOO SMALL. TRY A BIGGER NUMBER!"*1370*""; +"TOO BIG. TRY A SMALLER NUMBER!"+1370*+""<+Z21750:Z2Q+Z1 2:Z1123k+23Z1)"YOU WON!";+Z1) "YOU WON!"+Z1:Z21580+Z123 1 1+23Z1)"YOU WON!";+Z1) "YOU WON!"+"Z1+,Z,6"WOULD YOU LIKE TO PLAY AGAIN (Y/N) ?";Q,@US$"YN":UL1:35:AA$UR$: AA$"Y" Z1:UPUP1:1220g,EAA$"H"195:300,JAA$"N" "":300,T1600,^UH1:UG$"":850:"",h"---------------------------"-r"0 1 2 3 4 5 6 7 8 9"-w K25 K0:1360/-|Z1 Z0:13609-1240R-"HELLO THERE!"d-Z11500:Z1-"I WANT TO PLAY A GAME WITH YOU."-"I WILL THINK OF A NUMBER AND HIDE"-"IT ON THE LINE. YOU GUESS THE NUMBER.". 835:K25: 1630 . 1360 . A$"Y" 1350A."BYE NOW...":300Q.""].A116." ". A.."";.I11 (N4)1.&"";.0 I1.:Z115/D(" ѝ",(K1)21,2);:K1(K0)/NZ2150:Z2/XZ1-/b"";N;"";M/l (A1$)2 " ":1920Y/v" "_//US$"0123456789":UL1:35:AA$UR$/(" ",(K1)21,2);:K1(K0):AA$""1930/" ":1920Y/v" "_//US$"0123456789":UL1:35