CP/M/CPM_CDROM.iso/simtel/cpmug/cpmug027.ark/SHOP.ASC

Text File | 1984-04-29 | 8.9 KB | 276 lines

100 REM AUTHOR/IMPLEMENTOR - ?/E. KURAMOTO
110 DIM L$(35)
120 DIM J(35)
130 DEF FNA(P1)=T+(N*P1)
140 A9=-23.119
150 PRINT"HELLO, WITH WHOM AM I SPEAKING";
160 INPUT N$
170 PRINT "WELL ";N$;" HOW ARE YOU FEELING TODAY";
180 INPUT C$
190 FOR I=1 TO 6
200 READ H$
210 IF C$=H$ THEN 250
220 NEXT I
230 PRINT "THAT'S TOO BAD, I HOPE YOU FEEL BETTER SOON."
240 GOTO 260
250 PRINT "THAT'S FUNNY, YOU DON'T LOOK SO GOOD FROM HERE."
260 PRINT
270 FOR I=I+1 TO 6
280 READ C$
290 NEXT I
300 PRINT "DO YOU KNOW HOW TO USE THIS PROGRAM";
310 INPUT K$
320 IF K$="YES" THEN 380
330 PRINT
340 PRINT"  THIS PROGRAM WILL ALLOW THE USER TO DO HIS SHOPPING VIA"
350 PRINT"THE TELETYPE.  WHENEVER I ASK FOR THE NEXT ITEM, SELECT AN"
360 PRINT"ITEM FROM THE FOLLOWING LIST:"
370 PRINT
380 FOR I=1 TO 16 STEP 4
390 IF T1>=3 THEN 420
400 READ L$(I),L$(I+1),L$(I+2),L$(I+3)
410 IF K$="YES" THEN 430
420 PRINT "   ";L$(I);", ";L$(I+1);", ";L$(I+2);", ";L$(I+3)
430 NEXT I
440 PRINT
450 PRINT "WHEN YOU WANT YOUR TOTAL, JUST TYPE TOTAL AND YOU WILL"
460 PRINT"BE GIVEN YOUR BILL."
470 PRINT
480 PRINT"HAVE FUN."
490 PRINT
500 PRINT"WHAT WOULD YOU LIKE";
510 INPUT I$
520 IF I$="TOTAL" THEN 2260
530 IF I$="SPECIAL" THEN 2500
540 FOR I=1 TO 16
550 IF I$=L$(I) THEN 690
560 NEXT I
570 IF T1<4 THEN 600
580 PRINT "YOU'RE AN IMPOSSIBLE CASE ";N$
590 T1=-100
600 IF T1<3 THEN 660
610 PRINT "ARE YOU SURE YOU KNOW HOW TO USE THIS PROGRAM";
620 INPUT U$
630 PRINT "MAYBE I'D BETTER REFRESH YOUR MEMORY A BIT."
640 T1=4
650 GOTO 330
660 PRINT "SORRY, WE DON'T STOCK ";I$;", TRY AGAIN."
670 T1=T1+1
680 GOTO 500
690 IF I$<>"BEER" THEN 980
700 PRINT
710 PRINT "HOW OLD ARE YOU ";
720 INPUT A
730 IF A9= -23.119THEN 780
740 IF A9=A THEN 790
750 PRINT "THAT'S NOT WHAT YOU SAID THE FIRST TIME ";N$;", I DON'T"
760 PRINT "KNOW IF I CAN TRUST YOU ANYMORE."
770 GOTO 500
780 A9=A
790 IF A>3 THEN 830
800 IF A <90 THEN 830
810 PRINT "OK ";N$;" IF THAT'S THE WAY YOU WANT TO BE, FORGET IT."
820 GOTO 500
830 IFA=>21 THEN 860
840 PRINT "SORRY, NO ALCOHOLIC BEVERAGES WILL BE SOLD TO MINORS."
850 GOTO 500
860 PRINT "BEER IS $1.50 PER SIX-PACK, HOW MANY SIX PACKS";
870 GOSUB 2450
880 IF N>8 THEN 930
890 T=FNA(150)
900 B=1
910 B3=N
920 GOTO 500
930 PRINT "ARE YOU GOING TO DRINK IT ALL YOURSELF";
940 INPUT D$
950 IF D$<> "YES"THEN 890
960 PRINT"SORRY, WE DONT'T SERVE ALCOHOLICS HERE."
970 GOTO 500
980 IF I$<> "CHICKEN" THEN 1090
990 PRINT "CHICKEN IS .69 CENTS A POUND, HOW MANY POUNDS";
1000 GOSUB 2450
1010 IF N>14 THEN 1070
1020 IF N>1.5 THEN 1050
1030 PRINT "IF YOU CAN'T DO ANY BETTER THAN THAT ";N$;" I SUGGEST YOU"
1040 PRINT"STOP BY THE LITTLE TAVERN ON THE WAY HOME."
1050 T=FNA(69)
1060 GOTO 500
1070 PRINT "THAT'S NO CHICKEN, THAT'S AN EAGLE AND WE AIN'T GOT NONE."
1080 GOTO 500
1090 IF I$<> "COOKIES" THEN 1170
1100 IF X<>1 THEN 1130
1110 PRINT"YOU'VE AREADY HAD YOUR QUOTA OF COOKIES."
1120 GOTO 500
1130 PRINT "COOKIES ARE $.79 PER DOZEN AND ONE DOZEN IS ENOUGH."
1140 T=T+79
1150 X=1
1160 GOTO 500
1170 IF I$<>"SODA"THEN 1260
1180 PRINT "SODA POP IS $.65 A CARTON, HOW MANY CARTONS";
1190 GOSUB 2450
1200 IF N>11 THEN 1230
1210 T=FNA(65)
1220 GOTO 500
1230 PRINT "YOU RATE OUR DISCOUNT PRICE FOR ADDICTS, ONLY $.50"
1240 T=FNA(50)
1250 GOTO 500
1260 IF I$<>"SOUP" THEN 1390
1270 PRINT "WHAT KIND OF SOUP WOULD YOU LIKE";
1280 INPUT T$
1290 PRINT"YUM, ";T$;" SOUP IS ESPECIALLY GOOD, AND A BARGAIN AT"
1300 PRINT"$.25 PER CAN, HOW MANY CANS";
1310 GOSUB 2450
1320 IF INT(N)=N THEN 1350
1330 PRINT "SORRY, WE DONT'T SPLIT UP CANS FOR ANYBODY."
1340 GOTO 500
1350 IF N<10 THEN 1370
1360 PRINT"WOW, YOU MUST REALLY LIKE ";T$;" SOUP."
1370 T=FNA(25)
1380 GOTO 500
1390 IF I$<> "STEAK" THEN 1650
1400 PRINT "WOULD YOU LIKE SIRLOIN, PORTERHOUSE OR ROUND STEAK";
1410 INPUT T$
1420 IF T$<> "ROUND" THEN 1500
1430 PRINT "THERE IS A SPECIAL ON ROUND STEAK TODAY, ONLY $.89"
1440 PRINT "PER POUND, HOW MANY POUNDS";
1450 GOSUB 2450
1460 IF N<10 THEN 1480
1470 PRINT "I WISH ALL CUSTOMERS WERE AS AFFLUENT AS YOU."
1480 T=FNA(89)
1490 GOTO 500
1500 IF T$<> "SIRLOIN" THEN 1550
1510 PRINT"SIRLOIN IS $1.29 PER POUND, HOW MANY POUNDS";
1520 GOSUB 2450
1530 T=FNA(129)
1540 GOTO 500
1550 IF T$<> "PORTERHOUSE" THEN 1630
1560 PRINT"I COMMEND YOUR GOOD TASTE, OUR PORTERHOUSE IS $1.89 PER"
1570 PRINT"POUND, HOW MANY POUNDS WOULD YOU LIKE";
1580 GOSUB 2450
1590 IF N<10 THEN 1610
1600 PRINT"I CERTAINLY HOPE YOU CAN MEET YOUR BILL."
1610 T=FNA(189)
1620 GOTO 500
1630 PRINT "YOU HAD BETTER LEARN TO SPELL ";N$
1640 GOTO 500
1650 IF I$<> "BREAD" THEN 1720
1660 PRINT "BREAD IS 30 CENTS A LOAF, HOW MANY LOAVES.";
1670 GOSUB 2450
1680 IF N<>.5 THEN 1700
1690 PRINT "YOU KNOW WHAT THEY SAY....HALF A LOAF IS BETTER THAN NONE."
1700 T=FNA(30)
1710 GOTO 500
1720 IF I$<>"EGGS" THEN 1960
1730 PRINT"WOULD YOU LIKE SMALL MEDIUM OR LARGE EGGS";
1740 INPUT T$
1750 IF T$<> "SMALL" THEN 1820
1760 PRINT "SMALL EGGS ARE $.52 PER DOZEN, HOW MANY DOZEN";
1770 GOSUB 2450
1780 IF N<10 THEN 1800
1790 GOSUB 2430
1800 T=FNA(52)
1810 GOTO 500
1820 IF T$<>"MEDIUM" THEN 1890
1830 PRINT "MEDIUM EGGS ARE $.64 PER DOZEN, HOW MANY DOZEN";
1840 GOSUB 2450
1850 IF N<10 THEN 1870
1860 GOSUB 2430
1870 T=FNA(64)
1880 GOTO 500
1890 IF T$<> "LARGE" THEN 1630
1900 PRINT "LARGE EGGS ARE $.70 PER DOZEN, HOW MANY DOZEN";
1910 GOSUB 2450
1920 IF N<10 THEN 1940
1930 GOSUB 2430
1940 T=FNA(70)
1950 GOTO 500
1960 IF I$<> "MILK" THEN 2050
1970 PRINT "VERY GOOD, MILK HELPS BUILD STRONG BONES AND HEALTHY WHITE"
1980 PRINT"TEETH. MILK IS $.52 PER HALF GALLON, HOW MANY HALF GAL.";
1990 GOSUB 2450
2000 IF B><1 THEN 2030
2010 PRINT "MAYBE IF YOU DRINK IT ALL, IT WILL CURE THE EFFECT OF"
2020 PRINT "ALL THAT NASTY BEER YOU ORDERED."
2030 T=FNA(52)
2040 GOTO 500
2050 IF I$<> "JUICE" THEN 2180
2060 IF B<> 1 THEN 2100
2070 PRINT "YOU CAN ALREADY GET PRETTY WELL JUICED ON THOSE";B3;"SIX"
2080 PRINT "PACKS YOU ORDERED."
2090 GOTO 500
2100 PRINT "WHAT KIND OF JUICE WOULD YOU LIKE";
2110 INPUT J$
2120 PRINT "I'M SORRY WE ARE TEMPOARIALY OUT OF ";J$;" JUICE, BUT I "
2130 PRINT " GIVE YOU SOME NICE FROZEN GRAPEFRUIT JUICE FOR $.29 PER"
2140 PRINT"CAN, HOW MANY CANS";
2150 GOSUB 2450
2160 T=FNA(29)
2170 GOTO 500
2180 IF I$<> "FISH"THEN 2230
2190 PRINT "WE HAVE FRESH HADDOCK AT $.30 PER POUND, HOW MANY POUNDS";
2200 GOSUB 2450
2210 T=FNA(30)
2220 GOTO 500
2230 PRINT "LIES, LIES, LIES, WE REALLY DON'T HAVE ANY ";I$
2240 GOTO 500
2250 REM I"M REALLY JUST TOO LAZY TO WRITE THEN UP
2260 PRINT "WILL THIS BE CASH OR CHARGE";
2270 INPUT C$
2280 IF C$<>"CHARGE"THEN 2310
2290 PRINT "SORRY, YOUR CREDIT IS NOT GOOD HERE, BYE."
2300 STOP
2310 D=INT(T/100)
2320 D=D+(T-(D*100))/100
2330 PRINT "YOUR BILL IS $";D
2340 IF T>10000 THEN 2380
2350 IF T< 1000 THEN 2400
2360 PRINT"THANK YOU FOR SHOPPING HERE, COME AGAIN SOON."
2370 STOP
2380 PRINT "IT'S YOUR MONEY.....THANKS FOR STOPPING BYE, COME AGAIN."
2390 STOP
2400 PRINT"I HOPE YOUR THRIFT IS NOT DEPRIVING YOUR FAMILY."
2410 PRINT "STOP BY AGAIN WHEN YOU HAVE LESS TIME."
2420 STOP
2430 PRINT "YOU'D DO WELL TO BUY YOUR OWN CHICKEN."
2440 RETURN
2450 INPUT N
2460 IF N>=0 THEN 2490
2470 PRINT "VERY FUNNY, ";N$;". LET'S TRY THAT AGAIN."
2480 GOTO 2450
2490 RETURN
2500 IF S1<> 1 THEN 2530
2510 PRINT "SORRY ONLY ONE SPECIAL PER CUSTOMER."
2520 GOTO 500
2530 R=ABS(RND(1)+T+N)
2540 FOR I= 1 TO 1000
2550 IF R<=1 THEN 2580
2560 R=R/10
2570 NEXT I
2580 R=INT(R*10)
2590 IF R<>0 THEN 2610
2600 R=10!
2610 FOR I= 1 TO R
2620 READ S$,P$,U$,P
2630 NEXT I
2640 PRINT "LUCKY YOU, THE SPECIAL OF THE DAY IS ";S$;" AT THE "
2650 PRINT"UNHEARD OF PRICE OF ";P$;" PER ";U$;", HOW MANY ";U$ ;"S";
2660 GOSUB 2450
2670 T=FNA(P)
2680 S1=1
2690 GOTO 500
2700 DATA "NEAT","OK","FINE","PRETTY GOOD","GOOD","GREAT","WONDERFUL"
2710 DATA"STEAK","CHICKEN","BEER","SODA","COOKIES","PORK CHOPS","MILK"
2720 DATA  "SOUP","BREAD","JUICE","TURKEY","HAM","FISH","EGGS","BUTTER"
2730 DATA "SPECIAL"
2740 DATA "DENATURED LINSEED OIL","$2.95","GALLON",295
2750 DATA "ASPARAGUS FLAVORED ICE CREAM","$.65","HALF-GALLON",65
2760 DATA "RHUBARB","ONE DOLLAR","BUSHEL",100
2770 DATA"IMPORTED YAK MILK","$5","OUNCE",500
2780 DATA "PURPLE SADDLE SOAP","$.50","CAN",50
2790 DATA "1963 EDSELS","$999.95","EDSEL",99995
2800 DATA "CLEAN WHITE BEACH SAND","$3","TON",300
2810 DATA "BELLY-BUTTON LINT","$1.29","POUND",129
2820 DATA "WEEK OLD HAMBURGER OF UNKNOWN ORIGIN","$.09","POUND",9
2830 DATA "USED Q-TIPS","$.25","DOZEN",25
2840 END