1 &"THIS PROGRAM PREPARES DRINK RECIPES GUARANTEED TO MAKE YOUR NEXT"
2 &"PARTY A 'SMASHING' SUCCESS !!":&
3 INPUT "WHERE DO YOU WANT THE OUTPUT (KB: OR LP:)";D$
4 WAIT 0:INPUT "HOW MANY CONCOCTIONS DO YOU WANT";X
5 ON ERROR GOTO 1000:R=0:RANDOMIZE
10 OPEN D$ FOR OUTPUT AS FILE 1%
15 FOR Y=1 TO X
16 T=3
17 PRINT #1%,"CONCOCTION #";Y
21 V=(1+INT(11*RND))/6
22 T=T-V:IF T<0 THEN 25
23 IF T=0 THEN 26 ELSE IF T>0 THEN 27
25 V=V+T
26 GOSUB 300:GO TO 40
27 GOSUB 300: GO TO 21
40 PRINT #1%,"I CALL THIS ";
41 PRINT #1%,CHR$(INT(24*RND+192)); FOR Z=1 TO INT(10*RND+1)
42 PRINT #1% FOR Z=1 TO 5
43 NEXT Y
59 WAIT 20
60 INPUT "ARE YOU SATISFIED";Q$
65 IF Q$="NO" THEN 2 ELSE IF Q$="YES" THEN 75
69 WAIT 10
70 INPUT "ANSWER YES OR NO";Q$:GO TO 65
75 CLOSE 1%:&"I'M GLAD !!":GOTO 2000
300 A=INT(19*RND+1):PRINT #1%, USING "#.## ",V;:IF A>12 THEN 302
301 ON A GO TO 305,315,320,325,330,335,340,345,350,355,360,365
302 ON A-12 GO TO 370,375,380,385,390,395,399
305 PRINT #1%,"OZ. SCOTCH":RETURN
315 PRINT #1%,"OZ. BOURBON":RETURN
320 PRINT #1%,"OZ. CANADIAN CLUB":RETURN
325 PRINT #1%,"OZ. GIN":RETURN
330 PRINT #1%,"OZ. APPLEJACK":RETURN
335 PRINT #1%,"OZ. RUM":RETURN
340 PRINT #1%,"OZ. DRY VERMOUTH":RETURN
345 PRINT#1%,"OZ. LEMOJN JUICE":RETURN
350 PRINT #1%,"OZ. BENIDICTINE":RETURN
355 PRINT #1%,"OZ. CHERRY BRANDY":RETURN
360 PRINT #1%,"OZ. MARSHINO":RETURN
365 PRINT #1%,"TSP. ANGOSTURA BITTERS":RETURN
370 PRINT #1%,"TSP. ORANGE BITTERS":RETURN
375 PRINT #1%,"OZ. PARFAIT AMOUR":RETURN
380 PRINT #1%,"OZ. COINTREAU":RETURN
385 PRINT #1%,"OZ. APRICOT BRANDY":RETURN
390 PRINT #1%,"OZ. CLUB SODA":RETURN
395 PRINT #1%,"OZ. BRANDY":RETURN
399 PRINT #1%,"OZ. ALKA SELTZER":RETURN
1000 IF ERR=8 THEN 1010 ELSE IF ERR=15 THEN 1100
1001 IF ERR=58 THEN 1150 ELSE ON ERROR GO TO 0:RESUME
1010 IF R=0 THEN 1011 ELSE PRINT CHR$(7);:SLEEP 5: RESUME 10
1011 PRINT "I'M WAITING FOR ";D$;". I WILL RING THE BELL EVERY 5"
1012 PRINT "SECONDS WHILE I WAIT FOR ";D$
1013 R=1:RESUME 10
1100 IF ERL=60 OR ERL=1140 THEN RESUME 70 ELSE IF ERL=70 THEN 1120
1101 ON ERROR GO TO 0
1110 RESUME 70
1120 RESUME 1140
1140 INPUT "PLEASE";Q$:GO TO 65
1150 IF ERL=301 THEN RESUME 302
1151 ON ERROR GO TO 0:RESUME
2000 END