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 ciągu roku."

105 PRINT "Kto go zerwie, temu spełnią się wszystkie marzenia."

110 PRINT "Postanowiłeś spróbować szczęścia."

1000 PRINT "Jesteś w swoim domu. Możesz udać się na północ (1) lub na zachód (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ą. Możesz skierować się na zachód (1), wschód (2) lub północ (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 podnóża Gór Niebotycznych. Zza kamienia wygląda mały świstak."

1205 PRINT "Możesz pożyczyć coś świstakowi (1)."

1206 PRINT "Możesz iść na północ (2) lub wschód (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 pożyczyć?"

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 skąd ty weźmiesz ";pr$;"?"

1255 PRINT "Dziękuję! - mówi świstak."

1260 GOTO 1206

1300 PRINT "Ogród przed domem. Jest tu jabłko, marchewka i kartofel."

1305 PRINT "Możesz wziąć jeden z przedmiotów (1)."

1310 PRINT "Możesz skierować się na północ (2), południe (3) lub zachód (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 leży szyszka, kij i grzyb."

1405 PRINT "Możesz wziąć jeden z przedmiotów (1)."

1410 PRINT "Możesz skierować się na północ (2), południe (3), wschód (4) lub zachód (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 zająca.

1505 PRINT "Możesz pożyczyć coś zającowi (1)."

1510 PRINT "Możesz iść na północ (2), południe (3) lub wschód (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 pożyczyć?"

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 skąd ty weźmiesz ";pr$;"?"

1565 PRINT "Dziękuję! - mówi zając."

1570 GOTO 1510

1600 PRINT "Słoneczna łąka pod lasem. Ktoś tu chyba jadł śniadanie, bo zostawił łyżkę,"

1605 PRINT "jajko i ser."

1610 PRINT "Możesz wziąć jeden z przedmiotów (1)."

1615 PRINT "Możesz iść na południe (2) lub zachód (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 "Możesz pożyczyć coś sowie (1)."

1710 PRINT "Możesz iść na południe (2), wschód (3) lub zachód (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 pożyczyć?"

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 skąd ty weźmiesz ";pr$;"?"

1765 PRINT "Dziękuję! - mówi sowa."

1770 GOTO 1710

1800 PRINT "Mostek nad strumieniem. Niestety, tak się chwieje, że nie można po nim przejść."

1805 PRINT "Obok stoi smutny krasnal."

1810 PRINT "Możesz pożyczyć coś krasnalowi (1)."

1815 PRINT "Możesz iść na południe (2) lub wschód (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 pożyczyć?"

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 skąd ty weźmiesz ";pr$;"?"

1865 IF pr$="kij" THEN GOTO 1880

1870 PRINT "Dziękuję! - mówi 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 ścieżki."

1905 PRINT "Możesz skierować się na północ (1) lub wschód (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 tysiąc lat. Pod drzewem siedzi lis."

2005 PRINT "Możesz pożyczyć coś lisowi (1)."

2010 PRINT "Możesz iść na północ (2) lub zachód (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 pożyczyć?"

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 skąd ty weźmiesz ";pr$;"?"

2060 IF odp4$="grzebyk" THEN GOTO 2075

2065 PRINT "Dziękuję! - mówi lis."

2070 GOTO 2010

2075 PRINT "Lis, znany elegant czesze swój wspaniały ogon."

2080 PRINT "Wiem, że szukasz kwiatu paproci. Rośnie on w Głuchym Borze."

2085 PRINT "Jedyna droga tam prowadzi przez moja norę. Chodź, zaprowadzę cię."

2090 GOTO 2300

2100 PRINT "W zaroślach śpi dzik."

2105 Możesz pożyczyć coś dzikowi (1)."

2110 PRINT "Możesz iść na południe (2) lub wschód (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 pożyczyć?"

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 skąd ty weźmiesz";pr$;"?"

2155 PRINT "Odczep się! - mówi dzik."

2160 GOTO 2100

2200 PRINT "Ktoś tu jednak bywa. Pod krzakiem leżą jakieś śmieci - papier, kubek, grzebyk."

2205 PRINT "Możesz iść na południe (1) lub zachód (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 "Głuchy Bór. Nie słychać nawet śpiewu ptaków,"

2310 PRINT "Możesz skierować się na północ (1) lub wschód (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 "Możesz pożyczyć coś krukowi (1)."

2410 PRINT "Możesz iść na północ (2) lub zachód (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 pożyczyć 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 skąd weźmiesz ";pr$;"?"

2450 PRINT "Dziękuję serdecznie, mieć ";pr$;" było zawsze moim marzeniem ."

2455 GOTO 2410

2500 PRINT "A skąd się to tutaj wzięło?. W środku lasu miotła, odkurzacz i froterka."

2505 PRINT "Możesz wziąć jeden przedmiot (1)"

2510 PRINT "Możesz iść na południe (2) lub wschód (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 gałęzi, nad głębokim jarem siedzi łasica."

2605 PRINT "Możesz iść na południe (1) lub zachód (2). Możesz 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 "Dziękuję! - mówi łasica."

2670 GOTO 2600

2675 PRINT "Miły jesteś - mówi łasica - wiem, że szukasz kwiatu paproci."

2680 PRINT "Jest za tym jarem. Pokażę ci jak dostać się tam po gałęziach drzew."

2685 GOTO 2700

2700 PRINT "Chatka z piernika, a w niej czarownica. Obok kwitnie paproć."

2703 PRINT "Możesz dać prezent czarownicy (1)."

2705 PRINT "Możesz 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 skąd weźmiesz ";pr$;"?"

2745 IF pr$="jabłko" 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ę poczęstuj się piernikiem z mojej chatki."

2770 PRINT "Oczywiście kwiat paproci należy do ciebie!"

2775 PRINT "Zwyciężyłeś, gratuluję!"

2780 END

2800 PRINT "Czary-mary, diabeł stary... - mruczy pod nosem czarownica."

2805 PRINT "Zrywa się straszny wiatr, zapada zmrok..."

2810 GOTO 1015

