910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **# +++ INPUT SECTION +++(UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,03 2UI$:UI$""50] 7UI$(13)(UR$)1UC,1:" ";:85p <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 ROUTINE' _UF12404 dUF0::M f ++ CHECK DELETE ++^ i(UR$)150v nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US,1) UI$"":' ** STANDARD INPUT **8 (UI$)46I UI$(32)f (UI$)48(UI$)57170l (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)[ UQ%(UQUB)(UQ)::""n UZ1:UV%(UT)w 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%9 U2,U2%E U4,U4%S U3,U3%1[ 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"3, ** MENU **9-:h."":UT,UU%:(50003)053281,9:53280,8n/:1" MENU"6" --------------------------------------";" 1. ANIMAL,VEGETABLE OR MINERAL"@" 2. STUDENT INSTRUCTIONS"?E" 3. TEACHER INSTRUCTIONS"lJ" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) "; ^UL1:US$"12345":35: INPUT ROUTINE_(UR$)1300(`US$""Ic(UR$)1000,400,500,600,396Rh300y ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875:  ** STUDENT INSTRUCTIONS **9"":UT,UL%:(50003)053281,0:53280,0lUT$" , , OR ":UP0:UG$"TUDENT NST":850"F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835850:1410:835UZ1UP%:217 ** TEACHER INSTRUCTIONS **K"":UT,UL%:(50003)053281,2:53280,10~UT$" , , OR ":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:"H" OMMODORE USINESS ACHINES"k" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: , , OR ;" RITTEN Y : AMES . HITEWOOD_" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64  835:850" HIS PROGRAM IS TO TEACH YOUNG "5" CHILDREN THE FORMS OF MATTER (ANIMAL,"a" VEGETABLE & MINERAL) THAT OCCUR IN"" NATURE. HEN THE CHILD HAS FINISHED"" THE GIVEN NUMBER OF QUESTIONS (25),"" HE WILL BE TOLD HIS SCORE AND PERCENT."" HE TEACHER CAN THEN DECIDE IF THE "= " STUDENT SHOULD TRY AGAIN."FD835ZNUZ1UP%:217`WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UT$" , , OR ":UP0:UG$"ROGRAM OD":850^" F YOU WISH TO ADD NEW WORDS SIMPLY"$_" RETURN TO MENU AND THEN PRESS'5' TO"]`" UIT. HE SCREEN WILL CLEAR AND SAY ."b:" STATEMENTS. O ADD A WORD TYPE IN"c:" ANY LINE NUMBER BETWEEN 1820 AND 2325d:" BUT NOT A NUMBER THAT ALREADY EXISTS."e835f:850,g" YPE IN YOUR WORD IN THE SAME FORM\h:" AS THEY APPEAR IN THE LINE PRECEDING."i:" (IE.1821 '','', )."j:" THAT ABOVE HAVE USED "k:" QUOTES('). OU USE QUOTES"l" LOCATED ABOVE THE KEY."m:" :"Dn:" LWAYS PRESS AFTER MAKING"fo:" CHANGES TO THE PROGRAM."tpUP0:835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"*UU710U ** 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:"";:F(I137:"";:^*I122:"";:," ."  0" 2" 4"C O M M O D O R E/6"EDUCATIONALN8"SOFTWAREi: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300 C ** SPACE BAR PRESS **GHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"^LUI$:UI$" "844dNR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870,a(UD$,24);(UP$,7);"HELP - PRESS H "CfUH0:UO,0:"":bk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024DUT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$"" UP$" "B UT$" , , OR ": PROGRAM TITLEm TN$(250),QU$(250),AN$(250),SU$(250):  ** SET VARIABLES ** 900 : :  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)96700! ** MEMORY CHECK **! (0)2000937G!"THIS MACHINE DOES NOT HAVE ENOUGH"k!"MEMORY TO RUN THIS PROGRAM !"v!UU71|!!"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,1459"1091,155:1098,133:1099,144:1100,234:1103,133["1104,145:1105,234:1082,234r"(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,21[#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 **f$"";::(50003)053281,6:53280,14y$NR0:NW0:UP0$1520$" N THIS GAME WILL TELL YOU THE$" NAME OF AN OBJECT. OU WILL THEN HAVE%" TO DECIDE IF THE OBJECT THAT 'VE/%" DISPLAYED ISEITHER AN ANIMAL, AQ%" MINERAL, OR A VEGETABLE."v%" YPE AN A FOR AN ANIMAL."%" YPE A V FOR A VEGETABLE."%" YPE A M FOR A MINERAL."%" HAT DOESN'T SEEM TOO HARD DOES IT ?"%&"":875&&I1250:TN$(I)""S& QU$(I),AN$(I),SU$(I): QU$(I)"99"YI1:I250:Z&Io&NR0:WW0:2340{&"Z125&,Q((1)Y )1: TN$(Q)"*"1580&6TN$(Q)"*":Q$(QU$(Q),1)&@""&JSU$(Q)""" IS ";:1640*'TQ$"A"Q$"E"Q$"I"Q$"O" Q$"U"" IS AN ";:16409'^" IS A ";K'h"";QU$(Q):v'r" AN ANIMAL, MINERAL, OR VEGETABLE:";'|US$"AMV":UL1:35:A$UR$'A$(A$,1)' AN$(Q)"A"RE$"ANIMAL":1710' AN$(Q)"M"RE$"MINERAL":1710(RE$"VEGETABLE"E(A$AN$(Q)NRNR1:"THAT IS RIGHT!!":2331[( A$AN$(Q)1720e(1780(NWNW1:"":SD$"N"SD$""1730(((((" I'M SORRY BUT THE RIGHT ANSWER IS:"(15);"";RE$(835)2340)TN$"")ZE):" YOUR SCORE IS";NR;"/";NRNW;"!!"i):" THAT IS ";NR4;"PERCENT!!")" WOULD YOU LIKE TO TRY AGAIN:";)US$"YN":UL1:35:A$UR$)(A$,1)"Y"1520)"TREE","V",)&"MAN","A",*0"COW","A",*:"CARROT","V",**D"RUBY","M" ,?*N"MOSQUITO","A",U*X"PEARL","A" ,l*b"DANDELION","V" ,*l"DOG","A" ,*v"GRASS","V" ,1*"DAISY","V" ,*"SAND","M" ,1*"GLASS","M" ,+"BAT","A" ,+"CRICKET","A" ,7+"FOX","A" ,J+"RABBIT","A",^+"LEAF","V" ,s+"COMPUTER","M",+"PICTURE","M" ,+"WATER","M" ,1+"FLOWER PETAL","V",+"CLOCK","M" ,+"TELEVISION","M" ,, "DOG","A" ,,"SNAIL","A" ,7, "TURTLE","A" ,X,*"COTTON DRESS","V" ,j,4"WOOL","A" ,,>"COTTON SWAB","V" ,,H"PEN","M" ,,R"COW","A" ,,\"HAMBURGER PATTY","A" ,,f"HOT DOG","A" ,-p"LETTUCE","V" ,10-z"CARROT","V" ,K-"CHEESE","A" ,1f-"BREAD","V" ,1-"MUSTARD","V" ,1-"AIR","M" ,1-"ASPHALT","M" ,1-"OIL","A" ,1-"GLASS","M" ,1 ."TABLE","V" ,(."BLACKBOARD","M" ,E."BOOK","V" ,b."CAR","M" ,."CARDBOARD BOX","V" ,."BOTTLE","M" ,. "CHALK","M" ,1. "BACON","A" ,1. "99","999",K. . "99","999",K. 835:2340/ / / T/$ UG$"":UT$" A, M, OR V":850:" "{/. " NUMBER NUMBER "/8 " RIGHT WRONG "/= " "/> " "0? " ">0@ " "e0A " "{0j ""14)NR0t ""22)NW0~