10 LET odp1$=""
20 LET odp2$=""
30 LET odp3$=""
40 LET odp4$=""
50 LET odp5$=""
100 PRINT "Kwiat paproci kwitnie przez jedn, jedyn noc w cigu roku."
105 PRINT "Kto go zerwie, temu speni si wszystkie marzenia."
110 PRINT "Postanowie sprbowa szczcia."
1000 PRINT "Jeste w swoim domu. Moesz uda si na pnoc (1) lub na zachd (2)."
1005 INPUT odp
1025 IF odp=1 THEN GOTO 1300
1030 IF odp=2 THEN GOTO 1100
1035 GOTO 1005
1100 PRINT "Idziesz drog. Moesz skierowa si na zachd (1), wschd (2) lub pnoc (3)."
1110 INPUT odp
1115 IF odp=1 THEN GOTO 1200
1120 IF odp=2 THEN GOTO 1000
1125 IF odp=3 THEN GOTO 1400
1130 GOTO 1110
1200 PRINT "Jeste u podna Gr Niebotycznych. Zza kamienia wyglda may wistak."
1205 PRINT "Moesz poyczy co wistakowi (1)."
1206 PRINT "Moesz i na pnoc (2) lub wschd (3)."
1210 INPUT odp
1215 IF odp=2 THEN GOTO 1500
1220 IF odp=3 THEN GOTO 1100
1225 IF odp=1 THEN GOTO 1235
1230 GOTO 1210
1235 PRINT "Co mu chcesz poyczy?"
1240 INPUT pr$
1245 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 1255
1250 PRINT "A skd ty wemiesz ";pr$;"?"
1255 PRINT "Dzikuj! - mwi wistak."
1260 GOTO 1206
1300 PRINT "Ogrd przed domem. Jest tu jabko, marchewka i kartofel."
1305 PRINT "Moesz wzi jeden z przedmiotw (1)."
1310 PRINT "Moesz skierowa si na pnoc (2), poudnie (3) lub zachd (4)."
1315 INPUT odp
1320 IF odp=2 THEN GOTO 1600
1325 IF odp=3 THEN GOTO 1000
1330 IF odp=4 THEN GOTO 1400
1335 IF odp=1 THEN GOTO 1345
1340 GOTO 1315
1345 PRINT "Co wybierasz?"
1350 INPUT odp1$
1355 GOTO 1310
1400 PRINT "Jeste w lesie. Pod drzewem ley szyszka, kij i grzyb."
1405 PRINT "Moesz wzi jeden z przedmiotw (1)."
1410 PRINT "Moesz skierowa si na pnoc (2), poudnie (3), wschd (4) lub zachd (5)."
1415 INPUT odp
1420 IF odp=2 THEN GOTO 1700
1425 IF odp=3 THEN GOTO 1100
1430 IF odp=4 THEN GOTO 1300
1435 IF odp=5 THEN GOTO 1500
1440 IF odp=1 THEN GOTO 1450
1445 GOTO 1415
1450 PRINT "Co wybierasz?"
1455 INPUT odp2$
1460 GOTO 1410
1500 PRINT "W lesie spotykasz zajca.
1505 PRINT "Moesz poyczy co zajcowi (1)."
1510 PRINT "Moesz i na pnoc (2), poudnie (3) lub wschd (4)."
1515 INPUT odp
1520 IF odp=2 THEN GOTO 1800
1525 IF odp=3 THEN GOTO 1200
1530 IF odp=4 THEN GOTO 1400
1535 IF odp=1 THEN GOTO 1545
1540 GOTO 1515
1545 PRINT "Co mu chcesz poyczy?"
1550 INPUT pr$
1555 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 1565
1560 PRINT "A skd ty wemiesz ";pr$;"?"
1565 PRINT "Dzikuj! - mwi zajc."
1570 GOTO 1510
1600 PRINT "Soneczna ka pod lasem. Kto tu chyba jad niadanie, bo zostawi yk,"
1605 PRINT "jajko i ser."
1610 PRINT "Moesz wzi jeden z przedmiotw (1)."
1615 PRINT "Moesz i na poudnie (2) lub zachd (3)."
1620 INPUT odp
1625 IF odp=2 THEN GOTO 1300
1630 IF odp=3 THEN GOTO 1700
1635 IF odp=1 THEN GOTO 1645
1640 GOTO 1620
1645 PRINT "Co wybierasz?"
1650 INPUT odp3$
1655 GOTO 1615
1700 PRINT "Na drzewie, nad brzegiem strumienia siedzi sowa."
1705 PRINT "Moesz poyczy co sowie (1)."
1710 PRINT "Moesz i na poudnie (2), wschd (3) lub zachd (4)."
1715 INPUT odp
1720 IF odp=2 THEN GOTO 1400
1725 IF odp=3 THEN GOTO 1600
1730 IF odp=4 THEN GOTO 1800
1735 IF odp=1 THEN GOTO 1745
1740 GOTO 1715
1745 PRINT "Co jej chcesz poyczy?"
1750 INPUT pr$
1755 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 1565
1760 PRINT "A skd ty wemiesz ";pr$;"?"
1765 PRINT "Dzikuj! - mwi sowa."
1770 GOTO 1710
1800 PRINT "Mostek nad strumieniem. Niestety, tak si chwieje, e nie mona po nim przej."
1805 PRINT "Obok stoi smutny krasnal."
1810 PRINT "Moesz poyczy co krasnalowi (1)."
1815 PRINT "Moesz i na poudnie (2) lub wschd (3)."
1820 INPUT odp
1825 IF odp=2 THEN GOTO 1500
1830 IF odp=3 THEN GOTO 1700
1835 IF odp=1 THEN GOTO 1845
1840 GOTO 1820
1845 PRINT "Co mu chcesz poyczy?"
1850 INPUT pr$
1855 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 1865
1860 PRINT "A skd ty wemiesz ";pr$;"?"
1865 IF pr$="kij" THEN GOTO 1880
1870 PRINT "Dzikuj! - mwi smutny krasnal."
1875 GOTO 1815
1880 PRINT "Smutny krasnal przestaje by smutny, bierze od ciebie kij, podpiera nim"
1885 PRINT "mostek i razem przechodzicie na druga stron strumienia."
1890 PRINT "Mostek za wami przewraca si z oskotem."
1895 GOTO 1900
1900 PRINT "Ten brzeg strumienia jest bardziej dziki. Nie ma tu nawet cieki."
1905 PRINT "Moesz skierowa si na pnoc (1) lub wschd (2)."
1910 INPUT odp
1915 IF odp=1 THEN GOTO 2100
1920 IF odp=2 THEN GOTO 2000
1925 GOTO 1910
2000 PRINT "Stare drzewo. Ma chyba z tysic lat. Pod drzewem siedzi lis."
2005 PRINT "Moesz poyczy co lisowi (1)."
2010 PRINT "Moesz i na pnoc (2) lub zachd (3).
2015 INPUT odp
2020 IF odp=2 THEN GOTO 2200
2025 IF odp=3 THEN GOTO 1900
2030 IF odp=1 THEN GOTO 2040
2035 GOTO 2015
2040 PRINT "Co mu chcesz poyczy?"
2045 INPUT pr$
2050 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 2060
2055 PRINT "A skd ty wemiesz ";pr$;"?"
2060 IF odp4$="grzebyk" THEN GOTO 2075
2065 PRINT "Dzikuj! - mwi lis."
2070 GOTO 2010
2075 PRINT "Lis, znany elegant czesze swj wspaniay ogon."
2080 PRINT "Wiem, e szukasz kwiatu paproci. Ronie on w Guchym Borze."
2085 PRINT "Jedyna droga tam prowadzi przez moja nor. Chod, zaprowadz ci."
2090 GOTO 2300
2100 PRINT "W zarolach pi dzik."
2105 Moesz poyczy co dzikowi (1)."
2110 PRINT "Moesz i na poudnie (2) lub wschd (3).
2115 INPUT odp
2120 IF odp=2 THEN GOTO 1900
2125 IF odp=3 THEN GOTO 2200
2130 IF odp=1 THEN GOTO 2140
2135 GOTO 2115
2140 PRINT "Co mu chcesz poyczy?"
2142 INPUT pr$
2145 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 2155
2150 PRINT "A skd ty wemiesz";pr$;"?"
2155 PRINT "Odczep si! - mwi dzik."
2160 GOTO 2100
2200 PRINT "Kto tu jednak bywa. Pod krzakiem le jakie mieci - papier, kubek, grzebyk."
2205 PRINT "Moesz i na poudnie (1) lub zachd (2)."
2215 INPUT odp
2220 IF odp=1 THEN GOTO 2000
2225 IF odp=2 THEN GOTO 2100
2230 IF odp=3 THEN GOTO 2240
2235 GOTO 2215
2240 PRINT "Co wybierasz?"
2245 INPUT odp4$
2250 GOTO 2200
2300 PRINT "Guchy Br. Nie sycha nawet piewu ptakw,"
2310 PRINT "Moesz skierowa si na pnoc (1) lub wschd (2)."
2320 INPUT odp
2330 IF odp=1 THEN GOTO 2500
2340 IF odp=2 THEN GOTO 2400
2350 GOTO 2300
2400 PRINT "Na zwalonym pniu drzewa siedzi czarny kruk."
2405 PRINT "Moesz poyczy co krukowi (1)."
2410 PRINT "Moesz i na pnoc (2) lub zachd (3)."
2415 INPUT odp
2420 IF odp=2 THEN GOTO 2600
2425 IF odp=3 THEN GOTO 2300
2430 IF odp=1 THEN GOTO 2440
2435 GOTO 2415
2440 PRINT "Co chcesz poyczy krukowi?"
2441 INPUT pr$
2442 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 2450
2445 PRINT "A skd wemiesz ";pr$;"?"
2450 PRINT "Dzikuj serdecznie, mie ";pr$;" byo zawsze moim marzeniem ."
2455 GOTO 2410
2500 PRINT "A skd si to tutaj wzio?. W rodku lasu miota, odkurzacz i froterka."
2505 PRINT "Moesz wzi jeden przedmiot (1)"
2510 PRINT "Moesz i na poudnie (2) lub wschd (3)."
2515 INPUT odp
2520 IF odp=2 THEN GOTO 2300
2525 IF odp=3 THEN GOTO 2600
2530 IF odp=1 THEN GOTO 2540
2535 GOTO 2515
2540 PRINT "Co wybierasz?"
2545 INPUT odp5$
2550 GOTO 2510
2600 PRINT "Na gazi, nad gbokim jarem siedzi asica."
2605 PRINT "Moesz i na poudnie (1) lub zachd (2). Moesz da prezent asicy (3)."
2615 INPUT odp
2620 IF odp=1 THEN GOTO 2400
2625 IF odp=2 THEN GOTO 2500
2630 IF odp=3 THEN GOTO 2640
2635 GOTO 2600
2640 PRINT "Co jej chcesz da?"
2645 INPUT pr$
2650 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 2660
2655 PRINT "Przecie nie masz ";pr$
2660 IF odp3$="jajko" THEN GOTO 2675
2665 PRINT "Dzikuj! - mwi asica."
2670 GOTO 2600
2675 PRINT "Miy jeste - mwi asica - wiem, e szukasz kwiatu paproci."
2680 PRINT "Jest za tym jarem. Poka ci jak dosta si tam po gaziach drzew."
2685 GOTO 2700
2700 PRINT "Chatka z piernika, a w niej czarownica. Obok kwitnie papro."
2703 PRINT "Moesz da prezent czarownicy (1)."
2705 PRINT "Moesz podej, by zerwa kwiat (2)."
2707 INPUT odp
2710 IF odp=1 THEN GOTO 2725
2715 IF odp=2 THEN GOTO 2800
2720 GOTO 2707
2725 PRINT "Co jej chcesz da?"
2730 INPUT pr$
2735 IF pr$=odp1$ OR pr$=odp2$ OR pr$=odp3$ OR pr$=odp4$ OR pr$=odp5$ THEN GOTO 2745
2740 PRINT "A skd wemiesz ";pr$;"?"
2745 IF pr$="jabko" THEN GOTO 2760
2750 PRINT "A c to jest? Na co mi ";pr$;"?!!! Czarownica wrzeszczy jak oparzona."
2755 GOTO 2800
2760 PRINT "To dla mnie? Kochane dziecko! Czarownica ma zy w oczach."
2765 PRINT "Prosz poczstuj si piernikiem z mojej chatki."
2770 PRINT "Oczywicie kwiat paproci naley do ciebie!"
2775 PRINT "Zwyciye, gratuluj!"
2780 END
2800 PRINT "Czary-mary, diabe stary... - mruczy pod nosem czarownica."
2805 PRINT "Zrywa si straszny wiatr, zapada zmrok..."
2810 GOTO 1015
