home *** CD-ROM | disk | FTP | other *** search
/ Rat's Nest 1 / ratsnest1.iso / prgmming / basic / alko2.bas < prev    next >
BASIC Source File  |  1994-11-09  |  24KB  |  478 lines

  1. 3 LOPPU$ = "MB O0 L8 ADDADDADDAACADDACCCAADDAA"
  2. 5 COLOR 14, 0
  3. 7 CLS
  4. 10 PRINT " Hinnaston on tehnyt:"
  5. 20 PRINT "                             Jarno Kuokkanen"
  6. 30 PRINT TAB(10); "SISÄLLYS:                      SIVU"
  7. 40 PRINT " PUNAVIINIT.............................  1"
  8. 50 PRINT " ROSEE- JA BLUSH- VIINIT................  2"
  9. 60 PRINT " VALKOVIINIT............................  3"
  10. 70 PRINT " KUOHUVIINIT............................  4"
  11. 80 PRINT " MUUT MIEDOT HEDELMÄVIINIT..............  5"
  12. 90 PRINT " HELMEILEVÄT HEDELMÄVIINIT..............  6"
  13. 100 PRINT " MAUSTETUT MIEDOT VIINIT................  7"
  14. 110 PRINT " SIIDERIT...............................  8"
  15. 120 PRINT " MIEDOT JUOMASEKOITUKSET................  9"
  16. 130 PRINT " VERMUTIT............................... 10"
  17. 140 PRINT " LOPETUS................................ 99"
  18. 150 PRINT " MUSIIKIN VAIHTO........................ 66"
  19.  
  20. 500 INPUT " ANNA SIVU NUMERO"; VALINTA%
  21. 990 IF VALINTA% = 66 THEN 23000
  22. 1000 IF VALINTA% = 9 THEN 2950
  23. 1010 IF VALINTA% = 8 THEN 1030
  24. 1020 IF VALINTA% = 7 THEN 2650
  25. 1025 IF VALINTA% = 99 THEN 24000
  26. 1030 CLS
  27. 1031 PRINT " SUOMI................1"
  28. 1040 PRINT " ENGLANTI.............2"
  29. 1050 PRINT " RANSKA...............3"
  30. 1060 PRINT " RUOTSI...............4"
  31. 1065 PRINT " EDELLINEN VALIKKO...99"
  32. 1070 INPUT " MINKÄ MAAN SIIDERIÄ"; MAA%
  33. 1080 IF MAA% = 4 THEN 2000
  34. 1082 IF MAA% = 3 THEN 2550
  35. 1085 IF MAA% = 2 THEN 2460
  36. 1090 IF MAA% = 1 THEN 2090
  37. 1095 IF MAA% = 99 THEN 5
  38. 2000 CLS
  39. 2010 PRINT "            WILLIAMS CIDER"
  40. 2020 PRINT "        0,5 L      23,10 MK"
  41. 2030 PRINT "        KIVIK MUSTERI 30g/L"
  42. 2040 PRINT "        KELTAINEN; TUORE"
  43. 2050 PRINT "        TUOKSU: PÄÄRYNÄINEN"
  44. 2060 PRINT "        MAKU  : PUOLIKUIVA, PIRTEÄ"
  45. 2070 INPUT "===================================================="; Q$
  46. 2080 GOTO 1030
  47. 2085 CLS
  48. 2087 PRINT " EDELLINEN VALIKKO...........99"
  49. 2090 PRINT " COLDEN CAP CIDER.............1"
  50. 2100 PRINT " GREEN FIZZ...................2"
  51. 2110 PRINT " COLDEN CAP EXTRA"
  52. 2120 PRINT " STRONG CIDER.................3"
  53. 2130 PRINT " GREEN FIZZ EXTRA.............4"
  54. 2140 PRINT " GOLDEN CAP "
  55. 2150 INPUT " PREMIUM CIDER................5"; SUOMI%
  56. 2160 IF SUOMI% = 1 THEN 2210
  57. 2170 IF SUOMI% = 2 THEN 2320
  58. 2180 IF SUOMI% = 3 THEN 2430
  59. 2190 IF SUOMI% = 4 THEN 2440
  60. 2200 IF SUOMI% = 5 THEN 2450
  61. 2203 IF SUOMI% = 99 THEN 1030
  62. 2205 IF SUOMI% = 6 - 98 THEN
  63.      CLS
  64.      PRINT "VALITSE NUMERO 1 - 5 !"
  65.      GOTO 2090
  66.      END IF
  67. 2210 CLS
  68. 2220 PRINT
  69. 2230 PRINT " ***********************************************************"
  70. 2240 PRINT " *            COLDEN CAP CIDER                             *"
  71. 2250 PRINT " *       0,33 L         8,30 MK                            *   "
  72. 2260 PRINT " *       MARLI 60g/L                                       *"
  73. 2270 PRINT " *       KELTAINEN; TUORE                                  *"
  74. 2280 PRINT " *       TUOKSU: OMENAINEN                                 *"
  75. 2290 PRINT " *       MAKU  : PUOLIMAKEA, TÄYTELÄINEN                   *"
  76. 2300 INPUT " ***********************************************************"; Q$
  77. 2310 GOTO 2085
  78. 2320 CLS
  79. 2330 PRINT
  80. 2340 PRINT " ***********************************************************"
  81. 2350 PRINT " *             GREEN FIZZ                                  * "
  82. 2360 PRINT " *        0,33 L        10,30 MK                           *"
  83. 2370 PRINT " *        CHYMOS 80g/L                                     *"
  84. 2380 PRINT " *        KELTAINEN; KEHITTYNYT                            *"
  85. 2390 PRINT " *        TUOKSU: PEHMEÄ, OMENAINEN, HEDELMÄINEN           *"
  86. 2400 PRINT " *        MAKU  : PUOLIMAKEA, TÄYTELÄINEN                  *"
  87. 2410 INPUT " ***********************************************************"; Q$
  88. 2420 GOTO 2085
  89. 2430 CLS
  90.      PRINT
  91.      PRINT " ***********************************************************"
  92.      PRINT " *         COLDEN CAP EXTRA STRONG CIDER                   *"
  93.      PRINT " *        0,75 L        23,10 MK                           *"
  94.      PRINT " *        1,5  L        53,70 MK                           *"
  95.      PRINT " *        MARLI 65g/L                                      *"
  96.      PRINT " *        KELTAINEN; TUORE                                 *"
  97.      PRINT " *        TUOKSU: OMENAINEN                                *"
  98.      PRINT " *        MAKU  : PUOLIMAKEA, TÄYTELÄINEN                  *"
  99.      INPUT " ***********************************************************"; Q$
  100.      GOTO 2085
  101.  
  102. 2440 CLS
  103.      PRINT " ***********************************************************"
  104.      PRINT " *         GREEN FIZZ EXTRA                                *"
  105.      PRINT " *        0,75 L        28,20                              *"
  106.      PRINT " *        1,5 L         55,30                              *"
  107.      PRINT " *        CHYMOS 60g/L                                     *"
  108.      PRINT " *        KELTAINEN; TUORE                                 *"
  109.      PRINT " *        TUOKSU: HENNOHKON OMENAINEN                      *"
  110.      PRINT " *        MAKU: MAKEA, SOPIVAN HAPOKAS                     *"
  111.      INPUT " ***********************************************************"; Q$
  112.      GOTO 2085
  113. 2450 CLS
  114.      PRINT " ***********************************************************"
  115.      PRINT " *         GOLDEN CAP PREMIUM CIDER                        *"
  116.      PRINT " *        0,75          28,20                              *"
  117.      PRINT " *        MARLI 30g/L                                      *"
  118.      PRINT " *        KELTAINEN; TUORE                                 *"
  119.      PRINT " *        TUOKSU: OMENAINEN                                *"
  120.      PRINT " *        MAKU: PUOLIKUIVA, PIRTEÄ, HAPOKAS                *"
  121.      INPUT " ***********************************************************"; Q$
  122.      GOTO 2085
  123. 2460 CLS
  124. 2463 PRINT " EDELLINEN VALIKKO.............99"
  125. 2465 PRINT " WOODPECKER CIDER...............1"
  126. 2470 INPUT " POMAGNE CIDER..................2"; ENGLANTI%
  127. 2480 IF ENGLANTI% = 1 THEN 2510
  128. 2485 IF ENGLANTI% = 99 THEN 1030
  129. 2490 IF ENGLANTI% = 2 THEN
  130.      GOTO 2530
  131.      END IF
  132. 2500
  133. 2510 CLS
  134. 2520 PRINT
  135.      PRINT " ************************************************************"
  136.      PRINT " *             WOODPECKER CIDER                             *"
  137.      PRINT " *          0,275 L        11,20 MK                         *"
  138.      PRINT " *          H.P. BULMER LTD.  60g/L                         *"
  139.      PRINT " *          KELTAINEN; KYPSÄ                                *"
  140.      PRINT " *          TUOKSU: KYPSÄN OMENAINEN                        *"
  141.      PRINT " *          MAKU  : PUOLI MAKEA, MELKO RUNSAS, VOIMAKAS,    *"
  142.      PRINT " *                  SOPIVAN HAPOKAS                         *"
  143.      INPUT " ************************************************************"; Q$
  144.      GOTO 2460
  145. 2530 CLS
  146. 2540 PRINT
  147.      PRINT " ************************************************************"
  148.      PRINT " *            POMAGNE CIDER                                 *"
  149.      PRINT " *         0,75          31,60 MK                           *"
  150.      PRINT " *         H.P. BULMER LTD. 20g/L                           *"
  151.      PRINT " *         KELTAINEN; TUORE                                 *"
  152.      PRINT " *         TUOKSU: HENTO, OMENAINEN                         *"
  153.      PRINT " *         MAKU  : KUIVA, TASAPAINOINEN, HAPOKAS            *"
  154.      INPUT " ************************************************************"; Q$
  155.      GOTO 2460
  156. 2550 CLS
  157. 2555 PRINT " EDELLINEN VALIKKO.......99"
  158. 2560 PRINT " CIDRE BOUCH╥ DU..........1"
  159. 2570 INPUT " CRU ANTOINETTE...........2"; RANSKA%
  160. 2580 IF RANSKA% = 1 THEN 2610
  161. 2590 IF RANSKA% = 2 THEN 2630
  162. 2600 IF RANSKA% = 99 THEN 1030
  163. 2610 CLS
  164. 2620 PRINT
  165.      PRINT " *************************************************************"
  166.      PRINT " *          CIDRE BOUCH╥ DU                                  *"
  167.      PRINT " *         0,75L         30,50 MK                            *"
  168.      PRINT " *         DUCHE DE LONGUEVILLE/NORMANDIE 26g/L              *"
  169.      PRINT " *         KELTAINEN; HIEMAN KEHITTYNYT                      *"
  170.      PRINT " *         TUOKSU: MAKEAHKO, TASAPAINOINEN                   *"
  171.      PRINT " *         MAKU  : KUIVA, VOIMAKKAASTI OMENAINEN, HAPOKAS    *"
  172.      INPUT " *************************************************************"; Q$
  173.      GOTO 2550
  174. 2630 CLS
  175. 2640 PRINT
  176.      PRINT " *************************************************************"
  177.      PRINT " *          CRU ANTOINETTE                                   *"
  178.      PRINT " *         0,25L         10,50 MK                            *"
  179.      PRINT " *         DUCHE DE LONGUEVILLE/NORMANDIE 26g/L              *"
  180.      PRINT " *         KELTAINEN; HIEMAN KEHITTYNYT                      *"
  181.      PRINT " *         TUOKSU: MAKEAHKO, TASAPAINOINEN                   *"
  182.      PRINT " *         MAKU  : KUIVA, VOIMAKKAASTI OMENAINEN, HAPOKAS    *"
  183.      INPUT " *************************************************************"; Q$
  184.      GOTO 2550
  185. 2650 COLOR 2, 9
  186. 2660 CLS
  187. 2666 PRINT
  188. 2670 PRINT " MAUSTETUT MIEDOT VIINIT"
  189. 2680 PRINT "========================="
  190. 2685 PRINT " EDELLINEN VALIKKO......99"
  191. 2690 PRINT " DINA VADELMA............1"
  192. 2700 PRINT " DINA PERSIKKA...........2"
  193. 2710 PRINT " DINA OMENA..............3"
  194. 2720 PRINT " SNAGRITA................4"
  195. 2730 PRINT " VILLA BLANCA............5"
  196. 2740 INPUT " CHRISTKINDLES GLÜWEIN...6"; MMV%
  197. 2750 IF MMV% = 1 THEN 2820
  198. 2760 IF MMV% = 2 THEN 2840
  199. 2770 IF MMV% = 3 THEN 2860
  200. 2780 IF MMV% = 4 THEN 2880
  201. 2790 IF MMV% = 5 THEN 2900
  202. 2800 IF MMV% = 6 THEN 2920
  203. 2810 IF MMV% = 99 THEN 5
  204. 2820 CLS
  205. 2830 PRINT
  206.      PRINT "  *************************************************************"
  207.      PRINT "  *             DINA VADELMA                                  *"
  208.      PRINT "  *        0,375 L           12,60 MK                         *"
  209.      PRINT "  *        ALKO 85g/L                                         *"
  210.      PRINT "  *        VAALEANPUNAINEN; TUORE                             *"
  211.      PRINT "  *        TUOKSU: VADELMAINEN                                *"
  212.      PRINT "  *        MAKU  : MAKEA, HELMEILEVÄ, VADELMAINEN             *"
  213.      INPUT "  *************************************************************"; Q$
  214.    GOTO 2650
  215. 2840 CLS
  216. 2850 PRINT
  217.      PRINT "  *************************************************************"
  218.      PRINT "  *             DINA PERSIKKA                                 *"
  219.      PRINT "  *        0,375 L           12,60 MK                         *"
  220.      PRINT "  *        ALKO 70g/L                                         *"
  221.      PRINT "  *        KULLANKELTAINEN; TUORE                             *"
  222.      PRINT "  *        TUOKSU: PERSIKKAINEN                               *"
  223.      PRINT "  *        MAKU  : MAKEA, HELMEILEVÄ, PERSIKKAINEN            *"
  224.      INPUT "  *************************************************************"; Q$
  225.    GOTO 2650
  226. 2860 CLS
  227. 2870 PRINT
  228.      PRINT "  *************************************************************"
  229.      PRINT "  *             DINA OMENA                                    *"
  230.      PRINT "  *        0,375 L           12,60 MK                         *"
  231.      PRINT "  *        ALKO 70g/L                                         *"
  232.      PRINT "  *        KELTAINEN; TUORE                                   *"
  233.      PRINT "  *        TUOKSU: OMENAINEN                                  *"
  234.      PRINT "  *        MAKU  : MAKEA, HELMEILEVÄ, OMENAINEN               *"
  235.      INPUT "  *************************************************************"; Q$
  236.    GOTO 2650
  237. 2880 CLS
  238. 2890 PRINT
  239.      PRINT "  *************************************************************"
  240.      PRINT "  *                 SANGRITA                                  *"
  241.      PRINT "  *        0,75 L           30,30 MK                          *"
  242.      PRINT "  *        ALKO 80g/L                                         *"
  243.      PRINT "  *        PUNAVIOLETTI; TUORE                                *"
  244.      PRINT "  *        TUOKSU: HEDELMÄINEN, PIRTEÄ                        *"
  245.      PRINT "  *        MAKU  : MAKEA, HELMEILEVÄ, RAIKAS                  *"
  246.      INPUT "  *************************************************************"; Q$
  247.    GOTO 2650
  248. 2900 CLS
  249. 2910 PRINT
  250.      PRINT "  *************************************************************"
  251.      PRINT "  *             VOLLA BLANCA                                  *"
  252.      PRINT "  *        0,75 L           31,00 MK                          *"
  253.      PRINT "  *        ALKO 90g/L                                         *"
  254.      PRINT "  *        KELTAINEN; TUORE                                   *"
  255.      PRINT "  *        TUOKSU   : MAUSTEINEN                              *"
  256.      PRINT "  *        MAKU     : PUOLIMAKEA,                             *"
  257.      PRINT "  *        MAUSTEITA: MUSCAT-VIINI, POMERANSSI, KANELI        * "
  258.      INPUT "  *************************************************************"; Q$
  259.    GOTO 2650
  260. 2920 CLS
  261. 2930 PRINT
  262.      PRINT "  *************************************************************"
  263.      PRINT "  *         CRISTKINDLES GLÜHWEIN                             *"
  264.      PRINT "  *        1 L           48,80 MK                             *"
  265.      PRINT "  *        ST. HELENA-KELLEREI 75g/L                          *"
  266.      PRINT "  *        PUNAINEN; TUORE                                    *"
  267.      PRINT "  *        TUOKSU: MELKO RUNSAS, MAUSTEINEN                   *"
  268.      PRINT "  *        MAKU  : PUOLIMAKEA, KANELINEN, HIEMAN NEILIKKAI-   *"
  269.      PRINT "  *                NEN, KESKITÄYTELÄINEN                      *"
  270.      INPUT "  *************************************************************"; Q$
  271.    GOTO 2650
  272. 2950 COLOR 13, 0
  273. 2960 CLS
  274. 2970 PRINT "                        MIEDOT JUOMASEKOITUKSET"
  275. 2980 PRINT "            ---------------------------------------------------"
  276. 2990 PRINT "             LC KARPALO...........1  ORANGE BALTIC MIX......13"
  277. 3000 PRINT "             LC OMENA.............2  GIN LEMON..............14"
  278. 3010 PRINT "             MARKIISI.............3  RED CHERRY.............15"
  279. 3020 PRINT "             LC LAKKA.............4  GOLDEN OMENA...........16"
  280. 3030 PRINT "             MINTTU SUKLAA........5  GREEN LIME.............17"
  281. 3040 PRINT "             KIR..................6  KARPALET...............18"
  282. 3050 PRINT "             VADELMA APERITIIVI...7  KOSKENKORVA VARGTASS...19"
  283. 3060 PRINT "             VINETTO..............8  KOSKENKORVA PEACH......20"
  284. 3070 PRINT "             APERITA..............9  DUBONNET...............21"
  285. 3080 PRINT "             SORBUS..............10  ST.RAPHA╙L DORÉ........22"
  286. 3090 PRINT "             VERMOUTH CASSIS.....11  BERENTZEN APFEL KORN...23"
  287. 3100 PRINT "             CORDITA.............12  EDELLINEN VALIKKO......99"
  288. 3110 PRINT
  289. 3120 INPUT "             VALITSE NUMERO:"; MJS%
  290. 3130 IF MJS% = 1 THEN 3370
  291. 3140 IF MJS% = 2 THEN 3390
  292. 3150 IF MJS% = 3 THEN 3470
  293. 3160 IF MJS% = 4 THEN 3450
  294. 3170 IF MJS% = 5 THEN 3480
  295. 3180 IF MJS% = 6 THEN 3490
  296. 3190 IF MJS% = 7 THEN 3500
  297. 3200 IF MJS% = 8 THEN 3510
  298. 3210 IF MJS% = 9 THEN 3520
  299. 3220 IF MJS% = 10 THEN 2950
  300. 3230 IF MJS% = 11 THEN 2950
  301. 3240 IF MJS% = 12 THEN 2950
  302. 3250 IF MJS% = 13 THEN 2950
  303. 3260 IF MJS% = 14 THEN 2950
  304. 3270 IF MJS% = 15 THEN 2950
  305. 3280 IF MJS% = 16 THEN 2950
  306. 3290 IF MJS% = 17 THEN 2950
  307. 3300 IF MJS% = 18 THEN 2950
  308. 3310 IF MJS% = 19 THEN 2950
  309. 3320 IF MJS% = 20 THEN 2950
  310. 3330 IF MJS% = 21 THEN 2950
  311. 3340 IF MJS% = 22 THEN 2950
  312. 3350 IF MJS% = 23 THEN 2950
  313. 3360 IF MJS% = 99 THEN 5
  314. 3370 CLS
  315. 3380 PRINT
  316.      PRINT "  *************************************************************"
  317.      PRINT "  *             LAPPONIA COCKTAILS                            *"
  318.      PRINT "  *                  KARPALO                                  *"
  319.      PRINT "  *        0,7 L           46,60 MK                           *"
  320.      PRINT "  *        MARLI 15%                                          *"
  321.      PRINT "  *        SUOMI 150g/L                                       *"
  322.      PRINT "  *        PUNERTAVA; MIETO, KARPALOAROMINEN                  *"
  323.      PRINT "  *        TUOKSU: MAKEA, TÄYTELÄINEN                         *"
  324.      PRINT "  *        MAKU  : TERÄVÄ                                     *"
  325.      INPUT "  *************************************************************"; Q$
  326.      GOTO 2950
  327. 3390 CLS
  328. 3440 PRINT
  329.      PRINT "  *************************************************************"
  330.      PRINT "  *             LAPPONIA COCKTAILS                            *"
  331.      PRINT "  *                   OMENA                                   *"
  332.      PRINT "  *        0,7 L           46,60 MK                           *"
  333.      PRINT "  *        MARLI 15%                                          *"
  334.      PRINT "  *        SUOMI 130g/L                                       *"
  335.      PRINT "  *        KELTAINEN; SUHTEELLISEN VOIMAKAS, OMENAINEN        *"
  336.      PRINT "  *        TUOKSU: MAKEA, TÄYTELÄINEN                         *"
  337.      PRINT "  *        MAKU  : PEHMEÄ                                     *"
  338.      INPUT "  *************************************************************"; Q$
  339.      GOTO 2950
  340. 3450 CLS
  341. 3460 PRINT
  342.      PRINT "  *************************************************************"
  343.      PRINT "  *             LAPPONIA COCKTAILS                            *"
  344.      PRINT "  *                   LAKKA                                   *"
  345.      PRINT "  *        0,7 L           48,00 MK                           *"
  346.      PRINT "  *        MARLI 15%                                          *"
  347.      PRINT "  *        SUOMI 120g/L                                       *"
  348.      PRINT "  *        KULLANKELTAINEN; VOIMAKAS LAKKA-AROMINEN           *"
  349.      PRINT "  *        TUOKSU: MAKEA,                                     *"
  350.      PRINT "  *        MAKU  : TÄYTELÄINEN                                *"
  351.      INPUT "  *************************************************************"; Q$
  352.      GOTO 2950
  353. 3470 CLS
  354.      PRINT "  *************************************************************"
  355.      PRINT "  *               MARKIISI                                    *"
  356.      PRINT "  *        0,75 L          48,00 MK                           *"
  357.      PRINT "  *        ALKO 16%                                           *"
  358.      PRINT "  *        SUOMI 120g/L                                       *"
  359.      PRINT "  *        PUNAINEN, MAKEA, MARJAINEN, VIINIPOHJAAN           * "
  360.      PRINT "  *        VALMISTETTU                                        *"
  361.      INPUT "  *************************************************************"; Q$
  362.      GOTO 2950
  363. 3480 CLS
  364.      PRINT "  *************************************************************"
  365.      PRINT "  *             MINTTU SUKLAA                                 *"
  366.      PRINT "  *        0,35 L           27,50 MK                          *"
  367.      PRINT "  *        0,7  L           52,90 MK                          *"
  368.      PRINT "  *        ALKO 18%                                           *"
  369.      PRINT "  *        SUOMI 180g/L                                       *"
  370.      PRINT "  *        VIHREÄ, PIPARMINTUN TUOKSUINEN                     *"
  371.      PRINT "  *        MAUSTETTU KAAKAOUUTTEELLA SEKÄ MINTTU-             *"
  372.      PRINT "  *        JA SUKLAA AROMEILLA. VÄRIAINEET E 150, E 131       *"
  373.      INPUT "  *************************************************************"; Q$
  374.      GOTO 2950
  375. 3490 CLS
  376.      PRINT
  377.      PRINT
  378.      PRINT
  379.      PRINT
  380.      PRINT
  381.      PRINT
  382.      PRINT
  383.      PRINT
  384.      PRINT TAB(15); "  ********************************************************"
  385.      PRINT TAB(15); "  *                  KIR                                 *"
  386.      PRINT TAB(15); "  *        0,75 L           55,70 MK                     *"
  387.      PRINT TAB(15); "  *        MARLI 15%                                     *"
  388.      PRINT TAB(15); "  *        SUOMI 120g/L                                  *"
  389.      PRINT TAB(15); "  *        KULLANKELTAINEN; VALMISTETTU VALKOVIINISTÄ    *"
  390.      PRINT TAB(15); "  *        MUSTAHERUKKAMEHUSTA                           *"
  391.      INPUT "                ********************************************************"; Q$
  392.      GOTO 2950
  393. 3500 CLS
  394.      PRINT "  *************************************************************"
  395.      PRINT "  *             VADELMA APERITIIVI                            *"
  396.      PRINT "  *        0,7 L           56,00 MK                           *"
  397.      PRINT "  *        CHYMOS 18%                                         *"
  398.      PRINT "  *        SUOMI 170g/L                                       *"
  399.      PRINT "  *        PUNAINEN; TUORE, VADELMAINEN                       *"
  400.      PRINT "  *        TUOKSU: MAKEA                                      *"
  401.      PRINT "  *        MAKU  : KESKITÄYTELÄINEN                           *"
  402.      INPUT "  *************************************************************"; Q$
  403.      GOTO 2950
  404. 3510 CLS
  405.      PRINT "  *************************************************************"
  406.      PRINT "  *                  VINETTO                                  *"
  407.      PRINT "  *        0,75  L          56,40 MK                          *"
  408.      PRINT "  *        0,375 L          30,20 MK                          *"
  409.      PRINT "  *        ALKO 18%                                           *"
  410.      PRINT "  *        SUOMI 140g/L                                       *"
  411.      PRINT "  *        PUNARUSKEA; HEHKUVIINITYYPPINEN                    *"
  412.      PRINT "  *        MAUSTETTU KANELILLA, NEILIKALLA JA                 *"
  413.      PRINT "  *        POMERANSSINKUORELLA                                *"
  414.      INPUT "  *************************************************************"; Q$
  415.      GOTO 2950
  416. 3520 CLS
  417.      PRINT "  *************************************************************"
  418.      PRINT "  *                  APERITA                                  *"
  419.      PRINT "  *        0,75  L          56,40 MK                          *"
  420.      PRINT "  *        0,375 L          30,20 MK                          *"
  421.      PRINT "  *        ALKO 18%                                           *"
  422.      PRINT "  *        SUOMI 160g/L                                       *"
  423.      PRINT "  *        SYVÄNPUNAINEN; KEVYESTI KATKERAN MAKUINEN          *"
  424.      PRINT "  *        VALMISTUKSESSA KÄYTETTY MM. KOTI- JA               *"
  425.      PRINT "  *        ULKOMAISIA PUNAVIINEJÄ, APPELSIINIKUKKA- JA        *"
  426.      PRINT "  *        KUORIUUTETTA                                       * "
  427.      INPUT "  *************************************************************"; Q$
  428.      GOTO 2950
  429.     
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436. 23000 MUSA$ = "MB L8 O2 GAC GAGGACCAA L4 A B C L8 CBA GAGGACCAA A L4 D L8 DACCAA8"
  437. 23010 MUSIC$ = "MBL8 O2ad+dadad-daa caccaddaa"
  438. 23020 MUSIC2$ = "MB 01 L4 D D D DED"
  439. 23120 INPUT " KUMPI MUSIIKKI (1/2) "; MUS%
  440. 23130 IF MUS$ = "1" THEN GOTO 23150
  441. 23140 IF MUS$ = "2" THEN GOTO 23170
  442. 23150 PLAY MUSA$
  443. 23160 GOTO 5
  444. 23170 PLAY MUSIC$
  445. 23180 GOTO 5
  446.    
  447. 24000 COLOR 1, 2
  448. 24010 SCREEN 2
  449. 24020 PLAY LOPPU$
  450. 24030 JAKE$ = "B U40 B L20 D50 L30 U20 B R40 B D 20 U5 R5 D5 L5 B R20 U50 B D30 E30 B G20 F30"
  451. 24040 DRAW JAKE$
  452. 24050 CIRCLE (320, 88), 80, 2
  453. 24060 PRINT
  454.       PRINT
  455.       PRINT TAB(30); " TÄMÄN ALKOHOLI HINNASTON         "
  456.       PRINT TAB(35); " ON TUOTTANUT:"
  457.       PRINT
  458.       PRINT
  459.       PRINT
  460.       PRINT
  461.       PRINT
  462.       PRINT
  463.       PRINT
  464.       PRINT
  465.       PRINT
  466.       PRINT
  467.       PRINT
  468.       PRINT
  469.       PRINT
  470.       PRINT TAB(34); "PRODUCTION 1994      "
  471.       PRINT TAB(34); "ALL RIGHT RESERVED"
  472.       PRINT TAB(34); "NEKKU - JAKE OY"
  473.       PRINT TAB(34); "JARNO KUOKKANEN"
  474.  
  475. 24100 END
  476.  
  477.  
  478.