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