5 REM PRINT TAB(33);"PIZZA"
10 REM PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
15 PRINT: PRINT: PRINT
20 REM DIM S$(16),M$(4)
30 PRINT "PIZZA DELIVERY GAME": PRINT
80 PRINT "HI, IN THIS GAME YOU ARE TO TAKE ORDERS"
90 PRINT "FOR PIZZAS.  THEN YOU ARE TO TELL A DELIVERY BOY"
100 PRINT "WHERE TO DELIVER THE ORDERED PIZZAS.": PRINT: PRINT
230 PRINT "MAP OF THE CITY OF HYATTSVILLE": PRINT
250 PRINT " ------1--------2--------3--------4--------"
260 K=5
270 FOR I=1 TO 4
280 PRINT "-": PRINT "-"
320 PRINT K-I;
330 S=16-4*I
340 PRINT "     "; : GOSUB 1000+(10*S) : PRINT "     "; : GOSUB 1000+(10*(S+1))
343 PRINT "     "; : GOSUB 1000+(10*(S+2)) : PRINT "     "; : GOSUB 1000+(10*(S+3))
346 PRINT "     ";K-I
390 NEXT I
400 PRINT "-": PRINT "-"
440 PRINT " ------1--------2--------3--------4--------": PRINT
460 PRINT "THE OUTPUT IS A MAP OF THE HOMES WHERE"
470 PRINT "YOU ARE TO SEND PIZZAS.": PRINT
490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER"
500 PRINT "THE LOCATION OR COORDINATES OF THE"
510 PRINT "HOME ORDERING THE PIZZA.": PRINT
520 INPUT "DO YOU NEED MORE DIRECTIONS (1=yes, 0=no)? ";A
530 IF A THEN GOTO 590
540 IF A=0 THEN GOTO 750
550 PRINT "'YES' OR 'NO' PLEASE, NOW THEN,": GOTO 520
590 PRINT: PRINT "SOMEBODY WILL ASK FOR A PIZZA TO BE"
600 PRINT "DELIVERED.  THEN A DELIVERY BOY WILL"
610 PRINT "ASK YOU FOR THE LOCATION.":PRINT "     EXAMPLE:"
620 PRINT "THIS IS John.  PLEASE SEND A PIZZA."
640 PRINT "DRIVER TO MARIO.  WHERE DOES John LIVE?"
650 PRINT "YOUR ANSWER WOULD BE 2,3": PRINT
660 INPUT "UNDERSTAND (1=yes, 0=no)? ";A
670 IF A THEN GOTO 690
680 PRINT "THIS JOB IS DEFINITELY TOO DIFFICULT FOR YOU. THANKS ANYWAY"
685 GOTO 999
690 PRINT "GOOD.  YOU ARE NOW READY TO START TAKING ORDERS.": PRINT
700 PRINT "GOOD LUCK!!": PRINT
750 FOR I=1 TO 5
760 LET S=RND(16) : PRINT
770 PRINT "HELLO MARIO'S PIZZA.  THIS IS "; : GOSUB 1000+(10*S) : PRINT ".";
775 PRINT "  PLEASE SEND A PIZZA."
780 PRINT "  DRIVER TO MARIO:  WHERE DOES "; : GOSUB 1000+(10*S) : PRINT " LIVE?"
790 INPUT U : INPUT W 
870 T=(U-1)+((W-1)*4)
880 IF T=S THEN GOTO 920
890 PRINT T,S : PRINT "THIS IS "; : GOSUB 1000+(10*T) : PRINT ".  I DID NOT ORDER A PIZZA."
900 PRINT "I LIVE AT ";U;",";W
910 GOTO 780
920 PRINT "HELLO MARIO.  THIS IS "; : GOSUB 1000+(10*S) : PRINT ", THANKS FOR THE PIZZA."
930 NEXT I
940 PRINT: INPUT "DO YOU WANT TO DELIVER MORE PIZZAS (1=yes, 0=no)? ";A
960 IF A THEN GOTO 750
970 PRINT: PRINT "O.K. SEE YOU LATER!":PRINT
999 END
1000 PRINT "Axel"; : RETURN
1010 PRINT "Bill"; : RETURN
1020 PRINT "Chad"; : RETURN
1030 PRINT "Dirk"; : RETURN
1040 PRINT "Eddy"; : RETURN
1050 PRINT "Fred"; : RETURN
1060 PRINT "Gary"; : RETURN
1070 PRINT "Hank"; : RETURN
1080 PRINT "Iris"; : RETURN
1090 PRINT "John"; : RETURN
1100 PRINT "Karl"; : RETURN
1110 PRINT "Leon"; : RETURN
1120 PRINT "Maud"; : RETURN
1130 PRINT "Newt"; : RETURN
1140 PRINT "Olga"; : RETURN
1150 PRINT "Paul"; : RETURN
