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. UQUBUB919J UQ%(UQUB)(UQ)::""] UZ1:UV%(UT)f 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%( U2,U2%4 U4,U4%B U3,U3%1J 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 **)-:X."":UT,UU%:(50003)053281,9:53280,8^/:{1" MENU"6" --------------------------------------";" 1. BEGIN PIZZA-3!"@" 2. STUDENT INSTRUCTIONS""E" 3. TEACHER INSTRUCTIONS">O" 4. QUIT"mT" --------------------------------------"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 **G(50003)1(50003)160(50003)0399qUU71:(50003)053281,6:53280,14}"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UH1:UP0:UG$"TUDENT NST":850." N THIS PROGRAM YOU WORK IN A PIZZA"[" PLACE. EOPLE PHONE YOU AND ASK FOR"" A PIZZA. OUR JOB IS TO TELL THE"" DRIVER WHERE TO GO."" OUR CUSTOMER IS A LETTER OF THE"" ALPHABET. E LIVES IN A TOWN WITH 9"&" STREETS ACROSS AND 9 STREETS UP."U" OU MUST TELL THE DRIVER HOW FAR OVER"t" AND HOW FAR UP TO GO."835:UH1:850" F YOU GIVE THE RIGHT DIRECTIONS"" YOU MAKE A DOLLAR. F YOU GIVE THE"" WRONG DIRECTIONS, YOU LOSE A DOLLAR."8" O ADVANCE FROM ONE QUESTION"a" TO THE NEXT PRESS THE BAR""F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835UZ1UP%:217 ** TEACHER INSTRUCTIONS **'"":UT,UL%:(50003)053281,2:53280,10MUH1: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:"" OMMODORE USINESS ACHINES":" 3370 HARMACY VE.^" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UH1:UP1: 835: 850:" ROGRAM AME: IZZA-3!" RITTEN Y : . RLEWINE*" PGRADED Y : EIL UNTU" HIS PROGRAM WILL RUN ON ANYt" 64 " 64  835:UH1:850" -3! IS A PRESCHOOL PROGRAM"" DESIGNED AS A SIMPLE GAME TO TEACH"," COORDINATES AND POSITIONS."5835INUZ1UP%:217OWuX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **)"BEFORE RUNNING THIS PROGRAM ON AN 8032 _" LOAD THE 'CBM 4032' PROGRAM"jUU71p  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";: (I137:"";:"*I122:"";:G," i."  0" 2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE-: ** COMMODORE LOGO **e;(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-NMR ** PAGE DESIGN ROUTINE **YTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":%k ** PLEASE WAIT REMARK **[p(UD$,24);" ONE MOMENT PLEASE... "au~ ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0J(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "-UT$" -3! ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***3M ** SET VARIABLES **V900q ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH"%"MEMORY TO RUN THIS PROGRAM !"0UU716P"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,133 1104,145:1105,234:1082,234, (50003)160955[ 1093,88:1094,228:1097,85:1102,228:965p (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,141O!2123,20:2124,3:2126,234:2127,141:2128,21:2129,3m!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,14<" ** PIZZA * S.ERLEWINEX"UT,UU%:UG$"GAME":UP0p" A PRE-SCHOOL GAME" BASED ON IDEA FROM 101 BASIC GAMES" *** PET USER GROUP BOX 371#$ MONTGOMERYVILLE, PA 18936 REM #.""H#V" WHAT IS YOUR NAME? ";:US$"":UL10:35:N$UR$o#`" OK, "N$", YOU'VE GOT THE JOB!"#j X0 S$(20),P(20),V(20),H(20)#t A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P#~B0:I116:P(I)0:I#I116:S$(I):I#$ I 1 16$X((7)82)"$ C1 166$ P(C)X 1190>$ CI$P(I)XQ$ Ic$ SET UP GRIDl$""u$V17$ " PIZZA-3!";V)" 1 2 3 4 5 6 7 8 9$ V)" $V)" 9ݠݠݠݠݠݠݠݠݠ9%V)" %(V)" 8ݠݠݠݠݠݠݠݠݠ8?%2V)" _%<V)" 7ݠݠݠݠݠݠݠݠݠ7~%FV)" %PV)" 6ݠݠݠݠݠݠݠݠݠ6%ZV)" %dV)" 5ݠݠݠݠݠݠݠݠݠ5%nV)" &xV)" 4ݠݠݠݠݠݠݠݠݠ4;&V)" [&V)" 3ݠݠݠݠݠݠݠݠݠ3z&V)" &V)" 2ݠݠݠݠݠݠݠݠݠ2&V)" &V)" 1ݠݠݠݠݠݠݠݠݠ1&V)" 'V)" 1 2 3 4 5 6 7 8 9'""5' PRINT POSITIONSA'I116N'XP(I)9d' X(X)0 1570u'V(I) (X)1'H(I) P(I)((X)9)' 1590'"H(I) 9',V(I)X'6 2450'@ 2540'J S$(I);'T I'^ PRINT""'h FOR I= 1 TO 16((r PRINTP(I);" ";S$(I);","H(I);","V(I)5(| NEXT IG( FIND CALLERP(""\(I116n(P(I)01730v( I( 2100(I((7)17)(P(I)01730( GET GUESS( 2650(" RING!! RING!!"(" HELLO, "N$"?")" THIS IS "S$(I))" WOULD YOU SEND"/)" ME A PIZZA?"F) K 1 1000: Kb)&" THANKS! GOODBYE."q)0835:4000{):2650)D" THE DRIVER WANTS")N" TO KNOW WHERE "S$(I))X" LIVES.")b" HOW MANY ACROSS?":" ";*lUS$"123456789H":35:H(UR$)!*v" HOW MANY UP?":" ";C*US$"123456789H":35:V(UR$)^*" OK. I'LL GO OVER"p* H"AND UP "V* K1850: K* GUESS CORRECT?*C0*P(V1)9H* PP(I) 2020* PP(I) 3290* 1890* 3070+" READY FOR "+" ANOTHER CALL?";;+US$"YNH":UL1:35:G$UR$O+  G$"N" 2100c+ G$"Y" 1670n+  2620y+* 2050+4 FINAL BALANCE+> 2650+H B0 2220+R B0 2180+\" SORRY, "N$+f" YOU LOST $"(B)+p 2250,z G$"Y" 1140," WELL, "N$.," YOU BROKE EVEN."H," GOOD EXPERIENCE!"S, 2250f," GOOD WORK"w," ";N$;"!"," YOU MADE $ "B," WANT TO PLAY," AGAIN?";,US$"YNH":UL1:35:G$UR$, G$"Y" 1140, G$"N" 2320- 2620- 2270- THE END/- " OK, "N$G-$ " SEE YOU LATER!"R-. 835:i-8 FIND COORDINATESv-B XP(I)9-L X(X)02420-V V(I)(X)1-` H(I)P(I)((X)9)-j 2440-t H(I)9-~ V(I)X- - LOCATE CURSOR- "";. K1 21. "";. K&. K 1 180. "";8. K>. P. MOVE CURSORb. K 1 H(I)m. "";u. K. K 1 V(I). "";.( K.2 .< Y OR N SUB.F "Y OR N PLEASE.".P .Z CLR SCREEN.d "";.n K1 19/x " "/ K=/ " "C/ U/ MOVE CURSORd/ K 1 Ho/ "";w/ K/ K 1 V/ "";/ K/ / BALANCE/ C0 B B1/ C1 BB1/ / SUB RIGHT ANSWER/ C10 2650 0 24500& 2540(00 ""<0: " RING. RING."R0D " HELLO, "N$"?"i0N " THIS IS "S$(I)}0X " THANKS FOR"0b " THE PIZZA!"0l 835:40100v 26500 P(I)00 30300 " ";N$;", YOU"0 " MADE A DOLLAR!"1 " THAT MAKES"1 " $"B" SO FAR."1 51 B0" GOOD WORK!";1 N1 WRONG ANSWERV1 C0i1 K1850: Ky1 Z 1 161 PP(Z) 34801 Z1 UNOCCUPIED1 24501* 272014 K 1 501> "!";1H Q 1 10 : Q1R " ";2\ Q 1 10 : Q2f K%2p 2650>2z " NO ONE'S HOME!"N2 3030:835Y2 3610h2 OCCUPIEDs2 2450~2 27202 "?";2 K 1 850: K2 ""S$(Z)"";2 26502 " "N$" THIS IS "S$(Z)2 " I DIDN'T ORDER"3 " A PIZZA!"3 835:40103 2650%3 3030E34000:" "N$" YOU LOST"X3$" A DOLLAR."r3." WHAT'S "S$(I)"'S"38" ADDRESS AGAIN?"3B3(UD$,24);" HELP - PRESS H ":4(UD$,24);" ":AIN?"3B3(UD$,24);" HELP - PRESS H ":4(UD$,24);"