+ PIZZA SEPT801l LOGIC GAME TO TEACH COORDINATES AND POSITIONr 8K PET S. ERLEWINE MODIFIED BY H.HUNGATE 8 REM " " SAN MATEO COUNTY % " OFFICE OF EDUCATION K " & q" COMPUTER-USING EDUCATORS " " SOFTSWAP " "333 MAIN STREET, REDWOOD CITY/"CA 94063 (415)364-5600 EX4401U"{"" PROGRAMS MAY BE COPIED FOR " EDUCATIONAL USE & MAY NOT BE" SOLD. COPYRIGHT 1981 CUE,INC"2Z S$(20),P(20),V(20),H(20)od MODIFIED BY HARRIET HUNGATE SEPT 80}n29772,12x ** PIZZA * S.ERLEWINE INTRO TO COORDINATES BASED ON IDEA FROM 101 BASIC GAMES *** PET USER GROUP BOX 371E MONTGO]ERYVILLE, PA 18936 REM]"PIZZA""DO YOU WANT INSTRUCTIONS ";G$ (G$,1)"Y" 2020:220 (G$,1)"N" 220180"WHAT IS YOUR NAME";N$N$(N$,10)&"OK, "N$" YOU'VE GOT THE JOB!M" HOW MANY PIZZAS DO YOU WANTk" TO DELIVER";ZZ} ZZ17 310"...THE OVEN ONLY HOLDS 16 !!!":250,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P6B0:I1ZZ:P(I)0:I@I1ZZ:S$(I):IJT I 1 ZZ'^X((7)82)6h C1 ZZIr P(C)X 350Q| C\P(I)Xd Iv SET UP GRID""V17V)"V)" V)" 9ݠݠݠݠݠݠݠݠݠV)" V)" 8ݠݠݠݠݠݠݠݠݠ-V)" LV)" 7ݠݠݠݠݠݠݠݠݠkV)" V)" 6ݠݠݠݠݠݠݠݠݠV)" V)" 5ݠݠݠݠݠݠݠݠݠ&V)" 0V)" 4ݠݠݠݠݠݠݠݠݠ%:V)" DDV)" 3ݠݠݠݠݠݠݠݠݠcNV)" XV)" 2ݠݠݠݠݠݠݠݠݠbV)" lV)" 1ݠݠݠݠݠݠݠݠݠvV)" V)" 0 1 2 3 4 5 6 7 8 9"" PRINT POSITIONS(I1ZZ5XP(I)9J X(X)0 730[V(I) (X)1sH(I) P(I)((X)9)} 750H(I) 9V(I)X 1640 1730 S$(I);  I PRINT""  FOR I= 1 TO ZZ * PRINTP(I);" ";S$(I);","H(I);","V(I)4 NEXT I,> FIND CALLER5H""ARI1ZZR\P(I)0890Zf Iep 1290vzI((7)17)P(I)0890 GET GUESS 1840" RING!! RING!!""HELLO, "N$"?""THIS IS -"S$(I)"-"Z1100:"WOULD YOU SEND ME"""A PIZZA?"9 K 1 1200: KS"THANKS! GOODBYE."i K1 2000: Ks1840"THE DRIVER WANTS""TO KNOW WHERE -"S$(I)"-""LIVES"$"HOW MANY ACROSS?".C$:C$"" (C$)0 10708H(C$)B"HOW MANY UP?"0LS$:S$"" (S$)0 1100<VV(S$)W`"OK. I'LL GO OVER"ij H"AND UP "Vt K1(400100(HV)): K~ GUESS CORRECT?C0P(V1)9H PP(I) 1210 PP(I) 2460 1060 2240 "READY FOR " "ANOTHER CALL?"9 G$: G$"" 1240M G$"N" 1290` G$"Y" 830k 1810v 1240  FINAL BALANCE 1840 B0 1410( B0 13702"SORRY, "N$<"YOU LOST $"BF 1440P G$"Y" 300 Z"WELL, "N$"d"YOU BROKE EVEN.";n"GOOD EXPERIENCE!"Fx 1440W"GOOD WORK"e""N$"!"z"YOU MADE $ "B"WANT TO PLAY"AGAIN?" G$: G$"Y" "":250 G$"N" 1510 1460 1810 1460 THE END"OK, "N$&"SEE YOU LATER!",C FIND COORDINATESPXP(I)9c"X(X)01610s,V(I)(X)16H(I)P(I)((X)9)@ 1630JH(I)9TV(I)X^h LOCATE CURSORr"";| K1 21""; K  K 1 18 "";  K *  MOVE CURSOR<  K 1 H(I)G "";O  Ka  K 1 V(I)l "";t  Kz   Y OR N SUB "Y OR N PLEASE." & 0 CLR SCREEN :""; DK12 N" " X!b K1 22!l" "%!v K@!" "F!X! MOVE CURSORg! K 1 Hr!"";z! K! K 1 V!"";! K!! INSTRUCTIONS!" YOUR JOB IS TO TAKE ORDERS IN THE""PIZZA PARLOR AND TELL THE DRIVER WHERE5""TO DELIVER THE PIZZAS.d" " WHEN ASKED, YOU TELL THE DRIVER HOW""MANY STREETS TO GO ACROSS (TO THE RIGHT)";" "AND HOW MANY STREETS UP."*" WHEN YOU GIVE THE RIGHT DIRECTIONS#4"A HAPPY CUSTOMER CALLS TO THANK YOU AND-#>"YOU MAKE A DOLLAR.V#H" IF YOU MAKE A MISTAKE YOU GET#R"COMPLAINTS AND YOU LOSE A DOLLAR.#\" ARE YOU READY";#f"";G$: (G$,1)"Y" 2180#p (G$,1)"N" 2020#z 2150#""#$ BALANCE$ C0 B B1-$ C1 BB13$J$ SUB RIGHT ANSWERR$C1]$ 1840h$ 1640s$ 1730}$""$" RING. RING."$ "HELLO, "N$"?"$ "THIS IS -"S$(I)"-"$ "THANKS FOR"$$ "THE PIZZA!"$. K 1 2500: K%8 1840%B P(I)0%L 2200-%V N$", YOU"D%` "MADE A DOLLAR!"W%j "THAT MAKES"l%t "$"B" SO FAR."r%~ % "GOOD WORK!"% % WRONG ANSWER% C0% K11500: K% Z 1 16% PP(Z) 2650% Z% UNOCCUPIED& 1640 & 1940& K 1 25&& "!";>& Q 1 50 : QJ& " ";b& Q 1 50 : Qj&( Ku&2 1840&< "NO ONE!S HOME!"&F 2200&P 2780&Z OCCUPIED&d 1640&n 1940&x "?";& K 1 1500: K& ""S$(Z)"";' 1840 ' N$" THIS IS -"S$(Z)"-"7' "I DIDN'T ORDER"H' "A PIZZA!"]' K 12000: Kh' 1840s' 2200{' N$' " YOU LOST"' "A DOLLAR."' "WHAT'S "S$(I)"'S"' "ADDRESS AGAIN?"'