home *** CD-ROM | disk | FTP | other *** search
/ AppleDisk 6 / AppleDisk_006.dsk / COCKTAILS.bas < prev    next >
Encoding:
BASIC Source File  |  1986-01-01  |  18.5 KB  |  334 lines
  1. 1  REM  ****************************
  2. 2  REM  *                          *
  3. 3  REM  *     COCKTAILS V 1.1      * 
  4. 4  REM  *                          *  
  5. 5  REM  *  (c) 1986 BY EDITRONICA  *
  6. 6  REM  *             E            *
  7. 7  REM  *    MAURIZIO  MANGANO     *   
  8. 8  REM  *                          *
  9. 9  REM  ****************************
  10. 10 D$ =  CHR$(4): PRINT  CHR$(4);"BLOADSHAPE8000"
  11. 20  POKE 232,65: POKE 233,128: SCALE= 1: ROT= 0
  12. 30  HCOLOR= 0: HGR2 : TEXT : HOME 
  13. 40  PRINT D$,"BLOAD INTEST": GOSUB 240
  14. 50 A$ = "PREMI UN TASTO":VV = 10:VT = 175: GOSUB 140: GET A$: TEXT : HOME : GOTO 250
  15. 60  FOR P = 1 TO 2500: NEXT P: RETURN : REM RITARDO 
  16. 70  POKE  -16302,0: POKE  -16304,0: POKE  -16299,0
  17. 80  POKE  -16297,0: RETURN : REM  VISUALIZZA PAG. GRAF
  18. 90  PRINT "  PER L'ORA INDICATA TI CONSIGLIO UN ": RETURN 
  19. 100  VTAB 22: HTAB 9: PRINT "UN ALTRO COCKTAIL? (S/N)": RETURN 
  20. 110  VTAB 12: PRINT "    <<< ATTENDI STO ELABORANDO >>> "
  21. 120  GOSUB 60: RETURN 
  22. 122  VTAB 3: PRINT "  --- COMPONENTI ---": VTAB 5: RETURN 
  23. 130  VTAB 22: PRINT  TAB( 10)"<<< PREMI RETURN >>>": RETURN 
  24. 140  FOR Z = 1 TO  LEN(A$): POKE 25, ASC( MID$ (A$,Z,1)): PRINT  CHR$(7)
  25. 150  CALL 32768: DRAW  PEEK(25) AT ((Z +VV) *8) -8,VT
  26. 160  NEXT : RETURN 
  27. 170  PRINT D$;"BLOAD INTEST": GOSUB 240: RETURN 
  28. 180  PRINT D$;"BLOAD GOTTO": GOSUB 240: RETURN 
  29. 190  PRINT D$;"BLOAD TUMBLER": GOSUB 240: RETURN 
  30. 200  PRINT D$;"BLOAD CAFFE": GOSUB 240: GOSUB 60: GOTO 3190
  31. 210  PRINT D$;"BLOAD SHAKER": GOSUB 240: RETURN 
  32. 220  PRINT D$;"BLOAD MIXER": GOSUB 240: RETURN 
  33. 230  PRINT D$;"BLOAD CALICE": GOSUB 240: RETURN 
  34. 240  GOSUB 70: GOSUB 60: RETURN 
  35. 250  VTAB 22: CALL  -868: VTAB 22: PRINT  TAB( 8)"VUOI LE ISTRUZIONI (S/N)": GET A$
  36. 260  IF A$ = "S"  THEN 2790
  37. 270  IF A$ = "N"  THEN 290
  38. 280  GOTO 250
  39. 290  HOME : VTAB 3: PRINT "          ";: INVERSE : PRINT "TEMPO DI COCKTAILS": NORMAL : VTAB 7
  40. 300  PRINT " IMMETTENDO L' ORA ATTUALE NEL SEGUENTE"
  41. 310  PRINT " FORMATO **** ORE, MINUTI, SECONDI ****"
  42. 320  PRINT " ES: 213015 = ORE 21.30 MINUTI, 15 SEC."
  43. 330  PRINT " IL COMPUTER SCEGLIERA' IL ";: INVERSE : PRINT "COCKTAIL": NORMAL 
  44. 340  PRINT " PIU' ADATTO ALL' OCCASIONE DEL MOMENTO": VTAB 13
  45. 350  INPUT "ORA ";TI$:TI =  VAL(TI$): IF TI >235959  THEN 290
  46. 360  IF  LEN(TI$) <6  THEN 290
  47. 370  IF  VAL(TI$) <1  THEN 290
  48. 380  IF TI$ < = "040000"  THEN  GOTO 470
  49. 390  IF TI$ < = "100000"  THEN  GOTO 460
  50. 400  IF TI$ < = "130000"  THEN  GOTO 890
  51. 410  IF TI$ < = "150000"  THEN  GOTO 1630
  52. 420  IF TI$ < = "180000"  THEN  GOTO 2140
  53. 430  IF TI$ < = "200000"  THEN  GOTO 890
  54. 440  IF TI$ < = "220000"  THEN  GOTO 1630
  55. 450  IF TI$ < = "235959"  THEN  GOTO 2140
  56. 460  HOME : VTAB 12: GOSUB 90: PRINT : PRINT  TAB( 13)" BUON CAFFE'": GOSUB 60: GOSUB 200
  57. 470  HOME : GOSUB 90: PRINT " COCKTAIL PREPOTENTEMENTE AFRODISIACO "
  58. 480  GOSUB 110
  59. 489  FOR KP = 1 TO 3000: NEXT 
  60. 490  HOME 
  61. 500 CA =  INT( RND(1) *8): ON CA GOTO 510,560,620,680,730,780
  62. 510  INVERSE : PRINT "  AIR MAIL ": NORMAL : GOSUB 122
  63. 520  PRINT " 1/3 SUCCO DI LIMONE": PRINT " 2/3 DI RUM"
  64. 530  PRINT " UN CUCCHIAIO": PRINT " DI MIELE": PRINT " AGITARE CON POCO"
  65. 540  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE"
  66. 550  PRINT " NEL GOTTO BASSO": GOSUB 3160: GOTO 830
  67. 560  INVERSE : PRINT " AMOUR ": NORMAL : GOSUB 122
  68. 570  PRINT " 1/3 VERMOUTH ROSSO": PRINT " 2/3 SHERRY"
  69. 580  PRINT " UN PIZZICO DI PEPE": PRINT " AGITARE CON POCO"
  70. 590  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE"
  71. 600  PRINT " NEL CALICE BASSO": PRINT " CON UNA SCORZA": PRINT " DI LIMONE"
  72. 610  GOSUB 3170: GOTO 830
  73. 620  INVERSE : PRINT "  BACIAMI SUBITO ": NORMAL : GOSUB 122
  74. 630  PRINT " 2/5 VERMOUTH DRY": PRINT " 3/5 COGNAC"
  75. 640  PRINT " TRE GOCCE ANGOSTURA": PRINT " AGITARE FORTE CON"
  76. 650  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE"
  77. 660  PRINT " NEL CALICE PANCIUTO": PRINT " CON UNA CILIEGINA"
  78. 670  PRINT " SOTTO MARASCHINO": GOSUB 3160: GOTO 830
  79. 680  INVERSE : PRINT "  FIRST KISS ": NORMAL : GOSUB 122
  80. 690  PRINT " 1/3 COINTREAU": PRINT " 1/3 SHERRY": PRINT " 1/3 BENEDICTINE"
  81. 700  PRINT " SPRUZZO DI CREME": PRINT " DI MENTA BIANCA": PRINT " SCUOTERE CON DUE"
  82. 710  PRINT " CUBETTI DI GHIACCIO": PRINT " SERVIRE": PRINT " NEL CALICE BASSO"
  83. 720  PRINT " CON UNA CILIEGINA": PRINT " SOTTO MARASCHINO": GOSUB 3160: GOTO 830
  84. 730  INVERSE : PRINT "  KISS IN THE DARK ": NORMAL : GOSUB 122
  85. 740  PRINT " 1/3 VERMOUTH DRY": PRINT " 1/3 CHERRY BRANDY": PRINT " 1/3 GIN"
  86. 750  PRINT " AGITARE CON POCO": PRINT " GHIACCIO IN CUBETTI"
  87. 760  PRINT " SERVIRE": PRINT " NEL CALICE BASSO"
  88. 770  PRINT " CON DUE CILIEGINE": PRINT " SOTTO MARASCHINO": GOSUB 3170: GOTO 830
  89. 780  INVERSE : PRINT "  KISS ME AGAIN ": NORMAL : GOSUB 122
  90. 790  PRINT " 1/4 SUCCO D'ARANCIA": PRINT " 1/4 VERMOUTH DRY": PRINT " 1/4 PERNOD"
  91. 800  PRINT " 1/4 WHISKY": PRINT " SCUOTERE FORTE CON": PRINT " GHIACCIO IN CUBETTI
  92. 810  PRINT " SERVIRE": PRINT " NEL TUMBLER STRETTO": PRINT " CON UNA FETTINA"
  93. 820  PRINT " D'ARANCIA": GOSUB 3160: GOTO 830
  94. 830  GOSUB 60
  95. 840  GOSUB 100
  96. 850  GET A$
  97. 860  IF A$ = "N"  THEN  GOTO 3180
  98. 870  IF A$ = "S"  THEN  GOTO 490
  99. 880  GOTO 850
  100. 890  HOME : GOSUB 90
  101. 900  PRINT "   COCKTAIL, NATURALMENTE APERITIVO"
  102. 910  GOSUB 110: FOR KP = 1 TO 3000: NEXT 
  103. 920  HOME 
  104. 930 AP =  INT( RND(1) *14)
  105. 940  ON AP GOTO 950,1000,1050,1100,1140,1190,1230,1270,1320,1370,1420,1480,1530
  106. 950  INVERSE : PRINT "  AMERICANO ": NORMAL : GOSUB 122
  107. 960  PRINT " 1/2 VERMOUTH ROSSO": PRINT " 1/2 BITTER AMARO": PRINT " SODA A PIACERE"
  108. 970  PRINT " AGITARE CON POCO": PRINT " GHIACCIO IN CUBETTI"
  109. 980  PRINT " SERVIRE IN CALICE": PRINT " CON UNA SCORZA": PRINT " DI LIMONE
  110. 990  GOSUB 3170: GOTO 1570
  111. 1000  INVERSE : PRINT "  BAMBOO ": NORMAL : GOSUB 122
  112. 1010  PRINT " 1/3 VERMOUTH DRY": PRINT " 2/3 SHERRY": PRINT " UNO SPRUZZO DI"
  113. 1020  PRINT " BITTER ALL'ARANCIA": PRINT " SCUOTERE VIGOROSAMENTE": PRINT " CON UN
  114. 1030  PRINT " CUBETTO DI GHIACCIO": PRINT " SERVIRE": PRINT " NEL CALICE BASSO"
  115. 1040  PRINT " CON UN'OLIVA FARCITA": GOSUB 3160: GOTO 1570
  116. 1050  INVERSE : PRINT "  BRASIL ": NORMAL : GOSUB 122
  117. 1060  PRINT " 3/4 VERMOUTH DRY": PRINT " 1/4 SHERRY": PRINT " UN CUCCHIAO DI PERNOD"
  118. 1070  PRINT " DUE SPRUZZI": PRINT " DI ANGOSTURA": PRINT " AGITARE CON"
  119. 1080  PRINT " CUBETTI DI GHIACCIO": PRINT " SERVIRE": PRINT " NEL CALICE BASSO"
  120. 1090  PRINT " CON UNA CILIEGINA": PRINT " SOTTO MARASCHINO": GOSUB 3170: GOTO 1570
  121. 1100  INVERSE : PRINT "  CHARLESTON ": NORMAL : GOSUB 122
  122. 1110  PRINT " 1/4 DUBONNET": PRINT " 1/4 GIN": PRINT " 1/2 RUM": PRINT " AGITARE"
  123. 1120  PRINT " CON GHIACCIO": PRINT " IN CUBETTI": PRINT " SERVIRE NEL"
  124. 1130  PRINT " TUMBLER STRETTO": GOSUB 3160: GOTO 1570
  125. 1140  INVERSE : PRINT "  DUBONNET ": NORMAL : GOSUB 122
  126. 1150  PRINT " 2/3 DUBONNET": PRINT " 1/3 GIN": PRINT " UNO SPRUZZO DI"
  127. 1160  PRINT " BITTER ALL'ARANCIA": PRINT " AGITARE CON": PRINT " GHIACCIO TRITATO"
  128. 1170  PRINT " SERVIRE": PRINT " NEL CALICE BASSO": PRINT " CON UNA SCORZA"
  129. 1180  PRINT " DI LIMONE": GOSUB 3170: GOTO 1570
  130. 1190  INVERSE : PRINT "  DUCHESS ": NORMAL : GOSUB 122
  131. 1200  PRINT " 1/3 VERMOUTH ROSSO": PRINT " 1/3 VERMOUTH DRY": PRINT " 1/3 PERNOD"
  132. 1210  PRINT " AGITARE CON": PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE"
  133. 1220  PRINT " NEL CALICE BASSO": PRINT " CON UN RAVANELLO": GOSUB 3170: GOTO 1570
  134. 1230  INVERSE : PRINT "  ESQUIRE ": NORMAL : GOSUB 122
  135. 1240  PRINT " 1/5 GIN": PRINT " 4/5 COGNAC": PRINT " DUE SPRUZZI": PRINT " ANGOSTURA"
  136. 1250  PRINT " AGITARE": PRINT " SERVIRE NEL": PRINT " CALICE PANCIUTO"
  137. 1260  PRINT " CON UNA SCORZA": PRINT " D'ARANCIA": GOSUB 3170: GOTO 1570
  138. 1270  INVERSE : PRINT "  MARIENBAD ": NORMAL : GOSUB 122
  139. 1280  PRINT " 1/4 VERMOUTH ROSSO": PRINT " 1/4 BITTER AMARO": PRINT " 1/2 VODKA"
  140. 1290  PRINT " AGITARE CON": PRINT " GHIACCIO IN CUBETTI"
  141. 1300  PRINT " SERVIRE IN CALICE": PRINT " DECORANDO CON UN"
  142. 1310  PRINT " RAVANELLO TONDO": GOSUB 3170: GOTO 1570
  143. 1320  INVERSE : PRINT "  NEWTON ": NORMAL : GOSUB 122
  144. 1330  PRINT " 1/4 COINTREAU": PRINT " 3/4 COGNAC": PRINT " UNO SPRUZZO"
  145. 1340  PRINT " DI ANGOSTURA": PRINT " AGITARE CON": PRINT " GHIACCIO IN CUBETTI"
  146. 1350  PRINT " SERVIRE": PRINT " NEL CALICE PANCIUTO"
  147. 1360  PRINT " CON UN RAVANELLO": GOSUB 3160: GOTO 1570
  148. 1370  INVERSE : PRINT "  NEW YORKER ": NORMAL : GOSUB 122
  149. 1380  PRINT " 1/3 VERMOUTH DRY": PRINT " 1/3 SHERRY": PRINT " 1/3 GIN"
  150. 1390  PRINT " UNO SPRUZZO DI": PRINT " COINTREAU": PRINT " AGITARE CON"
  151. 1400  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE NEL TUMBLER STRETTO"
  152. 1410  PRINT " CON UNA CILIEGINA": GOSUB 3160: GOTO 1570
  153. 1420  INVERSE : PRINT "  PAPEETE ": NORMAL : GOSUB 122
  154. 1430  PRINT " 1/3 VERMOUTH DRY": PRINT " 1/3 BITTER AMARO": PRINT " 1/3 VODKA"
  155. 1440  PRINT " UNO SPRUZZO DI": PRINT " ANGOSTURA": PRINT " PREPARARE DIRETTAMENTE"
  156. 1450  PRINT " NEL CALICE AMPIO": PRINT " MESCOLANDO CON": PRINT " L'APPOSITO CUCCHIAO"
  157. 1460  PRINT " SERVIRE CON AGGIUNTA DI": PRINT " UNA CAROTA, UN RAVANELLO"
  158. 1470  PRINT " E UNA FETTA D'ARANCIA": GOSUB 3150: GOTO 1570
  159. 1480  INVERSE : PRINT "  PAX ": NORMAL : GOSUB 122
  160. 1490  PRINT " 2/5 COINTREAU": PRINT " 1/5 GIN": PRINT " 1/5 WHISKY"
  161. 1500  PRINT " 1/5 WODKA": PRINT " UNO SPRUZZO": PRINT " DI ANGOSTURA"
  162. 1510  PRINT " AGITARE FORTE": PRINT " CON POCO GHIACCIO": PRINT " IN CUBETTI"
  163. 1520  PRINT " SERVIRE NEL FLUTE": GOSUB 3160: GOTO 1570
  164. 1530  INVERSE : PRINT "  TOP SPEED ": NORMAL : GOSUB 122
  165. 1540  PRINT " 1/4 VERMOUTH DRY": PRINT " 1/4 PERNOD": PRINT " 1/2 COGNAC"
  166. 1550  PRINT " AGITARE CON POCO": PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE"
  167. 1560  PRINT " NEL CALICE PANCIUTO": PRINT " CON UNA SCORZA": PRINT " DI LIMONE": GOSUB 3160
  168. 1570  GOSUB 60
  169. 1580  GOSUB 100
  170. 1590  GET A$
  171. 1600  IF A$ = "N"  THEN  GOTO 3180
  172. 1610  IF A$ = "S"  THEN  GOTO 920
  173. 1620  GOTO 1590
  174. 1630  HOME : GOSUB 90
  175. 1640  PRINT "   COCKTAIL, NATURALMENTE DIGESTIVO"
  176. 1650  GOSUB 110: FOR KP = 1 TO 3000: NEXT 
  177. 1660  HOME 
  178. 1670 DI =  INT( RND(1) *10)
  179. 1680  ON DI GOTO 1690,1740,1780,1830,1870,1910,1950,1990,2040
  180. 1690  INVERSE : PRINT "  AFTER DINNER ": NORMAL : GOSUB 122
  181. 1700  PRINT " 2/3 CHERRY BRANDY": PRINT " 1/3 GRAND MARNIER": PRINT " UN CUCCHIAIO"
  182. 1710  PRINT " DI SUCCO DI LIMONE": PRINT " AGITARE CON POCO"
  183. 1720  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE NEL": PRINT " CALICE BASSO CON"
  184. 1730  PRINT " UNA SCORZA DI LIMONE": GOSUB 3160: GOTO 2080
  185. 1740  INVERSE : PRINT "  BAND ": NORMAL : GOSUB 122
  186. 1750  PRINT " 1/2 BRANDY": PRINT " 1/2 BENEDICTINE"
  187. 1760  PRINT " PREPARARE DIRETTAMENTE": PRINT " NEL CALICE PANCIUTO"
  188. 1770  PRINT " SERVIRE": PRINT " SENZA RAFFREDDARE": GOSUB 3150: GOTO 2080
  189. 1780  INVERSE : PRINT "  COINTREAU ": NORMAL : GOSUB 122: PRINT " 1/4 SUCCO DI LIMONE"
  190. 1790  PRINT " 1/4 COINTREAU": PRINT " 1/2 COGNAC": PRINT " AGITARE CON POCO"
  191. 1800  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE NEL CALICE"
  192. 1810  PRINT " PANCIUTO CON UNA": PRINT " SCORZA DI LIMONE": PRINT " E UNA DI POMPELMO"
  193. 1820  GOSUB 3170: GOTO 2080
  194. 1830  INVERSE : PRINT "  FERNET ": NORMAL : GOSUB 122: PRINT " 2/3 FERNET"
  195. 1840  PRINT " 1/3 COGNAC": PRINT " UNO SPRUZZO": PRINT " DI ANGOSTURA"
  196. 1850  PRINT " AGITARE CON UN": PRINT " CUBETTO DI GHIACCIO": PRINT " SERVIRE"
  197. 1860  PRINT " NEL TUMBLER STRETTO": GOSUB 3170: GOTO 2080
  198. 1870  INVERSE : PRINT "  FOX TROT ": NORMAL : GOSUB 122: PRINT " 1/3 SUCCO DI LIMONE"
  199. 1880  PRINT " 2/3 RUM": PRINT " UNO SPRUZZO DI CURACAO"
  200. 1890  PRINT " AGITARE": PRINT " SERVIRE NEL": PRINT " TUMBLER STRETTO CON"
  201. 1900  PRINT " UNA SCORZA DI LIMONE": GOSUB 3160: GOTO 2080
  202. 1910  INVERSE : PRINT " GRITTI": NORMAL : GOSUB 122: PRINT " 2/6 BITTER AMARO"
  203. 1920  PRINT " 3/6 VERMOUTH DRY": PRINT " 1/6 CHINA": PRINT " SCUOTERE"
  204. 1930  PRINT " SERVIRE": PRINT " NEL TUMBLER STRETTO": PRINT " CON UNO SPRUZZO"
  205. 1940  PRINT " DI SELTZ E UNA": PRINT " SCORZA D'ARANCIA": GOSUB 3160: GOTO 2080
  206. 1950  INVERSE : PRINT "  PERROQUET ": NORMAL : GOSUB 122: PRINT " 1/2 VERMOUTH DRY"
  207. 1960  PRINT " 1/4 CURACAO": PRINT " 1/4 COINTREAU": PRINT " UNO SPRUZZO DI FERNET"
  208. 1970  PRINT " AGITARE FORTE": PRINT " CON POCO GHIACCIO": PRINT " IN CUBETTI"
  209. 1980  PRINT " SERVIRE": PRINT " NEL CALICE BASSO": GOSUB 3160: GOTO 2080
  210. 1990  INVERSE : PRINT "  RACER ": NORMAL : GOSUB 122: PRINT " 1/2 CAFFE'"
  211. 2000  PRINT " 1/2 COINTREAU": PRINT " PREPARARE DIRETTAMENTE"
  212. 2010  PRINT " NEL CALICE PANCIUTO": PRINT " MESCOLANDO CON"
  213. 2020  PRINT " L'APPOSITO CUCCHIAIO": PRINT " SERVIRE": PRINT " CON PANNA MONTATA"
  214. 2030  GOSUB 3150: GOTO 2080
  215. 2040  INVERSE : PRINT "  SIDECAR ": NORMAL : GOSUB 122: PRINT " 1/4 SUCCO DI LIMONE"
  216. 2050  PRINT " 1/4 COINTREAU": PRINT " 1/2 COGNAC": PRINT " AGITARE CON POCO"
  217. 2060  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE NEL": PRINT " CALICE PANCIUTO"
  218. 2070  PRINT " CON UNA SCORZA": PRINT " DI LIMONE": GOSUB 3160
  219. 2080  GOSUB 60
  220. 2090  GOSUB 100
  221. 2100  GET A$
  222. 2110  IF A$ = "N"  THEN  GOTO 3180
  223. 2120  IF A$ = "S"  THEN  GOTO 1660
  224. 2130  GOTO 2100
  225. 2140  HOME : GOSUB 90
  226. 2150  PRINT "   COCKTAIL OMOLOGATA DALL'  ";: INVERSE : PRINT "I.B.A.": NORMAL 
  227. 2160  PRINT " INTERNATIONAL BARTENDERS ASSOCIATION"
  228. 2170  GOSUB 110: FOR KP = 1 TO 3000: NEXT 
  229. 2180  HOME 
  230. 2190 IN =  INT( RND(1) *13)
  231. 2200  ON IN GOTO 2210,2260,2310,2350,2400,2430,2470,2520,2560,2600,2650,2690
  232. 2210  INVERSE : PRINT "  AFFINITY ": NORMAL : GOSUB 122: PRINT " 1/2 SCOTCH WHISKY"
  233. 2220  PRINT " 1/4 VERMOUTH DRY": PRINT " 1/4 VERMOUTH ROSSO"
  234. 2230  PRINT " SPRUZZO DI ANGOSTURA": PRINT " MESCOLARE DELICATAMENTE"
  235. 2240  PRINT " CON GHIACCIO": PRINT " IN CUBETTI": PRINT " SERVIRE"
  236. 2250  PRINT " NEL TUMBLER STRETTO": GOSUB 3170: GOTO 2730
  237. 2260  INVERSE : PRINT "  BACARDI ": NORMAL : GOSUB 122: PRINT " 2/3 RUM BACARDI"
  238. 2270  PRINT " 1/3 SUCCO DI LIMONE": PRINT " GOCCIA GRANATINA"
  239. 2280  PRINT " AGITARE CON": PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE"
  240. 2290  PRINT " NEL CALICE BASSO": PRINT " CON UNA SCORZA": PRINT " DI LIMONE"
  241. 2300  GOSUB 3170: GOTO 2730
  242. 2310  INVERSE : PRINT "  BENTLEY ": NORMAL : GOSUB 122: PRINT " 1/2 CALVADOS"
  243. 2320  PRINT " 1/2 DUBONNET": PRINT " MESCOLARE DELICATAMENTE"
  244. 2330  PRINT " CON GHIACCIO": PRINT " IN CUBETTI": PRINT " SERVIRE"
  245. 2340  PRINT " NEL CALICE PANCIUTO": GOSUB 3170: GOTO 2730
  246. 2350  INVERSE : PRINT "  CLARIDGE ": NORMAL : GOSUB 122: PRINT " 1/6 VERMOUTH DRY"
  247. 2360  PRINT " 1/6 COINTREAU": PRINT " 1/3 APRICOT BRANDY": PRINT " 1/3 GIN"
  248. 2370  PRINT " MESCOLARE DELICATAMENTE": PRINT " CON CUBETTI": PRINT " DI GHIACCIO"
  249. 2380  PRINT " SERVIRE": PRINT " NEL CALICE BASSO": PRINT " CON UNA CILIEGINA"
  250. 2390  PRINT " SCIROPPATA": GOSUB 3170: GOTO 2730
  251. 2400  INVERSE : PRINT "  DAIQUIRI ": NORMAL : GOSUB 122: PRINT " 1/4 SUCCO DI LIMONE"
  252. 2410  PRINT " 3/4 RUM": PRINT " SERVIRE": PRINT " NEL GOTTO BASSO": GOSUB 3170: GOTO 2730
  253. 2420  PRINT " SERVIRE": PRINT " NEL GOTTO BASSO": GOSUB 3170: GOTO 2730
  254. 2430  INVERSE : PRINT "  GIBSON ": NORMAL : GOSUB 122: PRINT " 1/5 VERMOUTH DRY"
  255. 2440  PRINT " 4/5 GIN": PRINT " AGITARE CON": PRINT " CUBETTI DI GHIACCIO"
  256. 2450  PRINT " SERVIRE IN CALICE": PRINT " DECORANDO CON": PRINT " UNA CIPOLLINA"
  257. 2460  GOSUB 3170: GOTO 2730
  258. 2470  INVERSE : PRINT "  MANHATTAN ": NORMAL : GOSUB 122: PRINT " 1/3 VERMOUTH ROSSO"
  259. 2480  PRINT " 2/3 WHISKY RYE": PRINT "     O BOURBON": PRINT " SPRUZZO DI ANGOSTURA"
  260. 2490  PRINT " AGITARE CON": PRINT " CUBETTI DI GHIACCIO"
  261. 2500  PRINT " SERVIRE IN CALICE": PRINT " CON UNA CILIEGINA"
  262. 2510  PRINT " SOTTO MARASCHINO": GOSUB 3170: GOTO 2730
  263. 2520  INVERSE : PRINT "  NEGRONI ": NORMAL : GOSUB 122: PRINT " 1/3 VERMOUTH ROSSO"
  264. 2530  PRINT " 1/3 BITTER CAMPARI": PRINT " 1/3 GIN": PRINT " MESCOLARE CON UN"
  265. 2540  PRINT " CUCCHIAIO LUNGO": PRINT " E AGGIUNGERE": PRINT " CUBETTI DI GHIACCIO"
  266. 2550  PRINT " GUARNIRE CON UNA": PRINT " FETTA D'ARANCIA": GOSUB 3140: GOTO 2730
  267. 2560  INVERSE : PRINT "  OLD PAL ": NORMAL : GOSUB 122: PRINT " 1/3 VERMOUTH DRY"
  268. 2570  PRINT " 1/3 WHISKY": PRINT " 1/3 BITTER CAMPARI": PRINT " AGITARE CON POCO"
  269. 2580  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE": PRINT " NEL CALICE BASSO"
  270. 2590  PRINT " CON UNA FETTINA": PRINT " DI CAROTA": GOSUB 3170: GOTO 2730
  271. 2600  INVERSE : PRINT "  ORANGE BLOSSOM ": NORMAL : GOSUB 122
  272. 2610  PRINT " 1/2 SUCCO D'ARANCIA": PRINT " 1/2 GIN": PRINT " UN CUCCHIAINO"
  273. 2620  PRINT " DI ZUCCHERO": PRINT " AGITARE CON": PRINT " GHIACCIO TRITATO"
  274. 2630  PRINT " SERVIRE NEL": PRINT " TUMBLER STRETTO": PRINT " CON UNA FETTINA"
  275. 2640  PRINT " D'ARANCIA": GOSUB 3160: GOTO 2730
  276. 2650  INVERSE : PRINT "  PARADISE ": NORMAL : GOSUB 122: PRINT " 1/4 SUCCO D'ARANCIA"
  277. 2660  PRINT " 1/4 APRICOT BRANDY": PRINT " 1/2 GIN": PRINT " SCUOTERE CON POCO"
  278. 2670  PRINT " GHIACCIO IN CUBETTI": PRINT " SERVIRE NEL": PRINT " CALICE PANCIUTO"
  279. 2680  PRINT " CON UNO SPICCHIO": PRINT " D'ARANCIA": GOSUB 3160: GOTO 2730
  280. 2690  INVERSE : PRINT "  WHITE LADY ": NORMAL : GOSUB 122: PRINT " 1/3 SUCCO DI LIMONE"
  281. 2700  PRINT " 1/3 COINTREAU": PRINT " 1/3 GIN": PRINT " AGITARE CON"
  282. 2710  PRINT " CUBETTI DI GHIACCIO": PRINT " SERVIRE": PRINT " NEL CALICE BASSO"
  283. 2720  GOSUB 3160
  284. 2730  GOSUB 60
  285. 2740  GOSUB 100
  286. 2750  GET A$
  287. 2760  IF A$ = "N"  THEN  GOTO 3180
  288. 2770  IF A$ = "S"  THEN  GOTO 2180
  289. 2780  GOTO 2750
  290. 2790  HOME : PRINT : PRINT  TAB( 6)" INGREDIENTI DEI COCKTAILS ": GOSUB 60: PRINT 
  291. 2800  PRINT " ECCO UN ELENCO DEI PRODOTTI PIU' USATI"
  292. 2810  PRINT " QUELLI CHE CON MAGGIOR FREQUENZA"
  293. 2820  PRINT " RICORRONO NELLE FORMULE DEI COCKTAILS"
  294. 2830  PRINT " --------------------------------------"
  295. 2840  PRINT " BITTER" SPC( 13)"PERNOD"
  296. 2850  PRINT " CHERRY BRANDY" SPC( 6)"RUM"
  297. 2860  PRINT " COGNAC" SPC( 13)"VERMOUTH BIANCO"
  298. 2870  PRINT " COINTREAU" SPC( 10)"VERMOUTH ROSSO"
  299. 2880  PRINT " CURACAO" SPC( 12)"VERMOUTH DRY"
  300. 2890  PRINT " GIN" SPC( 16)"VODKA"
  301. 2900  PRINT " GRAPPA" SPC( 13)"WHISKY"
  302. 2910  PRINT " --------------------------------------"
  303. 2920  PRINT " INCOMINCIA CON QUESTI, POI, QUANDO"
  304. 2930  PRINT " VORRAI REALIZZARE ALTRI DRINKS PIU'"
  305. 2940  PRINT " ELABORATI TI PROCURERAI VIA VIA"
  306. 2950  PRINT " QUALCHE NUOVA BOTTIGLIA"
  307. 2960  GOSUB 130
  308. 2970  GET A$
  309. 2980  HOME : PRINT  TAB( 6)" ATTREZZATURA PER COCKTAILS ": GOSUB 60: PRINT : PRINT : PRINT : PRINT 
  310. 2990  PRINT " APRIBOTTIGLIE": PRINT " APRISCATOLE"
  311. 3000  PRINT " CAVATAPPI-COLINO": PRINT " MISURINO"
  312. 3010  PRINT " COLTELLO-FORCHETTA": PRINT " CUCCHIAI DIVERSI"
  313. 3020  PRINT " FRULLINO-GRATTUGIA": PRINT " SPREMIAGRUMI": PRINT " TRITAGHIACCIO"
  314. 3030  PRINT " CONTENITORE GHIACCIO": PRINT " SIFONE"
  315. 3040  GOSUB 130: GET A$: PRINT 
  316. 3050  GOSUB 210: GOSUB 60: TEXT : HOME : VTAB 12: HTAB 6: PRINT "ATTREZZATURA PER COCKTAIL"
  317. 3060  GOSUB 220: GOSUB 60: TEXT : HOME : REM   MIXER 
  318. 3070  VTAB 12: PRINT  TAB( 8)" BICCHIERI DA COCKTAILS "
  319. 3080  GOSUB 230: GOSUB 60: TEXT : HOME : VTAB 12: PRINT  TAB( 8)" BICCHIERI DA COCKTAILS ": REM  CALICE
  320. 3090  GOSUB 180: GOSUB 60: TEXT : HOME : VTAB 12: PRINT  TAB( 8)" BICCHIERI DA COCKTAILS ": REM GOTTO
  321. 3100  GOSUB 190: REM TUMBLER
  322. 3110  GOSUB 60: TEXT : HOME : GOTO 290
  323. 3120  RETURN 
  324. 3130  END 
  325. 3140  RETURN 
  326. 3150  RETURN 
  327. 3160  RETURN 
  328. 3170  RETURN 
  329. 3180  REM    DOPPIE COPPE 
  330. 3190  PRINT : GOSUB 170
  331. 3200 A$ = "COPYRIGHT 1986 BY EDITRONICA":VV = 04:VT = 175: GOSUB 140
  332. 3210 A$ = "E MAURIZIO MANGANO":VV = 08:VT = 184: GOSUB 140
  333. 3220  FOR T = 1 TO 1500: NEXT : TEXT : HOME : PRINT  CHR$(4)"RUN HELLO2"
  334. 3230  END : REM    FINE DOPPIE COPPE