home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rat's Nest 1
/
ratsnest1.iso
/
prgmming
/
basic
/
alko2.bas
< prev
next >
Wrap
BASIC Source File
|
1994-11-09
|
24KB
|
478 lines
3 LOPPU$ = "MB O0 L8 ADDADDADDAACADDACCCAADDAA"
5 COLOR 14, 0
7 CLS
10 PRINT " Hinnaston on tehnyt:"
20 PRINT " Jarno Kuokkanen"
30 PRINT TAB(10); "SISÄLLYS: SIVU"
40 PRINT " PUNAVIINIT............................. 1"
50 PRINT " ROSEE- JA BLUSH- VIINIT................ 2"
60 PRINT " VALKOVIINIT............................ 3"
70 PRINT " KUOHUVIINIT............................ 4"
80 PRINT " MUUT MIEDOT HEDELMÄVIINIT.............. 5"
90 PRINT " HELMEILEVÄT HEDELMÄVIINIT.............. 6"
100 PRINT " MAUSTETUT MIEDOT VIINIT................ 7"
110 PRINT " SIIDERIT............................... 8"
120 PRINT " MIEDOT JUOMASEKOITUKSET................ 9"
130 PRINT " VERMUTIT............................... 10"
140 PRINT " LOPETUS................................ 99"
150 PRINT " MUSIIKIN VAIHTO........................ 66"
500 INPUT " ANNA SIVU NUMERO"; VALINTA%
990 IF VALINTA% = 66 THEN 23000
1000 IF VALINTA% = 9 THEN 2950
1010 IF VALINTA% = 8 THEN 1030
1020 IF VALINTA% = 7 THEN 2650
1025 IF VALINTA% = 99 THEN 24000
1030 CLS
1031 PRINT " SUOMI................1"
1040 PRINT " ENGLANTI.............2"
1050 PRINT " RANSKA...............3"
1060 PRINT " RUOTSI...............4"
1065 PRINT " EDELLINEN VALIKKO...99"
1070 INPUT " MINKÄ MAAN SIIDERIÄ"; MAA%
1080 IF MAA% = 4 THEN 2000
1082 IF MAA% = 3 THEN 2550
1085 IF MAA% = 2 THEN 2460
1090 IF MAA% = 1 THEN 2090
1095 IF MAA% = 99 THEN 5
2000 CLS
2010 PRINT " WILLIAMS CIDER"
2020 PRINT " 0,5 L 23,10 MK"
2030 PRINT " KIVIK MUSTERI 30g/L"
2040 PRINT " KELTAINEN; TUORE"
2050 PRINT " TUOKSU: PÄÄRYNÄINEN"
2060 PRINT " MAKU : PUOLIKUIVA, PIRTEÄ"
2070 INPUT "===================================================="; Q$
2080 GOTO 1030
2085 CLS
2087 PRINT " EDELLINEN VALIKKO...........99"
2090 PRINT " COLDEN CAP CIDER.............1"
2100 PRINT " GREEN FIZZ...................2"
2110 PRINT " COLDEN CAP EXTRA"
2120 PRINT " STRONG CIDER.................3"
2130 PRINT " GREEN FIZZ EXTRA.............4"
2140 PRINT " GOLDEN CAP "
2150 INPUT " PREMIUM CIDER................5"; SUOMI%
2160 IF SUOMI% = 1 THEN 2210
2170 IF SUOMI% = 2 THEN 2320
2180 IF SUOMI% = 3 THEN 2430
2190 IF SUOMI% = 4 THEN 2440
2200 IF SUOMI% = 5 THEN 2450
2203 IF SUOMI% = 99 THEN 1030
2205 IF SUOMI% = 6 - 98 THEN
CLS
PRINT "VALITSE NUMERO 1 - 5 !"
GOTO 2090
END IF
2210 CLS
2220 PRINT
2230 PRINT " ***********************************************************"
2240 PRINT " * COLDEN CAP CIDER *"
2250 PRINT " * 0,33 L 8,30 MK * "
2260 PRINT " * MARLI 60g/L *"
2270 PRINT " * KELTAINEN; TUORE *"
2280 PRINT " * TUOKSU: OMENAINEN *"
2290 PRINT " * MAKU : PUOLIMAKEA, TÄYTELÄINEN *"
2300 INPUT " ***********************************************************"; Q$
2310 GOTO 2085
2320 CLS
2330 PRINT
2340 PRINT " ***********************************************************"
2350 PRINT " * GREEN FIZZ * "
2360 PRINT " * 0,33 L 10,30 MK *"
2370 PRINT " * CHYMOS 80g/L *"
2380 PRINT " * KELTAINEN; KEHITTYNYT *"
2390 PRINT " * TUOKSU: PEHMEÄ, OMENAINEN, HEDELMÄINEN *"
2400 PRINT " * MAKU : PUOLIMAKEA, TÄYTELÄINEN *"
2410 INPUT " ***********************************************************"; Q$
2420 GOTO 2085
2430 CLS
PRINT
PRINT " ***********************************************************"
PRINT " * COLDEN CAP EXTRA STRONG CIDER *"
PRINT " * 0,75 L 23,10 MK *"
PRINT " * 1,5 L 53,70 MK *"
PRINT " * MARLI 65g/L *"
PRINT " * KELTAINEN; TUORE *"
PRINT " * TUOKSU: OMENAINEN *"
PRINT " * MAKU : PUOLIMAKEA, TÄYTELÄINEN *"
INPUT " ***********************************************************"; Q$
GOTO 2085
2440 CLS
PRINT " ***********************************************************"
PRINT " * GREEN FIZZ EXTRA *"
PRINT " * 0,75 L 28,20 *"
PRINT " * 1,5 L 55,30 *"
PRINT " * CHYMOS 60g/L *"
PRINT " * KELTAINEN; TUORE *"
PRINT " * TUOKSU: HENNOHKON OMENAINEN *"
PRINT " * MAKU: MAKEA, SOPIVAN HAPOKAS *"
INPUT " ***********************************************************"; Q$
GOTO 2085
2450 CLS
PRINT " ***********************************************************"
PRINT " * GOLDEN CAP PREMIUM CIDER *"
PRINT " * 0,75 28,20 *"
PRINT " * MARLI 30g/L *"
PRINT " * KELTAINEN; TUORE *"
PRINT " * TUOKSU: OMENAINEN *"
PRINT " * MAKU: PUOLIKUIVA, PIRTEÄ, HAPOKAS *"
INPUT " ***********************************************************"; Q$
GOTO 2085
2460 CLS
2463 PRINT " EDELLINEN VALIKKO.............99"
2465 PRINT " WOODPECKER CIDER...............1"
2470 INPUT " POMAGNE CIDER..................2"; ENGLANTI%
2480 IF ENGLANTI% = 1 THEN 2510
2485 IF ENGLANTI% = 99 THEN 1030
2490 IF ENGLANTI% = 2 THEN
GOTO 2530
END IF
2500
2510 CLS
2520 PRINT
PRINT " ************************************************************"
PRINT " * WOODPECKER CIDER *"
PRINT " * 0,275 L 11,20 MK *"
PRINT " * H.P. BULMER LTD. 60g/L *"
PRINT " * KELTAINEN; KYPSÄ *"
PRINT " * TUOKSU: KYPSÄN OMENAINEN *"
PRINT " * MAKU : PUOLI MAKEA, MELKO RUNSAS, VOIMAKAS, *"
PRINT " * SOPIVAN HAPOKAS *"
INPUT " ************************************************************"; Q$
GOTO 2460
2530 CLS
2540 PRINT
PRINT " ************************************************************"
PRINT " * POMAGNE CIDER *"
PRINT " * 0,75 31,60 MK *"
PRINT " * H.P. BULMER LTD. 20g/L *"
PRINT " * KELTAINEN; TUORE *"
PRINT " * TUOKSU: HENTO, OMENAINEN *"
PRINT " * MAKU : KUIVA, TASAPAINOINEN, HAPOKAS *"
INPUT " ************************************************************"; Q$
GOTO 2460
2550 CLS
2555 PRINT " EDELLINEN VALIKKO.......99"
2560 PRINT " CIDRE BOUCH╥ DU..........1"
2570 INPUT " CRU ANTOINETTE...........2"; RANSKA%
2580 IF RANSKA% = 1 THEN 2610
2590 IF RANSKA% = 2 THEN 2630
2600 IF RANSKA% = 99 THEN 1030
2610 CLS
2620 PRINT
PRINT " *************************************************************"
PRINT " * CIDRE BOUCH╥ DU *"
PRINT " * 0,75L 30,50 MK *"
PRINT " * DUCHE DE LONGUEVILLE/NORMANDIE 26g/L *"
PRINT " * KELTAINEN; HIEMAN KEHITTYNYT *"
PRINT " * TUOKSU: MAKEAHKO, TASAPAINOINEN *"
PRINT " * MAKU : KUIVA, VOIMAKKAASTI OMENAINEN, HAPOKAS *"
INPUT " *************************************************************"; Q$
GOTO 2550
2630 CLS
2640 PRINT
PRINT " *************************************************************"
PRINT " * CRU ANTOINETTE *"
PRINT " * 0,25L 10,50 MK *"
PRINT " * DUCHE DE LONGUEVILLE/NORMANDIE 26g/L *"
PRINT " * KELTAINEN; HIEMAN KEHITTYNYT *"
PRINT " * TUOKSU: MAKEAHKO, TASAPAINOINEN *"
PRINT " * MAKU : KUIVA, VOIMAKKAASTI OMENAINEN, HAPOKAS *"
INPUT " *************************************************************"; Q$
GOTO 2550
2650 COLOR 2, 9
2660 CLS
2666 PRINT
2670 PRINT " MAUSTETUT MIEDOT VIINIT"
2680 PRINT "========================="
2685 PRINT " EDELLINEN VALIKKO......99"
2690 PRINT " DINA VADELMA............1"
2700 PRINT " DINA PERSIKKA...........2"
2710 PRINT " DINA OMENA..............3"
2720 PRINT " SNAGRITA................4"
2730 PRINT " VILLA BLANCA............5"
2740 INPUT " CHRISTKINDLES GLÜWEIN...6"; MMV%
2750 IF MMV% = 1 THEN 2820
2760 IF MMV% = 2 THEN 2840
2770 IF MMV% = 3 THEN 2860
2780 IF MMV% = 4 THEN 2880
2790 IF MMV% = 5 THEN 2900
2800 IF MMV% = 6 THEN 2920
2810 IF MMV% = 99 THEN 5
2820 CLS
2830 PRINT
PRINT " *************************************************************"
PRINT " * DINA VADELMA *"
PRINT " * 0,375 L 12,60 MK *"
PRINT " * ALKO 85g/L *"
PRINT " * VAALEANPUNAINEN; TUORE *"
PRINT " * TUOKSU: VADELMAINEN *"
PRINT " * MAKU : MAKEA, HELMEILEVÄ, VADELMAINEN *"
INPUT " *************************************************************"; Q$
GOTO 2650
2840 CLS
2850 PRINT
PRINT " *************************************************************"
PRINT " * DINA PERSIKKA *"
PRINT " * 0,375 L 12,60 MK *"
PRINT " * ALKO 70g/L *"
PRINT " * KULLANKELTAINEN; TUORE *"
PRINT " * TUOKSU: PERSIKKAINEN *"
PRINT " * MAKU : MAKEA, HELMEILEVÄ, PERSIKKAINEN *"
INPUT " *************************************************************"; Q$
GOTO 2650
2860 CLS
2870 PRINT
PRINT " *************************************************************"
PRINT " * DINA OMENA *"
PRINT " * 0,375 L 12,60 MK *"
PRINT " * ALKO 70g/L *"
PRINT " * KELTAINEN; TUORE *"
PRINT " * TUOKSU: OMENAINEN *"
PRINT " * MAKU : MAKEA, HELMEILEVÄ, OMENAINEN *"
INPUT " *************************************************************"; Q$
GOTO 2650
2880 CLS
2890 PRINT
PRINT " *************************************************************"
PRINT " * SANGRITA *"
PRINT " * 0,75 L 30,30 MK *"
PRINT " * ALKO 80g/L *"
PRINT " * PUNAVIOLETTI; TUORE *"
PRINT " * TUOKSU: HEDELMÄINEN, PIRTEÄ *"
PRINT " * MAKU : MAKEA, HELMEILEVÄ, RAIKAS *"
INPUT " *************************************************************"; Q$
GOTO 2650
2900 CLS
2910 PRINT
PRINT " *************************************************************"
PRINT " * VOLLA BLANCA *"
PRINT " * 0,75 L 31,00 MK *"
PRINT " * ALKO 90g/L *"
PRINT " * KELTAINEN; TUORE *"
PRINT " * TUOKSU : MAUSTEINEN *"
PRINT " * MAKU : PUOLIMAKEA, *"
PRINT " * MAUSTEITA: MUSCAT-VIINI, POMERANSSI, KANELI * "
INPUT " *************************************************************"; Q$
GOTO 2650
2920 CLS
2930 PRINT
PRINT " *************************************************************"
PRINT " * CRISTKINDLES GLÜHWEIN *"
PRINT " * 1 L 48,80 MK *"
PRINT " * ST. HELENA-KELLEREI 75g/L *"
PRINT " * PUNAINEN; TUORE *"
PRINT " * TUOKSU: MELKO RUNSAS, MAUSTEINEN *"
PRINT " * MAKU : PUOLIMAKEA, KANELINEN, HIEMAN NEILIKKAI- *"
PRINT " * NEN, KESKITÄYTELÄINEN *"
INPUT " *************************************************************"; Q$
GOTO 2650
2950 COLOR 13, 0
2960 CLS
2970 PRINT " MIEDOT JUOMASEKOITUKSET"
2980 PRINT " ---------------------------------------------------"
2990 PRINT " LC KARPALO...........1 ORANGE BALTIC MIX......13"
3000 PRINT " LC OMENA.............2 GIN LEMON..............14"
3010 PRINT " MARKIISI.............3 RED CHERRY.............15"
3020 PRINT " LC LAKKA.............4 GOLDEN OMENA...........16"
3030 PRINT " MINTTU SUKLAA........5 GREEN LIME.............17"
3040 PRINT " KIR..................6 KARPALET...............18"
3050 PRINT " VADELMA APERITIIVI...7 KOSKENKORVA VARGTASS...19"
3060 PRINT " VINETTO..............8 KOSKENKORVA PEACH......20"
3070 PRINT " APERITA..............9 DUBONNET...............21"
3080 PRINT " SORBUS..............10 ST.RAPHA╙L DORÉ........22"
3090 PRINT " VERMOUTH CASSIS.....11 BERENTZEN APFEL KORN...23"
3100 PRINT " CORDITA.............12 EDELLINEN VALIKKO......99"
3110 PRINT
3120 INPUT " VALITSE NUMERO:"; MJS%
3130 IF MJS% = 1 THEN 3370
3140 IF MJS% = 2 THEN 3390
3150 IF MJS% = 3 THEN 3470
3160 IF MJS% = 4 THEN 3450
3170 IF MJS% = 5 THEN 3480
3180 IF MJS% = 6 THEN 3490
3190 IF MJS% = 7 THEN 3500
3200 IF MJS% = 8 THEN 3510
3210 IF MJS% = 9 THEN 3520
3220 IF MJS% = 10 THEN 2950
3230 IF MJS% = 11 THEN 2950
3240 IF MJS% = 12 THEN 2950
3250 IF MJS% = 13 THEN 2950
3260 IF MJS% = 14 THEN 2950
3270 IF MJS% = 15 THEN 2950
3280 IF MJS% = 16 THEN 2950
3290 IF MJS% = 17 THEN 2950
3300 IF MJS% = 18 THEN 2950
3310 IF MJS% = 19 THEN 2950
3320 IF MJS% = 20 THEN 2950
3330 IF MJS% = 21 THEN 2950
3340 IF MJS% = 22 THEN 2950
3350 IF MJS% = 23 THEN 2950
3360 IF MJS% = 99 THEN 5
3370 CLS
3380 PRINT
PRINT " *************************************************************"
PRINT " * LAPPONIA COCKTAILS *"
PRINT " * KARPALO *"
PRINT " * 0,7 L 46,60 MK *"
PRINT " * MARLI 15% *"
PRINT " * SUOMI 150g/L *"
PRINT " * PUNERTAVA; MIETO, KARPALOAROMINEN *"
PRINT " * TUOKSU: MAKEA, TÄYTELÄINEN *"
PRINT " * MAKU : TERÄVÄ *"
INPUT " *************************************************************"; Q$
GOTO 2950
3390 CLS
3440 PRINT
PRINT " *************************************************************"
PRINT " * LAPPONIA COCKTAILS *"
PRINT " * OMENA *"
PRINT " * 0,7 L 46,60 MK *"
PRINT " * MARLI 15% *"
PRINT " * SUOMI 130g/L *"
PRINT " * KELTAINEN; SUHTEELLISEN VOIMAKAS, OMENAINEN *"
PRINT " * TUOKSU: MAKEA, TÄYTELÄINEN *"
PRINT " * MAKU : PEHMEÄ *"
INPUT " *************************************************************"; Q$
GOTO 2950
3450 CLS
3460 PRINT
PRINT " *************************************************************"
PRINT " * LAPPONIA COCKTAILS *"
PRINT " * LAKKA *"
PRINT " * 0,7 L 48,00 MK *"
PRINT " * MARLI 15% *"
PRINT " * SUOMI 120g/L *"
PRINT " * KULLANKELTAINEN; VOIMAKAS LAKKA-AROMINEN *"
PRINT " * TUOKSU: MAKEA, *"
PRINT " * MAKU : TÄYTELÄINEN *"
INPUT " *************************************************************"; Q$
GOTO 2950
3470 CLS
PRINT " *************************************************************"
PRINT " * MARKIISI *"
PRINT " * 0,75 L 48,00 MK *"
PRINT " * ALKO 16% *"
PRINT " * SUOMI 120g/L *"
PRINT " * PUNAINEN, MAKEA, MARJAINEN, VIINIPOHJAAN * "
PRINT " * VALMISTETTU *"
INPUT " *************************************************************"; Q$
GOTO 2950
3480 CLS
PRINT " *************************************************************"
PRINT " * MINTTU SUKLAA *"
PRINT " * 0,35 L 27,50 MK *"
PRINT " * 0,7 L 52,90 MK *"
PRINT " * ALKO 18% *"
PRINT " * SUOMI 180g/L *"
PRINT " * VIHREÄ, PIPARMINTUN TUOKSUINEN *"
PRINT " * MAUSTETTU KAAKAOUUTTEELLA SEKÄ MINTTU- *"
PRINT " * JA SUKLAA AROMEILLA. VÄRIAINEET E 150, E 131 *"
INPUT " *************************************************************"; Q$
GOTO 2950
3490 CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(15); " ********************************************************"
PRINT TAB(15); " * KIR *"
PRINT TAB(15); " * 0,75 L 55,70 MK *"
PRINT TAB(15); " * MARLI 15% *"
PRINT TAB(15); " * SUOMI 120g/L *"
PRINT TAB(15); " * KULLANKELTAINEN; VALMISTETTU VALKOVIINISTÄ *"
PRINT TAB(15); " * MUSTAHERUKKAMEHUSTA *"
INPUT " ********************************************************"; Q$
GOTO 2950
3500 CLS
PRINT " *************************************************************"
PRINT " * VADELMA APERITIIVI *"
PRINT " * 0,7 L 56,00 MK *"
PRINT " * CHYMOS 18% *"
PRINT " * SUOMI 170g/L *"
PRINT " * PUNAINEN; TUORE, VADELMAINEN *"
PRINT " * TUOKSU: MAKEA *"
PRINT " * MAKU : KESKITÄYTELÄINEN *"
INPUT " *************************************************************"; Q$
GOTO 2950
3510 CLS
PRINT " *************************************************************"
PRINT " * VINETTO *"
PRINT " * 0,75 L 56,40 MK *"
PRINT " * 0,375 L 30,20 MK *"
PRINT " * ALKO 18% *"
PRINT " * SUOMI 140g/L *"
PRINT " * PUNARUSKEA; HEHKUVIINITYYPPINEN *"
PRINT " * MAUSTETTU KANELILLA, NEILIKALLA JA *"
PRINT " * POMERANSSINKUORELLA *"
INPUT " *************************************************************"; Q$
GOTO 2950
3520 CLS
PRINT " *************************************************************"
PRINT " * APERITA *"
PRINT " * 0,75 L 56,40 MK *"
PRINT " * 0,375 L 30,20 MK *"
PRINT " * ALKO 18% *"
PRINT " * SUOMI 160g/L *"
PRINT " * SYVÄNPUNAINEN; KEVYESTI KATKERAN MAKUINEN *"
PRINT " * VALMISTUKSESSA KÄYTETTY MM. KOTI- JA *"
PRINT " * ULKOMAISIA PUNAVIINEJÄ, APPELSIINIKUKKA- JA *"
PRINT " * KUORIUUTETTA * "
INPUT " *************************************************************"; Q$
GOTO 2950
23000 MUSA$ = "MB L8 O2 GAC GAGGACCAA L4 A B C L8 CBA GAGGACCAA A L4 D L8 DACCAA8"
23010 MUSIC$ = "MBL8 O2ad+dadad-daa caccaddaa"
23020 MUSIC2$ = "MB 01 L4 D D D DED"
23120 INPUT " KUMPI MUSIIKKI (1/2) "; MUS%
23130 IF MUS$ = "1" THEN GOTO 23150
23140 IF MUS$ = "2" THEN GOTO 23170
23150 PLAY MUSA$
23160 GOTO 5
23170 PLAY MUSIC$
23180 GOTO 5
24000 COLOR 1, 2
24010 SCREEN 2
24020 PLAY LOPPU$
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"
24040 DRAW JAKE$
24050 CIRCLE (320, 88), 80, 2
24060 PRINT
PRINT
PRINT TAB(30); " TÄMÄN ALKOHOLI HINNASTON "
PRINT TAB(35); " ON TUOTTANUT:"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(34); "PRODUCTION 1994 "
PRINT TAB(34); "ALL RIGHT RESERVED"
PRINT TAB(34); "NEKKU - JAKE OY"
PRINT TAB(34); "JARNO KUOKKANEN"
24100 END