10 REM PIZZA.ECB 100 DIM A$(26),S$(16),A(10),M$(4),N$(20) 110 PRINT "PIZZA DELIVERY GAME" 120 PRINT 130 PRINT "WHAT'S YOUR FIRST NAME"; 140 INPUT N$ 150 PRINT 160 PRINT "HI, ";N$;", IN THIS GAME YOU ARE TO TAKE" 170 PRINT " ORDERS FOR PIZZAS. THEN YOU ARE TO " 180 PRINT " TELL A DELIVERY BOY WHERE TO" 190 PRINT " DELIVER THE ORDERED PIZZAS." 200 PRINT 210 PRINT 220 LET A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 230 LET S$=" " 240 REM LET N$=" " 250 LET M$="1234" 260 DATA 5,6,7,8,9 270 LET L=26 280 FOR I=1 TO 16 290 LET S$(I,I)=A$(I,I) 300 NEXT I 310 PRINT "MAP OF THE CITY OF HYATTSVILLE" 320 GOSUB 1040 330 PRINT " ----1----2----3----4----" 340 LET K=4 350 FOR I=1 TO 4 360 PRINT "-" 370 PRINT M$(K,K); 380 PRINT TAB(5);S$(16-4*I+1,16-4*I+1); 390 PRINT TAB(10);S$(16-4*I+2,16-4*I+2); 400 PRINT TAB(15);S$(16-4*I+3,16-4*I+3); 410 PRINT TAB(20);S$(16-4*I+4,16-4*I+4); 420 PRINT TAB(25);M$(K,K) 430 LET K=K-1 440 NEXT I 450 PRINT "-" 460 PRINT "0----1----2----3----4----" 470 GOSUB 1050 480 PRINT " THE ABOVE IS A MAP OF THE HOMES" 490 PRINT " YOU ARE TO SEND PIZZAS." 500 PRINT 510 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER" 520 PRINT " THE LOCATION OR COORDINATES OF THE" 530 PRINT " HOME ORDERING A PIZZA." 540 PRINT 550 PRINT "DO YOU NEED MORE DIRECTIONS (YES OR NO) "; 560 INPUT (1,0)A$ 570 LET L=16 580 IF A$="N" THEN 790 590 IF A$="Y" THEN 630 600 PRINT 610 PRINT "I SAID, "; 620 GOTO 550 630 PRINT "SOMEBODY WILL ASK FOR A PIZZA TO BE DELIVERED" 640 PRINT " THEN A DELIVERY BOY WILL ASK " 650 PRINT " YOU FOR THE LOCATION." 660 PRINT "EXAMPLE:" 670 PRINT " THIS IS ";S$(1,1);", PLEASE SEND A PIZZA." 680 PRINT " DRIVER TO DISPATCHER WHERE DOES ";S$(1,1);" LIVE" 690 PRINT " YOUR ANSWER WOULD BE 1,1" 700 PRINT "UNDERSTAND"; 710 INPUT (1,0)A$ 720 PRINT 730 IF A$="Y" THEN 740 740 PRINT "GOOD, NOW YOU ARE READY TO START PLACING ORDERS." 750 PRINT S$(1,1);" SO HAPPENS TO HAVE ORDERED A PIZZA." 760 PRINT " JUST BEFORE YOU CAME IN. GOOD LUCK." 770 LET I=1 780 LET S=1 790 FOR I=1 TO 5 800 LET S=INT(RND(0)*L+1) 810 PRINT "HELLO ";N$;"'S PIZZA. THIS IS ";S$(S,S); 820 PRINT " PLEASE SEND A PIZZA." 830 PRINT " DRIVER TO ";N$;", WHERE DOES ";S$(S,S);" LIVE"; 840 INPUT A(1),A(2) 845 IF A(1)<1 OR A(2)<1 THEN END 850 GOTO 920 860 IF A(0)=2 THEN 920 870 IF A(0)>2 THEN 900 880 PRINT " COME ON. THAT'S NOT ENOUGH NUMBERS." 890 GOTO 830 900 PRINT " COME ON. THAT'S MORE THAN ENOUGH NUMBERS." 910 GOTO 830 920 LET T=A(1)+(A(2)-1)*4 930 IF T=S THEN 980 940 PRINT 950 PRINT " THIS IS ";S$(T,T);". I DID NOT ORDER A PIZZA." 960 PRINT " I LIVE AT ";A(1);",";A(2) 970 GOTO 830 980 PRINT "HELLO ";N$;". THIS IS ";S$(S,S); 990 PRINT ", THANKS FOR THE PIZZA.&J" 1000 NEXT I 1010 PRINT 1020 PRINT "GOOD-BYE ";N$;". SEE YOU LATER." 1030 STOP 1040 PRINT 1050 PRINT " READY TO SEE MORE ? ====> "; 1060 INPUT (1,150)I$ 1070 PRINT 1080 RETURN 1090 END