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