Skip to content

Instantly share code, notes, and snippets.

@maly

maly/fuksoft.sna

Last active February 22, 2020 16:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save maly/a7aea04027b493a823e9c98df5d5e155 to your computer and use it in GitHub Desktop.
Save maly/a7aea04027b493a823e9c98df5d5e155 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fuksoft.sna
0 CLEAR :RANDOMIZE USR VAL "63850":POKE VAL "23607",VAL "249":DIM W$(VAL "135-55",INT PI ):GO SUB VAL "5E3":POKE VAL "63035",VAL "235":POKE VAL "23658",VAL "8":LET SMRT=BIN :POKE VAL "23609",VAL "10":POKE VAL "63171",VAL "7":POKE VAL "63172",VAL "211":BRIGHT SGN PI :POKE VAL "63173",VAL "254":INK VAL "6":BORDER BIN :OVER BIN :PAPER BIN :CLS
1 LET BUM=VAL "0":LET RANA=VAL "-1":LET KOTW=VAL "0":LET PLAMEN=NOT PI :LET PAC=NOT PI :LET OKNO=NOT PI :LET Q$=" "
2 GO SUB VAL "9950"
3 LET Z$="@":LET R$="@"
6 BORDER 2:BORDER 6:BORDER 0
7 IF INKEY$ <> "" THEN INK 6:CLS :LET A=100:DIM C$(4):GO TO 9
8 GO TO 6
9 DRAW 255,0:DRAW 0,175:DRAW -255,0:DRAW 0,-175:PRINT AT 0,12;"FUKSOFT":PRINT ';OVER 1;" VITAJ TIM COLEMAN! PO TVOJOM USPECHU V AFERE 'PODRAZ III' MAM PRE TEBA TVRDY ORIESOK.POMSTYCHTIVY JACK RAGGER A JONATHAN FOX SA DOS- TALI DO BYTU F.FUKU A UKRYLI TAM CASOVANU NALOZ. DUFAM, ZE SA ZACHOVAS AKO GENTLEMAN A NENECHAS SVOJHO PRIATELA V STICHU! ARTHUR BROWN P.S. NECHAVAM TI VYTLACIT ZAROVEN OBSIAHLU CHARAKTERISTIKU VSET- KYCH OBYVATELOV V DOME KDE BYVAS SPOLU S FUKOM."
10 PRINT #1;INK 3;" (C)1987 SYBILASOFT":RANDOMIZE USR 63000
15 POKE 23674,0:POKE 23673,0:POKE 23672,0
18 PAUSE 0:GO TO 25
19 PAPER 0:BORDER 0:INK 6:CLS :INK 6:BRIGHT 1:PLOT 0,175:DRAW 255,0:DRAW 0,-48:DRAW -255,0:DRAW 0,8:PLOT 0,168:DRAW 0,7:RESTORE 23
20 BRIGHT 0:FOR x=1 TO 4
21 INK 7:OVER 1:READ A$:PRINT AT X,0;A$:READ A$:PRINT AT X,9;A$:READ a$:PRINT AT x,17;a$:READ a$:PRINT AT x,25;a$:INK 7
22 NEXT x:RETURN
23 DATA "8-VPRAVO","5-VLAVO","7-HORE","6-DOLE","P-POLOZ","V-VEZMI","1-PODAJ","U-POUZI","S-SAVE","L-LOAD","I-INV.","O-OPIS","X-VYTAH","K-KONIEC","H-HOLD","C-CHAR."
25 RESTORE a:LET B=A:READ b$
26 LET d$=b$(5 TO ):FOR x=1 TO 4:LET c$(x)=B$(x TO x)
27 NEXT X:LET B$="":BEEP VAL ".01",VAL "40":GO SUB VAL "67E2":GO SUB VAL "19":GO SUB VAL "1070":GO SUB VAL "760":INPUT INK VAL "6";(D$)''"MOZES IST:";INK VAL "7";+("VLAVO"AND c$(1)<> "#")+(" VPRAVO"AND c$(2)<> "#")+(" HORE"AND c$(3)<> "#")+(" DOLE"AND c$(4)<> "#")''INK 4;"VIDIS ";BRIGHT 1;(P$(FIR)AND FIR<21);(P$(SEC)AND SEC<21);(P$(THR)AND THR<21)'';INK 3;"PRIKAZ: ";LINE e$
28 INPUT "":POKE VAL "23658",VAL "8":IF E$="" THEN GO TO VAL "27"
29 LET G$=E$:LET E$=E$( TO 1):LET f$="5678":FOR x=1 TO 4:IF E$( TO 1)=F$(X TO X) THEN GO TO 34
30 NEXT X
31 GO SUB 200:IF Z$="N" THEN LET Z$="@":GO TO 27
32 IF R$="N" THEN LET R$="@":GO TO 27
33 BEEP .1,45:PRINT #1;" PRIKAZU NEROZUMIEM ! POUZIVAJ LEN HORE UVEDENE ZNAKY!";''''':PAUSE 0:GO TO 27
34 LET a=(CODE (c$(1))AND e$="5"AND C$(1)<> "#")+(CODE (C$(2))AND E$="8"AND C$(2)<> "#")+(CODE (C$(3))AND E$="7"AND C$(3)<> "#")+(CODE (C$(4))AND E$="6"AND C$(4)<> "#"):LET SMRT=(1AND E$="5"AND C$(1)="")+(1AND E$="8"AND C$(2)="")+(1AND E$="7"AND C$(3)="")+(1AND E$="6"AND C$(4)=""):IF SMRT>0 THEN GO TO 7000
35 IF A=0 THEN PRINT #1;" TYMTO SMEROM SA NEDA IST!":PAUSE 0:LET A=B
36 GO TO 25
50 PAUSE 0
58 DATA "###JAMA JE AJ NA TAKU KAPACITU AKO TIM COLEMAN TROCHA PRIHLBOKA. PRI PADE SA TI SICE TROCHA ZATO-CILA HLAVA,ALE VONA STARYCH KRU-MPLI ZO STENSONTRONU TA NEMILO- SRDNE VRATILA DO REALITY.OPROTI TEBE SEDI ZNUDENY AUTOR TEJTO HRY. ""ZDRAVIM TA TIM!POSTIHLA MA ROV-NAKO NEPRIJEMNA VEC AKO TEBA. PO DOKONCENI FUKSOFTU SOM CHCEL SKONTROLOVAT VSETKY MIESTNOSTI, ALE ZABUDOL SOM NA HLBKU JAMY. NEVIEM SA Z NEJ DOSTAT.AK TA O- MRZI SKAKAT HORE TAK SI SO MNOU ZAHRAJ BARBARIAN."""
67 DATA "###JE TO DOST VELKA ODVAHA,VOJST DOPRIESTOROV OVZDUSNOVACA PIVNIC SO ZAPALENOU SVIECKOU.ZRAZU..."
68 DATA "CE##PIVNICA C.1.Z VETRAKU VLAVO PRU-DI SVIEZI VZDUCH OVIEVAJUC STOV-KY VINOVYCH FLASIEK OBSAHUJUCICHHROZNOVY MOK."
69 DATA "#F#:PIVNICA C.2.CEZ UZKY PRIECHOD VLAVO PRUDI CERSTVY VZDUCH SME- ROM VPRAVO K VYCHODU Z PIVNIC. NA ZEMI SA CERNA JAMA.NEZDA SA BYT HLBOKA."
70 DATA "#OCITOL SI SA V ZATUCHLYCH PRIES-TOROCH VLHKYCH PIVNIC.OBCAS PO- CUT SKRABOT POTKANOV A NA TVARI TI ZOSTAVAJU ZAVOJE STARYCH PA- VUCIN."
71 DATA "FH##PIVNICA C.3.PODOBA SA TO TU NA SKLADISTE HOROLEZECKYCH POTRIEB."
72 DATA "G###PIVNICA C.4.PO ZEMI SU ROZSYPANEROZNE CHEMIKALIE."
78 DATA "##X#VISIACE LANO TU KONCI.UZ SI ISTEBLIZKO CIELA,PRETOZE FUKOV BYT SA ROZKLADA ASI METER OD TVOJHO KYVAJUCEHO SA LANA."
79 DATA "SI OBDIVUHODNE SIKOVNY.FUKA UZ ANI NEDUFAL A ZA 5 12 PRISLA TVOJA NEZISTNA POMOC.TVOJA INTE-LIGENCIA NESKLAMALA.NALOZ BOLA SCHOVANA V ZACHODOVEJ MISE.LAHKOSI JU ZNESKODNIL A FUKA JE ZACH-RANENY."
80 DATA "QUFVSTUPNY FOYER TOHTO DOMU.VLAVO BYVA FRANTO FUKA A VPRAVO S.PROFZISKOVA.DOLE SU PIVNICE A TABULAHLASA:VSTUP BEZ SVETLA DO PIVNICJE ZIVOTU NEBEZPECNY."
81 DATA "PR##SI V PRAZDNOM BYTE.JE TU LEN OT-VORENE OKNO..."
82 DATA "TVOJA ZVEDAVOST JE BEZHRANICNA, ALE..."
85 DATA "##ZPMEDZIPOSCHODIE PRIZEMIE-1.POSCH.TENTO TIENISTY KUT DOMU ZDOBIA ORANZOVE TAPETY SO ZELENYMI TRO-JUHOLNIKMY A MODRYMI APPOLONI- OVYMI KRUZNICAMI."
88 DATA "##bNVISIS NA LANE VO VYSKE 1.POSCHO-DIA."
89 DATA "#Z##ANO Z TELEVIZORA POCUT STRELBU Z FILMU COMMANDO.PRED DLHYMI PO-LICKAMI Z VIDEO KAZETAMI ZIVO DEBATUJU PALO A ARNOLD SCHWARZE-NEGGER."
90 DATA "Y[_UPRVE POSCHODIE.VLAVO SA OZYVAJU ZBYTU PALA CEJKU PODIVNE ZVUKY. ASI Z VIDEA.VPRAVO SA ZASE ROZ- LIEHA ZVUK OBROVSKEJ DETONACIE Z BYTU BORISA KOTVASA."
91 DATA "###OCITOL SI SA V ROZSIAHLOM LABO- RATORIU VEDCA A EXPERIMENTATORA B.KOTVASA.BORIS JE V PLYNOVEJ MASKE A HUSTE CHUCHVALCE DYMU ZAHALUJU BURACAJUCU APARATURU."
95 DATA "##dZSI MEZDI 1.A 2.POSCHODIM.DO PA- NELU JE ZBIJACKOU VYSEKANE: Jedzte SYRY daju SILY! Od kapusty chlap je husty! Vyhodny nakup pod jednou stre- chou: PRIOR!!!"
98 DATA "##lXVISIS NA LANE VO VYSKE 2.POSCHO-DIA."
99 DATA "d###BYT TIMA COLEMANA JE TI DOVERNE ZNAMY.VED V NOM BYVAS! SINCLAIR ZX SPECTRUM+2,KAZETAK PANASONIC A CASOPISY SINCLAIR USER, CRASH SA POVALUJU LEN TAK NA ZEMI. VED JE AJ PADNY DOVOD. F.FUKA POTREBUJE TVOJU POMOC! "
100 DATA "eci_STOJIS NALAVO OD BYTU TIMA COLE-MANA A NAPRAVO OD BYTU ZUZY VAR-GOVEJ. NA DVERACH VYTAHU JE RIM-SKA CISLICA ""II"". ROZBITE NEONKYNAZNACUJU,ZE SA TU NIECO DIALO.. "
101 DATA "d##POZOR! NA STARYCH DREVENYCH SCHODOCH VEDUCICH NA LAVO SI SA SKORO ZMRZACIL.UZ BY SOM TAM NE-CHODIL! ZUZA SEDI ZA VIDEOM A POZERA NEJAKY NOVY FILM.LEN TAK CEZ PLECE TI VRAVI:OBSLUZ SA SAM"
105 DATA "##ndVYSLAPAL SI NA MEZDIPOSCHODIE MEZDI 2.A 3.POSCHODIM.OKNO KRYJUPOPINAVE RASTLINY A TAK VIDIET IBA BLANKYTNU OBLOHU.DO OMIETKY JE VYRYTE KLINCOM:Docekal je VUL"
108 DATA "#m#STOJIS NA BALKONE VO VYSKE 3. POSCHODIA.VPRAVO SU OTVORENE DVERE DO JAKUBOVHO BYTU."
109 DATA "#n##JAKUB V HRACSKOM ZAPALE ROZPALU-JE SPECTRUM GUNFRIGHTOM.JEHO NE-PRICETNY VYRAZ NAZNACUJE,ZE SA NEMIENI S TEBOU BAVIT"
110 DATA "mosiTRETIE POSCH. VLAVO BYVA JAKUB HLOZNIK A VPRAVO LiENKA VLACHOVA."
111 DATA "n###OCITOL SI SA V CISTOM PROSTREDI PODOBNOM NEMOCNICNYM PRIESTOROM.LiENKA SI STUDUJE ODBORNE MATE- RIALY A TAK BY SI JU NEMAL VYRU-SOVAT."
115 DATA "##xnMEZDIPOSCHODIE MEDZI 3.A 4. POS-CHODIM.OSARPANE STENY A VELKY NAPIS: Bol som tu do 5.III.1953 Jozef"
119 DATA "#x##ZNAME PRIESTORY JOZOVHO BYTU SA ZASKVELY NOVOU FARBOU.JOZO JE ZAHRABANY V UCEBNICIACH A PRAVE SA UCI STAVBU EUKARYOTICKEJ BUN-KY."
120 DATA "w#}sSTVRTE A PREDPOSLEDNE POSCHODIE.VLAVO BYVA JOZO TOTH A VPRAVO SUOHROMNE OCELOVE DVERE S MENOVKOUSYLVESTER FREDO-SATANSOFT"
121 DATA "x###PREDSA SA TI PODARILO SA SEM DOSTAT.TA BORISOVA CHEMIKALIA JEDOBRA VEC.OHROMILI TA OBTAZKANE REGALY S PASOVANYMI PREDMETMI COTU SKLADOVAL SYLVESTER.LEGO,SIN-CLAIRY,SOFTWARE,ADIDASKY TO VSETKO SA TU POVALUJE BEZ LADU ASKLADU."
125 DATA "##xPLOSINKA MEDZI 4.A 5.POSCHODIM. POKRIVENE ZABRADLIE A OHORENE STENY.PRSTOM NIEKDO NACARBAL DO SADZI: Matthew Smith with ATTACKOF THE MUTANT ZOMBIES EATING FLESH CHICKENS FROM MARS IS GREAT!"
129 DATA "###VELKA HALA KLUBU TA TROCHA ZAS- KOCILA.NASTASTIE SI ZOCIL MAROSASO SCHNEIDEROM.NA STENACH SU PLAGATY S IBM PC/XT S ATARI ST 1040 ..."
130 DATA "}POSLEDNE 5.POSCHODIE.NALAVO JE VCHOD DO SOFT-KLUBU A VPRAVO SA CRTA SILUETA DVERI OD BYTU MAR- TINA HLOBENA."
131 DATA "###MARTINOV BYT SVEDCI O USPORIDA- NOM STUDENTOVI-METALISTOVI Z PROSTREDIA KARLOVEJ VSI.OKREM METALU SI VYPOCUJE AJ TAKE OSOB-NOSTI AKO J.NOHAVICA PRIPADNE AJV.VYSOTSKYJ."
135 DATA "###ZJAVIL SI SA NA STRECHE V DREVE-NEJ BUDKE ZBITEJ ZO STARYCH DRE-VENYCH DOSIEK.JE TU AKESI LOZKO A NA NOM UMIERAJUCI STALLONE ALIAS ROCKY 5.IVAN DRAGO HO V ODVETNOM ZAPASE KNOKAUTOVAL A TERAZ ODBIJA JEHO POSLEDNA HODI-NA,DOHARA SVIECKA JEHO HRIESNEHOZIVOTA.ZNENAZDANIA ZASKUVINAL MOHUTNY PORYV VETRA A...."
205 IF E$="C" THEN GO TO VAL "500"
210 IF E$="X" THEN GO TO VAL "6E3"
215 IF E$="H" THEN GO SUB VAL "1002":LET Z$="N":RETURN
216 IF E$="K" THEN INPUT "NAOZAJ CHCES SKONCIT? A/N ";LINE Z$:IF Z$="A" THEN GO TO VAL "1E3"
217 IF E$="V" THEN GO SUB VAL "1010":LET Z$="N":RETURN
218 IF E$="I" THEN GO SUB VAL "2E3":LET Z$="N":RETURN
219 IF E$="P" THEN GO SUB VAL "2050":LET Z$="N":RETURN
220 IF E$="O" THEN GO SUB VAL "2150":LET Z$="N":RETURN
225 IF E$="S" THEN GO SUB VAL "2250":LET Z$="N":RETURN
230 IF E$="L" THEN GO TO VAL "2300"
235 IF E$="U" THEN GO SUB VAL "3E3":LET Z$="N":RETURN
240 IF E$="1" THEN GO SUB VAL "4E3":LET Z$="N":RETURN
249 IF g$( TO )="01111000Sun000000Bratislava" THEN STOP
250 RETURN
500 INK 3:PAPER 7:BORDER 7:BRIGHT 0:CLS :REM CHARAKTERIST.
505 LET Z$="-------------------------------- >CHARAKTERISTIKA OSOB< --------------------------------":FOR F=1 TO LEN Z$:BEEP .005,10:OVER 0:PRINT AT 0,0;INK 0;Z$(1 TO F):NEXT F
506 BEEP .75,32
507 INK 1:PRINT AT 5,1;"A M.REDERER B M.HLOBEN";AT 7,1;"C J.TOTH D S.FREDO";AT 9,1;"E J.HLOZNIK F L.VLACHOVA";AT 11,1;"G Z.VARGOVA H ???";AT 13,1;"I P.CEJKA J B.KOTVAS";AT 15,1;"K F.FUKA L X.ZISKOVA";AT 17,9;"M T. COLEMAN"
508 BEEP .75,20
510 FOR F=1 TO 6:PRINT AT 19,11;INK 7;PAPER F;"KOD OSOBY?";AT 20,15;"<->";AT 21,11;"SPACE-EXIT":BEEP .005,F*3:IF INKEY$ <> "" THEN GO TO 520
511 NEXT F:GO TO 510
520 IF INKEY$ =" " THEN BEEP .5,6:LET J$="":LET H$="":GO TO 27
521 IF INKEY$ <"A"OR INKEY$ >"M" THEN GO TO 750
525 PAPER 4:INK 0:BORDER 4:CLS :GO TO 465+CODE INKEY$
530 CLS :LET H$="MAROS REDERER":LET J$="HRAC-FANATIK.PO PRICHODE Z ANG- LICKA MA DOMA NOVY POCITAC SCHNEIDER 6128 ALE NEMA K NEMU ZIADNE DISKETY.VETSINU CASU JE V KLUBE NA POSLEDNOM POSCHODI.":GO TO 600
531 CLS :LET H$="MARTIN HLOBEN":LET J$="ZIVY CHLAPEC.VYZNA SA VO VSETKOMALE AK BY SI MU DONIESOL OPISAT NEJAKU DOMACU Z MATIKY UROBIL BYSI SI U NEHO OCKO.ANI FLASKOU KVALITNEJ TEKUTINY CI DOBROU CIGARETOU BY SI MU NEPOKAZIL NA-LADU.":GO TO 600
532 CLS :LET H$="JOZO TOTH":LET J$="HLOBENOV SPOLUZIAK.JEHO ZOSITY S DOMACIMI ULOHAMI SU VZDY K DISPOZICII,A TAK OPISOVANIE ROZNYCH DOMACICH ULOH NEROBI ZIADNE PROBLEMY.":GO TO 600
533 LET H$="SYLVESTER FREDO":LET J$="TENTO GENIUS POBLUDIL NA KRIVO- LAKYCH CESTICKACH ZIVOTA.V ROKU 1977 MAL OPLETACKY A SEDEL ZA SPRENEVERENIE TAJNYCH INFORMACIIFIRMY TEXAS INSTRUMENTS.JE TIEZ ZNAMOU POSTAVOU ZO SVETA DOMA- CICH POCITACOV POD PSEUDONYMOM 'Satansoft'.V LETE ZOSTAL NA DO-VOLENKE V SFRJ A UZ SA NEVRATIL.":GO TO 600
534 LET H$="JAKUB HLOZNIK":LET J$="VNUK ZNAMEHO UMELCA VINCENTA HLOZNIKA.NEJAVI SICE UMELECKE CHUTKY ALE JEHO HOBBY SU PLAS- TIKOVE MODELY FIRMY Revell.":GO TO 600
535 LET H$="LiENKA VLACHOVA":LET J$="BUDUCA PRACOVNICKA CERVENEHO KRIZA CSSR.PO ABSOLVOVANI ROZ- SIAHLEHO KURZU PRVEJ POMOCI DO- KAZE DAT BEZ PROBLEMOV DYCHANIE Z UST DO UST,MASAZ SRDCA ALEBO AJ OSETRIT ZOPAR SKRABANCOV(!).":GO TO 600
536 LET H$="ZUZA VARGOVA":LET J$="PRACUJE PRI POCITACOCH.NO ODKEDYMAJU VIDEO,TAK Sinclair UZ PRES-TAL BYT STREDOBODOM POZORNOSTI. AJ TAK,AK BY SI CHCEL NEJAKE PRIRUCKY,TAK MAS K DISPOZICII NIEKOLKO DESIATOK.":GO TO 600
537 LET H$="STANLEY of SYBILASOFT":LET J$="STUDENT NA MATICKOM GYMPLI V BRATISLAVE.(15 YEARS OLD). V SKOLE DO NEHO VBIJAJU KVANTA ALGEBRICKEJ, PLANIMETRICKEJ, CHAOTICKEJ ZMESI POUCIEK, VIET ADOKAZOV.V ZABLESKOCH VOLNEHO CA-SU SI OKAMZITE ZAPINA POCITAC. (POKIAL NIE JE NUTENY ZEHLIT ALEBO VYSAVAT) SKROMNA POZNAMKA AUTOR TEJTO NEPODARENEJ HRY.":GO TO 600
538 LET H$="PALO CEJKA":LET J$="VIDEO MANIAK.POKIAL POTREBUJES NIECO Z OBLASTI VIDEO TECHNIKY OBRAT SA NA NEHO.NAPOSLEDY SPO- MINAL,ZE SKUSAL S Arnoldom(Ter- minatorom) FLOPPY DISKY.ALE MOC MU TO NESLO.VED VIES,DISKY NIE SU VIDEO KAZETY.":GO TO 600
539 LET H$="BORIS KOTVAS":LET J$="NEBEZPECNY CHEMIK.JEHO BYT JE SKROMNYM LABORATORIOM BUDUCEHO LAUREATA NOBELOVEJ CENY.VIE BYT VELMI STEDRY,ALE KED MU CHYBAJU NEJAKE CHEMIKALIE TAK S NIM NIE JE MOC DO RECI.":GO TO 600
540 LET H$="FRANTISEK FUKA":LET J$="PROGRAMATOR,MAJITEL A RIADITEL FIRMY Fuxoft.JEHO NAPADITE PROG-RAMY I.Jones,Poklad 2 CI UZ Pod-raz 3 SU ZNAME V CELEJ STREDNEJ EUROPE A BLIZKOM OKOLI.NO KED MU PICHLI TIKAJUCU NALOZ DO BYTUSPOLIEHA NA TEBA.":GO TO 600
541 LET H$="S.PROF.ZIZKOVA":LET J$="TO,ZE JE PROFESORKA NA GYMNAZIU A.Markusa HOVORI ZA NU.":GO TO 600
542 LET H$="TIM COLEMAN":LET J$="NEVIEM CO BY SI CHCEL TAKE O SE-BE VEDIET!ALE AK SI MYSLIS,TAK PROSIM:T.COLEMAN-USPESNY MLADY AMERICAN STVORENY FRANTISKOM FU-KOM V HRE Podraz 3.VAHA 84 Kg, VYSKA 183 cm.FARBA OCI HNEDA, POKOZKA CIERNA.VLASY ODFARBENE NA ZELENO.TERAZ BY MAL ZACHRANO-VAT F.FUKU A NEMAL BY CITAT TA-KETO SPROSTE VOLOVINY!!!":GO TO 600
600 PAPER 4:BORDER 4:BRIGHT 0:INK 0:CLS :FOR F=1 TO LEN H$:PRINT AT 7,1;PAPER 7;BRIGHT 1;INVERSE 1;H$(1 TO F):BEEP .005,-10:NEXT F:BEEP .6,44:FOR G=1 TO LEN J$:PRINT AT 9,0;J$(1 TO G):BEEP .005,7:NEXT G:BEEP .6,33
605 FOR F=1 TO 7:BEEP .008,2*F:PRINT AT 21,11;INK F;PAPER 7;" Klavesu "
610 IF INKEY$ <> "" THEN BEEP .9,12:GO TO 500
615 NEXT F:GO TO 605
750 LET H$="POUZIVAJ LEN UVEDENE KODY OSOB!":LET J$=" <C>1987 SYBILASOFT STANLEY HRDA":GO TO 600
760 LET cas=(PEEK 23673+256*PEEK 23674)/10:PRINT AT 6,9;OVER 0;" MAS ";INT (60-cas);" minut ":IF cas>= 60 THEN PRINT #1;INK 5;" TVOJ CAS VYPRSAL!!!"':GO SUB 950:BEEP .25,-12:BEEP .25,-8:BEEP .25,-12:BEEP .25,-8:BEEP .5,-5:BEEP .5,-5:BEEP .25,-12:BEEP .25,-8:BEEP .25,-12:BEEP .25,-8:BEEP .5,-5:BEEP .5,-5:BEEP .25,0:BEEP .25,-1:BEEP .25,-3:BEEP .25,-5:BEEP .25,-7:BEEP .25,-5:BEEP .5,-3:BEEP .25,-5:BEEP .25,-7:BEEP .25,-8:BEEP .25,-10:BEEP .5,-12:BEEP .5,-12:GO TO 9965
770 RETURN
950 FOR F=5 TO 80 STEP 8:LET VYBU=RND *7+1:CIRCLE PAPER VYBU;INK VYBU;FLASH 1;BRIGHT 1;127,87,F:NEXT F:RETURN
1000 INPUT " CHCES RESET? A/N ";LINE R$:IF R$="A" THEN PRINT #0;"H STOP in INPUT, 30:2":PAUSE 0:RANDOMIZE USR NOT PI
1001 GO TO 9975
1002 LET T1=PEEK 23672:LET T2=PEEK 23673:LET T3=PEEK 23674:LET VB=20
1003 IF INT (VB/10)=VB/10 THEN PRINT #0;AT 3,0;BRIGHT 1;INK INT (VB/10);"<C> 1987 SYBILASOFT STANLEY HRDA"''" TITLE SCREEN BY MIKE HLAVAC."''" LOADING BY MARTIN SUSTRIK."
1004 LET VB=VB+1:IF VB=61 THEN LET VB=20
1005 BEEP .001,VB:IF INKEY$ ="" THEN GO TO 1003
1006 POKE 23672,T1:POKE 23673,T2:POKE 23674,T3:RETURN
1010 LET PPP=0:FOR F=1 TO 3:IF W$(A-VAL "55",F)=" " THEN LET PPP=PPP+1
1011 NEXT F
1012 IF PPP=INT PI THEN PRINT #1;INK 5;" PREPAC,ALE FIGA BOROVA SA NEDA ZOBRAT!";:PAUSE 0:RETURN
1015 GO SUB VAL "1070"
1020 PRINT AT 16,11;"CHCES ZOBRAT"
1021 IF FIR=VAL "21" THEN LET FIR=20
1022 IF SEC=VAL "21" THEN LET SEC=20
1023 IF THR=VAL "21" THEN LET THR=20
1024 PRINT AT VAL "18",INT PI ;"1...";P$(FIR);AT 19,3;"2...";P$(SEC);AT 20,3;"3...";P$(THR)
1025 IF INKEY$ ="1" THEN GO TO VAL "1040"
1026 IF INKEY$ ="2" THEN GO TO VAL "1050"
1027 IF INKEY$ ="3" THEN GO TO VAL "1060"
1028 GO TO VAL "1025"
1040 IF FIR>VAL "19" THEN LET PPP=3:CLS :GO TO 1012
1042 LET Q$(FIR)="!":LET W$(A-VAL "55",1)=" ":PRINT #SGN PI ;" O.K. ZOBRAL SI:";P$(FIR):PAUSE 0:RETURN
1050 IF SEC>VAL "19" THEN LET PPP=3:CLS :GO TO 1012
1052 LET Q$(SEC)="!":LET W$(A-VAL "55",2)=" ":PRINT #1;" O.K. ZOBRAL SI:";P$(SEC):PAUSE 0:RETURN
1060 IF THR>19 THEN LET PPP=3:CLS :GO TO 1012
1062 LET Q$(THR)="!":LET W$(A-VAL "55",3)=" ":PRINT #1;" O.K. ZOBRAL SI:";P$(THR):PAUSE 0:RETURN
1069 PAUSE NOT PI
1070 LET FIR=(CODE W$(A-VAL "55",1))-32
1071 LET SEC=(CODE W$(A-VAL "55",2))-32
1072 LET THR=(CODE W$(A-VAL "55",3))-32
1073 IF FIR=0 THEN LET FIR=21
1074 IF SEC=0 THEN LET SEC=21
1075 IF THR=0 THEN LET THR=21
1077 IF FIR=21AND SEC=21AND THR=21 THEN LET FIR=20:LET SEC=21:LET THR=21
1086 RETURN
2000 PRINT #1;" ":IF Q$=" " THEN PRINT #1;INK 5;" NIC PRI SEBE NEMAS!!!":PAUSE 0:RETURN
2001 PRINT AT 8,7;INK 5;" MAS TIETO PREDMETY "
2004 LET PRD=SGN PI :FOR F=1 TO 20
2005 IF Q$(F)="!" THEN LET PRD=PRD+1:PRINT AT 9+PRD,8;INK 5;P$(F)
2006 NEXT F
2010 PAUSE 0:RETURN
2050 IF W$(A-VAL "55",1)<> " "AND W$(A-VAL "55",2)<> " "AND W$(A-VAL "55",3)<> " " THEN PRINT #1;INK 5;" PREPAC,ALE DO MIESTNOSTI SA ZMESTIA NAJVIAC 3 PREDMETY!":PAUSE 0:RETURN
2052 IF Q$=" " THEN PRINT #SGN PI ;" PREPAC,ALE NEMAS PRI SEBE ZIADNY PREDMET!":PAUSE 0:GO TO 25
2055 PRINT AT 8,7;" CHCES POLOZIT "
2058 LET PRD=NOT PI :FOR F=1 TO 20:IF Q$(F)="!" THEN LET PRD=PRD+1:PRINT AT 9+PRD,8;INVERSE 1;PRD;INVERSE 0;"..";P$(F)
2060 NEXT F
2065 PAUSE NOT PI
2070 LET Y$=INKEY$
2075 IF CODE Y$<VAL "48"OR CODE Y$>VAL "48"+PRD THEN BEEP VAL ".04",VAL "50":GO TO VAL "2065"
2077 LET PRD=0:FOR F=1 TO 20:IF Q$(F)="!" THEN LET PRD=PRD+1:IF PRD=VAL Y$ THEN GO TO VAL "2090"
2080 NEXT F
2090 IF F=VAL "2" THEN LET PLAMEN=0
2100 IF W$(A-VAL "55",1)=" " THEN LET W$(A-VAL "55",1)=CHR$ (32+F):LET Q$(F)=" ":PRINT #1;"O.K. POLOZIL SI:";P$(F):PAUSE 0:RETURN
2102 IF W$(A-VAL "55",VAL "2")=" " THEN LET W$(A-VAL "55",VAL "2")=CHR$ (32+F):LET Q$(F)=" ":PRINT #1;" O.K. POLOZIL SI:";P$(F):PAUSE 0:RETURN
2104 IF W$(A-VAL "55",3)=" " THEN LET W$(A-VAL "55",3)=CHR$ (32+F):LET Q$(F)=" ":PRINT #1;" O.K. POLOZIL SI:";P$(F):PAUSE 0:RETURN
2150 IF Q$=" " THEN PRINT #1;INK 5;" NEMAS PRI SEBE ZIADNY PREDMET!":PAUSE 0:GO TO 25
2152 PRINT AT 8,7;" OPISAT PREDMET: "
2155 LET PRD=0:FOR F=1 TO 20:IF Q$(F)="!" THEN LET PRD=PRD+1:PRINT AT 9+PRD,7;INVERSE 1;PRD;INVERSE 0;"..";P$(F)
2156 NEXT F
2158 PAUSE 0
2159 LET Y$=INKEY$
2160 IF CODE Y$<VAL "48"OR CODE Y$>VAL "48"+PRD THEN BEEP VAL ".04",VAL "40":GO TO VAL "2158"
2165 LET PRD=NOT PI :FOR F=1 TO 20:IF Q$(F)="!" THEN LET PRD=PRD+1:IF PRD=VAL Y$ THEN GO TO 2170
2166 NEXT F
2170 IF F=SGN PI THEN LET J$="ZOSIT FORMATU A4 S NAPISOM KOM- BINATORIKA."
2171 IF F=4 THEN LET J$="TROCHA HRZDAVE,ALE INAC PEVNE A MASIVNE PACIDLO."
2172 IF F=3 THEN LET J$="MATNE ZELENA A ZAPRASENA.NA ETIKETE JE DATUM 1870.VNUTRI NIECO ZBLNKOCE."
2173 IF F=2 THEN LET J$="VOSKOVA SVIECA A ZAPALKY ZN. THE KEY."
2174 IF F=5 THEN LET J$="ZN.SONY,DLZKA 180 MINUT.NA OBALEJE POZNAMKA CERUZKOU:21.11.1987 J.NOHAVICA, BRATISLAVA III."
2175 IF F=6 THEN LET J$="S FIREMNYM NAPISOM LASER BASIC ONLY FOR AMSTRAD/SCHNEIDER 6128."
2176 IF F=7 THEN LET J$="ZASTARALA PLYNOVA MASKA S FIL- TROM."
2177 IF F=8 THEN LET J$="PODOZRIVY VALCEK Z TVRDEJ SIVEJ LATKY S TEXTOM:DANGER EXPLOSIVE.NA KONCI TRCI KUSOK SPAGATU."
2178 IF F=9 THEN LET J$="NAJNOVSI VYROBOK FIRMY M&P.TATO STRIEBRO SIVA KRABICKA SPAJA VYHODY MODEMU A MALEJ TLACIARNE.UPLNE KOMPAKTABILNA ZO ZX SPEC+2"
2179 IF F=10 THEN LET J$="CESKA PRIRUCKA K INTERFEJSU 3. NA UVODNEJ STRANKE JE KRATKY NA-PIS: PRELOZIL F.FUKA."
2180 IF F=11 THEN LET J$="PLASTIKOVA STAVEBNICA NEMECKEHO LIETADLA Z 2.SVETOVEJ VOJNY.TYP MESSERSCHMIT BF 109 E."
2181 IF F=12 THEN LET J$="TROCHA OPOTREBOVANE Z SSM A AJ Z I.JONES, ALE STALE DOST PEVNE."
2182 IF F=13 THEN LET J$="CASOVANA BOMBA SO ZLOVESTNYM NAPISOM MADE IN U.S.A."
2183 IF F=14 THEN LET J$="NEPOUZITELNE PLECHOVE VEDRO."
2184 IF F=15 THEN LET J$="UZ DAVNO NEPLATNA ZLATA LIBRA."
2185 IF F=16 THEN LET J$="NOVE KOVOVE NARADIE Z PREDAJNE ZELEZNY TOVAR-J.HUSKA & CO."
2186 IF F=17 THEN LET J$="CERVENA SYNTETICKA FARBA V PLE- CHOVICI.(NEPOUZITA)"
2187 IF F=18 THEN LET J$="MENSIA KOPKA 14 TEHIEL."
2188 IF F=19 THEN LET J$="KLBKO PEVNEHO POLCENTIMETROVEHO SPAGATU."
2200 FOR G=8 TO 21:PRINT AT G,0;OVER 0;" ":NEXT G
2201 PRINT AT 16,0;INK 5;INVERSE 1;"PRESKUMAL SI ";P$(F);AT 18,0;INVERSE 0;J$:PAUSE 0:RETURN
2250 INPUT "CHCES NAOZAJ NAHRAT SVOJU POZI- CIU NA MAGNETOFON? A/N ";Z$:IF Z$="N" THEN RETURN
2255 PRINT #1;" O.K. PRIPRAV SI KAZETU!"
2256 POKE VAL "63950",A:POKE VAL "63940",PLAMEN:POKE VAL "63941",BUM:POKE VAL "63942",OKNO:POKE VAL "63943",KOTW:POKE VAL "63944",PAC:POKE VAL "63945",RANA+VAL "245":FOR F=1 TO 20:POKE VAL "63950"+F,CODE Q$(F):NEXT F:SAVE "fuks.poz."CODE VAL "63940",31:POKE VAL "23736",VAL "187":SAVE "MIESTNOSTI"DATA W$():POKE VAL "23736",VAL "168"
2260 RETURN
2300 INPUT " NAOZAJ CHCES NAHRAT POZICIU Z MAGNETOFONU? A/N ";Z$:IF Z$="N" THEN RETURN
2310 LOAD "fuks.poz."CODE :LOAD "MIESTNOSTI"DATA W$()
2320 LET PLAMEN=PEEK VAL "63940":LET BUM=PEEK VAL "63941":LET OKNO=PEEK VAL "63942":LET KOTW=PEEK VAL "63943":LET PAC=PEEK VAL "63944":LET RANA=PEEK VAL "63945"-245:LET a=PEEK VAL "63950":LET B=A:FOR f=SGN PI TO VAL "20":LET q$(F)=CHR$ PEEK (VAL "62950"+F):NEXT F:GO TO VAL "25"
3000 IF Q$=" " THEN PRINT #1;INK 5;" NEMAS ZIADNY PREDMET!":PAUSE 0:RETURN
3152 PRINT AT 8,7;INK 5;" POUZIT PREDMET: "
3155 LET PRD=0:FOR F=1 TO 20:IF Q$(F)="!" THEN LET PRD=PRD+1:PRINT AT 9+PRD,7;INVERSE 1;PRD;INVERSE 0;"..";P$(F)
3156 NEXT F
3158 PAUSE 0
3159 LET Y$=INKEY$
3160 IF CODE Y$<48OR CODE Y$>48+PRD THEN BEEP .04,40:GO TO 2158
3165 LET PRD=0:FOR F=1 TO 20:IF Q$(F)="!" THEN LET PRD=PRD+1:IF PRD=VAL Y$ THEN PRINT #1;" O.K.POUZIL SI:";P$(F):GO TO 3169
3166 NEXT F
3169 FOR G=8 TO 21:PRINT AT G,0;OVER 0;" ":NEXT G:PRINT AT 8,8;
3170 IF F=4AND B=69 THEN PRINT #1;INK VAL "5";"POD TLAKOM PACIDLA SA UZKY PRIE-CHOD ROZSIRIL.STARE PACIDLO SA VSAK UPLNE ROZSYPALO NA HRDZAVE ULOMKY.":PAUSE 0:LET Q$(4)=" ":LET PAC=1:LET C$="DF#:":RETURN
3171 IF F=2AND B=70 THEN PRINT #1;INK VAL "5";" SVIECKA HORI JASNYM PLAMENOM.":PAUSE 0:LET C$="EGP#":LET PLAMEN=1:RETURN
3174 IF KOTW=0AND B=VAL "91"AND F=7 THEN LET KOTW=1:LET C$="Z###":PRINT #1;"PRI NASADZOVANI MASKY SI ZHODIL AKUSI BANKU.CREPY SA ROZPRSKLI PO ZEMI.AHOJ TIM! Z TOHO SI NIC NEROB.POTREBUJEM TA ABY SI MI ODSKUSAL NOVU TRHAVINU, KTOREJ SYNTEZU SOM PRAVE DOKONCIL. PO- DOZRIVY VALCEK UZ ZMIZOL V TVO- JOM VRECKU.":LET Q$(8)="!":PAUSE 0:RETURN
3175 IF KOTW=1AND B=VAL "91"AND F=7 THEN PRINT #1;"MASKA TI ZACHRANILA ZIVOT.":PAUSE 0:LET C$="Z###":RETURN
3176 IF F=8AND B=120 THEN PRINT #1;INK 5;"POTIAHOL SI ZA SNURKU A POLOZIL SI KOTWASIT K SYLVESTROVYM DVE- RAM.TROCHU TO PRSKLO A DVERE SU OTVORENE.UTRPEL SI ZNACNE POPA- LENINY.":LET BUM=1:LET Q$(8)=" ":LET RANA=10:LET C$="wy}s":PAUSE 0:RETURN
3180 IF B=99AND F=9AND Q$(10)="!" THEN PRINT #1;INK 5;"S POMOCOU INTERFEJSU SI SA SPOJIL S FUKOM A PO KRATKEJ KOMUNIKA-CII TI VYSVETLIL, ZE NAJSKOR SA K NEMU DOSTANES CEZ OKNO.UZ TA BUDE CAKAT.ON NESMIE OPUSTIT PRIESTORY SVOJHO BYTU,LEBO JE POD KONTROLOU FOTOBUNIEK A NEO- PATRNY POHYB BY HO MOHOL STAT ZIVOT.":LET Q$(9 TO 10)=" ":LET OKNO=1:PAUSE 0:RETURN
3181 IF B=99AND F=10AND Q$(9)="!" THEN LET F=9:GO TO 3180
3182 IF F=9AND B=99 THEN PRINT #1;INK 5;"CHYBA TI NEJAKA TA PRIRUCKA.":PAUSE 0:RETURN
3190 IF b=108AND f=12 THEN PRINT #1;INK 5;"SIKOVNE SI ROZVINUL LANO.TERAZ VISI AZ NIEKDE K PRIZEMIU.":PAUSE 0:LET C$="#m#b":LET q$(12)=" ":RETURN
3200 IF f=13 THEN PRINT #1;"DOST ZVLASTNY PRIKAZ!?":PAUSE 0:GO TO 9965
3300 IF F=17AND B=119 THEN PRINT #1;INK 5;"SPESTRIL SI NOVU MALOVKU CERVE- NYM PRIMALEXOM 2000/B JOZO ZBYSTRIL POZORNOST A VRHOL SA K TELEFONU.O CHVILU DOSLI PRISLUSNICI VB.ZATKLI TA ZA NI- CENIE MAJETKU V SUKROMNOM VLAST-NICTVE.":PAUSE 0:GO TO VAL "9965"
3990 PRINT #1;INK VAL "5";"TU SA TENTO PREDMET NEDA POUZIT.":PAUSE 0
3999 RETURN
4000 IF Q$=" " THEN PRINT #1;INK 5;" NEMAS ZIADNY PREDMET!":PAUSE 0:RETURN
4152 PRINT AT 8,7;INK 5;" PODAT PREDMET: "
4155 LET PRD=0:FOR F=1 TO 20:IF Q$(F)="!" THEN LET PRD=PRD+1:PRINT AT 9+PRD,7;INVERSE 1;PRD;INVERSE 0;"..";P$(F)
4156 NEXT F
4158 PAUSE 0
4159 LET Y$=INKEY$
4160 IF CODE Y$<48OR CODE Y$>48+PRD THEN BEEP .04,40:GO TO 2158
4165 LET PRD=0:FOR F=1 TO 20:IF Q$(F)="!" THEN LET PRD=PRD+1:IF PRD=VAL Y$ THEN PRINT #1;" O.K.PODAL SI:";P$(F):GO TO 4169
4166 NEXT F
4169 FOR G=8 TO 21:PRINT AT G,0;OVER 0;" ":NEXT G:PRINT AT 8,8;
4170 IF F=1AND B=131 THEN PRINT #1;INK 5;"AKO SI VYTIAHOL ZOSIT, HLOBKOVI SA ROZSVIETILI OCI.SI FAJN CHLA-PIK,TIM.DIKI ZA ZOSIT.DUFAM,ZE NEODMIETNES ESTE DROBNU SLUZBU. SKOC PROSIM TA DO PIVNICE A DO- NES NEJAKU FLASKU.TU MAS PACIDLOSVIECKU A ZAPALKY.":PAUSE 0:LET Q$( TO 4)=" ! !":RETURN
4172 IF F=3AND B=131 THEN PRINT #1;INK VAL "5";"VIDIM, ZE SI DONIESOL FLASKU SO SPRAVNYM OBSAHOM.AKO CESTNY CLO-VEK SI ZASLUZIS AJ ODMENU.TU MASVIDEOKAZETU S JAROM NOHAVICOM. DUFAM, ZE SI PRIDES NA SVOJE. PO TYCHTO SLOVACH SI MARTIN PRI-LOZIL HRDLO FLASE K PERAM A MOK SA PREMIESTNIL DO JEHO TRAVIACE-HO TRAKTU.MARTIN SA POTOM PRE- MIESTNIL POD STOL.":PAUSE 0:LET Q$(3 TO 5)=" !":RETURN
4173 IF F=5AND B=89 THEN PRINT #1;INK VAL "5";"PALO PRERUSIL ROZHOVOR A ZACAL SKUMAT KAZETU.NOHAVICU ZHANAM UZDLHSIU DOBU.SOM TI VELMI VDACNY.TU MAS TEN BLBY DISK.AJ TAK JE MI UPLNE NA NIC.":PAUSE 0:LET Q$(5 TO 6)=" !":RETURN
4174 IF F=6AND B=129 THEN PRINT #1;"MAROS SI OKAMZITE VZAL DISK A VYCHRLIL:DAKUJEM ZA MILU POZOR- NOST.JA MAM ZAS PRE TEBA INU LA-HODKU.PLYNOVA MASKA Z ROKU 1896.ESTE STALE FUNGUJE.PO TYCHTO SLOVACH DISK ZAPADOL KAM PATRIL A NA OBRAZOVKE NASKOCIL NAPIS: LASER BASIC V3.0- 1986 HISOFT. S MAROSOM UZ NEBOLO DO RECI.":PAUSE 0:LET Q$(6 TO 7)=" !":RETURN
4180 IF B=109AND F=11 THEN LET q$(11)=" ":PRINT #1;INK 5;"JAKUB SA ODTRHOL OD HRY A ZACAL OBDIVOVAT PLASTIKAC.VDAKA, ZE SIMA VRATIL DO SKUTOCNOSTI.HRAJEM TOTO UZ 3 DNI A NIE A NIE TO VY-HRAT.UZ MUSIM AJ TROCHU VYVETRATPOTOM JAKUB OTVORIL DVERE NA BALKON.":PAUSE 0:LET C$="ln##":RETURN
4990 PRINT #1;INK VAL "5";" O PODAVANY PREDMET NEPREJAVIL NIKTO ZIADNY ZAUJEM.":PAUSE 0
4999 RETURN
5000 DIM P$(21,16):DATA "ZOSIT","SVIECU A ZAPALKY","FLASU","PACIDLO","VIDEO KAZETU","FLOPPY DISK","MASKU","KOTWASIT","INTERFACE 3","PRIRUCKU","PLASTIKAC","LANO","BOMBU","VEDRO(DERAVE)","MINCU","KOSAK A KLADIVO","PRIMALEX 2000/B","KOPU TEHIEL","SPAGATIK"
5001 DATA "FIGU BOROVU":RESTORE 5000:FOR Z=1 TO 20:READ E$:LET P$(Z)=E$:NEXT Z
5010 LET W$(VAL "64",SGN PI )="!":LET W$(VAL "66",SGN PI )=")":LET W$(VAL "66",VAL "2")="+":LET W$(VAL "13",SGN PI )="#":LET W$(VAL "24",SGN PI )="-":LET W$(VAL "16",SGN PI )=",":LET W$(VAL "46",SGN PI )="*":LET W$(VAL "17",SGN PI )="3":LET W$(VAL "60",SGN PI )="2":LET W$(VAL "14",SGN PI )="1"
5020 LET W$(VAL "60",VAL "2")="0":LET W$(VAL "80",SGN PI )="/":LET W$(VAL "40",SGN PI )="."
5500 RETURN
6000 IF OKNO=1AND B/VAL "10"=INT (B/VAL "10") THEN PRINT #1;"JACK & JONATHAN SI VSIMLI TVOJE POCINANIE A PRIPRAVILI SI SKROM-NE PREKVAPENIE.VYTAH SA S HUKO- TOM ZRUTIL DO SACHTY.":PAUSE 0:GO TO 9965
6001 IF B/10<> INT (B/10)OR B<80 THEN BEEP .9,60:PAPER 6:BORDER 6:INK 1:OVER 0:CLS :FOR F=1 TO 96:PRINT AT 0,0;"  1915 TRANSPORTA BRNO TENTO VYTAH JE VYROBENY LICENCNE V KOVOZAVODOCH N.P.BRATISLAVA "( TO F):BEEP .003,F/2:NEXT F:PRINT AT 10,2;"VYTAH NIE JE MOZNE PRIVOLAT";AT 12,5;"Z PRIESTOROV PIVNIC";AT 14,4;"BYTOV A MEDZIPOSCHODI":BEEP .5,0:PAUSE 250:GO TO 25
6004 BEEP 2,-40:BEEP .005,0:BEEP .005,12:BEEP .005,24
6005 PAPER 1:BORDER 1:INK 7:CLS
6010 LET T$="KOVOZAVODY MESTA BRATISLAVY"
6015 OVER 0:FOR F=1 TO LEN T$:PRINT AT 0,2;T$(1 TO F):BEEP .005,-10:NEXT F
6020 PLOT 30,0:DRAW 0,160
6021 PLOT 29,0:DRAW 0,160:PLOT 74,0:DRAW 0,160:PLOT 73,0:DRAW 0,160
6025 PRINT AT 10,4;BRIGHT 1;"";AT 16,4;"";AT 11,4;" ";AT 12,4;" ";AT 13,4;"";AT 14,4;"";AT 15,4;""
6030 OVER 1:PLOT 51,95:DRAW 0,-48:PLOT 52,95:DRAW 0,-48:PLOT 32,47:DRAW 39,0:PLOT 32,46:DRAW 39,0
6035 CIRCLE 45,62,2:CIRCLE 57,62,2
6040 PLOT 32,96:DRAW 20,10:DRAW 19,-10
6050 FOR F=105 TO 160 STEP 3:PLOT 51,F:PLOT 52,F+1:PLOT 53,F+2:NEXT F
6060 INK 6:PRINT AT 16,16;"0.PRIZEMIE"
6070 LET CPP=0:FOR F=14 TO 6 STEP -2:LET CPP=CPP+1:PRINT AT F,16;CPP;".";INVERSE 1;"POSCHODIE":NEXT F
6080 LET POS=(B-80)/10
6090 PRINT AT 16-POS*2,16;INK 4;OVER 1;" "
6100 LET Y$=INKEY$
6110 IF Y$<CHR$ 54AND Y$>CHR$ 47 THEN BEEP .5,33:GO TO 6200
6120 BEEP .005,12:BEEP .005,16:GO TO 6100
6200 LET KPOS=VAL Y$:IF KPOS<POS THEN GO TO 6600
6210 FOR F=16-POS*2 TO 16-KPOS*2 STEP -2:PRINT AT F,16;INK 4;" ":BEEP .005,-F+40:PAUSE 40:PRINT AT F,16;OVER 1;INK 6;" ":NEXT F
6220 PRINT AT 16-KPOS*2,16;" ":BEEP .5,-60
6230 LET A=KPOS*10+80:PAUSE 100:GO TO 25
6600 FOR F=16-POS*2 TO 16-KPOS*2 STEP 2:PRINT AT F,16;INK 4;" ":BEEP .005,-F+40:PAUSE 40:PRINT AT F,16;OVER 1;INK 6;" ":NEXT F
6620 PRINT AT 16-KPOS*2,16;" ":BEEP .5,-60
6630 LET A=KPOS*10+80:PAUSE 100:GO TO 25
6700 IF SGN RANA>-1 THEN LET RANA=RANA-1:IF RANA=0 THEN PRINT #1;INK 5;"PODLAHOL SI ZRANENIU Z KOTWASITU":PAUSE 0:GO TO VAL "9965"
6701 IF B=78AND OKNO=1 THEN LET C$="#OX#":LET D$=D$+"FUKA OTVORIL OKNO."
6705 IF B=120AND BUM=SGN PI THEN LET C$="wy}s"
6706 IF B=111AND SGN RANA>BIN THEN LET RANA=-1:PRINT #1;"PRISIEL SI PRAVE VCAS.ODBORNICKATI RANY OSETRILA A UZ JE TO O.K.":PAUSE 0
6710 IF B=70AND PLAMEN<> BIN THEN LET C$="EGP#":RETURN
6720 IF PAC=1AND B=69 THEN LET C$="DF#:"
6730 IF B<78AND B<> 70AND PLAMEN=BIN THEN PRINT #1;INK VAL "5";" BEZ SVETLA SI NASIEL V PIVNI- CIACH LEN SVOJU SMRT.":PAUSE BIN :GO TO VAL "9965"
6999 RETURN
7000 IF B=101 THEN PRINT #1;" NEPOSLUCHOL SI DOBRU RADU A ZNOVU SI SA POKUSIL PREJST CEZ PREHNITE SCHODY VLAVO.NOHA SA TI POSMYKLA NA KLZKOM POVRCHU A TELO SA S DRASAJUCIM VYKRIKOM STRATILO V MRAZIVEJ TME.PO TU- POM DOPADE OSTRY KLIN PRERAZIL LEBKU A SIVASTA HMOTA SA ROZ- STREKLA PO VLHKYCH STENACH PIV- NICNEJ KOBKY...":PAUSE 0:GO TO 9965
7001 IF B=135 THEN PRINT #1;"A DREVENA BUDKA SA ZRUTILA AKO DOMCEK Z KARAT.V TROSKACH OSTALILEZAT DVE MRTVOLY.TVOJA A SYL- VESTROVA.":PAUSE 0:GO TO 9965
7002 IF B=80 THEN PRINT #1;"TAKE JEDNODUCHE TO ZAS NIE JE. BOMBA VO FUKOVOM BYTE BOLA NAPO-JENA AJ NA KLUCKU.KOVOVE CREPINYZ TEBA SPRAVILI SITKO NA CAJ...":PAUSE 0:GO TO 9965
7003 IF B=82 THEN PRINT #1;"ALE PRI PADE Z OKNA NA PRIZEMI SI NA NESTASTIE PADOL POD PARNY VALEC A KREHKU KOSTRU ROZDRTILI TONY STUDENEHO ZELEZA.":PAUSE 0:GO TO 9965
7004 IF B=79 THEN GO TO 9500
7005 IF B=67 THEN PRINT #1;"A ZRAZU PRUDSI PORYV VETRA ZHA- SIL PLAMEN SVIECE.PO CHVILI TA- PANIA V TME SI NEOPATRNE VOSIEL DO PRACOVNEHO PRIESTORU OBROV- SKEJ VRTULE.JEJ LISTY TA ROZSE- KALI NA MNOZSTVO DROBNYCH FRAN- FORCOV A ROZMETALI TA PO HRDZA- VYCH PLECHOCH KONSTRUKCIE VENTI-LATORA...":PAUSE 0:GO TO 9965
7007 IF B=70 THEN PRINT #1;"CO MAS SKLEROZU?! NEVIES CO BOLONAPISANE NA TABULI NA PRIZEMI? TMA TA UPLNE OSLEPILA A PRI TOM SI NAHODOU STUPIL NA OSTRY,DLHY KLINEC.PACH KRVI PRILAKAL KRYSY A PO NIEKOLKYCH NEMILOSRDNYCH U-TOKOCH SI UKONCIL VECNY KOLOBEH V PRIRODE AKO STAVNATA VECERA DRAVYCH HLODAVCOV.":PAUSE 0:GO TO 9965
7010 IF B=108 THEN PRINT #1;"ALE,ALE!ZABUDOL SI POUZIT LANO. PAD Z 3.POSCHODIA NEBOL SICE SMRTELNY,ALE V USTAVE PRE TE- LESNE CHYBNYCH SI STRAVIL ZBYTOKZIVOTA A FUKU SI PONECHAL NA- POSPAS OSUDU.":PAUSE 0:GO TO 9965
7011 IF B=58 THEN LET Z$="N":PRINT #1;INK 6;"NAMAHAVY SPLH BOL BEZVYSLEDNY. SMATRAJUCA RUKA NAHMATALA OKRAJ JAMY.SYPKY MATERIAL NEBOL VHODNYK TVOJEJ VAHE 84 Kg.SVISTANIE VZDUCHOM TI PRIPOMENULO PRIHODU PRIATELA I.JONESA DRUHEHO.":PAUSE 0:GO TO 27
7012 IF B=91 THEN PRINT #1;"NEPRIJEMNE STIPLAVY PLYN TI PRE-NIKOL AZ DO DRENE KOSTI.PLUCA SASNAZILY VYTAZIT Z JEDOVATYCH VY-PAROV ASPON MOLEKULU DRAHOCENNE-HO KYSLIKA.ALE BEZVYSLEDNE. BORIS SA V PLYNOVEJ MASKE BEZ- MOCNE NAKLANA NAD TVOJIM BEZDU- CHYM TELOM.":PAUSE 0:GO TO 9965
9500 PAPER 0:BORDER 0:BRIGHT 0:INK 7:CLS
9501 RESTORE 9505:FOR F=0 TO 77 STEP 8:READ P:CIRCLE PAPER P;INK P;87,87,F:CIRCLE PAPER P;INK P;255-87,87,F:NEXT F
9503 PAUSE 0:BORDER 6:PAPER 6:INK 0:CLS :BEEP .5,20:PRINT OVER 0;''';"OK.TIM! SPRAVIL SI TO KRASNE, VIDIET,ZE PROFIK SA NEZAPRE! BLAHOZELAJU S.HRDA,M.SUSTRIK, M.HLAVAC A ARTHUR BROWN.";'';"P.S. DUFAM,ZE NEZASPIS NA VAV- RINOCH.J.RAGGER & J.FOX NIE SU VOBEC AMATERI.SVOJIM ZASAHOM SI LEN ZNASOBIL ICH ODHODLANOST ODSTRANIT F.FUKU A NEBODAJ AJ STANLEYA HRDU,KTORY ICH PRI- VIEDOL DO TEJTO SLAMASTIKY. NEZABUDAJ,ZE V DALSEJ HRE UZ BUDU SKUSENEJSI!ZLOM VAZ."
9505 DATA 7,7,6,4,0,1,5,3,5,2
9506 FOR F=0 TO 14:FOR G=0 TO 7:BEEP .005,F*G/2:PRINT AT F+G,G*4;OVER 1;INK 0;BRIGHT 1;PAPER 6;" ":NEXT G:NEXT F
9520 PAUSE 0:PAPER 0:BORDER 0:CLS :PRINT '''''''''" "
9521 FOR F=0 TO 1
9522 BEEP .5,24+F*12:BEEP .5,28+F*12:BEEP .5,33+12*F
9530 NEXT F
9539 PRINT AT 18,15;" ";AT 19,15;" "
9540 FOR f=16 TO 1 STEP -1:OVER 0:INK 1:PLOT 128-f/2,23+f/2:DRAW 0,-f:NEXT f
9542 PRINT #1;"Gratuluje kolektiv firmy SYBILA"
9545 POKE 63035,250:RANDOMIZE USR 63000:POKE 63035,230
9550 BORDER 7:PAPER 0:INK 0:POKE 23624,0:CLS :PAUSE 50:PAPER 7:POKE 23624,56:CLS
9555 POKE 23607,60:PRINT #1;" 1982 Sinclair Research Ltd":PAUSE 0:CLS :BEEP .005,0:PRINT #1;"LOAD L";:PAUSE 0:CLS :PRINT #1;"LOAD ""L":PAUSE 0:CLS :PRINT #1;"LOAD """"L":PAUSE 0:CLS :BORDER 5
9560 PAUSE 20:BORDER 2:PAUSE 20
9570 POKE 23607,249:PRINT AT 20,5;"Entschuldigen Sie, bitte!";AT 21,8;"Excuse me, please!"
9575 PRINT AT 10,5;"TOP SECRET!!!";AT 12,5;"SECRET CODE IS 21111971Sun";AT 13,5;"569374Bratislava"
9579 PRINT AT 1,0;INK 1;BRIGHT 1;"Najnovsie vyrobky nasej kuchyne:";AT 3,10;"TYPO III";AT 4,10;"S. Holmes";AT 5,9;"Stensontron"
9580 BORDER 7:PAUSE 0:RUN
9949 PAUSE 0:STOP
9950 FOR F=7 TO 1 STEP -1:PRINT AT 4,8;PAPER F;"PROGRAM FUKSOFT":FOR G=1 TO 12:BEEP .002*F,G:NEXT G:NEXT F
9951 FOR F=7 TO 2 STEP -1:PRINT AT 6,9;PAPER F;INK 7;BRIGHT 1;"AUTOR: S.HRDA":FOR G=-5 TO 5:BEEP .003*F,F*3:NEXT G:NEXT F
9953 LET H$="(C) 1987":FOR f=1 TO LEN h$:PRINT AT 16,12;INK 7;BRIGHT 1;h$(1 TO f):BEEP .06,-f*1.5:NEXT f
9955 BEEP .5,33:PRINT AT 14,11;"SYBIL ASOFT"
9956 BEEP .5,33
9957 PRINT AT 8,7;"Music by S.HRDA ";AT 10,6;"Screen by M.Hlavac";AT 12,4;" Load effects M.Sustrik"
9960 RETURN
9966 CLS :PRINT AT 6,0;OVER 1;INK 3;''" "
9967 PRINT INK 3;OVER 1;''" "
9970 FOR F=0 TO 175 STEP 3:INK 9:PLOT 0,F:DRAW OVER 1;255,0:NEXT F
9971 LET A$=" TVOJA SNAHA BOLA MARNA.SVOJOU NEOPATRNOSTOU SI SPOSOBIL,ZE F.FUKA SA NEDOCKAL POMOCI.MALA NALOZ EKRAZITU HO ROZTRHALA NA CIMPR-CAMPR AJ S FIRMOU FUXOFT CEST JEHO PAMIATKE "
9972 PRINT AT 0,0;:FOR F=1 TO LEN A$:IF CODE A$(F)=32 THEN PRINT OVER 1;A$(F);
9973 IF CODE A$(F)<> 32 THEN PRINT OVER 0;A$(F);
9974 BEEP .005,F/64:NEXT F
9980 PAUSE 0:CLS :BEEP .5,-11:BEEP .5,-8:INK 6:PLOT 112,100:DRAW 3,20:DRAW -15,2:DRAW 0,20:DRAW 15,2:DRAW 3,20:DRAW 20,0:DRAW 3,-20:DRAW 15,-2:DRAW 0,-20:DRAW -15,-2:DRAW 3,-20
9985 PRINT AT 12,2;INK 3;"Dolezitu ulohu si nesplnil !";AT 14,2;"To Ti Frantisek v nebi nikdy";AT 16,8;"nikdy neodpusti!"
9990 POKE 63171,211:POKE 63035,220:POKE 63172,254:POKE 63173,0:RANDOMIZE USR 63000:RUN
Raw
podraz3.bas
0 REM TAKZE SE VAM PRECE JEN PODARILO PROGRAM VYLISTOVAT, I KDYZ JSEM SI DAL NA JEHO OCHRANE ZALEZET VICE NEZ POSLEDNE. BUDTE NAVZDY PROKLET !! P.S. SOUHLASIM S VAMI, ZE TATO HRA NENI PRILIS REALISTICKA. ALEDOUFAM,ZE VAS ASPON POBAVILA PROGRAM VYTVOREN 18.3.-29.5.1986POUZITY PROGRAMY WHAM!,MELBOURNEDRAW,ARTIST(PISMENA) A NAHRAVACIRUTINY SATANSOFTU A JANSOFTU.
2 REM
5 FLASH 0:POKE 23659,2:RANDOMIZE USR 65050:BRIGHT 0:FOR I=6 TO 0 STEP -1:PAPER I:BORDER I:CLS :FOR J=1 TO 80:NEXT J:NEXT I
10 POKE 23562,1:POKE 23606,24:POKE 23607,245:POKE 23658,8:POKE 64132,30:POKE 64026,0:POKE 64035,238
20 PAPER 0:BORDER 0:INK 7:BRIGHT 0:INVERSE 0:OVER 0:FLASH 0
25 LET KO=495:LET HE=121
30 CLS :PRINT AT 1,11;"PODRAZ III"
40 PRINT '" FUXOFT 1986 - FRANTISEK FUKA"
50 INK 6:PRINT '"KONCEM 80. LET 20. STOLETI SE ROZMAHA NOVA ODRUDA ZLOCINNOSTI--KRADEZE S POMOCI POCITACU."
60 PRINT '"LUPICI UZ NEPOTREBUJI NAKLADNE VYBAVENI, STACI JIM MIKROPOCITACA MODEM (ZARIZENI K PROPOJENI DVOU POCITACU TELEFONEM). JEDINEVYDAJE TECHTO LUPICU JSOU POPLATKY ZA TELEFON. NAS PRIBEH"
70 PRINT "SE ODEHRAVA V NEW YORKU ROKU 1989. VZIJTE SE DO ROLE NEZA- MESTNANEHO PROGRAMATORA TIMA CO-LEMANA VYBAVENEHO POCITACEM TIMEX 2097 A MODEMEM RS-236B A POKUSTE SE SPOLU SE SVYMI PRATELI OLOUPIT LUPICE."
80 LET PR=130
100 RANDOMIZE USR 64000
110 LET M$="MAM NECO V PACU, ZAVOLEJ MI NA CISLO 807-80-332,HESLO DELTA. STEP STEP ARTHUR BROWN"
120 LET MA=200:LET PR=130:GO TO MA
121 RANDOMIZE USR 65150:LET H$="------------------------------------"( TO H)
122 LET HP=24-PEEK 23689:PRINT AT HP,0;"<";H$;">"
123 FOR I=1 TO H
124 LET A$=INKEY$ :IF A$="STOP " THEN LET H$="STOP ":RETURN
125 IF A$=CHR$ 13 THEN BEEP .2,25:PRINT :RETURN
126 IF (A$>"Z"OR A$<"A")AND (A$>"9"OR A$<"0")AND A$<> " " THEN GO TO 124
127 BEEP .1,40:PRINT AT HP,I;INK 4;A$;:LET H$(I)=A$
128 IF INKEY$ <> "" THEN GO TO 128
129 NEXT I:RETURN
130 FOR I=1 TO LEN P$:LET P=CODE P$(I)
140 IF P=6 THEN PRINT ,:GO TO 195
142 IF P=16 THEN INK CODE P$(I+1):GO TO 190
144 IF P=17 THEN PAPER CODE P$(I+1):GO TO 190
145 IF P=18 THEN FLASH CODE P$(I+1):GO TO 190
146 IF P=19 THEN BRIGHT CODE P$(I+1):GO TO 190
148 IF P=20 THEN INVERSE CODE P$(I+1):GO TO 190
150 IF P=32 THEN BEEP .03,18
155 IF P=205 THEN PRINT :BEEP .3,20:GO TO 195
160 PRINT P$(I);:BEEP .01,3:GO TO 195
190 LET I=I+1:BEEP .1,17
195 NEXT I:PAPER 0:INK 7:FLASH 0:BRIGHT 0:INVERSE 0:PRINT :RETURN
200 IF INKEY$ <> "" THEN GO TO 200
202 BORDER 1:PAPER 0:INK 4:CLS :PLOT 0,0:DRAW 255,0:DRAW 0,175:DRAW -255,0:DRAW 0,-174:DRAW 254,0:DRAW 0,173:DRAW -253,0:DRAW 0,-174
205 PRINT AT 0,11;INK 4;"PODRAZ III"
210 RANDOMIZE USR 65100:INK 6:PRINT AT 3,1;"T-ZAVOLAT TELEFONEM";AT 5,1;"Z-PODIVAT SE NA ZPRAVU";AT 8,1;"TELEFON ZAVESITE STISKNUTIM";AT 9,1;" SYMBOL SHIFT + 'A'"
220 IF M$<> "" THEN PRINT AT 20,8;"ZPRAVA PRO VAS !!"
230 BORDER 4:BORDER 1:LET A$=INKEY$ :PAUSE 1:IF A$="" THEN GO TO 230
240 IF A$="Z"AND M$="" THEN PAPER 1:INK 5:CLS :PRINT AT 10,5;"ZADNA ZPRAVA PRO VAS":FOR I=1 TO 5:RANDOMIZE USR 65200:NEXT I:GO TO MA
250 IF A$<> "Z"AND A$<> "T" THEN BEEP 1,20:GO TO 230
255 GO TO 260
257 POKE 23659,2:PAPER 2:BORDER 2:INK 7:FLASH 1:BRIGHT 1:CLS :PRINT AT 10,1;"ALE FUJ! TO OD VAS NENI PEKNE!"
258 RANDOMIZE USR 65050+USR 65050:RUN
260 IF a$="T" THEN GO TO 300
265 BORDER 2:PAPER 2:INK 7:CLS :BEEP .5,40:PRINT AT 0,9;" ZPRAVA PRO VAS:"'''
270 LET P$=M$:GO SUB PR:LET M$=""
280 FOR I=0 TO 7:PRINT AT 19,12;INK I;"ANY KEY":FOR J=1 TO 9:NEXT J:IF INKEY$ ="" THEN NEXT I:GO TO 280
290 GO TO MA
300 REM IF M$<> "" THEN GO TO 230
302 PRINT AT 12,2;"VLOZTE TELEFONNI CISLO:";AT 14,4;:INK 5
305 IF INKEY$ <> "" THEN GO TO 305
310 FOR I=1 TO 15:BEEP .01,0:LET A$=INKEY$ :IF A$<> "" THEN GO TO 330
315 NEXT I
320 FOR I=1 TO 40:LET A$=INKEY$ :IF A$<> "" THEN GO TO 330
325 NEXT I:GO TO 310
330 IF A$<"0"OR A$>"9" THEN GO TO 305
340 LET T$="":LET B$="":FOR I=1 TO 8
350 IF I=4OR I=6 THEN PRINT "-";:LET B$=B$+"-"
352 IF I=1 THEN GO TO 357
355 IF INKEY$ <> "" THEN GO TO 355
357 LET A$=INKEY$ :IF A$="" THEN GO TO 357
360 IF A$>"9"OR A$<"0" THEN GO TO 355
370 LET B=VAL A$:IF NOT B THEN LET B=10
380 PRINT A$;:LET B$=B$+A$:LET T$=T$+A$:FOR J=1 TO B:BEEP .01,-9:BEEP .01,9:LET B=B+PI -PI :NEXT J
390 NEXT I:BEEP 1,49:PRINT AT 14,4;INK 3;FLASH 1;BRIGHT 1;B$;
395 RESTORE 400
400 DATA "23200557",2100,"80780332",500,"33829825",600,"10333273",700,"80029329",920,"30011111",1100
410 DATA "63133242",2500,"70398622",3500
459 DATA "STOP ",0
460 READ A$,A:IF A$=T$ THEN GO TO 480
465 IF A$<> "STOP " THEN GO TO 460
470 PRINT PAPER 0;INK 2;BRIGHT 1;"---OBSAZENO"
475 FOR I=1 TO 60:NEXT I:BEEP .4,6:FOR I=1 TO 10:NEXT I:BEEP 1,6:IF INKEY$ ="STOP " THEN GO TO MA
477 GO TO 475
480 INPUT "":RANDOMIZE :LET I=RND :FOR I=1 TO 2+3*RND :RANDOMIZE USR 65000:PAUSE 70:IF INKEY$ ="STOP " THEN GO TO MA
490 NEXT I:BORDER 0:PAPER 0:INK 7:CLS :GO TO A
495 PRINT #1;PAPER 5;INK 1;FLASH 1;"SPOJENI PRERUSENO...";:RANDOMIZE USR 65050:GO TO MA
500 LET P$=" ---SOUKROMY UZIVATEL--- STEP ARTHUR BROWN STEP STEP VLOZTE HESLO:":GO SUB PR
510 LET H=5:GO SUB HE:IF H$="STOP " THEN GO TO MA
520 IF H$<> "DELTA" THEN LET P$=" STEP LITUJI, ALE HESLO NESOUHLASI":GO SUB PR:GO TO KO
530 CLS :LET P$="-VITEJ V SYSTEMU,PRITELI-":GO SUB PR
535 FOR I=1 TO 25:BEEP .05,RND *60:NEXT I
540 CLS :LET P$=" STEP 1.MUJ TELEFONNI SEZNAM STEP 2.INFORMACE PRO TEBE STEP STEP VYBER SI '1' NEBO '2'":GO SUB PR
550 LET H=1:GO SUB HE:IF H$="STOP " THEN GO TO KO
552 IF H$<> "1"AND H$<> "2" THEN GO TO 540
560 CLS :IF H$="1" THEN LET P$=" NARODNI AMERICKA BANKA STEP 103-33-273 STEP STEP OSOBNI ODD. MINISTERSTVA VNITRA 800-29-329 STEP STEP DAVID AHL STEP 338-29-825 STEP STEP INFORMACE STEP 300-11-111":GO SUB PR:GO TO 590
570 LET P$="DOZVEDEL JSEM SE OD DAVIDA AHLA,ZE EXISTUJE SOUKROMNIK,KTERY SI V 'NARODNI AMERICKE' VYTVORIL TAJNE KONTO, NA KTERE MU BANKOV-NI POCITAC PRAVIDELNE PRIPISUJE":GO SUB PR
580 LET P$="MIZIVE ZLOMKY CIZICH UROKU. ALE JAK JISTE VIS,V BANCE JE DOST KONT,A TAK SI NAS NEZNAMY STEP NASTRADAL UZ PRES PUL MILIONU STEP DOLARU!"
585 GO SUB PR:LET P$="JESTLI SE TI PODARI ZJISTIT HESLO KONTA, DVACET PROCENT JE TVYCH. CISLO INKRIMINOVANEHO KONTA JE NBA23733091441.":GO SUB PR
590 LET H=1:GO SUB HE:IF H$="STOP " THEN GO TO KO
595 GO TO 540
600 CLS :LET P$=" SOUKROMY UZIVATEL DAVID AHL STEP STEP VLOZTE HESLO:":GO SUB PR
610 LET H=6:GO SUB HE:IF H$="STOP " THEN GO TO KO
620 IF H$<> "JOSHUA" THEN LET M$="PROMIN TIME, ALE ZAPOMNEL JSEM TI RICT, ZE DAVID AHL MA HESLO JOSHUA. STEP STEP ARTHUR BROWN":LET P$=" STEP STEP HESLO NESOUHLASI":GO SUB PR:GO TO KO
630 LET P$=" STEP STEP STEP LOGGED ON......":GO SUB PR:CLS
640 LET P$="TAK TY SES TEN NOVEJ ?! DOUFAM, ZE NASI PARTE POMUZES. V KARTO- TECE MINISTERSTVA VNITRA MA TEN PODRAZAK CISLO 1730180993, ALE":GO SUB PR
650 LET P$="MY SE NEMUZEME NAPOJIT NA POCI- TAC MINISTERSTVA - PRI KAZDEM SPOJENI MAJI JINY KOD.":GO SUB PR
660 LET P$=" STEP P.S:JESTLI SE TI NEKDY VUBEC PODARI DOSTAT SE NA TO ZATRACENYKONTO, VSECHNY PENIZE Z NEJ PRE-VED NA NASE KONTO NBA38277228235":GO SUB PR
670 LET H=1:GO SUB HE:GO TO KO
700 CLS :LET P$="$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ NATIONAL BANK OF AMERICA $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$":GO SUB PR
710 LET P$=" STEP STEP PREVOD FINANCNICH PROSTREDKU:":GO SUB PR
720 LET P$=" STEP PREJETE SI PREVEST PENIZE Z KON-TA CISLO:":GO SUB PR:LET H=14:GO SUB HE:IF H$="STOP " THEN GO TO KO
730 LET Q=0:IF H$="NBA38277228235" THEN LET Q=2
740 IF H$="NBA23733091441" THEN LET Q=1
750 IF Q=0 THEN LET P$=" STEP STEP STEP TOTO KONTO NEEXISTUJE ":GO SUB PR:GO TO KO
760 LET Q$="###BASIC":IF Q=1 THEN LET Q$="ZABBFEM"
770 LET P$=" STEP STEP HESLO:":GO SUB PR:LET H=7:GO SUB HE:IF Q$<> H$ THEN LET P$=" STEP STEP STEP HESLO NESOUHLASI........":GO SUB PR:GO TO KO
775 LET P$=" STEP STEP NA TOMTO KONTE JE 533,729.80 $. STEP NA KTERE KONTO SI JE PREJETE PREVEST ?:":GO SUB PR:LET H=14:GO SUB HE:IF H$<> "NBA38277228235" THEN LET Q=0:GO TO 750
780 LET P$=" STEP STEP PENIZE PREVEDENY.......":GO SUB PR
790 BORDER 6:PAPER 6:RANDOMIZE USR 3438:FOR I=1 TO 25:RANDOMIZE USR 3280:BEEP .02,I+I:NEXT I
800 PAPER 7:BORDER 7:RANDOMIZE USR 3438
810 INK 7:FOR I=0 TO 248 STEP 8:PLOT PAPER 7;I,0:DRAW PAPER 7;0,175:BEEP .02,I/4:NEXT I
820 PAPER 7:INK 0:CLS
830 PRINT AT 0,0;INK 7;" GRATULUJI!!! TAKZE SE VAM TO PODARILO !!! TED SI VE ZDRAVI UZIJTE SVE TEZCE VYDELANE PENIZE A TRPELIVEOCEKAVEJTE DALSI HRU OD FUXOFTU."
840 FOR I=22528 TO 22687:POKE I,206:BEEP .01,15:POKE I,56:BEEP .01,2:NEXT I
850 POKE 22688,206:FOR I=1 TO 150:NEXT I
860 PRINT AT 6,0;INK 7;"TAJNY KOD: 091068"
870 POKE 22688,56:FOR I=22720 TO 22751:POKE I,206:BEEP .01,15:POKE I,58:BEEP .01,2:NEXT I:POKE 22752,206
880 IF INKEY$ <> "" THEN GO TO 880
895 FOR I=1 TO 150:NEXT I
900 PRINT AT 8,0;INK 7;"(OVSEM NA DRUHOU STRANU MUSITE UZNAT, ZE TAK OBTIZNE TO ZASE NEBYLO, ZE NE ?!)"
910 POKE 22752,56:FOR I=22784 TO 22879:POKE I,206:BEEP .01,15:POKE I,57:BEEP .01,2:NEXT I:INPUT "":PAUSE 0:BEEP 1,-15:RUN
920 LET P$="***** MINISTERSTVO VNITRA *********** PERSONAL DEPT. ******":GO SUB PR
930 LET P$=" STEP STEP STEP VLOZTE VSTUPNI HESLO STEP PODLE KODU "
940 LET Q$="":RANDOMIZE :PAUSE RND *99:RANDOMIZE :FOR I=1 TO 5:LET Q=INT (RND *26)+65:LET Q$=Q$+CHR$ Q:LET P$=P$+" "+STR$ Q:NEXT I
950 GO SUB PR:LET H=5:GO SUB HE
960 IF H$<> Q$ THEN LET P$=" STEP STEP STEP CHYBNE HESLO":GO SUB PR:LET M$="TAK TO VIDIS, NENI NAM JASNE JAKTEN JEJICH KOD VLASTNE FUNGUJE STEP STEP ARTHUR BROWN":GO TO KO
970 LET P$=" STEP STEP LOGGED IN SYSTEM ON 00:00:01 ":GO SUB PR
980 CLS :LET M$="VYBORNE TIME! KONECNE USPECH! JEN TAK DAL... STEP ARTHUR BROWN"
990 LET P$="--KARTOTEKA OSOBNICH INFORMACI--":GO SUB PR
1000 LET P$=" STEP STEP STEP CISLO KARTY:":GO SUB PR:LET H=10:GO SUB HE:IF H$<> "1730180993" THEN LET P$=" STEP TATO KARTA NEEXISTUJE....":GO SUB PR:GO TO KO
1010 CLS :PRINT "0000000000"
1020 RANDOMIZE :FOR I=1 TO 50:BEEP .01,33:PRINT AT 0,INT (RND *10);INT (RND *10):NEXT I
1030 PRINT AT 0,0;BRIGHT 1;H$;AT 0,0;:LET P$="1730180993: JACK RAGGER":GO SUB PR
1040 LET P$=" STEP NAROZEN 22.8.1963 V DALLASU, STAT TEXAS. CELKEM 12 KRAT TRES-TAN PRO NEZAKONNE KOPIROVANI PROGRAMU. BYTEM NEW YORK,":GO SUB PR
1050 LET P$="59.ULICE 217. STEP MA ROZSAHLE KONTAKTY S JUGOSLAV-SKYMI ZLODEJI PROGRAMU. OD ROKU 1982 ZAMESTNAN JAKO PROGRAMATOR":GO SUB PR
1060 LET P$="V NARODNI AMERICKE BANCE,PROPUS-TEN R.1987 PRO PODEZRENI Z POD- VODU. OD UNORA 1988 PRACUJE STEP U FIRMY JONES ELECTRONICS JAKO ZAMESTNANEC CISLO 217803. STEP ":GO SUB PR
1070 LET H=1:GO SUB HE:GO TO KO
1100 LET P$=" INFORMACE O TELEFONNICH CISLECH STEP STEP ":GO SUB PR
1105 LET P$=" STEP STEP VLOZTE NAZEV ORGANIZACE NEBO STEP JMENO SOUKROMNIKA:":GO SUB PR
1108 PRINT :LET H=29:GO SUB HE:IF H$="STOP " THEN GO TO KO
1110 FOR I=1 TO 29:IF H$(I)="-" THEN LET H$=H$( TO I-1):GO TO 1120
1115 NEXT I
1120 RESTORE 1200:FOR I=1 TO 3:FOR J=7 TO 0 STEP -1:BORDER J:BEEP .02,-5:BEEP .02,55:NEXT J:NEXT I
1123 IF LEN H$>2 THEN IF H$( TO 3)="DAN" THEN LET H$="DANIEL DOCEKAL"
1125 CLS :LET P$=H$:GO SUB PR
1130 READ A$,B$:IF A$=H$ THEN LET P$=" "+B$:GO SUB PR:GO TO 1105
1140 IF A$="STOP " THEN LET P$=" STEP NENI V EVIDENCI":GO SUB PR:GO TO 1105
1150 GO TO 1130
1200 DATA "FUXOFT","VIZ FRANTISEK FUKA","FRANTISEK FUKA","CZECHOSLOVAKIA 32-98-634","JONES ELECTRONICS","232-00-557","ARTHUR BROWN","807-80-332","DAVID AHL","338-29-825"
1210 DATA "DANIEL DOCEKAL","CZECHOSLOVAKIA,BLAZINEC BOHNICE","MIKROBAZE","CZECHOSLOVAKIA,VEZNICE PANKRAC","INDIANA JONES","VIZ FUXOFT","JACK RAGGER","703-98-622","TIM COLEMAN","315-41-429"
1220 DATA "JONATHAN FOX","631-33-242"
1300 DATA "STOP ","1"
2100 LET P$="************************************ JONES ELECTRONICS LTD. ************************************":GO SUB PR
2110 LET P$=" STEP KARTOTEKA ZAMESTNANCU STEP VLOZTE CISLO ZAMESTNANCE:":GO SUB PR
2120 LET H=6:GO SUB HE:IF H$<> "217803" THEN LET P$=" STEP TENTO ZAMESTNANEC NEEXISTUJE":GO SUB PR:GO TO KO
2130 CLS :FOR I=1 TO 40:PRINT AT 0,0;INT (RND *999999):NEXT I
2150 PRINT AT 0,0;:LET P$="217803: JACK RAGGER":GO SUB PR
2160 LET P$=" STEP PRIJAT 23.2.1988 NA DOPORUCENI JONATHANA FOXE , NASEHO VEDOUCIHOSOFTWAROVEHO ODDELENI.":GO SUB PR
2170 LET P$=" PRACUJI SPOLU NA JEDNOM PRACO- VISTI A JSOU DOBRYMI PRATELI. RAGGER MA PRACOVNI ZARAZENI R72 ,PLATOVA TRIDA DCA-363 , JE ZA- STEP MESTNAN NA PRACOVISTI TG62B .":GO SUB PR
2180 LET H=1:GO SUB HE:GO TO KO
2300 SAVE "A"CODE A,B:RUN
2500 LET P$="SOUKROMY UZIVATEL STEP JONATHAN FOX STEP STEP STEP JAKE JE VASE JMENO ?:":GO SUB PR
2510 LET H=20:GO SUB HE:IF H$<> "JACK RAGGER---------" THEN LET P$=" NEMAM ZAJEM S VAMI HOVORIT STEP ":GO SUB PR:GO TO KO
2520 CLS :LET P$=" VYBORNE JACKU! TO JSEM RAD, ZE VOLAS. JA SE TI NEMUZU DOVOLAT, UDELEJ SI KONECNE NECO SE SVYM TELEFONEM. ALE K VECI. POTREBO-":GO SUB PR
2540 LET P$=" VAL JSEM SI VYBRAT PAR DOLARU Z NASEHO KONTA,ALE ZJISTIL JSEM,ZEJSI ZMENIL HESLO. TO JE CELKEM ROZUMNE, MAM TUSENI ZE DAVID AHLA TI JEHO PRITELICKOVE JSOU NAM UZ NA STOPE.":GO SUB PR
2550 LET P$="BUD TAK HODNY A REKNI MI TO NOVEHESLO. VYTAHL BYCH SI HO Z TVEHOPOCITACE SAM (VIM ZE HO TAM MAS JAKO INFORMACI 7174), ALE JAK JSEM REKL,NEMAM NA TEBE SPOJENI.":GO SUB PR
2560 LET H=10:GO SUB HE:LET P$=" STEP DIKY,JACKU... ":GO SUB PR:GO TO KO
3500 LET P$="SOUKROMY UZIVATEL STEP JACK RAGGER STEP KARTOTEKA SOUKROMYCH INFORMACI PRISNE TAJNE STEP STEP VLOZTE SVE JMENO:":GO SUB PR
3510 LET H=20:GO SUB HE:IF H$="STOP " THEN GO TO KO
3520 IF H$<> "JONATHAN FOX--------" THEN LET P$=" STEP STEP STEP NEMAM ZAJEM S VAMI HOVORIT... ":GO SUB PR:GO TO KO
3530 FOR I=1 TO 2:FOR J=0 TO 31:PRINT AT 17,J;OVER 1;INK 7;"?";:BEEP .005,I:NEXT J:NEXT I
3540 CLS :LET P$="CISLO INFORMACE ?:":GO SUB PR:LET H=4:GO SUB HE:IF H$<> "7174" THEN LET P$=" STEP STEP NEEXISTUJE... ":GO TO KO
3550 FOR I=21 TO 0 STEP -1:PRINT AT I,0;"********************************";:NEXT I
3560 CLS :LET P$="INFORMACE C.7174: STEP STEP 'ZABBFEM'":GO SUB PR:LET H=1:GO SUB HE:GO TO KO
Raw
prestavba.bas
1 REM OKAMZITE TOHO NECHTE TAKOVY PODVOD SE NE- SLUCUJE S MORALKOU SOCIALISTICKEHO CLOVEKA !!!
2 REM
3 DIM M$(VAL "32"):POKE VAL "23658",VAL "8":LET ROOM=VAL "9":LET Z$="ZA":LET K$="ZA":LET PP=VAL "17":DIM M(PP):DIM P(PP):FOR A=SGN PI TO PP:READ P(A),M(A):NEXT A:DATA VAL "8",NOT PI ,VAL "100",SGN PI ,VAL "10",NOT PI ,VAL "7",SGN PI :DATA VAL "6",SGN PI ,VAL "100",SGN PI ,VAL "100",SGN PI ,VAL "100",SGN PI ,VAL "200",SGN PI ,VAL "9",NOT PI ,VAL "5",SGN PI ,INT PI ,SGN PI ,VAL "11",NOT PI ,VAL "100",SGN PI ,VAL "18",NOT PI ,VAL "200",SGN PI ,VAL "200",NOT PI :LET MAM=NOT PI :LET HORI=NOT PI :LET POT=NOT PI :LET JAMA=NOT PI :LET UVO=NOT PI :LET DYNAMIT=NOT PI :BORDER NOT PI :POKE VAL "23693",VAL "7":CLS :PRINT #RND ;AT NOT PI ,NOT PI ;" 1988 UV SOFTWARE SAVE-S NAMET  1968 ZIVOT"'" ":PRINT AT VAL "5",NOT PI ;"UV SOFTWARE SI U PRILEZITOSTI 20. VYROCI OSVOBOZENI CESKOSLO- VENSKA SPOJENECKYMI ARMADAMI DO-VOLUJE NABIDNOUT VAM LOGICKOU KONVERZACNI HRU:":PRINT AT VAL "12",VAL "7";"P.R.E.S.T.A.V.B.A.":PRINT AT VAL "14",NOT PI ;"Program Revolucni Experimentalni Socialisticky Tvorive Avantgardni Voloviny Basniku a Analfabetu":FOR A=SGN PI TO VAL "10" STEP INT PI :FOR B=SGN PI TO VAL "10":BEEP VAL ".01",A+B:NEXT B:NEXT A:PAUSE NOT PI :IF INKEY$ ="S" THEN SAVE "PRESTAVBA"LINE SGN PI
4 GO TO VAL "26"
5 RESTORE VAL "9+13*RND ":READ R$:PRINT #RND ;BRIGHT SGN PI ;R$:LET M$="":LET X=NOT PI
6 PRINT AT VAL "21",NOT PI ;M$;AT VAL "21",X;"_":PAUSE NOT PI :LET A$=CHR$ PEEK VAL "23560":IF CODE A$=VAL "12"AND X>NOT PI THEN LET M$(X)=" ":LET X=X-SGN PI
7 IF ((A$>"/"AND A$<":")OR (A$>"@"AND A$<"[")OR A$=" ")AND X<VAL "31" THEN LET M$(X+SGN PI )=A$:LET X=X+SGN PI
8 IF CODE A$=VAL "13" THEN BEEP .01,20:BEEP .01,30:PRINT AT VAL "21",NOT PI ,,:BEEP .3,69.5:RETURN
9 BEEP .01,20:BEEP .01,30:GO TO 6
10 DATA "SLAVA K.S.C !"
11 DATA "SE SSSR NA VECNE CASY !"
12 DATA "AT ZIJE SOCIALISMUS !"
13 DATA "PROLETARI VSECH ZEMI,SPOJTE SE !"
14 DATA "SLAVA LENINSKE POLITICE STRANY !"
15 DATA "SMRT IMPERIALISTICKYM STVACUM !"
16 DATA "VZHURU DO NOVE PETILETKY !"
17 DATA "AT ZIJE VITEZNY UNOR !"
18 DATA "SOCIALISMUS - CESTA ZITRKA !!!"
19 DATA "KUPREDU LEVA, ZPATKY NI KROK !!"
20 DATA "ZA OSVOBOZENI VYKORISTOVANYCH !"
21 DATA "ZA NEJDEMOKRATICTEJSI ZRIZENI !"
22 DATA "DNES PETILETKA-ZITRA KOMUNISMUS!"
23 LET R$=R$+" ":FOR P=SGN PI TO PP:RESTORE VAL "103"+P:READ A$:IF A$( TO PI )=R$( TO PI ) THEN RETURN
24 NEXT P:LET P=NOT PI :PRINT AT 12,0;" TO BOHUZEL NEZNAM...":LET R$=R$( TO LEN R$-PI ):RETURN
25 PAUSE NOT PI
26 CLS :RESTORE ROOM+VAL "64":READ S,V,J,Z,N,D:GO SUB VAL "90":PRINT AT VAL "9",VAL "9";:IF (NOT HORI)AND ROOM<= VAL "5" THEN PRINT "JE TU TMA":GO TO VAL "41"
27 IF S THEN PRINT "S,";
28 IF V THEN PRINT "V,";
29 IF J THEN PRINT "J,";
30 IF Z THEN PRINT "Z,";
31 IF N THEN PRINT "N,";
32 IF D THEN PRINT "D,";
33 IF S+V+J+Z THEN PRINT " ";AT VAL "9",NOT PI ;"VYCHODY:"
34 READ A$:PRINT AT NOT PI ,NOT PI ;A$;AT VAL "10",VAL "6";:LET BYLO=NOT PI :FOR A=SGN PI TO PP:IF P(A)=ROOM THEN RESTORE A+VAL "103":READ A$:PRINT A$;",";:LET BYLO=SGN PI
35 NEXT A:IF BYLO THEN PRINT ".";AT PI *PI ,NOT PI ;"VIDIS "
36 IF HORI THEN LET HORI=HORI-SGN PI :IF NOT HORI THEN LET P(VAL "9")=VAL "200":PRINT '"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!MARXOVA KNIHA DOHORIVA..."
37 IF P(VAL "16")=VAL "99" THEN GO TO VAL "121"
38 IF NOT DYNAMIT THEN GO TO VAL "41"
39 LET DYNAMIT=DYNAMIT-SGN PI :IF NOT DYNAMITAND ROOM=VAL "18" THEN PRINT "OBROVSKA EXPLOZE OTRASLA MESTEM,COZ JSI VSAK JAKO JEJI PRIMY UCASTNIK NESLYSEL...":PAUSE NOT PI :RUN
40 IF NOT DYNAMITAND ROOM<> VAL "18" THEN PRINT '"ZEME SE OTRASLA VYBUCHEM.":LET P(VAL "14")=VAL "200":LET P(VAL "15")=VAL "200":LET P(VAL "16")=VAL "18":LET P(VAL "17")=VAL "18":GO TO VAL "25"
41 GO SUB VAL "5":LET R$="":FOR A=X TO SGN PI STEP -SGN PI :IF M$(A)=" " THEN GO TO VAL "43"
42 LET R$=M$(A)+R$:NEXT A
43 GO SUB VAL "23":LET H$=M$(SGN PI TO INT PI ):PRINT AT VAL "13",NOT PI ;"--------------------------------":IF H$="PRO" THEN GO TO VAL "84"
44 IF H$="S " THEN IF S THEN LET ROOM=S:GO TO VAL "26"
45 IF H$="V " THEN IF V THEN LET ROOM=V:GO TO VAL "26"
46 IF H$="J " THEN IF J THEN LET ROOM=J:GO TO VAL "26"
47 IF H$="Z " THEN IF Z THEN LET ROOM=Z:GO TO VAL "26"
48 IF H$="D " THEN IF D THEN LET ROOM=D:GO TO VAL "26"
49 IF H$="N " THEN IF N THEN LET ROOM=N:GO TO VAL "26"
50 IF H$="VEZ" THEN GO TO VAL "94"
51 IF H$="POL" THEN GO TO VAL "97"
52 IF H$="KON" THEN RUN
53 IF H$="ZAP" THEN IF RND <VAL ".7" THEN PRINT "ZAPALOVAC VYNECHAL...":GO TO VAL "25"
54 IF H$="ZAP" THEN IF VAL "P=2AND (P(2)=ROOMOR P(2)=99)" THEN LET HORI=VAL "12":LET P(VAL "9")=VAL "99":LET P(VAL "2")=NOT PI :PRINT "ZAPALIL JSI KAPITAL.KEZ OSVITI TVOJI CESTU !.":GO TO VAL "25"
55 IF H$="KOP" THEN IF VAL "NOT UVOAND P(11)=99" THEN PRINT AT VAL "12",NOT PI ,,''"NECHCE SE TI MAKAT...":GO TO VAL "25"
56 IF H$="PRE" THEN IF VAL "P(12)=99OR P(12)=ROOM" THEN IF NOT UVO THEN PRINT AT VAL "12",NOT PI ,,''"PRECETL JSI SI UVODNIK RUDEHO PRAVA.OKAMZITE JSI DOSTAL CHUT K PRACI, KTERA JE ZAKLADNI CTI SOCIALISTICKEHO OBCANA.":LET UVO=SGN PI :GO TO VAL "25"
57 IF H$="KOP" THEN IF VAL "UVOAND P(11)=99AND ROOM=4" THEN PRINT AT VAL "12",NOT PI ,,''"PODARILO SE TI PROKOPAT SE DO NIZSIHO PODLAZI !":LET JAMA=SGN PI :GO TO VAL "25"
58 IF H$="ZAP" THEN IF VAL "P=14AND P(14)=18AND P(4)=99" THEN PRINT "ZAPALIL JSI DOUTNAK...":LET DYNAMIT=VAL "2":GO TO VAL "25"
59 IF H$="ZAD" THEN IF ROOM=VAL "8"AND R$="1948" THEN LET K$="ODE":PRINT AT VAL "12",NOT PI ,,''"ZAMEK KLAPNUL !":GO TO VAL "25"
60 IF H$="OTE" THEN IF VAL "ROOM=8AND P=1AND K$=""ODE""" THEN LET Z$="OTE":PRINT "CESTA NA ZACHOD JE VOLNA !":GO TO VAL "25"
61 IF H$="OTE" THEN IF VAL "ROOM=9AND P(8)=99AND P=10AND NOT POT" THEN LET POT=SGN PI :PRINT "S POMOCI KLICE SE TI PODARILO OTEVRIT POKLOP.":GO TO VAL "25"
62 IF H$="INV" THEN GO TO VAL "100"
63 IF H$="SLO" THEN PRINT AT VAL "12",NOT PI ,,AT VAL "13",VAL "12";"SLOVNIK"'"VEZMI POLOZ KONEC ZAPAL KOPEJ ZADEJ PRECTI PROZKOUMEJ OTEVRI INVENTAR SLOVNIK S J V Z N D":PAUSE NOT PI :GO TO VAL "25"
64 PRINT "BOHUZEL... ALE NEZOUFEJ, TO JE DIALEKTIKA DEJIN !!!":GO TO VAL "25"
65 DATA NOT PI ,NOT PI ,NOT PI ,VAL "2",VAL "20",NOT PI ,"JSI NA KONCI DLOUHE PODZEMNI CHODBY.JE TU ZEBRIK VEDOUCI KAM-SI NAHORU."
66 DATA NOT PI ,SGN PI ,NOT PI ,NOT PI ,VAL "4",NOT PI ,"JSI V DLOUHE PODZEMNI CHODBE VE-DOUCI NA VYCHOD."
67 DATA VAL "4",NOT PI ,NOT PI ,NOT PI ,NOT PI ,NOT PI ,"JSI V MALEM JIZNIM VYKLENKU JESKYNKY.JE TU SPOUSTA PAPIRU."
68 DATA NOT PI ,NOT PI ,INT PI ,VAL "5",NOT PI ,NOT PI ,"JSI V MALE PODZEMNI JESKYNCE. PRI CHUZI TVE KROKY PODIVNE DUNI."
69 DATA NOT PI ,VAL "4",NOT PI ,NOT PI ,VAL "9",NOT PI ,"JSI V UZKE PODZEMNI CHODBE VE- DOUCI NA VYCHOD.JE TU VLHKO"
70 DATA NOT PI ,NOT PI ,VAL "9",NOT PI ,NOT PI ,NOT PI ,"JSI V BYVALEM SKLADISTI.JE TU NESKUTECNY NEPORADEK."
71 DATA NOT PI ,VAL "9",NOT PI ,NOT PI ,NOT PI ,NOT PI ,"STOJIS V TMAVEM VYKLENKU."
72 DATA VAL "9",NOT PI ,NOT PI ,NOT PI ,NOT PI ,NOT PI ,"STOJIS PRED OSKLIVYM SMRDUTYM ZACHODEM.TAHNE OD NEJ NEPRIJEMNYZAPACH."
73 DATA VAL "6",NOT PI ,VAL "8",VAL "7",NOT PI ,NOT PI ,"STOJIS V MALE ZAPRASENE MISTNO- STI."
74 DATA NOT PI ,NOT PI ,NOT PI ,VAL "8",NOT PI ,NOT PI ,"JSI NA SPINAVEM ZACHODE.RADSI TO NEBUDU PRILIS POPISOVAT,MOHLOBY SE TI UDELAT NEVOLNO."
75 DATA NOT PI ,NOT PI ,NOT PI ,VAL "20",NOT PI ,NOT PI ,"STOJIS PRED KRASNE VYZDOBENYM OLTAREM."
76 DATA VAL "20",VAL "13",VAL "14",VAL "13",NOT PI ,NOT PI ,"JSI VE MESTE.JE TU VELKY ZMATEK."
77 DATA NOT PI ,VAL "14",NOT PI ,VAL "12",NOT PI ,NOT PI ,"BLOUDIS MESTEM."
78 DATA VAL "12",VAL "15",VAL "16",VAL "17",NOT PI ,NOT PI ,"JSI VE MESTE.ULICE JSOU NEPRED- STAVITELNE SPINAVE..."
79 DATA NOT PI ,VAL "12",NOT PI ,VAL "13",NOT PI ,NOT PI ,"JSI VE MESTE.ASI JSI ZABLOUDIL..."
80 DATA VAL "14",VAL "17",VAL "12",VAL "12",NOT PI ,NOT PI ,"PROCHAZIS MESTEM"
81 DATA NOT PI ,VAL "18",NOT PI ,VAL "16",NOT PI ,NOT PI ,"BLOUDIS MESTEM.TUDY CESTA NEVE- DE..."
82 DATA NOT PI ,NOT PI ,NOT PI ,VAL "17",NOT PI ,NOT PI ,"JSI V MALEM PARCIKU.JE TU PLNO ZELENE."
84 DATA NOT PI ,VAL "11",VAL "12",NOT PI ,NOT PI ,SGN PI ,"JSI V MALEM KOSTELIKU.JE DOCELA HEZKY VYZDOBEN.":IF NOT P THEN GO TO VAL "64"
85 IF (P(P)<> ROOMAND P(P)<> VAL "99") THEN GO TO VAL "64"
86 RESTORE P+VAL "103":READ A$,A$:PRINT A$
87 READ A:IF NOT A THEN GO TO VAL "25"
88 IF P(A)<> VAL "100" THEN GO TO VAL "87"
89 PRINT "NECO JSI NASEL !":LET P(A)=ROOM:GO TO VAL "87"
90 IF ROOM=VAL "8" THEN IF Z$="OTE"AND K$="ODE" THEN LET V=VAL "10"
91 IF ROOM=VAL "4" THEN IF JAMA THEN LET D=VAL "2"
92 IF ROOM=VAL "9" THEN IF POT THEN LET D=VAL "5"
93 RETURN
94 IF NOT P THEN GO TO VAL "64"
95 IF P(P)<> ROOMOR NOT M(P)OR MAM=VAL "5" THEN GO TO VAL "64"
96 LET MAM=MAM+SGN PI :RESTORE P+VAL "103":READ A$:PRINT "VZAL JSI ";A$:LET P(P)=VAL "99":GO TO VAL "25"
97 IF NOT P THEN GO TO VAL "64"
98 IF P(P)<> VAL "99" THEN GO TO VAL "64"
99 LET P(P)=ROOM:RESTORE P+VAL "103":READ A$:PRINT "POLOZIL JSI ";A$:LET MAM=MAM-SGN PI :GO TO VAL "25"
100 PRINT AT VAL "12",NOT PI ,,''"MAS U SEBE:";:FOR A=SGN PI TO PP:IF P(A)=VAL "99" THEN RESTORE A+VAL "103":READ A$:PRINT TAB VAL "12";A$
101 NEXT A
102 GO TO VAL "25"
103 DATA "NEBOJTE SE JICH !!!"
104 DATA "DVERE","JSOU "+Z$+"VRENE A "+K$+"MCENE"+"."+CHR$ VAL "13"+"JE NA NICH ZAMEK NA CISELNY CTYRMISTNY KOD.",NOT PI
105 DATA "KNIHU","JE TO MARXUV KAPITAL.",NOT PI
106 DATA "MISU","JE UPLNE ZASCHLA.",VAL "2",NOT PI
107 DATA "ZAPALOVAC","JISTE BY S NIM SLO LECOS ZAPA- LIT.JE TO TOTIZ KVALITNI ZAPALO-VAC ~MADE IN USSR~.",NOT PI
108 DATA "BEDNU","JE ZE DREVA.",VAL "6",NOT PI
109 DATA "KOSIK","JE TO HEZKY PROUTENY KOSIK, I KDYZ PONEKUD SPINAVY.",VAL "7",NOT PI
110 DATA "KRABICI","JE Z PAPIRU.",VAL "8",NOT PI
111 DATA "KLIC","JE TO CTVERHRANNY KLIC K POKOLO-PU",NOT PI
112 DATA "HORICI KAPITAL","VYDAVA JASNE SVETLO POKROKU !!!",NOT PI
113 DATA "POKLOP","JE TO TEZKY OCELOVY POKLOP SE ZAMKEM NA CTVERHRANNY KLIC",NOT PI
114 DATA "KRUMPAC","JE VELICE ZREZIVELY, ALE JINAK POUZITELNY",NOT PI
115 DATA "UVODNIK","JE TO UVODNIK RUDEHO PRAVA",NOT PI
116 DATA "OLTAR","JSOU NA NEM OBRAZY SVATE TROJICE- MARXE, ENGLSE A LENINA...",VAL "14",NOT PI
117 DATA "DYNAMIT","JE TO KLASICKA KOULE S DOUTNA- KEM.",NOT PI
118 DATA "SOCHU","LENIN...",NOT PI
119 DATA "CIHLU","JE CELA ZE ZLATA",NOT PI
120 DATA "TROSKY JAKESI SOCHY","VIDIM KUS LEBKY,UCHO A RUKU UKAZUJICI CESTU DO STASTNE KOMUNISTICKE BUDOUCNOSTI",NOT PI
121 CLS :PRINT "GRATULUJI VITEZI !":PAUSE VAL "100":PRINT ''''''"JE VIDET, ZE SOCIALISTICKY CLO- VEK SI PORADI V KAZDE SITUACI...":PAUSE VAL "200":PRINT AT VAL "15",NOT PI ;"JESTE JEDNOU GRATULUJI.SEJDEME SE VSICHNI 21.SRPNA NA STARO- MESTSKEM NAMESTI...(NEBO JINDE)":PAUSE NOT PI :RUN
Raw
satochin.bas
1 REM <274<5<275757472<4<-<475<7<477777574<2<9<><<7>7<7:7:7977<9<2<:<7<9<577777574<27274<5<7<9<><<7>7<7:7:7977<9<2<:<7<9<577777574<2
2 REM $$$~$$~$>8>l0fF4<f?00>>0> 0`<fnvf<8<<F <`~<f f<<l~~`| f<<`|ff<~ 00<f<ff<<ff> <0000`?COPY >> TO INPUT COPY INPUT TO <f<JV^@<<ff~ff|f|ff|<f``f<xlfflx~`|``~~`|```<f`nf<ff~fff<< ff<lxpxlf`````~Bf~fffffvnff<ffff<|ff|``<ffvn<|ff|lf<`< f<~fffff<ffff<ffff~$f<<ff<~ 0~`0 xx<Z~~~~~~6x00~<ff~ff$<ff~ff<f``f<(xlfflx~`x``~~`x```8<ll<``xlll<<l<0<88<6d````~vjjjjffvnff<ffff<<ffff<<|ff|lf<`< f<~fffff<ll88bjj~>l88lf<~ 0~xxx(<BEXP RND EXP RND B<
3 CLEAR 60156:RANDOMIZE USR 60157:RANDOMIZE USR VAL "60230":LPRINT "KEd Mas TLAcIAREn,NEMYSLI SI,zE SI seF."''''''':LET O$=CHR$ 11+CHR$ 10+CHR$ 13:LET HU=2:GO TO 5
4 POKE 23659,1:FOR g=9 TO 22:PRINT AT g,0;" ":NEXT g:PRINT AT 10,0;:INK 7:RETURN
6 POKE 23658,8:POKE 23606,84:POKE 23607,92:GO SUB 9965
8 GO SUB 9990:GO SUB 9950
9 RANDOMIZE USR 62120:GO SUB 9000
10 RESTORE sh:LET rd=sh:READ t$:LET s$=t$(1 TO 8):LET t$=t$(9 TO )+"VIDis":GO SUB 2e3:IF sh=43 THEN LPRINT "cO TU POSTaVAs SO ZALOzENyMI RU-KAMI-Uz MAL LETIEt GRANaT A ZNIcIt CISTERNU."
11 INK 0:GO SUB cls:LET RIA=0:FOR f=1 TO 10:IF CODE q$(f)=sh THEN LET t$=t$+" "+P$(f):NEXT F
12 LET ria=ria+1:NEXT F:IF ria=10 THEN LET t$=t$( TO LEN T$-5)
13 PRINT INK 6;t$;AT 21,0;"MpzEs iSt:"+("DO KELU"AND s$="########")+("NA"AND s$(1 TO 4)<> "####")+(" SEVER"AND s$(1)<> "#")+(" JUH"AND s$(2)<> "#")+(" VyCHOD"AND s$(3)<> "#")+(" ZaPAD"AND s$(4)<> "#")+(" HORE"AND s$(5)<> "#")+(" DOLE"AND s$(6)<> "#")+(" DNU"AND s$(7)<> "#")+(" VON"AND s$(8)<> "#")
33 DATA "cc""c####SKVELe.OBKLOPUJE tA TAJUPLNa DzUNGlA A OPaJA KRaSA a MNOzSTVOTROPICKyCH KVETOV,ZVUKOV A sKRE-KOV. ALE POZOR! iLOVITa cERVENO-ZEM JE MAZlAVa A NOHY SA TI KVA-LITNE ZABaRAJu.A KTOVIE, cO tA EsTE cAKa."
34 DATA "%#d!####A Uz Su TU PRVe STOPY CIVILIZa- CIE.NIEKOlKO PLYTKyCH SLIZKyCH JaM PLNyCH ODPORNyCH ODPADKOV. KUSY POTRHANEJ CELTOVINY,ROZBITyRIAD A dALsIE MNOzSTVO HARABuRD."
36 DATA "#d#%####NA SEVERE SA cRTa VCHOD DO TaBO-RA.JE TU PLNO OSTNATeHO DRpTU A AJ HLIADKOVACIE STANOVISKa,KTOReZiVAJu PRaZDNOTOU.NIET TU zIVEJ DUsE."
37 DATA "#"+CHR$ 34+"$#####PRIBLizIL SI SA K TaBORU.TIAHNE SA TU HRADBA Z OSTNATeHO DRaTU. TEN JE PaRKRaT POPRETrHANy A PaCHNE TO TU ZMESOU MrTVOLNeHO ZaPACHU A STRELNeHO PRACHU."
38 DATA "'$#####JE TU ZOPaR SPaLENyCH SLAMENyCH DOMCOV.TVOJE KROKY V MrTVOLNOM TICHU VYPLAsILI VTaKOV,KTORi O- dOBaVALI ZOHAVENe MrTVOLY.V UNI-FORMaCH AJ BEZ.ZBRANE VOlNE PO- HODENe.Uz ICH NIK NEBUDE POTRE- BOVAt."
39 DATA "(&######ZAUJALA tA ZDEMOLOVANa KASaREn, MOHUTNy KRaTER A VENCOVITE LE- zIACE TELa.GUlOMETNa DaVKA VYRY-LA DO OMIETKY DLHu STOPU.NEMeHO SVEDKA SMUTNEJ UDALOSTI."
40 DATA "#',*####POCHMuRNU SCeNU VYSTRIEDAL OBRAZZACHOVANEJ LETIsTNEJ PLOCHY.NA SEVERE JE BUDOVA ZBROJNICE A ZO ZaPADU NA VyCHOD SA TIAHNE ROLO-VACIA DRaHA."
41 DATA "#######DVERE Su Uz DOKORaN. EsTE stAS- TIE, zE ZBRANE Su NEPORUsENe. AKeSI TOcITe SCHODY VYRASTAJu V uSTRETY PRELOMENeMU STROPNeMU PANELU."
42 DATA "##(+####LETIsTNa PLOCHA POKRAcUJE AJ dA-LEJ.STOJA TU DVA RADY VRTUlNi- KOV, ALE HRDZA DOKAZUJE, zE NIE Su V POJAZDNOM STAVE."
43 DATA "##*#####TROCHU dALEJ OD LETISKA STOJi Z BEZPEcNOSTNYCH DpVODOV CISTERNA Z PALIVOM.JE PEKNE zLTO NATRETa AKO NOVa."
44 DATA "##-(####LETIsTNa PLOCHA SA TIAHNE OKOLO PROVIZoRNEJ VEzE.JE uPLNE ZNIcE-Na A PaS MENsiCH KRaTEROV PRETi-NA AJ BETONOVy PaS DRaHY.cIzE PRE LIETADLa JE MOMENTaLNE NEPO-UzITElNa."
45 DATA "###,##.#STOJi TU AKOBY ZaZRAKOM NEPORU- sENy VRTUlNiK MI-24.JEHO POSaDKAAKISTE NESTIHLA UNIKNut POHROME."
46 DATA "######-TENTO LIETAJuCI KORaB JE AJ VNuTRI BEZ DEsTRUKTiVNYCH ZaSA- HOV."
47 DATA "0####.#ODlAHcENy VERTAlJOT SA POSLUsNE VZNIESOL A ZAVESIL SA DO VysKY 15M. cAKa NA dAlsIE POKYNY."
48 DATA "2#13###NEcAKANE SA OPROTI VYNORIL RAMBONA OBDOBNOM LIETAJuCOM PROST- RIEDKU RUMUNSKEJ VyROBY.PREKVA- PENE SA OTOcIL A ZBABELO ZMIZOL ZA KOPCOM S RYzOVyMI TERASAMI."
49 DATA "########AMATeRSKY PREVEDENy MANeVER tA STaL SKORO zIVOT.VRTUlNiK V PRUDKEJ ZaKRUTE ZACHYTIL VRTUlOUO LISTY VYSOKyCH PALIEM A AKO TUcNa MUCHA S ODTRHNUTyMI KRiD-LAMI PADOL K ZEMI.A TY AKO DOKO-NALy MRZaK MAs PLNy NaROK NA IN-VALIDNy DoCHODOK."
50 DATA "########ZABUDOL SI PRIDAt VysKU. TVRDy NaLET NA RYzOVu TERASU STROJ NE-VYDRzAL."
51 DATA "4######sIKOVNE SI PRIDAL PLYN A ZAVESILSI SA NA PbTY RAMBOVEJ KRAKSNI."
52 DATA "5######Z OTVORENeHO NEPRIATElSKeHO VR- TUlNiKA SA VYKLONIL AKySI KSICHTA ZAcAL ROBIt HLUK lAHsiM GUlO- METOM.PRAVDEPODOBNE SA SNAzi tA ZNEsKODNIt, LEBO STRELY HViZDA- JuCE OKOLO TEBA Uz STIHLI ROZBItcELNe SKLO."
53 DATA "6######TERAZ SI Uz DAL TEN BLBy AMERI- cAN VIAC ZaLEzAt, cO SA PREJAvI-LO PRESTRELENiM PALIVOVeHO cER- PADLA.NECHCEM TI RADIt, ALE NE- BOLO BY OD VECI DAt TO DO PO- RIADKU."
54 DATA "####F##TU TO VYZERa NAOZAJ VHODNE NA PRISTaTIE.JE TU NEHLBOKe POLicKOA POlNa CESTA VEDIE NA ZaPAD SMEROM K AKEJSI DEDINE."
55 DATA "##E8####SKUTOcNE JE TU NIEKOlKO SLAME- NyCH CHATRci. BA DOKONCA NA ROHUSTOJA DVE NALEsTENe BABETY A OB-dALEc STOJi NaKLAdaK. LEN lUDIA SA PRED TEBOU RADsEJ ROZUTEKALI."
56 DATA "##7###9#CESTA V KlUDE POKRAcUJE dALEJ Z DEDINY NA ZaPAD.NA KRAJI STOJi MOHUTNy NaKLADNy VOZ URAL C64. NA VyCHODE JE MALa DEDINA."
57 DATA "C#####8Su TU DVE DOSt TVRDe SEDADLa A AJ CELa KABiNA JE RIEsENa ZNAcNEuSPORNE A SPARtANSKY.CESTY V O- KOLi Su BAzINATe A VElMI NEBEZ- PEcNe."
58 DATA "#######ZuRI TU MENsIA PRESTRELKA.RUSOV ZASKOcILA NEPOcETNa SKUPINKA VIETNAMCOV-PRISLUHOVAcOV SAIGON-SKeHO REzIMU.OBSADILI ZBROJNICU A OKAMzITE ROZPuTALI BOJ."
59 DATA "#t######ZBROJNICA JE NAOZAJ DOKONALE Za-SOBENa MNOzSTVOM ZBRANi,NaHRAD- NyCH DIELOV A MUNiCIE.KEd JU Ti zLTi DIABLI OBSADILI ZNEMOzNILI RUSOM POUzIt PROTI NIM ucINNu TECHNIKU."
60 DATA "###=H##NO ZATIAl TO KRaSNE sLAPE.BA DO-KONCA AJ RAMBO PRIJAL TVOJU HRU.KRuzI OKOLO TEBA. ASI CHCE S TEBOU Uz RAZ SKONCOVAt.ALEBO TY S NiM? VsAK SA ONEDLHO UVIDi! "
61 DATA ">####<##RAMBO NENaPADNE PREHUcAL OKOLO TEBA A VYDAL SA SMEROM K SEVERU.MOzNO JE TO PASCA. VLETis DO RuKNEPRIATElOV... ALEBO Uz NAVzDY SKONCUJEs S TOU AMERICKOU PRAsI-VOU SVInOU."
62 DATA "#######cOSI SA ZAciNA RYSOVAt.RAMBOVA MAsINeRIA PRUDKO ZABRZDILA VO VZDUCHU.HLAVEn VYTrcAJuCA Z JEHODVERi SA NaPADNE OTOcILA SMEROM K TEBE."
63 DATA "#######MUsKU Mas DOBRu.cO DOBRu,VyBOR- Nu! PO TVOJEJ SALVE SA CHUDaK RAMBO ZOSYPAL DOLE DO POTOKA.(A-MATeR!!!) Z VRTUlNiKA SA MU DYMiAKO ZO STAReHO TRABANTA."
67 DATA "######~CESTA TI'PRiJEMNE'UBIEHA.Uz POL HODINU SI TO sINIEs PO PODOZRIVOKVALITNyCH CESTaCH.RaD BY SOM tAUPOZORNIL NA JEDNU lUDSKu POTRE-BU,KTORa tA VYHanA VON Z AUTA. AZDA SA ZACHOVAs HUMaNNE A UlA- Vis SVOJMU tAzKO SKusANeMU TE- LicKU."
69 DATA "7##G#STOJis VEDlA SVOJHO MONsTRA.OKO-LO Su BAzINY A BLiZKA DEDINA."
70 DATA "#######EVRTUlNiK STOJi ASI NA JEDINOM SUCHOM MIESTE V OKOLi.NAJLEPsIE BUDE ZaJSt DO DEDINY.(POZN.AUT.)"
71 DATA "#######ENAcO SEM LEZEs.VEd MAsINA JE PO-KAZENa!"
72 DATA "####<##EKONTROLKY RADOSTNE ZABLIKOTALI. STROJ JE PRIPRAVENy K dAlsIEMU BOJU."
99 DATA "########KyM SI ZISTIL,zE IDEs ZLyM SME- ROM,BOLO Uz NESKORO.BAHNO BOLO STaLE HLBsIE,REDsIE,VyPARY HUST-sIE..."
100 DATA "$##"+CHR$ 34+"####PRiJEMNa PLaz.OD MORA POFUKUJE VLAzNy VIETOR."
115 DATA ":#######PO TAKEJTO ulAVE BY V TOM BOL cERT,KEBY SI TO NEDOTIAHOL DO uSPEsNeHO KONCA.TAK HOR SA VPRED"
116 DATA "#u####;V ZHONE SI PREBEHOL DO AUTA.TE- RAZ RyCHLO K VRTUlNiKU.SMEROM NAVyCHOD JE NEJAKa SKRATKA.cO TAK VYSKusAt JU?"
117 DATA "#7######DUPOL SI NA PLYN A PREFRcAL SI CEZ DzUNGlU AKO ViCHOR.NA JEDNOMMIESTE BOLA SKUPINA POMSTYCHTI- VyCH VIETNAMCOV.JE TO ICH CHYBA,zE SEDELI NA CESTE SO ZALOzENyMIRUKAMI. ALE Uz JE TU DEDINA."
126 DATA "######s#STOJis VEDlA SVOJHO MONsTRA A cURas.TO JE BALZAM NA TELO! OKO-LO Su SAMe CHMuRNE BAzINY."
990 FOR f=1 TO 7:BEEP .005,40-f:PRINT AT f,1;" ":NEXT f
991 LET y=2:PRINT AT 1,1;"U SEBA Mas:":FOR f=1 TO 10:IF Q$(f)="" THEN LET y=y+1:PRINT AT y,1;INK 1;PAPER 7;BRIGHT 1;P$(f)
992 NEXT f:IF y=2 THEN PRINT AT 7,1;"FIGU BOROVu"
997 DATA "SEVER","ZaPAD","POUzI","POLOz","VEZMI"
998 DATA "KONIEC","VyCHOD","SKuMAJ","HORE","DOLE"
999 DATA " VON"," DNU"," JUH"," SAVE"," LOAD"
1000 FOR f=1 TO 7:PRINT AT f,13;" ":NEXT f
1005 RESTORE 990:FOR G=13 TO 27 STEP 6:FOR f=2 TO 6:READ t$:PRINT AT f,G;PAPER 7;INK 1;BRIGHT 1;t$:NEXT f:NEXT G
1010 LET y=2:LET x=13
1015 PRINT AT y,x;OVER 1;" ":PAUSE 0
1020 IF INKEY$ =o$(3) THEN GO TO 1100
1030 IF INKEY$ =o$(2) THEN GO TO 1039
1031 IF INKEY$ =o$(1) THEN GO TO 1051
1035 BEEP .009,44:GO TO 1015
1039 PRINT AT y,x;OVER 1;" "
1040 LET y=y+1:IF x>24AND y=7 THEN LET x=13:LET y=2
1045 IF y=7 THEN LET y=2:LET x=x+6
1050 BEEP .005,Y:GO TO 1015
1051 PRINT AT y,x;OVER 1;" ":LET y=y-1:IF y=1AND x=13 THEN LET y=6:LET x=25
1052 IF y=1 THEN LET y=6:LET x=x-6
1053 BEEP .005,Y:GO TO 1015
1100 GO SUB 1103:LET sh=(CODE s$(1)AND s$(1)<> "#"AND x=13AND y=2)+(CODE s$(2)AND s$(2)<> "#"AND x=25AND y=4)+(CODE s$(3)AND s$(3)<> "#"AND x=19AND y=3)+(CODE s$(4)AND s$(4)<> "#"AND x=13AND y=3)+(CODE s$(5)AND s$(5)<> "#"AND x=19AND y=5)+(CODE s$(6)AND s$(6)<> "#"AND x=19AND y=6)+(CODE s$(7)AND s$(7)<> "#"AND x=25AND y=3)+(CODE s$(8)AND s$(8)<> "#"AND x=25AND y=2):IF sh=127 THEN GO TO 7000
1101 IF sh=PI -PI THEN LET sh=rd:GO SUB cls:PRINT ;"TyMTO SMEROM SA NEDa iSt":PAUSE 0:GO TO 10
1102 IF sh<> rd THEN GO TO 10
1103 IF x=19AND y=2 THEN GO TO 9975
1104 IF x=25AND y=5 THEN GO TO 9983
1105 IF y=6AND x=25 THEN GO TO 9984
1106 IF (x=19AND y=4)OR (x=13AND y=4)OR (x=13AND y=5) THEN GO TO 9050
1107 IF x=13AND y=6 THEN GO TO 8500
1200 RETURN
1234 REM NECH ZIJE ROM 2
1971 BEEP .5,0:LET HU=HU+1:IF HU=3 THEN LET HU=0
1972 PRINT AT Y,10;OVER 0;("NEZVUKY"AND HU=0)+("PAZVUKY"AND HU=1)+("ZVUKY "AND HU=2):RETURN
2001 IF sh=36AND q$(11)="!" THEN LET S$(1)="&"
2002 IF sh=46AND q$(12)="!" THEN LET s$(5)=CHR$ 47
2003 IF sh=69AND q$(13)="H" THEN LET s$(7)="H"
2004 IF sh=69 THEN LPRINT "cO SI BUDEs POTIt TRIKO.KAsLI NATO.VEd TOTO HEBEDO Uz DaVNO PATRi DO sROTU!"
2005 IF sh=47 THEN LPRINT "NIE zE BUDEs ZNEcIStOVAt zIVOTNePROSTREDIE VYHADZOVANiM ODPADKOV"
2006 IF sh=34 THEN LPRINT "TIE ODPORNe NEKULTuRNE zLTe HOVbDa Su HORsIE AKO DIVe SVINE!TAKTO ZAGEBRIt KRaSNU PRiRODU."
2007 IF sh=49 THEN LPRINT "AKO ZDATNy BOREC SA URcITE NE- VZDaVAs.A TAK TI DaVAME EsTE 1 sANCU SPLNIt NaROcNu uLOHU. ZVOLKONIEC A POKRAcOVANIE A MpzEs UKaZAt,cO V TEBE JE."
2050 RETURN
3000 IF O$(3)=INKEY$ THEN GO TO 3002
3001 GO TO 9571
3002 PRINT AT Y,9;" ":FOR F=10 TO 13:PRINT AT F,10;OVER 0;" ":NEXT F
3003 RESTORE (3400AND Y=10)+(3401AND Y=11)+(3402AND Y=12)+(3403AND Y=13)
3004 FOR F=10 TO 13:READ T$:PRINT AT F,10;BRIGHT 1;T$:NEXT F
3007 BEEP .5,0
3008 IF INKEY$ ="" THEN GO TO 3008
3009 GO TO 6
3400 DATA "sEVcENKOVA17","TEL.:826-791","BRATISLAVA","85101"
3401 DATA "VAJANSKeHO17","TEL.:569-374","BRATISLAVA","81102"
3402 DATA "PuPAVOVA 26","TEL.:324-713","BRATISLAVA","84104"
3403 DATA "DONNEROVA17","TEL.:324-315","BRATISLAVA","84105"
4500 IF (SH<64AND SH>59)OR (SH<55AND SH>46AND SH<> 49) THEN LET Q$(F)="COPY ":PRINT "PREDMET SKLZOL Z CHVEJuCEJ SA PODLAHY A PREHVIzDIAC VZDUCHOM ZMIZOL VO VLHKyCH VyPAROCH DzUN-GLE... KTOSI tA VsAK POKLEPAL PO PLECI.UVIDEL SI ODHODLANy KSICHT ORTO-DOXNeHO STuPENCA HNUTIA GREEN PEACE, KTORy tA CLADNOKRVNE ZA- VRAzDIL.":PAUSE 0:GO TO 9600
4501 IF SH=67OR SH=58OR SH=57OR SH=115OR SH=116OR SH=117 THEN PRINT "sKAREDO SI ZAGaNIL NA PREDMET V RUKE A BEZ ROZMyslANIA SI HO VYsMARIL CEZ OKNO VON DO TMY.":LET Q$(F)="~":PAUSE 0:GO TO 10
4502 PRINT "POLOzIL SI ";P$(F):LET Q$(F)=CHR$ SH:PAUSE 0:GO TO 10
5000 FOR F=VAL "60342" TO VAL "61705":GO SUB 9559:IF INKEY$ <> "" THEN RETURN
5001 NEXT F:GO TO 5E3
5005 LET DZEDO=USR 64280:PAPER 0:INK 6:BORDER 0:CLEAR :PRINT #1;"1-SANAToRIUM 2-VIETNAM":PRINT AT 0,0;" MINI sATOCHIN POKRAcOVANIE V uSTAVE PRE VOJENSKyCH VYSLuzILCOV-INVALIDOV TOTO SANAToRIUM TI JE DOMOVOM Uz24 ROKOV.PO sOKU Z PaDU VRTUlNi-KA tA SEM POSLALI DO VySLUzBY. VEd SI NESPLNIL PRVORADu uLOHU! ZATIAl TI VYPADALI VsETKY VLASY A ZUBY A AJ TELO ZCHRADLO. NO VcERA SI SA PREBUDIL Z HROZ- NeHO SNA.TVOJ NEPRIATEl RAMBO tA NAVsTiVIL A DOKONcIL DIELO POMSTY.HNEd SI PRECITOL, ALE NA HRUDI TI LEzALA VYsTRBENa HRDZA-Va DyKA A PODREZANy POTKAN.PREM-KLA ta MUcIVa PREDTUCHA..."
5010 PAUSE 0:IF INKEY$ ="2" THEN RUN
5050 RESTORE 5200:READ a:GO TO 5100
5090 LET rnd=INT (RND *10)+1
5091 READ hu:IF rnd<= hu THEN GO TO 5100
5092 LET rnd=rnd-hu:LET r=r+1:RESTORE r:GO TO 5091
5100 CLS :BEEP .5,-60:DIM g(5):READ t$,hu:PRINT t$:FOR f=1 TO hu:READ t$,g(f):PRINT 'INVERSE 1;f;INVERSE 0;" ";t$:NEXT f
5101 PAUSE 0:LET t$=INKEY$ :IF t$<"1"OR t$>STR$ (f-1) THEN GO TO 5101
5102 LET r=g(VAL t$):IF r=PI THEN GO TO 5400
5103 IF r=0 THEN RUN
5105 RESTORE r:GO TO 5090
5200 DATA 10,"LEzis V POSTELI",3,"POcKas NA OsETROVATElKU",5201,"PREPLizIs SA DO KANCELaRIE RIADITElA",5203,"UTEcIEs DO LESA",5205
5201 DATA 4,"TO BOLO RISKANTNe.CEZ OTVORENe OKNO PRELETEL siP A PO VyBUCHU DUM-DUM NaLOzE UKONcIL TVOJ STRASTIPLNy zIVOT.",1," ",PI
5202 DATA 6,"OsETROVATElKA TI ZOBRALA POTKANAA ODVIEDLA tA RIADITElOVI",3,"POcKas PRED KANCELaRIOU",5206,"BEZ OKOLKOV VOJDEs",5203,"SKRYJEs SA NA WC",5209
5203 DATA 4,"RIADITEl BOL ZNEPOKOJENy TVOJOU DOTIERAVOStOU A NECHAL tA ZVIA- ZAt DO ZVIERACEJ KAZAJKY.",2,"BUDEs KRIcAt.",5215,"POcKas,cO SA BUDE DIAt.",5217
5204 DATA 6,"OCITOL SI SA V ZATEMNENEJ KANCE-LaRII RIADITElA.",2,"UKRADNEs KASU.",5203,"SO ZVbZKOM PAPIEROV ZO STOLA UTEcIEs DO KOTOLNE",5245
5205 DATA 10,"ROZTRHALA tA SVORKA HLADOVyCH VLKOV",1," ",PI
5206 DATA 9,"RIADITEl TI UDELIL DISCIPLINaRNEOPATRENIE A POSLAL SPbt DO TVO- JEJ IZBY.",1," ",5200
5207 DATA 1,"DLHO SI NEcAKAL.KTOSI TI ZAsRA- MOTIL ZA CHRBTOM A NEz SI SA STIHOL OTOcIT TI ROZPUcIL LEBKU KOVacSKYM KLADIVOM",1," ",PI
5209 DATA 1,"ANI SI OKOM NEMIHOL A Uz SI SE- DEL MrTVY NA WC-MISE.",1," ",PI
5210 DATA 9,"ZAVREL SI SA NA WC.",2,"UTEcIEs DO LESA",5205,"VRaTIs SA NA IZBU",5200,"VYDas SA DO KOTOLNE.",5250
5215 DATA 10,"NEUROTICKy RIADITEl tA PRIsIEL OSOBNE UsKRTIt...",1," ",PI
5217 DATA 10,"ASI NA TEBA ZABUDLI.USUsIL SI SAV ZVIERACEJ KAZAJKE...",1,"",PI
5245 DATA 10,"V TMAVOM KuTE ZA MOHUTNyM KOTLOMSI NAHMATAL SVIEcKU A ZaPALKY.",3,"PAPIERE SPaLIs,ABY tA S NIMI NECHYTILI",5290,"ZAPaLIs SVIEcKU A PREsTUDUJEs SI,cO SI VLASTNE VZAL.",5285,"OTOcis VElKyM KOHuTOM V POTRU-Bi",5280
5250 DATA 10,"uTEK BOL NEOPATRNy.NAMIESTO DO KOTOLNE SI VBEHOL DO MRAZIACICH BOXOV.DVERE SA ZAKLAPLI A TY SI SA PEKNE VYMRAZIL.",1," ",PI
5260 DATA 10,"BLizI SA SKUPINA CHOVANCOV S OsETROVATElKOU.",2,"VcLENis SA DO SKUPINY",5270,"ZBEHNEs SPbt DO KOTOLNE",5250
5270 DATA 2,"TVOJ LACNy TRIK ODHALILI.MOzNO NABUDuCE...",1," ",5203
5271 DATA 7,"OCITOL SI SA V KRUHOVEJ MIESTNO-STI SPOLU S 20-25 lUdMI RpZNEHO STUPnA SCHIZOFRENICKEJ INFANTI- LITY.V JEDNEJ TVaRI SI OJAVIL,cOSI HLADAL.",2,"NEDas NA SEBE NIcZNAt A POKOJ-NE VYcKas VEcERA.",5295,"VRHNEs SA NA TOHO PAPlUHA,ABY SI HO ZADUSIL.",5320
5280 DATA 5,"TAK TI TREBA.KOHuT SA POMALY OTOcIL A OCHVilU VYTRYSKLI PRuDYVODY.UTOPIL SI SA AKO SPROSTe MAcA.",1," ",PI
5281 DATA 5,"TRHOL SI KOHuTOM A TEN TI OSTAL VISIEt V RUKaCH.KURIc tA HNEd OBJAVIL A ODVIEDOL RIADITElOVI.",1," ",5203
5285 DATA 9,"DOciTAL SI SA,zE PRI PREsETROVA-Ni PACIENTOV IDENTIFIKOVALI NE- ZNaMEHO CHOVANCA Z ODDELENIA POMIATNUTyCH JEDINCOV.JEDNa SA O sIKOVNE SA PRETVARUJuCEHO AMERICKeHO VETERaNA Z VIETNAMU. BOL OBJAVENy V TEN DEn AKO TY A VYDaVAL NEARTIKULOVANe ZVUKY. KEdzE BOL NAHy,ZARADILI HO K VO-JENSKyM INVALIDOM.TERAZ Ma BYt ODTRANSPORTOVANy DO MOSKVY.NA DRUHEJ STRANE NIEKTO PEROM NA- cMaRAL.NEZVESTNy CHOVANEC-VYHLa-SIt TAJNe PaTRANIE",2,"VRat SA DO KANCELaRIE",5203,"PRENIKNEs DO ODDELENIA BEZPRi-ZORNyCH",5260
5290 DATA 10,"TY PODPAlAc!OD TVOJICH PAPIEROV SA CHYTILA CELa BUDOVA A VYHORE-LA DO TLA!",1," ",0
5295 DATA 1,"PRI KONTROLNOM SciTANi tA ODHA- LILI.",1," ",5203
5296 DATA 9,"VsETCI POKOJNE ZASPALI.",2,"STOLIcKOU UMLaTIs RAMBA.",5320,"PRILOzis MU K NOSU SVOJE PO- NOzKY",5340
5320 DATA 6,"RAMBO VYTUsIL NEBEZPEcENSTVO A POHOTOVO ZAREAGOVAL.S VIDLIcKOU OD OBEDA tA ZaKERNE ODROVNAL",1," ",PI
5321 DATA 2,"VyBORNE!POTVRDIL SI SVOJE KVALI-TY A SPLNIL SI STARy ROZKAZ.LEN VEDENIE SANAToRIA TI NEUVERILO (SPROSTi IDIOTI) A PREHLaSILO tAZA MANIAKaLNEHO VRAHA.BOL SI OD-SuDENy A cESTNE VOJENSKY ZASTRE-LENy...",1," ",0
5322 DATA 2,"DOZORCA VcAS ZBADAL TVOJ PREJAV AGRESIVITY A ZASIAHOL.",1," ",5203
5340 DATA 10,"TENTO sPINAVEC PREKVAPENE ROZLE-PIL SVOJE BASTARDIE OcKa A ZHL- BOKA SA NADyCHOL.KONCENTROVANy SPUCH Z HISTORICKyCH PONOzIEK PRENIKOL Az DO PluC.cOSI TLMENE EXPLODOVALO A RAMBOVI ZAcAL SI- PIEt Z Usi HUSTy DYM.ZVitAZIL SI!!.LEN sKODA,zE SI SA Uz NIKDYZ TOHTO ODDELENIA NEDOSTAL.OMY- LOM tA TU NECHALI DOzIt ZBYTOK zIVOTA...O TVOJEJ ODDANOSTI A HRDINSTVE SA NIKDO NEDOZVEDEL.",1," ",0
5400 CLS :PRINT "TVOJ PRACHMIZERNy zIVOT SA SKON-cIL.BOL SI SLABy.NEJAKy uBOHy SVALOVEC RAMBO-NaSTROJ AMERICKe-HO IMPERIALIZMU PREUKaZAL VIAC MOZGOVeHO POTENCIaLU A SKuSENOS-Ti.POsKVRNIL SI TRADIcNu POVESt sPECIaLNYCH JEDNOTIEK SA.ZATO SAUsKVAR V NAJHORuCEJsOM PEKLE...":PAUSE 0:RUN 5005
5998 IF RD=63AND F=9 THEN GO TO 9560
5999 IF RD=62AND F=10 THEN LET SH=63:GO TO 10
6000 LET SH=RD:PRINT "POUzIL SI ";P$(f);'';"ALE BEZVySLEDNE."
6001 PRINT AT 12,0;:IF RD=36AND F=1 THEN PRINT "DOBRE MIERENy HOD GRANaTOM ROZ- METAL CHATRNe ZVYsKY BRaNY.PRIE-CHOD JE VOlNy!":LET q$(11)="!":PAUSE 0:GO TO 10
6002 IF F=1AND SH=43 THEN PRINT "MOHUTNyM ROZMACHOM SI VYMRsTIL GRANaT SMEROM K CISTERNE.OCElOVeVAJCE TUPO DOPADLO NA HRUBy PLECH.POSKOcILO SMEROM K PO- KLOPU A ZO zBLNKOTOM ZMIZLO V MASTNEJ TEKUTINE.":GO TO 6010
6003 IF SH=43AND F=5 THEN PRINT "PO TROCHE NaMAHY SI NAPLNIL OBE BANDASKY Az PO OKRAJ.sKODA LEN, zE SI SI ZAsPINIL AJ NOVu UNI- FORMU.TY PRASA.":LET q$(5)=" ":LET q$(6)=""
6004 IF RD=46AND F=6 THEN PRINT "LETECKy PETRPOLEJ ZMIZOL V Na- DRzI.TERAZ Uz BUDE VZLIETNUTIE URcITE BEZPEcNe.":LET q$(5)="":LET q$(6)=" ":LET q$(12)="!"
6005 IF F=3AND Q$(4)="" THEN LET Q$(4)=" ":LET Q$(10)="":LET Q$(3)=" ":PRINT "PO CHViLI NaMAHY SA ZaSOBNiK SO STRELIVOM ZASUNUL NA SVOJE MIESTO."
6006 IF f=10AND rd=58 THEN PRINT "TERAZ TO DOSTALI!KRaTKA DaVKA ROZMETALA ICH CHATRNe OPEVNENIE.VsETCI cO PREzILI KRVAVu zATVU ZMIZLI uPRKOM V ZELENOM LABYRIN-TE.ZA OBDIVNyCH POKRIKOV SVOJICHSI PREBEHOL DO ZBROJNICE.":PAUSE 0:LET sh=59:GO TO 10
6007 IF F=7AND RD=40 THEN LET S$(1)=")":PRINT "BRaNA ZBROJNICE JE MIERNE PORU- sENa.ASI TLAKOVOU VLNOU PRI NE- JAKOM VyBUCHU.EsTE,zE KlucE DO NEJ PRESNE ZAPADLI A Uz SI VNu- TRI.":LET sh=41
6008 IF F=8AND RD=69 THEN LET s$(7)="H":LET Q$(8)=" ":LET q$(13)="H":PRINT "VYMONTOVAL SI STARe DERAVe cER- PADLO.VYZERa AKO SITKO NA cAJ. INsTALaCIA NOVeHO cERPADLA TI Uz NEROBILA PROBLeMY."
6009 IF F=1 THEN PRINT "VElMI SI CENiM TVOJU SNAHU TRe- NOVAt SI HOD GRANaTOM, ALE MO- MENTaLNE JE TO NEucELNe."
6899 PAUSE 0:GO TO 10
6900 BEEP .5,40:BRIGHT 1:PRINT AT y,9;" ":FOR f=10 TO 13:PRINT AT f,10;OVER 0;" ";:NEXT f:PRINT AT 10,12;"HORE...";AT 11,12;"DOLE...";AT 12,12;"BANG!..":LPRINT "DuFAME,zE BUDEs NATOlKO INTELI- GENTNy A POcuVNEs NAsE DOBRE MIENENe RADY.TERAZ NAPRiKLAD STLAc KLaVESY 'KGB' A STANEs SA NAsIM NOVOPEcENyM AGENTOM."
6910 PAUSE 0:LET O$(1)=INKEY$ :IF INKEY$ =""OR CODE O$(1)>127 THEN GO TO 6910
6914 PRINT AT 10,19;O$(1):BEEP .5,40
6915 PAUSE 0:LET O$(2)=INKEY$ :IF O$(2)=O$(1)OR CODE O$(2)>127 THEN GO TO 6915
6919 PRINT AT 11,19;O$(2):BEEP .5,40
6920 PAUSE 0:LET O$(3)=INKEY$ :IF O$(3)=O$(2)OR O$(3)=O$(1)OR CODE O$(3)>127 THEN GO TO 6920
6926 BEEP .5,40:PRINT AT 12,19;O$(3);:PAUSE 50:IF O$="KGB" THEN PRINT FLASH 1;AT 12,19;" ";AT 10,19;" ";AT 11,19;" ":PAUSE 50:GO TO 5005
6927 GO TO 6
7000 GO SUB cls:REM PODMIENKY SMRTI
7001 IF rd=46 THEN PRINT "MOTOR POSLUsNE ZAKAslAL, NEVIDI-TElNa SILA ZDVIHLA KOLOS DO Vys-KY.ZRAZU SA ROZBESNILA KONTROLKAPALIVA.MOTOR ZACHRcAL, VRTUlA SA BEZMOCNE ZAREZALA DO VZDUCHU.PO PaDE tA OSTRe ZDEFORMOVANe PLECHY ROZREZALI AKO cOKOLaDOVu TORTIcKU.(MnAM MnAM)":PAUSE 0:GO TO 9600
7002 IF rd>46AND rd<54 THEN PRINT "PADaK NEBOL NA SKLADE,AK TI TO VpBEC NIEcO HOVORi.ALE cO TI TU VYPRaVAM, VsAK TY NAJLEPsIE VIEszE SI PaD NEPREzIL.":PAUSE 0:GO TO 9600
7003 IF rd=54 THEN PRINT "MaLIcKO SI PRECENIL SCHOPNOSTI SOVIETSKEHO VRTUlNiKA.BOHUzIAl NEJDE O PERPETUUM MOBILE A TAK, KEd CEZ PRASKNUTe cERPADLO VY- TIEKLO VsETKO PALIVO,KLZAVyM LE-TOM SI BOL NuTENy PRISTat.TO VsAK HRALO DO KARaT RAMBOVI,KTO-Ry SI DOVOLIL POSLAt MALy POZD- RAV-NAPALMOVu BOMBU.NO OBDRzANIEMILEJ POZORNOSTI SI NEPREzIL. (zEBY INFARKT ?!).":PAUSE 0:GO TO 9600
7004 IF RD=58 THEN PRINT "ODVAHA JE CENNa, ALE ROZVAHA Es-TE CENNEJsIA.VBEHNut DO NaRUcIA AGRESiVNYCH PARTIZaNOV BY DOKa- ZAL MaLOKDO.A EsTE MENEJ lUDi BYTO AJ PREzILO.STAcILA KRaTKA GU-lOMETNa DaVKA ABY SI TO POCHO- PIL.ALE HLBsIE SA NAD TyM ZAMY- SLIEt MpzEs Az NA ONOM SVETE.":PAUSE 0:GO TO 9600
7005 IF RD=57 THEN PRINT "CHLAPcE,CHLAPcE.TO SI SI NAVARILAUTO ZMIZLO V BAzINaCH AKO IHLA V KOPE SENA.ALE TO NIE JE VsETKOTVOJA MALIcKOSt TIEz ZMIZLA. uPLNE.(AJ S UNIFORMOU TY PAsE- RaK!)DuFAM,ZE SaM UZNas,zE JE NEMOzNe V HRE POKRAcOVAt.":PAUSE 0:GO TO 9600
7006 IF RD=69 THEN PRINT "A NATRAFIL SI (ciROU NaHODOU) NAMIESTNE BAzINY.A Uz SI SA Z NICHNEVRaTIL.NABUDuCE CESTUJ S cE- DOKOM.":PAUSE 0:GO TO 9600
7007 IF RD=38 THEN LPRINT "V HRE TERRAMEX NaJDETE SPRaVNY SUD,KEd VYLETiTE HORE A IDETE DOlAVA.":PRINT "ZBYTOcNE SEM NAZiZAs. V TOMTO SLAMENOM DOMCI NESTOJi NIc ZA TOABY SI SI KAZIL ZRAK.ALE PREDSA!NIEcO SA MIHLO V TIENI PLAGaTU HO-cI-MINA.ZELENa PIVOVa FLAsKA S NaPISOM 'PILSNER URQUEL' SA TI ROZTRIEsTILA O cELO.BOLO TO O- SUDNe.DO RaNA SI VYKRVaCAL A Mr-TVOLA VYCHLADLA AKO ORIEsKOVa ZMRZLINA.":PAUSE 0:GO TO 9600
7008 IF rd=67 THEN PRINT "NEUPOSLuCHOL SI VNuTORNy HLAS. KrcOVITa BOLESt POD zALuDKOM tA DONuTILA SKRuTIt VOLANT A VRaTItSA SPat.":LET sh=67:PAUSE 0:GO TO 10
7009 IF rd=41 THEN PRINT "OPATRNE SI SA VYTEPERIL VON.NO zELEZNa BRaNA SA ZA TEBOU S DU- NENiM ZABUCHLA.":LET sh=40:PAUSE 0:GO TO 10
7010 IF rd=116 THEN PRINT "zLTyM CHLAPCOM SA NEPacILO TVOJEKONANIE V TaBORE,KDE SI ODROVNALICH PRIATElOV.POcKALI SI V STRE-HU NA TEBA.BOL SI OBESENy NA NAJBLIzsEJ PALME.":PAUSE 0:GO TO 9600
7011 IF rd=62OR rd=60 THEN PRINT "SMOLA.TVOJ NEOHRABANy MANeVER RAMBO JASNE PREKUKOL.SeRIA OLO- VENyCH STRIEL TI SYSTEMATICKY ROZORVALA KRYT MOTORA.TENTOKRaT NaDRz VYBUCHLA.UsKVARIL SI SA V PLAMEnOCH.":PAUSE 0:GO TO 9600
7012 IF rd=63 THEN PRINT "TY BLBEC!TY DEFEKT! TY SPROSTa KAPUSTOVa HLAVA!PRIPADas MI AKO EMOCIONaLNY POSERKO.CHCEL SI VY-CHUTNAt POHlAD NA TROSKY NEPRIA-TElA.ALE TEN BOL ZNAcNE PREFiKA-NEJsi!POcKAL SI KyM DOSADNEs. A POTOM ZDANLIVO MrTVY ZDVIHOL TA-RASNICU,STLAcIL SPust.DOSTATOc- NOU ODMENOU MU BOL TVOJ ZDESENy BEZMOCNy POHlAD,KTORy SA ZMENIL NA ZAUJiMAVy OHnOSTROJ.":PAUSE 0:GO TO 9600
7600 IF INKEY$ =O$(3)AND Y=4AND SH=49 THEN RUN 5005
7601 RETURN
8500 LET G=PI -PI :FOR f=1 TO 10:IF q$(f)="" THEN LET G=G+1:IF G=5 THEN GO SUB cls:PRINT "TO Uz NEUNESEs, NIE SI ARNOLD":PAUSE 0:GO TO 10
8501 NEXT f
8504 FOR f=1 TO 10:IF CODE q$(f)=sh THEN LET q$(f)="":GO SUB cls:PRINT " ZOBRAL SI DOKONCA AJ ";P$(f):PAUSE 0:GO TO 10
8505 NEXT f:GO SUB cls:PRINT " NIET SA cOHO ZMOCNIt":PAUSE 0:GO TO 10
9000 GO SUB cls:LET Y=16:PRINT AT 10,PI -PI ;"lAHucKO SA HOMPaLAs VO VZDUCHU A NAD HLAVOU Mas OTVORENy BIELY HODVaBNY PADaK. ZEM SA POMALY BLizI A TY SA MpzEs V KlUDE ROZ-HODNut, KDE PRISTANEs:";AT 16,0;INK 6;"1...NA VyCHODNEJ PLazI 2...V DzUNGLI NEdALEKO TaBORA 3...NA ZaPADNOM BREHU 4...NA AKOMSI OSTROVE 5...CHYTis SA VysKOVKY LIETADLA"
9001 PRINT AT Y,0;OVER 1;" ":IF INKEY$ =O$(1) THEN PRINT AT Y,0;OVER 1;" ":BEEP .15,0:LET Y=Y-1:IF Y=15 THEN LET Y=20
9002 IF INKEY$ =O$(2) THEN PRINT AT Y,0;OVER 1;" ":BEEP .15,0:LET Y=Y+1:IF Y=21 THEN LET Y=16
9003 IF INKEY$ =O$(3) THEN RANDOMIZE USR 62120:GO TO 9011
9004 GO TO 9001
9011 PAUSE 0:IF Y=16 THEN GO SUB cls:PRINT "ZHORA TO SiCE VYZERALO AKO PLaz,ALE HOLa SKUTOcNOSt BOLA TROCHU INa. ROZBESNENe VLNY TU NARazAJuNA MOHUTNu HRADBU KORALOVyCH u- TESOV.ICH TVRDOSt SI POCiTIL NA VLASTNOM TELE. LEN sKODA,zE ASI NAPOSLEDY.":PAUSE 0:GO TO 9600
9012 IF Y=17 THEN GO TO 10
9013 IF Y=18 THEN GO SUB cls:PRINT "TaTO VOlBA NEPATRi MEDZI NAJ- stASTNEJsIE. PADOL SI TROCHU OD BREHU ROVNO DO AKEJSI TMAVEJ ROPNEJ sKVRNY. PaR GLGOV MASTNEJTEKUTINY A AKOBY TI OtAzELI KON-cATINY. EsTE ZOPaR CHAByCH POHY-BOV, DVA TRI sIKOVNe zRALOKY...":PAUSE 0:GO TO 9600
9014 IF Y=19 THEN GO SUB cls:PRINT "ZO SlUBNeHO OSTROVcEKA SA VYKlU-LO ZasKODNiCKE STANOVISKO AMiKOVDOKONCA NA LETISKU SI ZAZREL PO-KAsLIAVAt VRTUlNiK TVOJHO SOKA RAMBA.TVOJE ZVEDAVe POciNANIE (BOHUzIAl) NEUsLO POZORNOSTI OZBROJENyCH ZLOzIEK.OSTATNe SI RADsEJ DOMySLI SaM.(NIK NIE JE VEcNE zIVy)":PAUSE 0:GO TO 9600
9015 IF Y=20 THEN GO SUB cls:PRINT "Az TAKu ZBABELOSt SOM NEcAKAL! V HANOJI PRISTaLO LIETADLO A ZA VysKOVKU SA KrcOVITE DRzi... aNO, OSPEVOVANy MAJOR sATOCHIN! TOTO SA VsAK KVALIFIKUJE AKO DE-ZERTeRSTVO!!! BOL SI DEGRADOVANyNA RADOVeHO VOJAKA POHRANIcNEJ STRazE V SIBiRSKEJ DEDINKE OLEn.":PAUSE 0:GO TO 9600
9050 IF SCREEN$ (7,2)="I" THEN PRINT OVER 1;AT 1,1;" ";AT 7,1;" ":PAUSE 100:GO TO 10
9051 FOR f=1 TO 10:IF CODE q$(f)=shAND X=13AND y=5 THEN GO SUB cls:PRINT "V MIESTNOSTI MpzE LEzAt LEN 1 PREDMET (cO SVEDci O LENIVOSTI PROGRAMaTORA)":PAUSE 0:GO TO 10
9052 NEXT f:GO SUB cls
9054 LET SH=3:LET G=0:FOR f=1 TO 10:IF q$(f)="" THEN LET G=G+1:NEXT F:IF G=1 THEN GO TO 9098
9055 NEXT F
9056 OVER 1:PRINT AT SH,1;" ";:PAUSE 0:IF INKEY$ =O$(3) THEN OVER 0:LET G=SH-2:GO TO 9098
9057 IF INKEY$ =O$(1) THEN BEEP .05,0:PRINT AT SH,1;" ":LET SH=SH-1:IF SH=2 THEN LET SH=2+G:GO TO 9056
9058 IF INKEY$ =O$(2) THEN BEEP .05,0:PRINT AT SH,1;" ":LET SH=SH+1:IF SH=3+G THEN LET SH=3:GO TO 9056
9060 GO TO 9056
9098 LET sh=0:FOR f=1 TO 10:IF q$(f)="" THEN LET sh=sh+1:IF sh=G THEN LET SH=RD:GO TO 9100
9099 NEXT F
9100 GO SUB CLS:IF x=13AND y=5 THEN GO TO 4500
9110 IF x=13 THEN GO TO 5998
9201 PRINT "PRESKuMAL SI ";P$(f);''
9202 INK 5:IF f=1 THEN PRINT "Su TO uTOcNe GRANaTY NAJNOVsEJ VyROBY FIRMY KRUPP-ESSEN (zEBY JEZTE KROUPY ?)."
9203 IF f=2 THEN PRINT "PRAVa A NEFALsOVANa.OBSAHUJE VsETKY POTREBNe uDAJE.Z FOTKY SANA TEBA CERi AKeSI UsATe INDIVi-DUM.JE VYSTAVENa NA TVOJE MENO."
9204 IF f=3 THEN PRINT "jE TO VLASTNE ZaSOBNiK SO 100 NaBOJNICAMI.TVOJ SKuSENy ZRAK ODHADOL, zE SA HODIA NAJSKpR DO GUlOMETU.NA UZaVERE JE SKROMNy NaPIS:VYROBENO V ZVIL PLZEn.JEN PRO STaTY RVHP,IRAK,NICARAGUU A LAOS."
9205 IF f=4 THEN PRINT "ucINNa ZBRAn.Ma ALE JEDNU CHYBU.Ma PRaZDNY ZaSOBNiK..."
9206 IF f=5 THEN PRINT "uPLNE PRaZDNE BANDASKY.SMRDIA NAFTOU."
9207 IF f=6 THEN PRINT "uPLNE PLNe BANDASKY.zBLNKOCE V NICH LETECKy PETROLEJ."
9208 IF f=7 THEN PRINT "JE NA NICH VYRAZENe AZBUKOU:ZOB-DONGHOI"
9209 IF f=8 THEN PRINT "POMERNE NOVe cERPADLO PALIVA DO VRTUlNiKOV MI 24,25 A 520 ST."
9210 IF f=9 THEN PRINT "HROZIVO SA LESKNuCE BOMBY TYPU VZDUCH-ZEM S NaPISOM: CDELAHO B CCCP."
9211 IF f=10 THEN PRINT "ucINNa ZBRAn.JE PRIPRAVENa K BOJU.Ma PLNy ZaSOBNiK."
9215 PAUSE 0:GO TO 10
9550 FOR F=60342 TO 61705 STEP 2:GO SUB 9559
9551 LET A=(PEEK Z-50):LET B=PEEK (Z+1)-50:LET Z=Z+2:IF Z=23886 THEN LET Z=23760
9552 FOR g=1 TO a:BEEP .001*a,b+12:BEEP .001*a,B+24:BEEP .003,b:NEXT g
9553 IF INKEY$ <> "" THEN RETURN
9554 NEXT f:GO TO 9550
9555 POKE 63448,33:IF HU=1 THEN RANDOMIZE USR 63448:LET Z=23760:GO TO 9550
9556 IF HU=0 THEN RANDOMIZE USR 63448:GO TO 5000
9557 IF HU=2 THEN POKE 63439,33:RANDOMIZE USR 63439:GO TO 5E3
9559 LET T$="":FOR Q=F TO F+10:LET T$=T$+CHR$ PEEK Q:NEXT Q:PRINT AT 3,1;PAPER 7;BRIGHT 1;T$;AT 4,1;INK 1;T$;AT 5,1;INK 3;T$:RETURN
9560 RANDOMIZE USR 64280:POKE 23659,2:PAPER 6:BRIGHT 0:BORDER 6:INK 0:CLS
9561 PRINT AT 4,0;"MECHANIZMUS ZABZUcAL A KUzElOVI-Ty KOVOVy POSOL SMRTI SA ODPuTALOD TRUPU MI DVADSAt sTVORKY. NAPALMOVa NaLOz UROBILA SVOJE. OHNIVe JAZYKY POHLTILI RAMBOV RUMUNSKy VRTULNIK IAR 330 PUMA AKO OTEP SUCHEJ SLAMY.SuBOJ TI- TANOV SA SKONcIL.SLaVA VitAZOM, cESt PORAZENyM. AGENTuRA TASS INFORMOVALA VEREJ-NOSt TyMITO SLOVAMI:ZA MIMORIAD-NE ZaSLUHY,ODHODLANIE A HRDINST-VO BOLO UDELENe MAJOROVI sATO- CHINOVI VYSOKe sTaTNE VYZNAMENA-NIE ZSSR'ZA SLUzBU VLASTI.'"
9562 FOR f=0 TO 14 STEP 2:FOR g=0 TO 7:BEEP .005,g+f*2:PRINT PAPER 5;OVER 1;AT f+g,g*4;" ":NEXT g:NEXT f:IF HU<> 0 THEN RANDOMIZE USR 62828
9563 PAUSE 0:BORDER 7:PAPER 7:CLS :PRINT " "
9565 PRINT #0;"SA TEsi NA dALsIU SPOLUPRaCU...":PRINT AT 15,3;"____ _ _ ___ _ _ ___ _ _ _ _ _ _ _ _ _ __ _ _ _ _ _ _ ____ __ ___ _ _ ____ _ __ _ _ _ _ _ _ ____ __ ____ _ ____ _ _":FOR f=0 TO 7:PRINT AT f+14,0;OVER 1;INK f;"________________________________":NEXT f
9566 RANDOMIZE USR 60260:LPRINT "V USA VYHLaSILI sTaTNY SMuTOK. ICH NaRODNy HRDINA PADOL V HR- DINSKOM BOJI.AKO ZaKLADNe OPA- TRENIE ZVysILI CENU PAPIERA O 200%."
9567 IF INKEY$ ="" THEN GO TO 9567
9568 RANDOMIZE USR 60251:CLS :FOR Z=0 TO 20:LPRINT '''''''':NEXT Z:GO TO 6
9570 FOR F=10 TO 13:PRINT AT F,10;BRIGHT 1;OVER 0;" ":NEXT F:PRINT BRIGHT 1;AT 11,10;"S.HRDA";AT 10,10;"P.cEJKA";AT 13,10;"M.SuSTRIK";AT 12,10;"J.& M.HLAVac"
9571 PRINT AT Y,9;" ":IF O$(1)=INKEY$ THEN BEEP .25,PI -PI :PRINT AT Y,9;" ":LET Y=Y-1:IF Y=9 THEN LET Y=13
9572 IF O$(2)=INKEY$ THEN BEEP .25,PI -PI :PRINT AT Y,9;" ":LET Y=Y+1:IF Y=14 THEN LET Y=10
9573 GO TO 3E3
9600 RANDOMIZE USR 64280:POKE 23659,2:PAPER 0:BORDER 0:INK 6:BRIGHT 1:CLS :IF HU<> 0 THEN RANDOMIZE USR 62120
9602 RESTORE 9601:FOR F=7 TO 21:READ G$:PRINT AT F,17;INK 2;G$:NEXT F
9605 DATA " "," "," "," "," "," "," "," "," "," "," "," "," "," "," "
9615 IF HU=2 THEN POKE 61716,33:POKE 64401,9:POKE 64402,253:RANDOMIZE USR 61716
9616 PRINT AT 1,0;""'"ILEGaLNA ciN-"'"SKA ORG.'RUDy"'"PASTIER'ZASLA"'"LA SuSTRASTNy"'"TELEGRAM... "'""
9620 PRINT INK 0;AT 18,1;"";AT 19,1;" (C) 1988 ";AT 20,1;"SYBILASOFT";AT 21,1;""
9621 FOR f=22529+18*32 TO 22529+18*32+11:POKE f,121+2*RND :POKE f+32,121+RND *2:POKE f+64,121+RND *2:POKE f+96,121+RND *2:IF HU=1 THEN LET DZEDO=USR 62191
9622 IF INKEY$ <> "" THEN RANDOMIZE USR 64280:POKE 64401,225:POKE 64402,247:BEEP 1,0:GO TO 6
9624 NEXT f:GO TO 9621
9960 PAPER 0:BORDER 0:INK 5:CLS :POKE 23659,1:BRIGHT 1:PRINT "________________________________":FOR F=0 TO 6:PRINT "_ _ _";:NEXT F:PRINT "________________________________"
9962 PRINT AT 2,18;"sATOCHIN";AT 4,18;"(C) 1988";AT 6,17;"SYBILASOFT"
9963 PAPER 0:OVER 0:PRINT AT 9,0;" DONGHOI-VlDR 7.PLUK NaMORNEJ PECHOTY PORU- ciKA NIKOLAJA TEROROVIcA JAsI- nA PRESTAL PODaVAt SPRaVY 7.8. SITUaCIA NA FRONTE JE VdAKA T 52-KaM STABILIZOVANa, A PRETO GENERaLNY sTaB PRIPI- SUJE TENTO JAV NA VRUB TZV. 'RAMBOVI'.TENTO DIVERZANT Uz STIHOL SaM DEZORGANIZOVAt cASt TYLA V SEKTORE S/HR-15/DA.DO TEJTO SITUaCIE BOL NASADENy 9.8.RaNO MAJOR sATOCHIN... "
9964 LET T$="AAAABAAAACAAAAAA":GO TO 9555
9965 LET y=10:PAPER 7:BORDER 7:INK 0:BRIGHT 0:OVER 1:CLS :PRINT AT 8,9;" 128 < < <<<":PRINT #1;"(C) 1988 SYBILASOFT 48/+/128/+2":PLOT 72,103:DRAW 0,-47:DRAW 111,0:DRAW 0,47:RESTORE 9965:FOR f=9 TO 14:READ t$:PRINT AT f,9;BRIGHT 1;" ";t$:NEXT f:DATA " ","DO BOJA! ",("ZVUKY "AND HU=2)+("NEZVUKY "AND HU=0)+("PAZVUKY "AND HU=1),"ADRESY ","OVLaDANIE "," "
9966 PRINT AT y,9;" ":IF INKEY$ =O$(2) THEN PRINT AT y,9;" ":BEEP .25,0:LET y=y+1:IF y=14 THEN LET y=10
9967 IF INKEY$ =O$(1) THEN PRINT AT Y,9;" ":BEEP .25,0:LET Y=Y-1:IF Y=9 THEN LET Y=13
9968 IF INKEY$ =O$(3)AND y=10 THEN POKE 23607,92:POKE 23606,84:BEEP .5,24:RETURN
9970 IF INKEY$ =O$(3)AND Y=11 THEN GO SUB 1971
9972 IF INKEY$ =O$(3)AND y=12 THEN POKE 23607,92:POKE 23606,84:GO TO 9570
9973 IF INKEY$ =O$(3)AND y=13 THEN GO TO 6900
9974 GO TO 9966
9975 FOR f=1 TO 7:PRINT AT f,1;" ":NEXT f:PRINT PAPER 7;BRIGHT 1;INK 1;AT 2,3;"SKONcIt";AT 4,2;"POKRAcOVAt";AT 6,4;"RESET":LET y=2:GO TO 9977
9976 PAUSE 0:IF INKEY$ =o$(2) THEN BEEP .05,y+24:BEEP .04,y+21:PRINT AT y,1;OVER 1;" ":LET y=y+2:IF y=8 THEN LET y=2
9977 IF INKEY$ =O$(1) THEN BEEP .05,Y+24:BEEP .04,Y+21:PRINT AT Y,1;OVER 1;" ":LET Y=Y-2:IF Y=0 THEN LET Y=6
9978 PRINT AT y,1;OVER 1;" "
9979 GO SUB 7600:IF INKEY$ =o$(3)AND y=2 THEN BEEP .5,y:GO TO 9600
9980 IF INKEY$ =o$(3)AND y=4 THEN BEEP .5,y:GO TO 10
9981 IF INKEY$ =o$(3)AND y=6 THEN RANDOMIZE USR 64280:RANDOMIZE USR 0
9982 GO TO 9976
9983 RANDOMIZE USR 64280:POKE 63536,SH:FOR Z=1 TO 13:POKE 63536+Z,CODE Q$(Z):NEXT Z:POKE 63550,170:GO SUB CLS:PRINT AT 10,0;"ZAPNI MAGNETOFoN A STLAc KLaVESU":PAUSE 0:PRINT AT 10,0;" ":RANDOMIZE USR 63567:RANDOMIZE USR (64280+102*(HU=2)):GO TO 10
9984 RANDOMIZE USR 64280:GO SUB CLS:PRINT AT 10,0;"SPUSt KAZETU":POKE 63550,0:RANDOMIZE USR 63551:IF PEEK 63550<> 170 THEN PRINT AT 10,0;"TAPE LOADING ERROR":PAUSE 0:RANDOMIZE USR (64280+102*(HU=2)):GO TO 10
9985 LET SH=PEEK 63536:FOR Z=1 TO 13:LET Q$(Z)=CHR$ PEEK (63536+Z):NEXT Z:RANDOMIZE USR (64280+102*(HU=2)):GO TO 10
9995 LET cls=4:LET ria=0:LET sh=33:DIM P$(10,10):DIM q$(13):LET q$=")'"" -;; ":RESTORE 9998:FOR f=1 TO 10:READ P$(f):NEXT f:RETURN
9998 DATA "GRANaTY","VOJ.KNIzKU","STRELIVO","GUlOMET","BANDASKY","BANDASKY","KlucE","cERPADLO","BOMBY","GUlOMET"
9999 REM "END OF sATOCHIN"
27233 RANDOMIZE USR 6428
Raw
ssm.bas
1 BORDER VAL "0":POKE VAL "23693",VAL "2":CLEAR VAL "61999":LOAD ""CODE
2 INK 2:PAPER 0:BORDER 0:CLEAR 61999:RANDOMIZE USR 64800:DIM a$(VAL "512"):LET MKOS=VAL "0":LET PRL=VAL "0":LET SON=VAL "0":LET W=VAL "9889":FOR A=VAL "1" TO VAL "10":RANDOMIZE USR VAL "56":NEXT A:RANDOMIZE :LET R=RND +RND +RND +RND +RND +RND :LET HES=INT (RND *VAL "900")+VAL "100"
3 LET IN=VAL "0":LET J=VAL "9480":LET S$=" "
4 LET HVR=VAL "0"
5 LET MOR=VAL "0":LET RP=VAL "1":LET P$="<"+CHR$ VAL "10"+CHR$ VAL "15"+CHR$ VAL "20"+CHR$ VAL "25"+CHR$ VAL "30"+CHR$ VAL "30"+CHR$ VAL "30"+CHR$ VAL "25"+CHR$ VAL "20"+CHR$ VAL "15"+CHR$ VAL "10"+CHR$ VAL "60":LET ML=VAL "0":LET PL=VAL "5"
7 LET T$="":LET PRI=VAL "1":LET OD=VAL "0":DIM U$(VAL "26"):RESTORE VAL "8":FOR A=VAL "1" TO VAL "26":READ HE:LET U$(A)=CHR$ HE:NEXT A
8 DATA VAL "2",VAL "3",VAL "8",VAL "7",VAL "11",VAL "12",VAL "120",VAL "19",VAL "5",VAL "5",VAL "33",VAL "36",VAL "12",VAL "29",VAL "6",VAL "23",VAL "26",VAL "34",VAL "22",VAL "100",VAL "41",VAL "100",VAL "18"
9 DATA VAL "125",VAL "50",VAL "50":LET R=1:LET Q$="Sed<[ v letadle."
10 LET TRA=25:LET TROL=21:LET BUS=1:LET R$=CHR$ 6+CHR$ 11+CHR$ 16+CHR$ 11+"45674567"+CHR$ 26+""+CHR$ 27+""+CHR$ 23+CHR$ 18+CHR$ 14+CHR$ 18+CHR$ 22+CHR$ 28+CHR$ 24+CHR$ 9+CHR$ 24+CHR$ 28:LET UNSE=0:LET RAND=5:LET ARR=0:LET MEET=1
11 DIM T(3):LET T(1)=1:LET T(2)=7:LET T(3)=0
12 PAPER 2:PRINT AT 0,0;S$( TO 32);AT 21,0;S$( TO 32)
20 FOR A=8 TO 70:LET I=2*A:PLOT 0,A:DRAW I,-A:PLOT 0,175-A:DRAW I,A:PLOT 255,A:DRAW -I,-A:PLOT 255,175-A:DRAW -I,A
30 NEXT A:LET I=7:LET K=-1
32 POKE 23607,249:PRINT AT 10,4;"Vesm<rn# z#chrann# mise vyrobil ULTRAVIDEO SOFT. 1985 (Stiskni n&jak' tla$<tko) "
33 PRINT #1;AT 0,0;INVERSE 1;S$
35 LET I=0:LET K=1:RESTORE 7990:FOR Y=64900 TO 64931
40 PAUSE 1:POKE VAL "23296",I:RANDOMIZE USR VAL "65000":BORDER I
45 LET I=I+K:IF I<= 0 THEN LET K=1
46 IF I>= 7 THEN LET K=-1
48 IF INKEY$ ="" THEN BEEP .1,PEEK Y:BEEP .03,PEEK Y-24:NEXT Y:GO TO 35
49 INK 0:PAPER 7:BORDER 7:CLS
8000 GO SUB 9000:GO TO 9299
8600 IF U$(VAL "26")<> CHR$ VAL "0" THEN GO TO 9785
8605 IF R<> 5 THEN GO TO 9895
8610 LET A$="Zast@elil jsi psa,a t<m jsi umo`nil profesoru Uzovi,aby se setkal s Nortonem.Ten mu dal p@esn' pokyny,podle nich` Uzovi roboti demontovali n#lo` z nitra Zem&.Blahop@eji ti za ]sp&[n' zvl#dnut< ]kolu a p@ipravuji t& na dal[< hru od T.R.C.Software-asi to budou Pieces of sword. *":GO SUB w
8620 FOR A=64900 TO 64931:BEEP .2,PEEK A:BEEP .005,PEEK A:POKE 23624,8*PEEK A:NEXT A:GO TO 8620
8700 LET A$="Kosmonaut Norton se na t& pod<val:""Chce[,abych ti @ekl,o co vlastn& jde?"" .*":GO SUB W:GO SUB VAL "9965":IF LEN Y$<> 0 THEN IF Y$(1)="A" THEN GO TO 8702
8701 LET A$="Norton pokr$il rameny:""Kdy` t& to nezaj<m#,j# se nikomu nevnucuju! "" .*":GO TO W
8702 LET A$="Norton se na t& dlouze zad<val a potom za$al vypr#v&t:""V<[,to bylo tak:Stalo se to p@ed n&kolika lety,kdy` zn#m_ sov&tsk_ v&dec,Uz Uzuzovi$ Uzurp#tor,dvojit_ laure#t Nobelovy ceny socialismu,za$al pracovat na v_voji inteligentn<ch robot^.Jist& jsi o tom tenkr#t $etl v novin#ch,o jeho teorii komunikace mezi roboty za pomoci r#diov_ch vln.To by bylo v[ecko moc hezk',ale Uz pon&kud p@edimenzoval kapacitu zesilova$^ VF a tak se robot< sk@eky rozb&hly do cel'ho vesm<ru.A ten jejich sign#l zachytili Ioti.*":GO SUB W
8703 LET A$="Snad jsi n&kdy sly[el o civilizaci Iot^,kter_m se taky n&kdy p@ezd<v# stava@i,proto`e u` n&kolik stolet< buduj< tak@ka bezd^vodn& obrovskou s<\ vesm<rn_ch d#lnic.A kdy` inicializovali sign#l robot^ pana Uze,usmyslili si,`e postav< jednu z dal[<ch d#lnic p@es na[< slune$n< soustavu,ale zjistili,`e jim v jejich projektu br#n< Zem&,a tak se rozhodli j< zni$it.Jak @<kaj< Rusov'-""jasno i korotko"".""-ulevil si Norton,nadechl se a pokra$oval: *":GO SUB W
8704 LET a$="""Tak Ioti um<stili obrovskou $asovanou n#lo`,opat@enou ochrann_m syst'mem,do nitra Zem& a chystali se k odletu.Ale p@i posledn< v#le$n' porad& se mi poda@ilo syst'mem,jeho` popis by t& asi nezaj<mal,odposlechnout $#st jejich hovoru,kter# se t_kala ochrann'ho syst'mu n#lo`e.P@i odchodu jsem v[ak byl dopaden jedn<m z Iot^,tak`e m& vzali,a schovali m& tam,kde jsi m& na[el.Krom& toho se taky zbavili profesora Uze,a to tak,`e ho dali pod kontrolu jednomu z nejhrozn&j[<ch Iotsk_ch zv<@at.*":GO SUB W
8705 LET a$="A jedin& Uzovi roboti mohou demontovat n#lo`,a to pouze podle m_ch instrukc<.A to je v[echno."".*":GO TO W
8750 IF R<> 41 THEN GO TO 9895
8755 IF U$(1)<> CHR$ 0 THEN LET A$="Nem#[ spr#vn_ kl<$! *":GO TO W
8756 LET A$="Odemknul jsi dve@e.Dve@e se samy otev@ely.*":GO SUB W:LET U$(21)="w":LET U$(22)=CHR$ 41
8760 GO TO VAL "9800"
8830 IF R<> 37 THEN GO TO 9785
8831 IF U$(24)<> CHR$ VAL "37" THEN LET A$="Spadl jsi ze sr#zu do @<$ky pln' kyseliny s<rov'.Jsi mrtev...*":GO SUB W:GO TO 9300
8832 LET A$="Slezl jsi po lan&.*":LET R=VAL "31":GO SUB W:GO TO VAL "9800"
8840 IF R<> 31 THEN GO TO 9785
8842 LET A$="Vylezl jsi po lan&.*":LET R=VAL "37":GO SUB W:GO TO 9800
8850 IF U$(7)<> CHR$ 0 THEN LET A$="Nem#[ co p@iv#zat.*":GO TO W
8852 IF R<> 37 THEN LET A$="Nen< za co upevnit lano! *":GO TO W
8854 LET U$(24)=CHR$ VAL "37":LET U$(7)=CHR$ 125:LET A$="P@iv#zal jsi lano ke k^lu.*":GO TO W
8900 IF R>29AND R<51AND CODE U$(23)<> 0 THEN LET A$="Vystoupil jsi bez skafandru na povrch planety JET JET.Udusil jses,jsi mrtev...*":GO SUB W:GO TO 9300
8905 IF R=31AND CODE U$(20)<> 31 THEN LET A$="Slezl jsi dol^.Je tu @<$ka pln# kyseliny s<rov'.Utopil jses.Jsi mrtev...*":GO SUB W:GO TO 9300
8910 IF R=50 THEN LET A=MKOS:LET MKOS=1:IF A=0 THEN LET A$="Potk#v#[ kosmonauta Nortona.Je chud#k zesl#bl_ n&kolikadenn<m nucen_m pobytem v nehostinn'm bludi[ti a vypad# jako v&ze= na Sibi@i.Pomalu a s velk_mi obt<`emi k tob& oto$il hlavu v kosmick'm skafandru a za[eptal:""Jamesi,je to [patn'.Jestli se odsud nedostanu a nesetk#m se s profesorem Uzem,abych mu sd&lil ur$it' z#va`n' informace,bude brzo konec sv&ta.Pros<m pomoz mi!Jestli to stihneme do p^lnoci,m#me vyhr#no!"".*":GO SUB W
8949 RETURN
8950 LET Y$=Y$(A TO ):GO SUB 9530:IF PR=5AND U$(VAL "5")=CHR$ VAL "0"AND R=33 THEN LET A$="Vlo`il jsi baterii do otvoru v robotov& hrudi.N&co cvaklo,robot pooto$il hlavou a odejel od dve@<.*":GO SUB W:GO TO 8990
8989 GO TO 9785
8990 FOR A=VAL "1" TO LEN T$:IF T$(A)<> CHR$ VAL "5" THEN NEXT A
8991 LET T$=T$(1 TO A-1)+T$(A+1 TO )
8992 LET U$(VAL "5")="x":GO TO 9576
8999 GO TO 9899
9000 LET U$(15)=R$(BUS):POKE 23607,60:PRINT AT 17,0;"________________________________"''"";AT 18,6;"Je ";T(2);" hodin,";T(3);" minut";:IF T(3)=1 THEN PRINT "a";
9001 IF t(3)=2OR t(3)=4OR t(3)=3 THEN PRINT "y";
9002 PRINT ". ":POKE 23607,249:LET T(3)=T(3)+1:IF T(3)=60 THEN LET T(3)=0:LET T(2)=T(2)+1:IF T(2)=24 THEN LET a$="Planeta Zem& se zachv&la.Z bezedn_ch hlubin oce#n^ vytryskly proudy vrouc<ch vod.Obrovsk_ v_buch uchopil Zemi a mr[til s n< po Slunci.Tv# mise nebyla ]sp&[n#... *":GO SUB w:PAUSE 100:GO TO 2
9009 IF CODE U$(8)=RAND MEET=1 THEN LET A$="Bruto radostn& zvolal:""Ahoj Jamesi!To jsem r#d,`e t& zase vid<m!"" *":GO SUB W:LET UNSE=1:LET MEET=0
9010 LET RAND=RAND-1:IF RAND=0 THEN LET ARR=ARR+1:LET RAND=INT (PEEK ARR/64)+2:LET U$(8)=CHR$ (22-CODE U$(8)):IF CODE U$(8)=R THEN LET A$="P@ich#z< horolezec Bruto.*":GO SUB W
9012 IF CODE U$(8)<> R THEN LET MEET=1:IF UNSE=1 THEN LET UNSE=0:IF CODE U$(8)=22-R THEN LET A$="Horolezec Bruto odch#z<.*":LET UNSE=0:GO SUB W
9015 LET MOV=0:IF INT (T(3)/5)*5=T(3) THEN LET MOV=1:LET BUS=BUS+1:IF R=51 THEN LET A$="Autobus se rozjel.Po n&kolika minut#ch j<zdy za$al n#hle brzdit,a` se zastavil.*":GO SUB W
9017 IF BUS=5 THEN LET BUS=1
9020 IF MOV=1AND CHR$ R=R$(BUS-1+4*(BUS=1)) THEN LET PRI=1:IF OD=1 THEN LET A$="Autobus odj<`d<.*":GO SUB W:LET OD=0
9025 IF MOV=1AND CHR$ R=R$(BUS) THEN LET OD=1:IF PRI=1 THEN LET PRI=0:LET A$="Autobus p@ij<`d<.*":GO SUB W
9030 LET ML=0:IF INT (T(3)/10)*10=T(3) THEN LET ML=1:LET PL=PL+1:IF PL=13 THEN LET PL=5
9031 LET U$(17)=R$(PL+8):IF R>51AND R<56 THEN LET R=CODE R$(PL)
9035 IF ML=1AND (R>51AND R<56) THEN GO SUB 9800
9037 IF ML=1AND R=CODE (R$(PL+8)) THEN LET A$="Letadlo p@il't#.*":GO SUB W
9038 IF ML=1AND R=CODE (R$(PL+7+8*(PL=5))) THEN LET A$="Letadlo odl't#.*":GO SUB W
9040 LET MM=0:IF INT (T(3)/8)*8=T(3) THEN LET MM=1:LET TROL=TROL+1:IF R=80 THEN LET A$="Cosi v podlaze zakv<lelo a trolejbus se dal do pohybu,kter_ zakon$il prudk_m trhnut<m.*":GO SUB W
9042 IF TROL=25 THEN LET TROL=21
9045 LET U$(16)=R$(TROL):IF MM=1AND R=CODE R$(TROL-1+4*(TROL=21)) THEN LET A$="Trolejbus odjel.V[ude je plno rozv<@en'ho prachu.*":GO SUB W
9048 IF MM=1AND R=CODE R$(TROL) THEN LET A$="Trolejbus p@ij<`d<.*":GO SUB W
9050 LET MT=0:IF INT (T(3)/3)*3=T(3) THEN LET MT=1:LET TRA=TRA+1:IF R=57 THEN LET A$="Vlak se rozjel.Proj<`d< malebnou krajinou.Po n&kolika minut#ch j<zdy p@ibrzdil na stanici.*":GO SUB W
9055 IF TRA=31 THEN LET TRA=25
9056 IF MT=1AND R=CODE R$(TRA-1+6*(TRA=25)) THEN LET A$="Vlak odj<`d<.*":GO SUB W
9057 IF MT=1AND R=CODE R$(TRA) THEN LET A$="Vlak p@ij<`d< do stanice.*":GO SUB W
9060 LET U$(19)=R$(TRA)
9065 LET ROM=0:IF MOR=1 THEN IF (INT (T(3)/30))*30=T(3) THEN LET ROM=1:LET PPP=RP:LET RP=RP+1:IF R=CODE P$(PPP) THEN LET R=CODE P$(RP):GO SUB 9800
9068 IF RP=13 THEN LET RP=1:LET MOR=0
9070 IF RP=1AND R=34AND MOR=1AND ROM=1 THEN LET A$="Raketa startuje.*":GO SUB W
9072 IF RP=1AND R=34AND MOR=0AND ROM=1 THEN LET A$="Raketa p@ist#v#.*":GO SUB W
9080 LET U$(18)=P$(RP):IF P$(RP)=CHR$ 30 THEN LET U$(18)=CHR$ 35
9081 IF P$(RP)=CHR$ 60 THEN LET U$(18)=CHR$ 34
9298 RETURN
9299 GO SUB VAL "9800":GO TO VAL "9390"
9300 PAUSE 100:INK VAL "7":PAPER VAL "0":BORDER VAL "0":CLS :PLOT VAL "0",VAL "128":DRAW VAL "0",VAL "47":DRAW VAL "255",VAL "0":DRAW VAL "0",VAL "-47":DRAW VAL "-255",VAL "0"
9302 PRINT AT VAL "6",VAL "0";INK 0;S$;S$;S$;S$;S$
9304 PLOT 30,129:DRAW 30,20:DRAW 10,0:PLOT 30,129:DRAW 50,0:DRAW 30,20:DRAW -32,0
9305 PLOT 70,140:DRAW 5,0:DRAW 0,15:DRAW 8,0:DRAW 0,5:DRAW -8,0:DRAW 0,8:DRAW -5,0:DRAW 0,-8:DRAW -8,0:DRAW 0,-5:DRAW 8,0:DRAW 0,-15
9307 PLOT 75,140:DRAW 3,3:DRAW 0,12:DRAW 5,0:DRAW 3,3:DRAW 0,5:DRAW -3,-3:DRAW 3,3:DRAW -8,0:DRAW -3,-3:DRAW 3,3:DRAW 0,8:DRAW -3,-3:DRAW 3,3:DRAW -5,0:DRAW -3,-3:DRAW 0,-5:DRAW -5,0:DRAW -3,-3
9310 PLOT 60,149:DRAW 10,-6:DRAW 0,-3:DRAW -40,-10:PLOT 80,129:DRAW -5,10:DRAW 3,3:DRAW 30,6
9312 PLOT 100,129:DRAW 30,20:DRAW -20,3:DRAW 40,23:DRAW -20,-18:DRAW 20,-2:DRAW -15,-27
9313 PLOT 110,129:RANDOMIZE USR 65400:PRINT AT VAL "6",VAL "0";INK 7;S$;S$;S$;S$;S$
9314 RESTORE 9380:LET A$="Jsi v hrob&.Okolo se povaluj< n&jac< kostlivci,asi p@<buzn<.M&s<$n< sv&tlo spo@e osv&tluje m<sto,kde sv' dobrodru`stv< ukon$il hrdina James Trianon. *":GO SUB W
9315 PRINT #1;AT 1,1;" 1985 by ULTRAVIDEO SOFTWARE"
9317 LET I=0
9318 PRINT #1;AT 1,1;OVER 1;INK I;" "
9319 LET I=1+I-8*(I=7):IF INKEY$ ="" THEN GO TO 9318
9320 RUN
9389 PAUSE 0:STOP
9398 GO SUB 9000:GO SUB 9965
9400 FOR A=1 TO LEN Y$:IF Y$(A)=" " THEN LET Y$=Y$(2 TO ):NEXT A
9401 LET Y$=Y$+S$(1 TO (64-LEN Y$)):FOR A=1 TO 12:IF Y$(A)<> " " THEN NEXT A
9405 IF A=12 THEN GO TO (J-1)
9407 LET W$=Y$(1 TO A-1):LET Z=LEN W$
9410 IF Z<6 THEN IF W$="SEVER"(1 TO Z) THEN GO SUB 9500:GO TO J
9411 IF Z<7 THEN IF W$="VYCHOD"(1 TO Z) THEN GO SUB 9502:GO TO J
9412 IF Z<4 THEN IF W$="JIH"(1 TO Z) THEN GO SUB 9504:GO TO J
9413 IF Z<6 THEN IF W$="ZAPAD"(1 TO Z) THEN GO SUB 9506:GO TO J
9417 IF Z<11 THEN IF W$="PROZKOUMEJ"(1 TO Z) THEN GO SUB 9782:GO TO J
9420 IF Z<6 THEN IF W$="VEZMI"(1 TO Z)OR W$="SEBER"(1 TO Z) THEN GO SUB 9560:GO TO J
9422 IF Z<6 THEN IF W$="POLOZ"(1 TO Z) THEN GO SUB 9570:GO TO J
9425 IF Z<10 THEN IF W$="INVENTURA"(1 TO Z) THEN GO SUB 9580:GO TO J
9426 IF Z<8 THEN IF W$="PODIVEJ"(1 TO Z) THEN GO SUB 9800:GO TO J
9427 IF Z<7 THEN IF W$="RELOAD"(1 TO Z) THEN GO SUB 9800:GO TO J
9430 IF Z<6 THEN IF W$="CEKEJ"(1 TO Z) THEN LET A$="Rozhodl jsi se po$kat.*":GO SUB W:FOR A=1 TO 5:GO SUB 9000:NEXT A:GO TO J
9435 IF Z<7 THEN IF (W$="NASTUP"(1 TO Z)OR W$="VLEZ "(1 TO Z)OR W$="VSTUP "(1 TO Z)OR W$="VEJDI "(1 TO Z)) THEN GO SUB 9860:GO TO J
9440 IF Z<7 THEN IF (W$="VYSTUP"(1 TO Z)OR W$="VYLEZ "(1 TO Z)OR W$="VYJDI "(1 TO Z)) THEN GO SUB 9870:GO TO J
9445 IF Z<8 THEN IF W$="STISKNI"(1 TO Z) THEN GO SUB 9890:GO TO 9480
9447 IF Z<6 THEN IF W$="REKNI"(1 TO Z) THEN GO SUB 9720:GO TO 9480
9450 IF Z<5 THEN IF W$="VLOZ"(1 TO Z) THEN GO SUB 8950:GO TO 9480
9455 IF Z<7 THEN IF W$="PRIVAZ"(1 TO Z) THEN GO SUB 8850:GO TO 9480
9460 IF Z<7 THEN IF W$="NAHORU"(1 TO Z) THEN GO SUB 8840:GO TO 9480
9462 IF Z<5 THEN IF W$="DOLU"(1 TO Z) THEN GO SUB 8830:GO TO 9480
9465 IF Z<8 THEN IF W$="ODEMKNI"(1 TO Z) THEN GO SUB 8750:GO TO 9480
9468 IF Z<8 THEN IF W$="ZASTREL"(1 TO Z) THEN GO SUB 8600:GO TO 9480
9470 IF Z<4 THEN IF W$="TRC" THEN GO SUB 9965:IF (Y$+S$)(1 TO 8)="CYBEXLAB" THEN STOP
9479 LET A$="Nerozum<m.*":GO SUB W:GO TO 9390
9480 IF R=13OR R=45OR R=46OR R=47 THEN GO TO 9300
9499 GO TO 9390
9500 LET Y$="sever":IF MS=0 THEN GO TO 9750
9501 LET R=MS:GO SUB 9755:GO TO 9800
9502 LET Y$="v_chod":IF MV=0 THEN GO TO 9750
9503 LET R=MV:GO SUB 9755:GO TO 9800
9504 LET Y$="jih":IF MJ=0 THEN GO TO 9750
9505 LET R=MJ:GO SUB 9755:GO TO 9800
9506 LET Y$="z#pad":IF MZ=0 THEN GO TO 9750
9507 LET R=MZ:GO SUB 9755:GO TO 9800
9510 LET Y$="":LET BEG=0:POKE 23550,0
9511 FOR A=VAL "1" TO VAL "26":IF CODE U$(A)=R THEN GO SUB VAL "9520"
9512 NEXT A:GO SUB VAL "9740"
9514 IF BEG=1 THEN LET A$=Y$+".*":GO SUB W
9515 RETURN
9520 IF BEG=1 THEN LET Y$=Y$+","
9521 IF BEG=0 THEN LET Y$="Vid<[ "+Y$:LET BEG=1
9522 RESTORE (A+9839):READ W$:LET Y$=Y$+W$:RETURN
9530 LET PR=0:LET VADA=0:IF Y$(1)=" " THEN LET Y$=Y$(2 TO ):IF LEN Y$>1 THEN GO TO 9530
9531 FOR A=1 TO 20:IF Y$(A)<> " " THEN NEXT A:LET VADA=1:RETURN
9532 LET V$=Y$( TO A-1):LET X=LEN V$:IF X<10 THEN IF V$="TROLEJBUS"( TO X) THEN LET PR=15
9533 GO SUB 9880:IF X<5 THEN IF V$="KLIC"( TO X) THEN LET PR=1
9534 IF X<11 THEN IF V$="TROJHRANNY"( TO X) THEN LET PR=1
9535 IF X<7 THEN IF V$="PENIZE"( TO X) THEN LET PR=2
9536 IF X<7 THEN IF V$="SVAZEK"( TO X) THEN LET PR=3
9537 IF X<11 THEN IF V$="DESIFRATOR"( TO X) THEN LET PR=4
9538 IF X<8 THEN IF V$="BATERII"( TO X) THEN LET PR=5
9539 IF X<8 THEN IF V$="LETENKY"( TO X) THEN LET PR=6
9540 IF X<5 THEN IF V$="LANO"( TO X) THEN LET PR=7
9541 IF X<6 THEN IF V$="BRUTA"( TO X) THEN LET PR=8
9542 IF X<4 THEN IF V$="PSA"( TO X) THEN LET PR=9
9543 IF X<10 THEN IF V$="PROFESORA"( TO X) THEN LET PR=10
9544 IF X<4 THEN IF V$="UZE"( TO X) THEN LET PR=10
9545 IF X<8 THEN IF V$="AUTOBUS"( TO X) THEN LET PR=14
9546 IF X<7 THEN IF V$="ROBOTA"( TO X) THEN LET PR=11
9547 IF X<6 THEN IF V$="HRANOL"( TO X) THEN LET PR=12
9548 IF X<10 THEN IF V$="PRODAVACE"( TO X) THEN LET PR=13
9549 IF X<9 THEN IF V$="VRATNEHO"( TO X) THEN LET PR=14
9550 LET VADA=(PR=0):RETURN
9551 FOR A=1 TO LEN T$:IF CODE T$(A)<> PR THEN NEXT A:IF CODE U$(PR)<> R THEN GO TO 9899
9552 GO SUB 9530:IF PR=0OR (U$(PR)<> CHR$ RAND U$(PR)<> CHR$ 0) THEN GO TO 9785
9553 RESTORE (9839+PR):READ Y$:LET A$="Prozkoumal jsi "+Y$+".*":GO SUB W:READ N$:LET A$=N$+".*":GO TO W
9560 LET Y$=Y$(A TO ):IF Y$=S$( TO LEN Y$) THEN GO TO 9899
9561 GO SUB 9530:IF VADA=1 THEN GO TO 9899
9562 IF CODE U$(PR)<> ROR PR=0OR PR=8OR PR=9OR PR=10OR PR=11OR PR=13OR PR=14 THEN GO TO 9785
9565 LET T$=T$+CHR$ PR:LET U$(PR)=CHR$ 0:RESTORE (9839+PR):READ Y$:LET A$="Vzal jsi "+Y$+".*":GO SUB W
9566 IF U$(VAL "12")=CHR$ VAL "0" THEN LET A$="Pod hranolem byla rozbu[ka.Obrovks# exploze zah@m&la jako hrom a roztrhala $#st sk#ly.Asi metr velik_ k#men dopadl p@esn& na lo%ku.Jsi mrtev...*":GO SUB W:GO TO 9300
9569 GO TO 9576
9570 LET Y$=Y$(A TO ):IF Y$=S$(1 TO LEN Y$) THEN GO TO 9899
9571 GO SUB 9530:IF VADA=1 THEN GO TO 9899
9572 IF CODE U$(PR)<> 0OR PR=8OR PR=9OR PR=10OR PR=11OR PR=13OR PR=14 THEN GO TO 9785
9573 FOR A=1 TO LEN T$:IF CODE T$(A)<> PR THEN NEXT A:GO TO 9785
9575 LET U$(PR)=CHR$ R:LET T$=T$(1 TO A-1)+T$(A+1 TO ):RESTORE (9839+PR):READ Y$:LET A$="Polo`il jsi "+Y$+".*":GO SUB W
9576 RESTORE (R+9899):READ V$,MS,MV,MJ,MZ:GO SUB 9700:GO TO 9760
9580 LET Y$="M#[ u sebe ":LET HA=0:IF LEN T$=0 THEN GO TO 9585
9581 FOR A=1 TO LEN T$:RESTORE (9839+CODE T$(A)):READ W$:LET Y$=Y$+W$+",":NEXT A:LET Y$=Y$(1 TO LEN Y$-1)+".*":GO SUB 9740:LET A$=Y$:GO TO W
9585 LET A$="Nem#[ s sebou nic.*":GO SUB W
9586 RETURN
9700 IF R=12 THEN IF CODE U$(6)=0AND CODE U$(2)<> R THEN LET MV=0:LET A$="Prodava$ op#$il:""A co pen<ze?"" *":GO SUB W
9701 IF R=12AND U$(3)<> CHR$ 0 THEN LET MS=0
9703 IF R=29 THEN IF HVR<> HES THEN LET A$="Vr#tn_ d^razn& p@ipomenul:""Do kosmick'ho m&ste$ka v#s mohu pustit pouze kdy` zn#te heslo dne.V<te,je to kv^li novin#@^m,je jich tu po@#d spousta."" *":GO SUB W:LET MV=0
9705 IF R=21AND CODE U$(6)<> 0 THEN LET MV=0
9706 IF R=33AND CODE U$(5)<> 120 THEN LET MJ=0
9708 IF R=41AND CODE U$(22)<> 41 THEN LET MS=0
9719 RETURN
9720 LET Y$=Y$(A+2 TO )
9721 IF Y$( TO VAL "3")=STR$ HESAND R=29 THEN LET HVR=HES:LET A$="Vr#tn_ pokr$il rameny:""V po@#dku,m^`ete j<t."".*":GO SUB W:GO TO VAL "9576"
9725 IF Y$( TO VAL "10")="BRUTO PUJC"OR Y$( TO VAL "9")="BRUTO DEJ" THEN IF R=CODE U$(VAL "8")AND U$(VAL "7")="x" THEN LET A$="Bruto ti podal lano se slovy:""Tady ho m#[."".*":GO SUB W:LET U$(VAL "7")=CHR$ VAL "0":LET T$=T$+CHR$ VAL "7"
9728 IF R=VAL "33"AND Y$( TO VAL "5")="ROBOT" THEN LET A$="Robot je neinteligentn< a nerozum< mluven'mu projevu.*":GO TO W
9739 RETURN
9740 FOR A=LEN Y$ TO 1 STEP -1:IF Y$(A)="," THEN LET Y$=Y$( TO A-1)+" a "+Y$(A+1 TO ):RETURN
9741 NEXT A:RETURN
9750 LET A$="Na "+Y$+" j<t nem^`e[.*":GO TO W
9752 IF CODE U$(VAL "1")<> 0 THEN LET A$="Nem#[ $<m odemknout dve@e! *":GO TO W
9754 LET A$="Odemkl jsi dve@e.Dve@e se samovoln& otev@ely a odkr_ly tv'mu zraku pohled do obrovsk'ho jeskynn<ho syst'mu.*":GO SUB W:PAUSE 5:LET U$(21)=CHR$ 124:LET U$(22)=CHR$ 41
9755 LET A$="Jde[ na "+Y$+".*":GO SUB W:IF MKOS=VAL "1" THEN LET A$="Kosmonaut Norton jde za tebou.*":GO TO W
9756 RETURN
9760 LET BEG=0:LET Y$="":IF R=37 THEN LET Y$="M^`e[ j<t dol^":LET BEG=1
9761 IF MS<> 0AND BEG=1 THEN GO SUB 9795
9762 IF MS<> 0 THEN LET Y$=Y$+"sever":IF BEG=0 THEN GO SUB 9790
9763 IF MV<> 0AND BEG=1 THEN GO SUB 9795
9764 IF MV<> 0 THEN LET Y$=Y$+"v_chod":IF BEG=0 THEN GO SUB 9790
9765 IF MJ<> 0AND BEG=1 THEN GO SUB 9795
9766 IF MJ<> 0 THEN LET Y$=Y$+"jih":IF BEG=0 THEN GO SUB 9790
9767 IF MZ<> 0AND BEG=1 THEN GO SUB 9795
9768 IF MZ<> 0 THEN LET Y$=Y$+"z#pad":IF BEG=0 THEN GO SUB 9790
9769 GO SUB VAL "9740":IF LEN Y$>VAL "0" THEN LET Y$=Y$+"."
9770 LET A$=Y$+" *":GO SUB VAL "9796":GO TO W
9780 LET A$="Pros<m!? *":GO SUB W:RETURN
9782 LET Y$=Y$(A TO ):IF Y$<> S$(1 TO LEN Y$) THEN GO SUB VAL "9530":GO TO VAL "9551"
9783 GO TO VAL "9899"
9785 LET A$="To bohu`el nem^`e[! *":GO TO W
9790 LET BEG=1:LET Y$="M^`e[ j<t na "+Y$:RETURN
9795 LET Y$=Y$+",na ":RETURN
9796 IF R=31 THEN LET A$="M^`e[ j<t nahoru.*"
9797 RETURN
9800 IF PEEK (23499+R)=0 THEN GO TO 9831
9801 GO SUB 8900
9803 IF R>50 THEN GO TO 9831
9804 POKE 23296,PEEK (23499+R):LET AD=USR 65505
9805 POKE 23693,PEEK AD:LET HE=INT (PEEK 23693/64):LET LX=PEEK (AD+1):LET LY=PEEK (AD+2):LET AD=AD+3
9806 PRINT AT 0,0;:FOR A=0 TO 2:PRINT S$:NEXT A:FOR A=0 TO 4:PRINT INK 7;PAPER 7;S$:NEXT A
9807 PLOT INK 8;0,128:DRAW 0,47:DRAW 255,0:DRAW 0,-47:DRAW -255,0
9810 LET NX=PEEK AD:LET NY=PEEK (AD+1):LET AD=AD+2:IF NY>= 128 THEN GO TO 9830
9811 IF NY>= 64 THEN GO TO 9820
9812 PLOT LX,LY+128:DRAW (NX-LX),(NY-LY):LET LX=NX:LET LY=NY
9815 IF PEEK AD<> 255 THEN GO TO 9810
9817 GO TO 9832
9820 POKE 23677,NX:POKE 23678,NY+64:POKE 23693,PEEK AD:LET AD=AD+1:RANDOMIZE USR 65400
9825 GO TO 9815
9830 LET LX=NX:LET LY=NY-128:GO TO 9815
9831 PRINT AT 0,0;:FOR A=0 TO 2:PRINT S$:NEXT A
9832 POKE 23693,56:PRINT AT 6,0;:FOR A=0 TO 4:PRINT S$:NEXT A
9833 IF MKOS=1 THEN LET U$(25)=CHR$ R
9835 POKE 23551,0:RESTORE (9899+R):READ Y$,MS,MV,MJ,MZ
9836 GO SUB 8900:LET A$=Y$+" *":GO SUB W
9837 GO SUB 9510:GO SUB 9000:GO TO 9576
9840 DATA "trojhrann_ kl<$","Je z tvrd' oceli a u` dost opot@ebovan_"
9841 DATA "pen<ze","Jsou dost u[mudlan'.Je to n&kolik stodolarov_ch bankovek"
9842 DATA "svazek kl<$^","Taktak dr`< na kovov'm krou`ku.Obsahuje asi sedm r^zn_ch kl<$^"
9843 DATA "de[ifr#tor zpr#v","Je obl<benou pot@ebou historik^ tohoto stolet<.Vypad# jako kalkula$ka s displejem,a z jedn' strany je ploch_ otvor,do kter'ho se vsunuj< dan' p<semnosti"
9844 DATA "baterii","Je to oby$ejn_ dvan#ctivoltov_ automobilov_ akumul#tor"
9845 DATA "letenky","Obsahuj< v[echny d^le`it' ]daje o cest& a raz<tko spole$nosti AIR-ISLAND"
9846 DATA "lano","Je dlouh' asi dv&st& metr^ a vypad# zachovale.Jako bys ho u` n&kde vid&l"
9847 DATA "horolezce Bruta","Na z#dech st#le nos< tlumok s pot@ebami pro horolezce.Jeho obli$ej je zarostl_ mohutn_mi vousy,tak`e vypad# jako gorila"
9848 DATA "psa","Je velk_ jako vzrostl' tele.Jeho ohniv_ ko`ich m<rn& p#chne po fosforu a vycen&n' tes#ky p^sob< hr^zostra[n&"
9849 DATA "profesora Uze","Je velk_ p@<tel tv'ho druha kapit#na kosmick' lodi Nortona"
9850 DATA "robota","Je jeden z robot^ druh' generace a moc toho neum<"
9851 DATA "hranol","Je vyle[t&n_ a bl_sk# se jako diamant"
9852 DATA "prodava$e letenek","Je p@<jemn_ $lov&k,ale p@<sn_,z mnoha z#sadami"
9853 DATA "vr#tn'ho","Pod@imuje a je na n&m vid&t,`e ho jeho pr#ce nud< a otravuje"
9854 DATA "autobus",""
9855 DATA "trolejbus",""
9856 DATA "letadlo","Je to nejnov&j[< typ"
9857 DATA "raketu","Cel# se leskne"
9858 DATA "vlak",""
9859 DATA "lo%ku","Nen< na n< nic zvl#[tn<ho"
9860 DATA "zam$en' dve@e","Jsou vyrobeny z pevn'ho kamene":IF R=CODE R$(BUS) THEN LET A$="Nastoupil jsi do autobusu.*":GO SUB W:LET R=51:GO TO 9800
9861 DATA "odem$en' dve@e","Jsou na siln_ch pantech":IF R=CODE R$(PL+8) THEN LET A$="Nastoupil jsi do letadla.*":GO SUB W:LET R=CODE R$(PL):GO TO 9800
9862 DATA "skafandr","Je to nejnov&j[< lehk_ typ.V#`< pouze n&kolik kilogram^":IF R=CODE R$(TROL) THEN LET A$="Nastoupil jsi do trolejbusu.*":GO SUB W:LET R=80:GO TO 9800
9863 DATA "lano p@iv#zan' ke k^lu","":IF R=CODE R$(TRA) THEN LET A$="Nastoupil jsi do vlaku.*":GO SUB W:LET R=57:GO TO 9800
9864 DATA "kosmonauta Nortona","Klepe se strachem":IF R=34AND MOR=1AND RP=1 THEN LET R=60:LET A$="Nastoupil jsi do rakety.*":GO SUB W:GO TO 9800
9865 DATA "laserovou pistoli","Na jej< pa`b& je vyra`eno:MADE IN HONG KONG":IF R=35AND P$(RP)=CHR$ VAL "30" THEN LET R=VAL "30":LET A$="Nastoupil jsi do rakety.*":GO SUB W:GO TO 9800
9869 GO TO 9785
9870 IF R=51 THEN LET A$="Vystoupil jsi z autobusu.*":GO SUB W:LET R=CODE R$(BUS):GO TO 9800
9871 IF R=52 THEN LET A$="Vystoupil jsi z letadla.*":GO SUB W:LET R=CODE R$(PL+8):GO TO 9800
9872 IF R=80 THEN LET A$="Vystoupil jsi z trolejbusu.*":GO SUB W:LET R=CODE R$(TROL):GO TO 9800
9873 IF R=57 THEN LET A$="Vystoupil jsi z vlaku.*":GO SUB W:LET R=CODE R$(TRA):GO TO 9800
9874 IF R=60 THEN LET R=34:LET A$="Vystoupil jsi z rakety.*":GO SUB W:GO TO VAL "9800"
9875 IF R=30 THEN LET R=35:LET A$="Vystoupil jsi z rakety.*":GO SUB W:GO TO 9800
9879 GO TO 9785
9880 IF X<8 THEN IF V$="LETADLO"( TO X) THEN LET PR=17
9881 IF X<7 THEN IF V$="RAKETA"( TO X) THEN LET PR=18
9882 IF X<5 THEN IF V$="VLAK"( TO X) THEN LET PR=19
9883 IF X<6 THEN IF V$="LODKA"( TO X) THEN LET PR=20
9884 IF X<9 THEN IF V$="SKAFANDR"( TO X) THEN LET PR=23
9885 IF X<8 THEN IF V$="PISTOLI"( TO X) THEN LET PR=26
9886 IF X<11 THEN IF V$="KOSMONAUTA"( TO X) THEN LET PR=25
9888 RETURN
9889 POKE VAL "23550",VAL "0":RANDOMIZE USR VAL "65200":RETURN
9890 IF R=32AND MOR=0 THEN LET MOR=1:LET A$="Stiskl jsi tla$<tko.Na displeji se objevilo:O.K.Start rakety za "+STR$ ((INT (T(3)/30)*30+30+60*T(2))-(T(2)*60+T(3)))+" minut.*":GO TO W
9892 IF R=44AND SON=0 THEN LET SON=1:LET U$(20)=CHR$ 31:LET A$="Stiskl jsi tla$<tko.Na ovl#dac<m panelu se zachv&lo n&kolik displej^.Po chv<li se na obrazovce objevil n#pis:SHIP READY TO GO *":GO TO W
9893 IF R=CODE U$(20) THEN LET A$="Stiskl jsi tla$<tko na boku lo%ky.Ozvalo se tich' za[um&n< motor^ a lo%ka se rozjela po klidn' hladin&.*":GO SUB W:LET U$(20)=CHR$ (R-VAL "10"*MKOS+VAL "5"):LET R=CODE U$(VAL "20"):IF R<31 THEN LET R=31:LET U$(VAL "20")=CHR$ R
9894 GO TO 9800
9899 LET A$="Co? *":GO TO W
9900 DATA "Jsi v prostorn'm p@<zemn<m domku.Na severn< st&n& vedle dve@< vis< n&kolik p&kn_ch obraz^ a ve v_chodn< st&n& je velik' okno.",2,0,0,0
9901 DATA "Jsi v hornat' krajin&.Na sever od tebe se t_$< n&kolik horsk_ch h@bet^.Cesta je zarostl# k@ov<m.",3,7,1,0
9902 DATA "Jsi st#le v malebn' hornat' krajin&.Skaln< stezka je lemov#na zakrsl_mi borovicemi.",0,8,2,0
9903 DATA "Jsi na Blatech,v m<rn& zvln&n' pahorkatin&.Z lesnat_ch ]bo$< t#hl_ch kopc^ stoup# kou@.Mrtv' ticho jako by zachvacovalo cel_ tento kraj.Pouze ob$as,kdy` ustane v#nek,jako by ze severu bylo sly[et t#hl' vyt<.",5,9,0,0
9904 DATA "Jsi na ji`n<m okraji Blatensk' ba`iny.Z m<st mezi ostr^vky vystupuj< bubliny jedovat_ch par.Vzduch je prosycen t&`k_m z#pachem sirovod<ku.Na jednom z ostr^vk^ je mal# chajda,a k n< je p@iv#z#n obrovsk_ pes.Jeho ohniv# srst osv&tluje masivn< tes#ky v obrovsk' tlam&.V[ude se rozl'h# huronsk_ @ev.",0,0,4,0
9905 DATA "Stoj<[ na autobusov' zast#vce.Okolo tebe proj<`d&j< kolony aut.Na druh' stran& silnice vyz_vav& blikaj< neony obchodn<ch dom^.",7,0,0,0
9906 DATA "Jsi p@ed obchodem s pot@ebami pro historiky.",8,0,6,2
9907 DATA "Jsi v chr#n&n' p@<rodn< oblasti.Sv&`< v#nek ti na$echr#v# vlasy.Na v[echny strany od tebe se t#hnou v&nce hor a snad jsi p@ed chv<l< na skaln< st&n& dokonce zahl'dl kamz<ka.",0,0,7,3
9908 DATA "Jsi v nevl<dn' ponur' krajin&.Na jih od tebe se rozkl#d# jez<rko a na v_chod se t#hne p#s horsk_ch h@bet^.Za$<naj< tu koleje a pokra$uj< na v_chod.",0,0,0,4
9909 DATA "Prol't#v#[ spodn<mi vrstvami atmosf'ry.Oblaka tvo@< p@ekr#sn' obrazce podobn' gigantick_m poho@<m.Slunce se t@pyt< a jeho paprsky se odr#`ej< od miliard leskl_ch kapek.Vzduch $e@< n&kolik letadel.",0,0,0,0
9910 DATA "Stoj<[ na autobusov' zast#vce.Okolo tebe proj<`d&j< kolony aut.Na druh' stran& silnice vyz_vav& blikaj< neony obchodn<ch dom^.",0,0,0,0
9911 DATA "Jsi v prodejn& letenek spole$nosti AIR ISLAND.Na severu jsou dve@e od v_tahu a na nich n#pis:OPRAVUJE SE.",13,17,0,0
9912 DATA "Ve[el jsi do [achty v_tahu.Neudr`el jsi rovnov#hu a spadl jsi [achtou dol^ do suter'nu.Kovov_ ostr_ p@edm&t ti roz\al lebku.Jsi mrtev...",0,0,0,0
9913 DATA "Stoj<[ u alt#nku,na n&m` je naps#no ""Klub kosmonaut^"".U alt#nku stoj< jak_si p@<stroj,na jeho` displeji je zobrazeno:""HESLO DNE:"+STR$ HES+""".",0,0,0,0
9914 DATA "Prol't#[ hv&zdn_m vesm<rem.N&kolik stovek kilometr^ od tebe asi pad# hv&zda.P@ej si n&co!",0,0,0,0
9915 DATA "Stoj<[ na autobusov' stanici.",17,21,0,0
9916 DATA "Jsi v pas#`i obchodn<ho domu.Na v[echny strany od tebe blikaj< pestr' reklamy.",0,0,16,12
9917 DATA "Stoj<[ na stanici autobusu.Osv&`uj<c< zele= kopc^ p^sob< blahod#rn& na tv' o$i.",19,0,0,0
9918 DATA "Stoj<[ nedaleko od mal'ho rem<zku.V d#lce se r_suj< obrysy hor.",0,0,18,0
9919 DATA "Prol't#[ okolo Jupitera,na jeho` povrchu se sv^dn& leskne rud# skvrna,velk_ o@<[ek v[ech astronom^.",0,0,0,0
9920 DATA "Jsi na leti[ti.Z nedalek' runwaye se oz_v# jekot nastartovan_ch motor^.",0,26,0,16
9921 DATA "Jsi na n#dra`<.Koleje,kter' zde za$<naj<,pokra$uj< na severov_chod.",23,27,0,0
9922 DATA "Jsi na kone$n' stanici trolejbusu.",0,0,22,0
9923 DATA "Nach#z<[ se na n#stupi[ti.Pod vysok_m n#spem za$<n# kuku@i$n' pole,kter' se t#hne n&kolik stovek metr^ v_chodn<m sm&rem,kde potom p@ech#z< v smrkov_ les,kter_ vypl=uje [iroko daleko celou krajinu.",0,0,0,0
9924 DATA "Automatick_ @<d<c< syst'm t& navedl na ob&`nou dr#hu planety JET-JET.P@es @<dkou atmosf'ru jsou vid&t zelenav' ostrovy pevnin,modr' plochy obrovsk_ch oce#n^ a na v_chod& se leskne jak#si $erven# skvrna.",0,0,0,0
9925 DATA "Stoj<[ na runwayi.Na sever od tebe pr#v& FOLLOW-ME p@iv#d< jak'hosi BOINGa.",0,0,0,21
9926 DATA "Stoj<[ na runwayi leti[t& BUGABOO.Na jih od tebe roluje n&jak' JUMBO-JET.",0,0,0,22
9927 DATA "Stoj<[ pod n<zk_m n#spem.Na jih od tebe prot'k# miniaturn< pot^$ek a na sever se l<n& kl#t< uzr#l' obil<.Koleje,vedouc< z jihoz#padu,proch#zej< krajinou a v d#li pomysln& kon$<.",29,0,0,0
9928 DATA "Jsi u vchodu do kosmick'ho m&ste$ka.V budce tu sed< vr#tn_ a cosi si huhl# pod vousy.",0,34,28,0
9929 DATA "Jsi v raket&,jej<` stabiliz#tory se m<rn& zab@edly do m&kk' zem& planety JET-JET.",0,0,0,0
9930 DATA "Sed<[ v prostorn' lo%ce na b@ehu @eky.Fl>ra planety JET-JET obda@ila zdej[< p@<rodu neskute$n_mi barvami.Vid<[ tla$<tko na boku lo%ky.",0,0,0,0
9931 DATA "Jsi v @<d<c< m<stnosti.Vid<[ panel a $erven' tla$<tko,nad kter_m je vyti[t&n n#pis:SPACESHIP READY-PRESS THIS KEY.",33,0,0,0
9932 DATA "Jsi ve vstupn< hale.V[ude se v#l< krabice s vzorky m&s<$n< krajiny.P@ed ji`n<mi dve@mi stoj< robot,z@ejm& vypnut_.N#padn& p@ipom<n# ALIENa 8.",34,0,32,0
9933 DATA "Stoj<[ na startovac< plo[in&.",0,0,33,29
9934 DATA "Proch#z<[ po ]zk' stezce.Kr#ter,asi po dopadu meteoritu,se jmenuje Bre`n&v a stoj< na jih od tebe.",0,40,0,0
9935 DATA "Pluje[ na lo%ce po klidn' hladin& @<$ky.Po obou stran#ch se ty$< strm' sr#zy horsk_ch velik#n^.Na skaln<m v_b&`ku asi $tvrt metru od tebe stoj< p@esn& opracovan_ hranol.Vid<[ tla$<tko na boku lo%ky.",0,0,0,0
9936 DATA "Jsi na okraji propasti.N&kolik set metr^ pod tebou te$e @<$ka.Vid<[ jak_si pevn_ k^l,zapu[\en_ do sk#ly.",38,0,0,0
9937 DATA "Stoj<[ na planin&,ohrani$en' strm_mi sr#zy.",39,0,37,0
9938 DATA "Stoj<[ na planin& p@ed observato@<,kter# se bly[t< odrazem slune$n<ch paprsk^.",40,44,38,0
9939 DATA "Stoj<[ u kr#teru nazvan'ho Reagan.",0,45,39,35
9940 DATA "Sed<[ v lo%ce.Vid<[ @eku,prot'kaj<c< hlubok_m ]dol<m.Fl>ra JET-JETu ti p@ipravila n#dhern_ pohled na pest@e zbarven' st&ny,`enouc< se do v_[e n&kolika set metr^.Vid<[ tla$<tko na boku lo%ky.",42,0,0,0
9941 DATA "Jsi v kr#pn<kov' jeskyni.Ze stropu vis< stovky kr#pn<k^.Cesta je pom&rn& obt<`n#,proto`e se mus<[ co chv<li skl#n&t,abys nenarazil do n&kter'ho z kr#pn<k^.",43,0,41,0
9942 DATA "Jsi v tmav' chodb&.Nen< na n< nic zvl#[tn<ho.",0,48,42,0
9943 DATA "Jsi v observato@i.Na ovl#dac<m panelu s n#pisem ""SHIP"" je sv^dn& vypadaj<c< b<l' tla$<tko.",0,0,0,39
9944 DATA "Ve[el jsi do bahnit' p^dy,kter# se ti propadla pod nohama.Sna`il ses zachr#nit,ale propadal ses st#le hloub&ji.Jsi mrtev...",0,0,0,0
9945 DATA "Lo%ka vjela do m<st,kde se @<$ka roz[i@uje.Z vody vy$n<vaj< balvany.Lo%ka najela na jeden z nich a potopila se.Tv^j skafandr nedok#zal dlouho vzdorovat kyselin& s<rov',kter' byla @<$ka pln#.Jsi mrtev...",0,0,0,0
9946 DATA "Uklouzl jsi po prudk'm sr#zu a spadl do @<$ky pln' kyseliny s<rov'.Jsi mrtev...",0,0,0,0
9947 DATA "Proch#z<[ tmavou chodbou.",49,0,47,43
9948 DATA "Opatrn& se dr`<[ na kraji propasti,ve kter' na dn& b&h# odporn_ pavouk.",50,0,48,0
9949 DATA "Jsi v nejzaz[<m m<st& rozlehl'ho podzem<.Je tu [ero.",0,0,49,0
9950 DATA "Jsi v autobusu.Podlaha se m<rn& t@ese chv&n<m motoru.",0,0,0,0
9951 DATA Q$+"Letadlo stoj< na runwayi.",0,0,0,0
9952 DATA Q$+"Letadlo startuje.",0,0,0,0
9953 DATA Q$+"Letadlo let< nad oce#nem.",0,0,0,0
9954 DATA Q$+"Letadlo p@ist#v#.",0,0,0,0
9956 DATA "Sed<[ ve vlaku.Ok'nkem nalevo od tv'ho sedadla je vid&t ub<haj<c< krajina.",0,0,0,0
9960 LET U$(19)=R$(TRA):DATA "Jsi v raket&.Okolo ti[e [um< r^zn' p@<stroje,po displej<ch monitor^ p@ej<`dej< tmav' pruhy.",0,0,0,0
9965 POKE 23551,0:POKE 23607,60:LET Y$="":LET KUR=0
9966 PRINT #1;AT 0,0;Y$( TO KUR);"*";Y$(KUR+1 TO );" "
9967 PAUSE 0:LET C=CODE INKEY$ :IF C>96AND C<128 THEN LET C=C-32
9968 IF LEN Y$<62 THEN IF (C>47AND C<58)OR C=34OR C=32OR (C>64AND C<91) THEN BEEP 1/300,0:LET Y$=Y$+CHR$ C:LET KUR=KUR+1
9971 IF C=12AND KUR>0 THEN BEEP 1/300,0:LET Y$=Y$( TO (KUR-1))+Y$(KUR+1 TO ):LET KUR=KUR-1
9972 IF C=13AND LEN Y$>0AND Y$<> S$( TO LEN Y$) THEN INPUT "":POKE 23607,249:RETURN
9973 GO TO 9966
9979 DATA "Jsi v trolejbusu.Vysypanou tabulkou skla profukuje.",0,0,0,0
Raw
zahada_bermudskeho.bas
0 RANDOMIZE USR 23817:REM AHOJ ! KAMARADE JAK SE VEDE ? STEP |;;LLIST FOR *=\s#r<> v STEP {RETURN COPY SAVE ::\RETURN (RETURN ( RETURN (<2\CLEAR 6COPY !%"B\!"D\;;NOT }NOT
2 GO TO 3500
10 PAPER 0:INK 7:BRIGHT 1:BORDER 0:CLS
20 LET vw=0:LET po4=0:LET po3=0:LET po2=0:LET po1=0:LET nic=0:LET ms=200:LET di=3100:LET pa=600:LET pr=600:LET re=200:LET el=1600:LET ba=1900:LET kl=2000:LET mo=2100:LET m=0
25 GO TO ms
30 PRINT AT 0,0;" ================================s=jdi na sever v=jdi na vYchod z=jdi na zApad j=jdi na jih --------------------------------1=seber 2=poloZ 3=prohlEdni 4=pouZij 5=pomoc 6=informace 7=opakuj 8=load 9=save ================================"
40 PAUSE 1:FOR b=0 TO 3:FOR n=0 TO 5:BEEP .002,n+30:NEXT n:FOR n=5 TO 0:BEEP .002,n+30:NEXT n:NEXT b:PAUSE 0
50 LET c$=INKEY$
60 IF c$="1" THEN GO SUB 7700
70 IF c$="2" THEN GO SUB 7600
80 IF c$="3" THEN GO SUB 7500
90 IF c$="4" THEN GO SUB 7400
100 LET nic=0
110 IF c$="5" THEN GO TO 7300
120 IF c$="6" THEN LET xx=0:LET a$="mAS u sebe:":GO SUB 7800:GO TO 30
130 IF c$="s" THEN IF s>1 THEN LET ms=s:LET a$="ok. jdeS na sever...":GO SUB 8000:PAUSE 20:GO TO ms
140 IF c$="v" THEN IF v>1 THEN LET ms=v:LET a$="ok. jdeS na vYchod...":GO SUB 8000:PAUSE 20:GO TO ms
150 IF c$="j" THEN IF j>1 THEN LET ms=j:LET a$="ok. jdeS na jih...":GO SUB 8000:PAUSE 20:GO TO ms
160 IF c$="z" THEN IF z>1 THEN LET ms=z:LET a$="ok. jdeS na zApad...":GO SUB 8000:PAUSE 20:GO TO ms
170 IF c$="s"OR c$="v"OR c$="j"OR c$="z" THEN LET a$="nevIm,proC mlAtIS hlavou o zeD, ale tudy se nedA jIt.":GO SUB 8000:GO TO 30
180 IF c$="7" THEN GO TO ms
190 IF c$="8" THEN GO TO 5000
195 IF c$="9" THEN GO TO 5500
199 LET a$="na takovY pRIkaz si nevzpomInAm":GO SUB 8000:PAUSE 1:PAUSE 0:GO TO 30
200 REM mistnosti
210 LET a$="probral jsi se ve svEm letadle okolo je naprostA tma.mUZeS jIt na sever.":GO SUB 8000
220 LET f$="":LET s=300:LET j=0:LET v=0:LET z=0:GO SUB 7900
230 GO TO 30
300 LET a$="vylezl jsi z letadla.jakmile jsi se nohama dotknul zemW vySlehla elektrickA jiskra a ty jsi omdlel...":GO SUB 8000:PAUSE 0:LET ms=400:GO TO ms
400 IF po1=0 THEN LET po1=1:LET s=7000:LET v=7000:LET j=7000:LET z=7000:LET a$="probral jsi se na jakEsi posteli nad tebou se sklAnWjI nEjakE bytosti.":GO SUB 8000:PAUSE 0:LET a$="jedna bytost tW plynulou angliCtinou oslovila:":GO SUB 8000:PAUSE 0:LET a$="~ClovWCe! jsme vYzkumnIci ze vzdAlenE galaxie.celA lEta pozorujeme vAS vYvoj.vZdy jednou za Cas uneseme loD Ci letadlo a podle toho si udElAme pRedstavu o vaSI vyspWlosti.posAdku musIme bohuZel odstranit,takZe nAm to snad v zAjmu vWdy odpustIte.ale nebojte nebude to bolet!jen chvilku poCkejte,skoCIm si pro nUZ.~":GO SUB 8000:PAUSE 0:LET a$="Rekla bytost a odeSla...":GO SUB 8000:PAUSE 0
410 LET f$="okolo tebe stojI nWkolik bytostI.nepustI tW,takZe by bylo zAhodno je zneSkodnit...":LET g$="vstal jsi,ale ostatnI bytosti se na tebe vrhly a pIchly ti uspAvacI prostRedek.upadl jsi do spAnku z kterEho jsi se jiZ neprobudil..."
430 IF po1=2 THEN LET f$="":LET j=500:LET s=3100:LET v=700:LET z=3000:LET a$="stojIS v rozlehlE mIstnosti.uprostRed je postel.na podlaze leZI nWkolik mrtvol.mUZeS jIt na sever jih zApad nebo vYchod.":GO SUB 8000
450 GO SUB 7900
499 GO TO 30
500 LET f$="":LET j=600:LET s=400:LET v=0:LET z=0:LET a$="jsi v chodbW vedoucI od severu na jih.":GO SUB 8000:IF po2=0 THEN LET a$="na jihu jsou ocelovE dveRe.":GO SUB 8000:LET f$="kdyZ nemAS klIC,tak budeS muset dveRe odstranit jinak...":LET j=0:LET s=400
599 GO SUB 7900:GO TO 30
600 LET a$="stojIS ve skladiSti.povalujI se zde rUznE helmy,kombinEzy a jinE vWci zRejmE z letadel nebo lodI.":GO SUB 8000:LET s=500:LET j=0:LET v=0:LET z=0:LET f$=""
699 GO SUB 7900:GO TO 30
700 LET a$="postupujeS vYchodo zApadnI chodbou":GO SUB 8000:LET v=800:LET z=400:LET s=0:LET j=0:LET f$=""
799 GO SUB 7900:GO TO 30
800 LET a$="chodba JstI do malE pUlkruZnicovE mIstnosti.mIsto jiZnI stWny je CernA propast.mUZeS jIt na jih nebo na zApad":GO SUB 8000:LET g$="kdyZ jsi letWl vzduchem,tak jsi si jeStW staCil pomyslet,Ze skAkat bez otevRenEho padAku byla pWknA pitomost... vytvoRil jsi krAter o prUmWru 2m.":LET s=0:LET j=7000:LET z=700:LET v=0
899 GO SUB 7900:GO TO 30
1000 LET a$="stojIS v temnE chodbW.nad tebou zeje tmavA Sachta.mUZeS jIt na vYchod nebo na zApad":GO SUB 8000:LET s=0:LET j=0:LET v=1200:LET z=1100:LET f$=""
1099 GO SUB 7900:GO TO 30
1100 LET a$="stojIS nWkde,ale nevIS,kde protoZe okolo je naprostA tma.":GO SUB 8000:LET v=1000:LET z=0:LET j=0:LET s=0:LET f$="mohlo by tu nWco bYt,ale bez svWtla to asi tEZko najdeS..."
1199 GO TO 30
1200 LET vyt=0:LET a$="stojIS na vYchodnIm konci vYchodo zApadnI chodby.na vYchod jsou dveRe od vYtahu.":GO SUB 8000:IF po3=0 THEN LET a$="ve vYtahu vidIS nECI stIn...!":GO SUB 8000
1210 LET s=0:LET v=1300:LET j=0:LET z=1000:IF po3=0 THEN LET v=7000:LET g$="vlezl jsi do vYtahu.tam vSak jiZ byla jakAsi bytost.kdyZ tW uvidWla,tak vytAhla pistoli a zastRelila tW."
1299 GO SUB 7900:GO TO 30
1300 LET a$="stoupl jsi si do vYtahu a ten se rozjel.po chvIli se zastavil.mUZeS jIt na zApad":GO SUB 8000:LET v=0:IF vyt=1 THEN LET z=1200:GO TO 1315
1310 LET z=1500
1399 GO SUB 7900:GO TO 30
1500 LET z=0:LET a$="jseS v jakEmsi RIdIcIm centru.severnI stWna je sklenWnA a je tudy vidWt moRskE dno.(dUftipnW jsi si domyslel,Ze jseS pod vodou) na vYchodW jsou dveRe od vYtahu a na zApad":IF po4=0 THEN LET a$=a$+"W jsou zamCenE pancERovE dveRe.":GO TO 1502
1501 LET a$=a$+" vede jakAsi chodba.":LET z=1600
1510 LET vyt=1:GO SUB 8000:LET v=1300:LET s=0:LET j=0:LET f$=""
1599 GO SUB 7900:GO TO 30
1600 LET f$="":LET a$="stojIS v chodbW,vedoucI ze zApadu na vYchod.":GO SUB 8000:LET s=0:LET v=1500:LET j=0:LET z=1700
1699 GO SUB 7900:GO TO 30
1700 LET a$="jsi v obrovskEm sAle plnEm letadel.na sever od tebe je zachovalY bombardEr ~tbm avenger~.mUZeS jIt na sever nebo na vYchod":GO SUB 8000
1710 LET s=1750:LET v=1600:LET z=0:LET j=0
1749 GO TO 30
1750 LET a$="vlezl jsi do bombardEru. chceS odstartovat? a=ano n=ne":GO SUB 8000:PAUSE 0:IF INKEY$ ="n" THEN GO TO 1700
1760 LET a$="sice je tento letoun odliSnY od toho tvEho,ale pRece jsi odstartoval.chvIli jsi letWl mIstnostI,aZ jsi vylEtl otvorem ven.":GO SUB 8000:PAUSE 0:GO TO 1800
1800 LET ms=1800:LET a$="letIS nad hladinou oceAnu. z vody se vynoRily dvW letadla a nynI ti brAnI odletWt.":GO SUB 8000:LET s=7000:LET v=7000:LET z=7000:LET j=7000:LET f$="letadla tW sledujI pomocI radaru.kdyby jsi ho dokAzal vyRadit z provozu,snadno bys jim uletWl.":LET g$="pokusil ses odletWt,ale jedno z letadel tW sestRelilo"
1899 GO TO 30
3000 LET g$="jseS v malE mIstnosti proti tobW se nAhle objevila vracejIcI se bytost s noZem a neZ jsi staCil pozdravit,probodla ti hrdlo":GO TO 7000
3100 LET a$="jsi v Cemsi co pRipomInA laboratoR (nebo je to snad jIdelna ?) rozhodnW zde je plno banWk,zkunavek a jinEho haraburdI.mUZeS se pouze otoCit a jIt zpAtky na jih,protoZe dAl cesta nevede.":GO SUB 8000
3110 LET s=0:LET z=0:LET v=0:LET j=400
3120 GO SUB 7900
3199 GO TO 30
3505 POKE 23743,83:POKE 23607,242:INK 0:PAPER 6:BORDER 6:FLASH 0:BRIGHT 0:CLS :FOR n=0 TO 53:PRINT "jh software ";:BEEP .002,n/2:BEEP .003,(-n+100)/2:NEXT n:PRINT AT 9,0; " jh software 1988 uvAdI hru : " :PAUSE 1:PAUSE 0
3506 IF INKEY$ ="J" THEN BEEP 1,1:PAUSE 0:IF INKEY$ ="H" THEN STOP
3509 BRIGHT 1:FLASH 0:OVER 0:PAPER 0:INK 6:BORDER 0:CLS :PRINT AT 1,0;INK 6; "=============================== zAhada bermudskEho trojJhelnIku ==============================="
3510 PRINT AT 5,0; "jistW jsi uZ slySel o podivnYch Ukazech v oblasti mezi floridou,portorikem a bermudami zvanE tEZ~bermudskY trojJhelnIk~"'' "a prAvW tobW se naskYtA moZnost,o kterE lidstvo snI jiZ roky: vysvEtlit pRICinu mizenI lodI a letadel nad SirYm oceAnem..."''''"tak stiskni tlaCItko a vzhUru za dobrodruZstvIm!"
3520 PAUSE 1:RANDOMIZE USR 63000
3530 INK 7:CLS :PRINT AT 1,0;" jsi znAmY americkY dobrodruh george knittel.KdyZ jsi novinAm pRed tRemi mWsIci oznAmil,Ze hodlAS objasnit tajemstvI bermudtak se ti vSichni vysmAli,ale ty jsi se nevzdal a celE dlouhE dny jsi tuto oblast proCesAval svYm osobnIm letadlem..."
3540 PRINT ''"aZ do dneSka jsi nepozoroval niczvlAStnIho.ale dnes jsi po dvou hodinAch letu najednou pRestal vidWt zemi.po chvIli jsi omdlel a tak zaCalo dalSI dobrodruZstvItvEho Zivota...":PAUSE 1:RANDOMIZE USR 63000
3599 GO TO 10
4000 FOR n=30 TO 50:BEEP .001,-n+80:BEEP .002,n:BEEP .001,-n+80:NEXT n
4010 PAPER 6:INK 0:BORDER 6:BRIGHT 0:CLS :PRINT AT 10,0; "za nWkolik hodin jsi STastnW pRistAl na letiSti v miami.":PAUSE 1:PAUSE 0
4020 INK 6:CLS :PRINT AT 0,0 ; "na zAkladW tvYch JdajU vypravilavlAda u.s.a. vojenskY konvoj s atomovou ponorkou ~aggra~ v Cele."'' "tato flotila bWhem dvou dnU zjistila polohu mimozemskE zAkladny a nWkolika hlubinnYmi bombami jI zneSkodnila."'' "a tak pRestaly neuvWRitelnE katastrofy v oblasti bermud. tamnI obyvatelE sice tvrdI,Ze za temnYch nocI nad hladinou moRe pRelEtAvajI ~ufo~ a hledajItroseCnIky ze zniCenE zAkladny, ale kdo by jim vWRil..."
4030 INK 0:FOR n=0 TO 17:FOR m=0 TO 31:PRINT AT n,m;INK 0;OVER 1;" ":BEEP .002,40:NEXT m:BEEP .01,30:NEXT n
4040 PAUSE 1:PAUSE 0
4050 CLS :PRINT AT 8,0; "jestli se ti tvA dneSnI pRIhoda lIbila,tak si poCkej na hru od firmy machrsoft pod kterou od dne 30.9. 1988 spadA i jH software.":PAUSE 1:PAUSE 0:GO TO 0
5000 LET a$="ok. nahrAvAm...":GO SUB 8000:LOAD "zAhada"CODE
5010 LET n=63901
5015 GO SUB 5100:LET ms=yy*100
5020 GO SUB 5100:LET di=yy*100
5025 GO SUB 5100:LET pa=yy*100
5030 GO SUB 5100:LET pr=yy*100
5035 GO SUB 5100:LET re=yy*100
5040 GO SUB 5100:LET el=yy*100
5045 GO SUB 5100:LET ba=yy*100
5050 GO SUB 5100:LET kl=yy*100
5060 GO SUB 5100:LET mo=yy*100
5065 GO SUB 5100:LET po1=yy
5070 GO SUB 5100:LET po2=yy
5075 GO SUB 5100:LET po3=yy
5080 GO SUB 5100:LET po4=yy
5085 GO SUB 5100:LET vw=yy
5099 GO TO ms
5100 LET yy=PEEK n:LET n=n+1:RETURN
5500 LET n=63901
5510 LET yy=ms/100:GO SUB 5600
5515 LET yy=di/100:GO SUB 5600
5520 LET yy=pa/100:GO SUB 5600
5525 LET yy=pr/100:GO SUB 5600
5530 LET yy=re/100:GO SUB 5600
5535 LET yy=el/100:GO SUB 5600
5540 LET yy=ba/100:GO SUB 5600
5545 LET yy=kl/100:GO SUB 5600
5550 LET yy=mo/100:GO SUB 5600
5555 LET yy=po1:GO SUB 5600
5560 LET yy=po2:GO SUB 5600
5565 LET yy=po3:GO SUB 5600
5570 LET yy=po4:GO SUB 5600
5575 LET yy=vw:GO SUB 5600
5599 LET a$="o.k. spusT mg a zmACkni cokoliv":GO SUB 8000:PAUSE 0:POKE 23736,187:SAVE "zAhada"CODE 63901,15:PAUSE 5:BEEP 1,1:GO TO 30
5600 POKE n,yy:LET n=n+1:RETURN
7000 LET a$=g$:GO SUB 8000:LET a$="jsi mrtev!":GO SUB 8000:PAUSE 0:GO TO 0
7300 IF f$<> "" THEN LET a$=f$:GO SUB 8000:PAUSE 0:GO TO 30
7310 LET a$="jA vIm,Ze myslet bolI,ale zkus poradit si sAm!":GO SUB 8000:GO TO 30
7400 LET pr1=0:LET a$="co chceS pouZIt:":LET xx=0:GO SUB 7800:PAUSE 1:PAUSE 0:LET e$=INKEY$ :IF nic=1 THEN GO TO ms
7410 IF e$="r" THEN IF re=xx THEN LET pr1=1:IF j<> 500 THEN IF ms=400 THEN LET f$="":LET po1=2:LET a$="vytrhl jsi revolver a po nWkolika vYstRelech byla mIstnost vylidnWnA.mUZeS jIt na sever jih vYchod nebo zApad.":GO SUB 8000:PAUSE 1:PAUSE 0:LET s=3100:LET v=700:LET z=3000:LET j=500:GO TO 30
7415 IF e$="d" THEN IF di=xx THEN LET pr1=1:IF ms=500 THEN LET di=2000:LET vw=vw-1:LET j=600:LET po2=1:LET a$="ok. hodil jsi s dynamitem o zem a ten pak hodil o zem s tebou naStEstI se ti nic nestalo a cesta na jih je volnA.":GO SUB 8000:PAUSE 1:PAUSE 0:GO TO 30
7420 IF e$="p" THEN IF pa=xx THEN LET pr1=1:IF ms=800 THEN LET a$="chvIli si plachtil tmou,aZ jsi koneCnW bezpeCnW pRistAl.":GO SUB 8000:PAUSE 1:PAUSE 0:LET ms=1000:GO TO ms
7425 IF e$="r" THEN IF re=xx THEN LET pr1=1:IF ms=1200 THEN IF po3=0 THEN LET ba=1300:LET a$="vystRelil jsi proti postavW a ta vypadla z vYtahu.cesta na vYchod do vYtahu je volnA.":GO SUB 8000:PAUSE 1:PAUSE 0:LET v=1300:LET po3=1:GO TO 30
7430 IF e$="b" THEN IF ba=xx THEN LET pr1=1:IF ms=1100 THEN LET a$="posvItil jsi si baterkou a objevil jsi na zemi klIC.":GO SUB 8000:PAUSE 1:PAUSE 0:LET kl=1100:GO TO 30
7435 IF e$="e" THEN IF el=xx THEN LET pr1=1:IF pr=0 THEN LET vw=vw-1:LET a$="zaSrouboval jsi elektronku do pRIstroje a ona tam kupodivu pasuje.":GO SUB 8000:PAUSE 1:PAUSE 0:LET el=2000:GO TO 30
7440 IF e$="m" THEN IF mo=xx THEN LET pr1=1:IF pr=0 THEN LET vw=vw-1:LET a$="o.k. pRipojil jsi monoClAnek k pRIstroji.":GO SUB 8000:PAUSE 1:PAUSE 0:LET mo=2000:GO TO 30
7445 IF e$="k" THEN IF kl=xx THEN LET pr1=1:IF ms=1500 THEN LET a$="otoCil jsi klICem v zAmku a dveRe se otevRely.":LET z=1600:GO SUB 8000:PAUSE 1:PAUSE 0:LET po4=1:GO TO 30
7450 IF e$="1" THEN IF pr=xx THEN LET pr1=1:IF el=2000 THEN IF mo=2000 THEN IF ms=1800 THEN LET a$="zapnul jsi pRIstroj.letadla tW stratily z radaru a ty si jim snadno uletWl.letIS smEr florida...":GO SUB 8000:PAUSE 1:PAUSE 0:GO TO 4000
7455 IF e$="1" THEN IF pr=xx THEN LET pr1=1:IF mo<> 2000 THEN IF ms=1800 THEN LET a$="pRIstroj bez monoClAnku nefunguje.":GO SUB 8000
7460 IF e$="1" THEN IF pr=xx THEN LET pr1=1:IF el<> 2000 THEN IF ms=1800 THEN LET a$="v pRIstroji nenI elektronka.":GO SUB 8000
7465 IF e$="1" THEN IF pr=xx THEN IF ms=1800 THEN PAUSE 1:PAUSE 0:GO TO 30
7498 IF pr1=0 THEN LET a$="to mW teda nauC,jak mAm pouZIt nWco,co nemAm?!":GO SUB 8000:PAUSE 0:GO TO 30
7499 IF pr1=1 THEN LET a$="velice se omlouvAm,Ze jsem tak neschopnY,ale nevIm,k Cemu by to bylo dobrE.":GO SUB 8000:PAUSE 0:GO TO 30
7500 LET a$="co chceS prohlEdnout:":LET xx=0:GO SUB 7800
7510 PAUSE 1:PAUSE 0:LET e$=INKEY$ :IF nic=1 THEN GO TO ms
7520 IF e$="d" THEN IF di=xx THEN LET a$="je to naprosto normAlnI Stangle dynamitu,nevIm, proC na nI tak vejrAS!":GO SUB 8000:PAUSE 1:PAUSE 0: GO TO 7590
7525 IF e$="p" THEN IF pa=xx THEN LET a$="je to vojenskY padAk z doby druhE svWtovE vAlky.je na nWm vytiStWno:dc 6 1945 (dc 6 je letadlo co beze stopy zmizelo 6.9.1945 v oblasti BermudskEho trojJhelnIka)":GO SUB 8000:PAUSE 1:PAUSE 0: GO TO 7590
7530 IF e$="1" THEN IF pr=xx THEN LET a$="tento pRIstroj se pouZIvA v letectvu a zpUsobuje,Ze letadlo nenI vidWt na radaru.":GO SUB 8000:IF el<> 2000 THEN LET a$="ale chybI v nWm jedna elektronka":GO SUB 8000
7531 IF e$="1" THEN IF pr=xx THEN IF mo<> 2000 THEN LET a$="pRIstroj vSak nemA baterii.":GO SUB 8000
7532 IF e$="1" THEN IF pr=xx THEN PAUSE 1:PAUSE 0:GO TO 7590
7535 IF e$="r" THEN IF re=xx THEN LET a$="je to nWmeckY brownink se Sesti nAboji.":GO SUB 8000:PAUSE 1:PAUSE 0: GO TO 7590
7540 IF e$="e" THEN IF el=xx THEN LET a$="zastaralY typ elektronky,ale zdA se nepoSkozenA.":GO SUB 8000:PAUSE 1:PAUSE 0: GO TO 7590
7545 IF e$="b" THEN IF ba=xx THEN LET a$="v baterce je monoClAnek a vypadA nabitY.":LET mo=0:GO SUB 8000:PAUSE 1:PAUSE 0: GO TO 7590
7550 IF e$="k" THEN IF kl=xx THEN LET a$="je naprosto normALnI... a nekoukej na nWj,jako kdyby jsi podobnou vWc v ZivotW nevidWl !":GO SUB 8000:PAUSE 1:PAUSE 0: GO TO 7590
7555 IF e$="m" THEN IF mo=xx THEN LET a$="je nabitY (made in taiwan)":GO SUB 8000:PAUSE 1:PAUSE 0: GO TO 7590
7580 LET a$="myslIS,Ze jsem bystrozrakY,abych mohl prozkoumat nWco co nemAm ?":GO SUB 8000:PAUSE 0:GO TO 30
7590 GO TO 30
7600 LET a$="co chceS poloZit:":LET xx=0:GO SUB 7800
7620 PAUSE 1:PAUSE 0:LET e$=INKEY$ :IF nic=1 THEN GO TO ms
7630 IF e$="d" THEN IF di=xx THEN LET di=ms:GO TO 7690
7635 IF e$="p" THEN IF pa=xx THEN LET pa=ms:GO TO 7690
7640 IF e$="1" THEN IF pr=xx THEN LET pr=ms:GO TO 7690
7645 IF e$="r" THEN IF re=xx THEN LET re=ms:GO TO 7690
7650 IF e$="e" THEN IF el=xx THEN LET el=ms:GO TO 7690
7655 IF e$="b" THEN IF ba=xx THEN LET ba=ms:GO TO 7690
7660 IF e$="k" THEN IF kl=xx THEN LET kl=ms:GO TO 7690
7665 IF e$="m" THEN IF mo=xx THEN LET mo=ms:GO TO 7690
7670 LET a$="takovY pRedmEt nemAS!":GO SUB 8000:GO TO 30
7690 IF vw=0 THEN LET vw=vw+1
7691 LET vw=vw-1:LET a$=" ok. poloZil jsi":GO SUB 8000:GO TO 30
7700 IF vw>2 THEN LET a$="tolik vWcI neuneseS!":GO SUB 8000:PAUSE 1:PAUSE 0:GO TO 30
7701 LET a$="co chceS sebrat:"
7710 LET xx=ms:GO SUB 7800
7720 PAUSE 1:PAUSE 0
7730 LET e$=INKEY$ :IF nic=1 THEN GO TO 30
7740 IF e$="d" THEN IF di=xx THEN LET di=0:GO TO 7790
7745 IF e$="p" THEN IF pa=xx THEN LET pa=0:GO TO 7790
7750 IF e$="1" THEN IF pr=xx THEN LET pr=0:GO TO 7790
7755 IF e$="r" THEN IF re=xx THEN LET re=0:GO TO 7790
7760 IF e$="e" THEN IF el=xx THEN LET el=0:GO TO 7790
7765 IF e$="b" THEN IF ba=xx THEN LET ba=0:GO TO 7790
7770 IF e$="k" THEN IF kl=xx THEN LET kl=0:GO TO 7790
7775 IF e$="m" THEN IF mo=xx THEN LET mo=0:GO TO 7790
7780 LET a$=" tento pRedmEt tu nenI !!":GO SUB 8000:GO TO 30
7790 IF vw<3 THEN LET vw=vw+1:LET a$=" ok. sebral jsi":GO SUB 8000:GO TO 30
7800 LET d$=a$
7810 IF di=xx THEN LET a$=a$+" d=dynamit"
7815 IF pa=xx THEN LET a$=a$+" p=padAk"
7820 IF pr=xx THEN LET a$=a$+" 1=pRIstroj"
7825 IF re=xx THEN LET a$=a$+" r=revolver"
7830 IF el=xx THEN LET a$=a$+" e=elektronku"
7835 IF ba=xx THEN LET a$=a$+" b=baterKu"
7840 IF kl=xx THEN LET a$=a$+" k=klIC"
7845 IF mo=xx THEN LET a$=a$+" m=monoClAnek"
7849 IF a$=d$ THEN LET nic=1:LET a$=a$+"velkE nic"
7850 GO SUB 8000:RETURN
7851 PAUSE 0:LET c$=INKEY$
7900 LET a$="vidIS zde: "
7910 IF di=ms THEN LET a$=a$+"dynamit,"
7912 IF el=ms THEN LET a$=a$+"elektronku,"
7915 IF pa=ms THEN LET a$=a$+"padAk,"
7917 IF ba=ms THEN LET a$=a$+"baterku,"
7920 IF pr=ms THEN LET a$=a$+"pRIstroj,"
7922 IF kl=ms THEN LET a$=a$+"klIC,"
7925 IF re=ms THEN LET a$=a$+"revolver,"
7927 IF mo=ms THEN LET a$=a$+"monoClAnek"
7998 IF a$="vidIS zde: " THEN LET a$=a$+"velkE nic"
7999 GO TO 8000
8000 LET b$=""
8010 FOR n=1 TO LEN a$:LET b$=b$+a$(n):IF a$(n)=" "OR n=LEN a$OR a$(n)="."OR a$(n)="!"OR a$(n)="," THEN GO SUB 8100
8020 NEXT n
8030 INPUT "":PRINT AT 21,31;" ":INPUT "":PRINT AT 21,31;" ":LET m=0:RETURN
8100 IF m+LEN b$>31 THEN INPUT "":PRINT AT 21,30;" ":LET m=0
8110 PRINT AT 20,m;b$;:LET m=m+LEN b$:LET b$=""
8120 RETURN
9500 GO TO 0
9900 CLEAR 61999:SAVE "super 11":BEEP 1,20:SAVE "super x CODE "CODE 62208,1692:PAUSE 20:BEEP 1,1
9901 STOP
9990 PAPER 0:INK 7:BRIGHT 1:BORDER 0:CLS :POKE 23607,249:STOP
9999 PAPER 7:INK 0:BORDER 7:BRIGHT 0:FLASH 0:CLS :POKE 23607,60
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment