10 PRINT "   Podróż w czasie"

15 PRINT "   (c) 1987 Artur Buchajczuh"

20 DIM A$(1)

100 PRINT 

105 PRINT "Pewnego dnia, sprzątając strych znalazłeś pamiętnik twego dziadka. Jego treść okazała się nadzwyczajna! Otóż przodek twój skonstruował maszynę mogącą przemieszczać w czasie i przestrzeni!!! Zaprogramował ją i wyruszył w podróż."

110 PRINT "Stało się jednak nieszczęście, gdzieś w przeszłości zaginął złoty krąg (specjalnie oznaczony), który dawał maszynie nieograniczone możliwości. Od tej pory można było przenosić się jedynie w te miejsca, które zostały wybrane jako pierwsze."

115 PRINT "Dziadek znudził się i zamurował maszynę w ścianie piwnicy. Rozbij ścianę, wyciągnij maszynę i w drogę na poszukiwanie złotego kręgu. Oto są pierwsze miejsca, w które możesz się wybrać. Decyduj. Albo Polska za czasów Mieszka ";

120 PRINT "(m) lub też okres kiedy na Ziemi panowały dinozaury (d)."

125 INPUT A$

130 IF A$="m" THEN GOTO 200

135 IF A$="d" THEN GOTO 300

140 GOTO 100

200 PRINT 

205 PRINT "A to co? Czyżby stadion!? Przydało by się sprawdzić, kto stwierdził, że nasi przodkowie nie grali w piłkę! A swoją drogą przypatrz się czy nie widać tu naszego kręgu, Najlepiej zapytaj kogoś."

210 PRINT "Po jednej stronie trybun siedzą kmiecie (k) a po drugiej, w loży, Mieszko (m)."

215 INPUT A$

220 IF A$="k" THEN GOTO 400

225 IF A$="m" THEN GOTO 500

230 GOTO 200

300 PRINT 

305 PRINT "Któż mógł przypuszczać, że w tych czasach można znaleźć jakikolwiek drogowskaz. A jednak jest - DO PTERODAKTYLA. Oto i jego gniazdko. Po długiej wspinaczce stwierdzasz, że w gnieździe siedzi urocze straszydło, które nic dzisiaj nie jadło ";

310 PRINT "a ciebie lubi chyba jedynie jako zakąskę. Strzelasz do niego (s) czy odcinasz linę (l)?"

315 INPUT A$

320 IF A$="s" THEN GOTO 600

325 IF A$="l" THEN GOTO 700

330 GOTO 300

400 PRINT 

405 PRINT "Wybrałeś kmiecia, pytasz go delikatnie czy widział złoty krąg, a może słyszał o nim. Nie, nic o tym nie wie, może u króla w skarbcu?"

410 PRINT "Wybieraj: idziesz do króla (k) przenosisz się do Ameryki w czasy Azteków (a) lub do Anglii z czasów Robin Hooda (r)."

415 INPUT A$

420 IF A$="k" THEN GOTO 500

425 IF A$="a" THEN GOTO 1300

430 IF A$="r" THEN GOTO 1400

435 GOTO 400

500 PRINT 

505 PRINT "Oto drzwi do loży. A więc naprzód! Idź szybko przed tron, bo ktoś gotów cię zatrzymać. Ukłoń się i jak najgrzeczniej potrafisz zapytaj - Królu, czy masz w skarbcu duży złoty krąg?"

510 PRINT "Król trochę niedowidzi i wziął cię za błazna (nie obrażaj się, gorzej by było, gdyby wziął cię za złodzieja). A że błaznowi wolno wiele, król dał ci odpowiedź - Nie mam, mój błaźnie."

515 PRINT "No cóż, jak nie ma to nie ma. Czas ruszać dalej. Wybieraj: albo do Ameryki w czasy Azteków (a), albo do Anglii w czasy Robin Hooda (r) albo na trybuny do kmieciów (k)."

520 INPUT A$

525 IF A$="a" THEN GOTO 1300

530 IF A$="r" THEN GOTO 1400

535 IF A$="k" THEN GOTO 400

540 GOTO 500

600 PRINT 

605 PRINT "Strzelaj i schodź jak najszybciej na dół zanim przyleci jego mama. Możesz iść nad rzekę (r), w góry (g) lub lecieć dalej do Ameryki w czasy Azteków (a) czy też do Anglii ok. roku 1200 (m)."

610 INPUT A$

615 IF A$="r" THEN GOTO 800

620 IF A$="g" THEN GOTO 900

625 IF A$="a" THEN GOTO 1300

630 IF A$="m" THEN GOTO 1400

635 GOTO 600

700 PRINT 

705 PRINT "Odciąłeś linę i spadłeś, Niestety, złamałeś nogę i zanim dowleczesz się do gęstwiny ptaszek zeskoczy na dół, gdzie będzie na niego czekał gotowy obiadek (ty będziesz głównym daniem!)."

710 END 

800 PRINT 

805 PRINT "Jaka wspaniała rzeka (bez ścieków i krokodyli), aż kusi żeby się wykąpać (w). Można także wybrać się w góry (g)."

810 INPUT A$

815 IF A$="w" THEN GOTO 1000

820 IF A$="g" THEN GOTO 900

825 GOTO 800

900 PRINT 

905 PRINT "Góry to góry! Uważaj, czyha tu wiele niebezpieczeństw. A to co!? Któż tu jada obiadki? Jeżeli chcesz się dowiedzieć, odwróć się... Zzzdaje ssię, że tto ty... ty...ranozaur. Szybko, zrób coś! Strzelaj do niego (s) albo biegiem do jaskini (g)."

910 INPUT A$

915 IF A$="s" THEN GOTO 1100

920 IF A$="g" THEN GOTO 1200

925 GOTO 900

1000 PRINT 

1005 PRINT "Ciepła czysta woda, w dodatku nie ma krokodyli! Krokodyli? Krokodyli owszem, ale cóż to płynie? Ichtiozaur! Szybko, do brzegu! Niestety, już za późno, ciągnie cię na głębinę, żegnaj mamo, tato - koniec przygód."

1010 END 

1100 PRINT 

1105 PRINT "Broń, którą dysponujesz jest dobra na pterodaktyla, lecz nie na tę górę mięsa. Rozdeptał cię, nie wiedząc nawet, że próbowałeś się bronić."

1110 END 

1200 PRINT 

1205 PRINT "Jaskinia jest dość bezpiecznym miejscem o ile się z niej nie wychyla. Poczekaj aż tyranozaur pójdzie dalej, a potem szybko wracaj do pojazdu i ruszaj w dalszą drogę. Do Ameryki (a) albo do Anglii z czasów Robin Hooda (r)."

1210 INPUT A$

1215 IF A$="a" THEN GOTO 1300

1220 IF A$="r" THEN GOTO 1400

1225 GOTO 1200

1300 PRINT 

1305 PRINT "Oto Aztekowie, zdaje się, że trafiłeś na zebranie, posłuchaj:"

1310 PRINT "- Uwaga! Uwaga! Zwołuję naradę 1320567143 wszystkich Indian. Ponieważ ostatnim razem 23,44% wagarowało, dzisiaj sprawdzę obecność. Kogo nie ma niech się odezwie!!! Wszyscy są? Więc możemy zaczynać."

1315 PRINT "Zebraliśmy się tutaj by stwierdzić, po co się zebraliśmy. Są propozycje? Nie ma? Możemy się więc rozejść. Przypominam, że Strażnikami kręgu są: Spalony Wigwam i Myślący Osioł."

1320 PRINT "Dziwne towarzystwo, w dodatku mówią coś o kręgu! Jak się nie mylę, leży on na tym cokole. Masz do wyboru: rozbujać się na linie i przechwycić krąg (l), strzelić do strażników (s)."

1325 INPUT A$

1330 IF A$="l" THEN GOTO 1500

1335 IF A$="s" THEN GOTO 1600

1340 GOTO 1300

1400 PRINT 

1405 PRINT "Oto i upragniona Anglia. Zdaje się, że stoisz na drodze. Zza zakrętu wyjeżdża wóz. Nagle z lasu wyskakują banici, wskakują na wóz a następnie wyrzucają z niego pękate worki. Jeden z banitów dźwiga złotą pigułę! ";

1410 PRINT "Czyżby złoty krąg wpadł w ręce Robin Hooda. Wybieraj: idziesz za nimi teraz (t) albo szukasz później czyli nocą (n)."

1415 INPUT A$

1420 IF A$="t" THEN GOTO 1700

1425 IF A$="n" THEN GOTO 1800

1430 GOTO 1400

1500 PRINT 

1505 PRINT "Naprzód! Niestety zapomniałeś, że do tego trzeba zwinności Tarzana (której niestety nie posiadasz). Nim więc doleciałeś do celu rozbiłeś się o jedną z wielu kolumn."

1510 END 

1600 PRINT 

1605 PRINT "Wybrałeś uśpienie strażników. Nic dziwnego, stanowią łatwy cel. Raz, dwa, trzy i po wszystkim! Teraz biegiem po krąg. A niech to!!! Przecież to nie on, Tyle pracy, wysiłku, nerwów kosztowało zdobycie kawałka złota! Nie biadol, ";

1610 PRINT "lecz ruszaj w dalszą drogę do Japonii (t) albo do Anglii na dwór króla Artura (a)."

1615 INPUT A$

1620 IF A$="t" THEN GOTO 1900

1625 IF A$="a" THEN GOTO 2000

1630 GOTO 1600

1700 PRINT 

1705 PRINT "Co masz zrobić jutro zrób dzisiaj. Niech to będzie twoją dewizą. Teraz szybko za nimi bo znikną w lesie! Idą, idą a obozu nie widać. Nie irytuj się, w dali chyba widać ognisko. Wyprzedź ich i usadów się na jednym z drzew. Nadchodzą. ";

1710 PRINT "Położyli worki pod 'twoim' drzewem. Możesz się przyjrzeć dokładnie pigule, która również tam leży. Ależ ona nie ma znaków. No cóż, dałeś się nabrać. Musisz teraz czekać do rana, gdy wszyscy pójdą w okolice drogi (w wiadomych celach). ";

1715 PRINT "Wtedy pójdziesz ich śladem do statku, a potem w dalszą podróż do Japonii (t) lub Anglii, na dwór króla Artura (a)."

1720 INPUT A$

1725 IF A$="t" THEN GOTO 1900

1730 IF A$="a" THEN GOTO 2000

1735 GOTO 1700

1800 PRINT 

1805 PRINT "Zbliża się noc, czas ruszać. Strasznie ciemno, znacz drzewa, by potem móc wrócić! Cóż ta droga tak się dłuży, idziesz już godzinę i nie znalazłeś żadnych śladów. Odpoczniesz sobie pod tym drzewem, może coś wymyślisz. ";

1810 PRINT "Widać na nim jakieś znaki. Przecież to twoje strzałki i to osiem sztuk! Zgubiłeś drogę, wątpliwe czy kiedykolwiek wyjdziesz z tej puszczy. Koniec zabawy z czasem. Czeka cię smutna rzeczywistość. Pozostaniesz tu do końca ";

1815 PRINT "życia, jedząc tylko korzonki, grzyby i zielony mech."

1820 END 

1900 PRINT 

1905 PRINT "Otóż i upragniona Japonia. Ruszaj na poszukiwanie kręgu! W dali widać pałac Wsioguna (w) a w dole Edo (e). Wybieraj."

1910 INPUT A$

1915 IF A$="w" THEN GOTO 2100

1920 IF A$="e" THEN GOTO 2200

1925 GOTO 1900

2000 PRINT 

2005 PRINT "Wielka sala, na środku okrągły stół. (Pomysłowy król Artur wymyślił go, gdy dowiedział się, że ma być zasztyletowany na jego rogu.) Co za szczęście - cały stos złotych kręgów. Poprosisz króla by pozwolił ci je obejrzeć (p) ";

2010 PRINT "albo po cichu je 'pożyczasz' (l)."

2015 INPUT A$

2020 IF A$="p" THEN GOTO 2500

2025 IF A$="l" THEN GOTO 2600

2030 GOTO 2000

2100 PRINT 

2105 PRINT "Wspaniały pałac! Przy wejściu stoją straże. Biedacy, śpią sobie. Niech chrapią dalej, nie myślisz chyba ich budzić? Teraz po cichutku, na paluszkach wejdź do środka. Ten duży korytarz prowadzi chyba do komnaty Wsioguna. ";

2110 PRINT "Otóż i ona. Odsuń drzwi a zobaczysz właściciela tych ziem. Ukłoń się i szybko - by nie zdążył ci przerwać - powiedz po co przybyłeś. Niestety, Wsiogun odwrócił się i pokazując palcem na czoło powiedział:"

2115 PRINT "- Człowieku, zrób se puku! Czy nie wiesz, że od czasu gdy mój dziadek udławił się srebrnym krążkiem ten wzór jest zabroniony?"

2120 PRINT "Co za pech, trzeba ruszać dalej. Wybieraj: ostatni rok wojny Trojańskiej (t) albo Egipt za czasów faraonów (f)."

2125 INPUT A$

2130 IF A$="t" THEN GOTO 2700

2135 IF A$="f" THEN GOTO 2800

2140 GOTO 2100

2200 PRINT 

2205 PRINT "Ruch jak w Japonii! Uważaj, zdaje się, że stoisz na końcu szaty jakiegoś samuraja. Trzeba brać nogi za pas!!! W lewo, w prawo, prosto. Niech to! Ulica się kończy! Przepaść (p) przed tobą, wściekły samuraj za tobą (s). Wybieraj."

2210 INPUT A$

2215 IF A$="p" THEN GOTO 2300

2220 IF A$="s" THEN GOTO 2400

2225 GOTO 2200

2300 PRINT 

2305 PRINT "A jednak naprzód! Tym razem to prawdziwy koniec przygód. Wątpię, czy ktoś przeżyje upadek z wysokości 40 metrów."

2310 END 

2400 PRINT 

2405 PRINT "Jaaaaaaaa!!!"

2410 PRINT "Nie bój się, to był ostatni krzyk tego zabijaki. Biedak źle obliczył odległość."

2415 PRINT "Nie jest tu zbyt bezpiecznie. Czas lecieć dalej. Wybieraj: albo ostatni rok Wojny Trojańskiej (t) albo Egipt za czasów faraonów (f)."

2420 INPUT A$

2425 IF A$="t" THEN GOTO 2700

2430 IF A$="f" THEN GOTO 2800

2435 GOTO 2400

2500 PRINT 

2505 PRINT "Znowu szczęście uśmiechnęło się do ciebie. Król wchodzi właśnie na naradę. Powiedz mu o co chodzi, a dowiesz się, że wszystkie kręgi otrzymał od wujka i nie ma wśród nich twojego."

2510 PRINT "Musisz lecieć dalej. Przed tobą ostatni rok Wojny Trojańskiej (t) lub Egipt za czasów faraonów (f)."

2515 INPUT A$

2520 IF A$="t" THEN GOTO 2700

2525 IF A$="f" THEN GOTO 2800

2530 GOTO 2500

2600 PRINT 

2605 PRINT "Cichutko, wolniutko podejdź do krążków, a teraz jeden do woreczka i ... Cóż to tak wyje!? Czyżby działał tu system alarmowy? Trzeba uciekaj lecz wszystkie drzwi są zamknięte kratami. Jest już król z rycerzami. ";

2610 PRINT "Za chwilę znajdziesz się w lochu, a jutro oddadzą cię katu. (A swoją drogą system Omega jest niezawodny!) Kupujcie zegarki firmy Omega, gwarantują..."

2615 END 

2700 PRINT 

2705 PRINT "Olbrzymi dziedziniec, na środku stoi zrobiony z drewna koń. Przypatrz się z czego ma zrobione oczy! Tym razem nie może być pomyłki! Przecież to są złote kręgi! Jeden z nich jest specjalnie oznaczony!!! Jak go zdobyć? ";

2710 PRINT "Wspiąć się po niego (w), czy ostrzec mieszkańców o podstępie Achajów (o). Wybieraj!"

2715 INPUT A$

2720 IF A$="w" THEN GOTO 2900

2725 IF A$="o" THEN GOTO 3000

2730 GOTO 2700

2800 PRINT 

2805 PRINT "Jesteś w Egipcie. Strasznie tu gorąco. Widzisz dwie drogi. Jedna do pałacu faraona (f), druga na budowę piramidy (p)."

2810 INPUT A$

2815 IF A$="f" THEN GOTO 3100

2820 IF A$="p" THEN GOTO 3200

2825 GOTO 2800

2900 PRINT 

2905 PRINT "Postanowiłeś sam załatwić tę sprawę - proszę bardzo! Obejmij nogę konia i w górę. Przeczołgaj się po grzbiecie, po karku, jesteś już między uszami. Próbujesz uchwycić krąg."

2910 PRINT "No cóż, za bardzo się wychyliłeś, spadłeś i zabiłeś się na śmierć!"

2915 END 

3000 PRINT 

3005 PRINT "Zrób trochę hałasu. Krzycz, że w koniu siedzą Grecy, a zaraz na ulicę wybiegną gromady Trojan. Rozpocznie się walka, w której ktoś podpali konika. Runie on na bruk, robiąc jeszcze większe zamieszanie."

3010 PRINT "Korzystając z tego, dostań się do głowy konia, wyciągnij oko, wróć do statku, a potem do domu!"

3015 GOTO 3300

3100 PRINT 

3105 PRINT "Lektyka faraona! Będzie co wspominać jak wrócisz. Czemu ten facet jest taki smutny? Spytaj go o złoty krąg, może go to rozweseli."

3110 PRINT "Twierdzi, że ma w skarbcu 80 tysięcy złotych krążków i może ci je udostępnić jeżeli przyspieszysz budowę piramidy. Prace stanęły, gdyż zatrudnił na budowie Polaków."

3115 PRINT "Nic łatwiejszego, wystarczy zapowiedzieć przyjazd telewizji. Powiedz to faraonowi i możesz wejść do skarbca. Czeka cię teraz kilka tygodni pracy by stwierdzić, że ... nie ma tu kręgu!"

3120 PRINT "Teraz nie masz wyboru. Musisz lecieć do Troi, gdyż jest to ostatnia pozycja na liście dziadka."

3125 INPUT A$

3130 GOTO 2700

3200 PRINT 

3205 PRINT "Jesteś pod piramidą. Cóż to, robotnicy leżakują! Co tu się dzieje? Spytaj przechodzącego Egipcjanina. Za odpowiedź żąda krowy lub byka. Powiedz, że byk będzie po udzieleniu odpowiedzi. Słuchaj co mówi! Przecież to nasi rodacy tu robią. ";

3210 PRINT "Mieli oddać piramidę rok przed terminem a prace przeciągnęły się już o 20 lat. To brak cementu, to kurzych jajek. Po naprawie sfinks rozleciał się całkowicie."

3215 PRINT "Kręgu tu nie znajdziemy, Lecimy wiec dalej, do faraona (f) albo do Troi (t). A oto byk dla egipskiego PSZYJACIELA."

3220 INPUT A$

3225 IF A$="f" THEN GOTO 3100

3230 IF A$="t" THEN GOTO 2700

3235 GOTO 3200

3300 PRINT 

3305 PRINT "Wszędzie dobrze, ale w domu najlepiej!"

3310 END 

