10 PRINT "   Podr w czasie"
15 PRINT "   (c) 1987 Artur Buchajczuh"
20 DIM A$(1)
100 PRINT 
105 PRINT "Pewnego dnia, sprztajc strych znalaze pamitnik twego dziadka. Jego tre okazaa si nadzwyczajna! Ot przodek twj skonstruowa maszyn mogc przemieszcza w czasie i przestrzeni!!! Zaprogramowa j i wyruszy w podr."
110 PRINT "Stao si jednak nieszczcie, gdzie w przeszoci zagin zoty krg (specjalnie oznaczony), ktry dawa maszynie nieograniczone moliwoci. Od tej pory mona byo przenosi si jedynie w te miejsca, ktre zostay wybrane jako pierwsze."
115 PRINT "Dziadek znudzi si i zamurowa maszyn w cianie piwnicy. Rozbij cian, wycignij maszyn i w drog na poszukiwanie zotego krgu. Oto s pierwsze miejsca, w ktre moesz si wybra. Decyduj. Albo Polska za czasw Mieszka ";
120 PRINT "(m) lub te okres kiedy na Ziemi panoway 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? Czyby stadion!? Przydao by si sprawdzi, kto stwierdzi, e nasi przodkowie nie grali w pik! A swoj drog przypatrz si czy nie wida tu naszego krgu, Najlepiej zapytaj kogo."
210 PRINT "Po jednej stronie trybun siedz kmiecie (k) a po drugiej, w loy, 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 mg przypuszcza, e w tych czasach mona znale jakikolwiek drogowskaz. A jednak jest - DO PTERODAKTYLA. Oto i jego gniazdko. Po dugiej wspinaczce stwierdzasz, e w gniedzie siedzi urocze straszydo, ktre nic dzisiaj nie jado ";
310 PRINT "a ciebie lubi chyba jedynie jako zaksk. 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 "Wybrae kmiecia, pytasz go delikatnie czy widzia zoty krg, a moe sysza o nim. Nie, nic o tym nie wie, moe u krla w skarbcu?"
410 PRINT "Wybieraj: idziesz do krla (k) przenosisz si do Ameryki w czasy Aztekw (a) lub do Anglii z czasw 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 loy. A wic naprzd! Id szybko przed tron, bo kto gotw ci zatrzyma. Uko si i jak najgrzeczniej potrafisz zapytaj - Krlu, czy masz w skarbcu duy zoty krg?"
510 PRINT "Krl troch niedowidzi i wzi ci za bazna (nie obraaj si, gorzej by byo, gdyby wzi ci za zodzieja). A e baznowi wolno wiele, krl da ci odpowied - Nie mam, mj banie."
515 PRINT "No c, jak nie ma to nie ma. Czas rusza dalej. Wybieraj: albo do Ameryki w czasy Aztekw (a), albo do Anglii w czasy Robin Hooda (r) albo na trybuny do kmieciw (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. Moesz i nad rzek (r), w gry (g) lub lecie dalej do Ameryki w czasy Aztekw (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 "Odcie lin i spade, Niestety, zamae nog i zanim dowleczesz si do gstwiny ptaszek zeskoczy na d, gdzie bdzie na niego czeka gotowy obiadek (ty bdziesz gwnym daniem!)."
710 END 
800 PRINT 
805 PRINT "Jaka wspaniaa rzeka (bez ciekw i krokodyli), a kusi eby si wykpa (w). Mona take wybra si w gry (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 "Gry to gry! Uwaaj, czyha tu wiele niebezpieczestw. A to co!? Kt tu jada obiadki? Jeeli chcesz si dowiedzie, odwr si... Zzzdaje ssi, e tto ty... ty...ranozaur. Szybko, zrb 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 "Ciepa czysta woda, w dodatku nie ma krokodyli! Krokodyli? Krokodyli owszem, ale c to pynie? Ichtiozaur! Szybko, do brzegu! Niestety, ju za pno, cignie ci na gbin, egnaj mamo, tato - koniec przygd."
1010 END 
1100 PRINT 
1105 PRINT "Bro, ktr dysponujesz jest dobra na pterodaktyla, lecz nie na t gr misa. Rozdepta ci, nie wiedzc nawet, e prbowae si broni."
1110 END 
1200 PRINT 
1205 PRINT "Jaskinia jest do bezpiecznym miejscem o ile si z niej nie wychyla. Poczekaj a tyranozaur pjdzie dalej, a potem szybko wracaj do pojazdu i ruszaj w dalsz drog. Do Ameryki (a) albo do Anglii z czasw 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 trafie na zebranie, posuchaj:"
1310 PRINT "- Uwaga! Uwaga! Zwouj narad 1320567143 wszystkich Indian. Poniewa ostatnim razem 23,44% wagarowao, dzisiaj sprawdz obecno. Kogo nie ma niech si odezwie!!! Wszyscy s? Wic moemy zaczyna."
1315 PRINT "Zebralimy si tutaj by stwierdzi, po co si zebralimy. S propozycje? Nie ma? Moemy si wic rozej. Przypominam, e Stranikami krgu s: Spalony Wigwam i Mylcy Osio."
1320 PRINT "Dziwne towarzystwo, w dodatku mwi co o krgu! Jak si nie myl, ley on na tym cokole. Masz do wyboru: rozbuja si na linie i przechwyci krg (l), strzeli do stranikw (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 zakrtu wyjeda wz. Nagle z lasu wyskakuj banici, wskakuj na wz a nastpnie wyrzucaj z niego pkate worki. Jeden z banitw dwiga zot pigu! ";
1410 PRINT "Czyby zoty krg wpad w rce Robin Hooda. Wybieraj: idziesz za nimi teraz (t) albo szukasz pniej 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 "Naprzd! Niestety zapomniae, e do tego trzeba zwinnoci Tarzana (ktrej niestety nie posiadasz). Nim wic doleciae do celu rozbie si o jedn z wielu kolumn."
1510 END 
1600 PRINT 
1605 PRINT "Wybrae upienie stranikw. Nic dziwnego, stanowi atwy cel. Raz, dwa, trzy i po wszystkim! Teraz biegiem po krg. A niech to!!! Przecie to nie on, Tyle pracy, wysiku, nerww kosztowao zdobycie kawaka zota! Nie biadol, ";
1610 PRINT "lecz ruszaj w dalsz drog do Japonii (t) albo do Anglii na dwr krla 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 zrb dzisiaj. Niech to bdzie 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 usadw si na jednym z drzew. Nadchodz. ";
1710 PRINT "Pooyli worki pod 'twoim' drzewem. Moesz si przyjrze dokadnie pigule, ktra rwnie tam ley. Ale ona nie ma znakw. No c, dae si nabra. Musisz teraz czeka do rana, gdy wszyscy pjd w okolice drogi (w wiadomych celach). ";
1715 PRINT "Wtedy pjdziesz ich ladem do statku, a potem w dalsz podr do Japonii (t) lub Anglii, na dwr krla 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 "Zblia si noc, czas rusza. Strasznie ciemno, znacz drzewa, by potem mc wrci! C ta droga tak si duy, idziesz ju godzin i nie znalaze adnych ladw. Odpoczniesz sobie pod tym drzewem, moe co wymylisz. ";
1810 PRINT "Wida na nim jakie znaki. Przecie to twoje strzaki i to osiem sztuk! Zgubie drog, wtpliwe czy kiedykolwiek wyjdziesz z tej puszczy. Koniec zabawy z czasem. Czeka ci smutna rzeczywisto. Pozostaniesz tu do koca ";
1815 PRINT "ycia, jedzc tylko korzonki, grzyby i zielony mech."
1820 END 
1900 PRINT 
1905 PRINT "Ot i upragniona Japonia. Ruszaj na poszukiwanie krgu! W dali wida paac 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 okrgy st. (Pomysowy krl Artur wymyli go, gdy dowiedzia si, e ma by zasztyletowany na jego rogu.) Co za szczcie - cay stos zotych krgw. Poprosisz krla by pozwoli ci je obejrze (p) ";
2010 PRINT "albo po cichu je 'poyczasz' (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 "Wspaniay paac! Przy wejciu stoj strae. Biedacy, pi sobie. Niech chrapi dalej, nie mylisz chyba ich budzi? Teraz po cichutku, na paluszkach wejd do rodka. Ten duy korytarz prowadzi chyba do komnaty Wsioguna. ";
2110 PRINT "Ot i ona. Odsu drzwi a zobaczysz waciciela tych ziem. Uko si i szybko - by nie zdy ci przerwa - powiedz po co przybye. Niestety, Wsiogun odwrci si i pokazujc palcem na czoo powiedzia:"
2115 PRINT "- Czowieku, zrb se puku! Czy nie wiesz, e od czasu gdy mj dziadek udawi si srebrnym krkiem ten wzr jest zabroniony?"
2120 PRINT "Co za pech, trzeba rusza dalej. Wybieraj: ostatni rok wojny Trojaskiej (t) albo Egipt za czasw faraonw (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! Uwaaj, zdaje si, e stoisz na kocu szaty jakiego samuraja. Trzeba bra nogi za pas!!! W lewo, w prawo, prosto. Niech to! Ulica si koczy! Przepa (p) przed tob, wcieky 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 naprzd! Tym razem to prawdziwy koniec przygd. Wtpi, czy kto przeyje upadek z wysokoci 40 metrw."
2310 END 
2400 PRINT 
2405 PRINT "Jaaaaaaaa!!!"
2410 PRINT "Nie bj si, to by ostatni krzyk tego zabijaki. Biedak le obliczy odlego."
2415 PRINT "Nie jest tu zbyt bezpiecznie. Czas lecie dalej. Wybieraj: albo ostatni rok Wojny Trojaskiej (t) albo Egipt za czasw faraonw (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 szczcie umiechno si do ciebie. Krl wchodzi wanie na narad. Powiedz mu o co chodzi, a dowiesz si, e wszystkie krgi otrzyma od wujka i nie ma wrd nich twojego."
2510 PRINT "Musisz lecie dalej. Przed tob ostatni rok Wojny Trojaskiej (t) lub Egipt za czasw faraonw (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 krkw, a teraz jeden do woreczka i ... C to tak wyje!? Czyby dziaa tu system alarmowy? Trzeba uciekaj lecz wszystkie drzwi s zamknite kratami. Jest ju krl 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 moe by pomyki! Przecie to s zote krgi! Jeden z nich jest specjalnie oznaczony!!! Jak go zdoby? ";
2710 PRINT "Wspi si po niego (w), czy ostrzec mieszkacw o podstpie Achajw (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 gorco. Widzisz dwie drogi. Jedna do paacu 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 "Postanowie sam zaatwi t spraw - prosz bardzo! Obejmij nog konia i w gr. Przeczogaj si po grzbiecie, po karku, jeste ju midzy uszami. Prbujesz uchwyci krg."
2910 PRINT "No c, za bardzo si wychylie, spade i zabie si na mier!"
2915 END 
3000 PRINT 
3005 PRINT "Zrb troch haasu. Krzycz, e w koniu siedz Grecy, a zaraz na ulic wybiegn gromady Trojan. Rozpocznie si walka, w ktrej kto podpali konika. Runie on na bruk, robic jeszcze wiksze zamieszanie."
3010 PRINT "Korzystajc z tego, dosta si do gowy konia, wycignij oko, wr do statku, a potem do domu!"
3015 GOTO 3300
3100 PRINT 
3105 PRINT "Lektyka faraona! Bdzie co wspomina jak wrcisz. Czemu ten facet jest taki smutny? Spytaj go o zoty krg, moe go to rozweseli."
3110 PRINT "Twierdzi, e ma w skarbcu 80 tysicy zotych krkw i moe ci je udostpni jeeli przyspieszysz budow piramidy. Prace stany, gdy zatrudni na budowie Polakw."
3115 PRINT "Nic atwiejszego, wystarczy zapowiedzie przyjazd telewizji. Powiedz to faraonowi i moesz wej do skarbca. Czeka ci teraz kilka tygodni pracy by stwierdzi, e ... nie ma tu krgu!"
3120 PRINT "Teraz nie masz wyboru. Musisz lecie do Troi, gdy jest to ostatnia pozycja na licie dziadka."
3125 INPUT A$
3130 GOTO 2700
3200 PRINT 
3205 PRINT "Jeste pod piramid. C to, robotnicy leakuj! Co tu si dzieje? Spytaj przechodzcego Egipcjanina. Za odpowied da krowy lub byka. Powiedz, e byk bdzie po udzieleniu odpowiedzi. Suchaj co mwi! Przecie to nasi rodacy tu robi. ";
3210 PRINT "Mieli odda piramid rok przed terminem a prace przecigny si ju o 20 lat. To brak cementu, to kurzych jajek. Po naprawie sfinks rozlecia si cakowicie."
3215 PRINT "Krgu 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 "Wszdzie dobrze, ale w domu najlepiej!"
3310 END 
