epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: /tmp/phpdQfvVl (18933 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpdQfvVl.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 D5 49 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x49d5 bytes.
100 PROGRAM "ID\LABIRINTUS" 110 SET STATUSOFF 120 SET KEYCLICKOFF 130 CLEAR TEXT 140 SET #102:PALETTEWHITE,RED 150 SET BORDERBLUE 160 SET TAPESOUNDOFF 170 SET CHARACTER97,8,16,60,10,62,66,60,0,0 180 SET CHARACTER101,8,16,60,66,62,64,60,0,0 190 SET CHARACTER117,8,16,66,66,66,66,60,0,0 200 ! * **** * ***** **** * * * 210 ! * * * * * * * * * 220 ! * * * * * * ** * 230 ! * ** * * * *** ** * 240 ! * * ***** * * * * * 250 ! * * * * * * * * * * 260 ! * ** * * * **** * * * 270 SET CHARACTER111,8,16,60,66,66,66,60,0,0 280 ! ******************************* 290 ! 300 !IME A PRG. 310 ! 320 PRINT AT1,10:"ID\LABIRINTUS" 330 PRINT AT2,3:"FeLELMETES FANTaZIAJaTeK" 340 PRINT :PRINT "IRD BE AZ IDEI eVSZaMOT:";:INPUT EV$ 350 PRINT AT5,2:"AZ uR "EV$:! 360 PRINT AT5,12:". ESZTENDEJeBEN EGY KUTATo" 370 PRINT "ELINDUL EGYIPTOMBA A PIRAMISOK HAZaJaBA, HOGY FELKUTASON EGY OLYAN PIRAMIST, AMELYB\L MeG EMBERFIA NEM TeRT VISSZA.EGYED}L VaG NEKI A VESZeLYES LABIRINTUSNAK.EGY K\ZELI FALUBAN PIHENT MEG uTJA EL\TT.<CTRL/LOCK>" 380 PRINT :PRINT " ISMERTET\ KELL? IGEN-'L' ;NEM-'S' ";:INPUT Q$ 390 IF Q$="L"THENGOTO 410 400 IF Q$="S"THENGOTO 500 410 CLEAR TEXT:SET #102:PALETTEWHITE,RED 420 PRINT AT1,11:"A CSATA " 430 PRINT :PRINT "EGY SZaMOT KELL BEIRNOD 1-10 K\Z\TT.EGY MaSIK SZaMOT A GeP FOG KIIRNI.UTaNA MEGKERDEZI `NYERTeL I/N?`. AKKOR NYERSZ, HA A BEIRT SZaMOD EGYENL\, VAGY +,-2 -VEL TeR EL A GeP aLTAL KIIRT SZAMToL." 440 PRINT "HA AZ ELTeReS NAGYOBB 2-NeL A LeNY MEGSEBESITETT.A CSATaT EGY MEGHATaROZOTT GY\ZELEM UTaN NYERED MEG:" 450 PRINT :PRINT " CSELEKVeS/LePeS" 460 PRINT :PRINT "MINDEN SZ|VEGES ReSZ UTaN A GeP KIIRJA A VALASZTaSI LEHET|SeGET eS ANNAK A BET} JELeT.MINDIG CSAK EGY BET}S VaLASZ KELL." 470 PRINT :PRINT "LAPOZZ-L . START-S .";:INPUT Q$ 480 IF Q$="L"THENGOTO 370 490 IF Q$="S"THENGOTO 510 500 ! JATEK 510 CLEAR TEXT:SET #102:PALETTEWHITE,BLACK:SET BORDERRED 520 PRINT "EGY KANYAR UTaN MEGBOTLASZ eS BEVERED A FEJED EGY K|BE.ELaJULSZ." 530 PRINT "MIKOR MAGADHOZ TeRSZ MaSHOL TALaLOD MAGAD eS HOZZa AZ |SSZES FELSZERELeSED ELT}NT CSAK AZ IRANYT} LOG A NYAKADBAN.FELaLLSZ, S K|R}L NeZZEL. EGY eSZAK-DeL IRaNYu FOLYoSON VAGY." 540 PRINT "EL|TTED EGY AJTo K|RVONALAI RAJZoLODNAK KI.BENYITSZ AZ AJToN." 550 ! 560 !IF Q$="N" THEN GOTO 580 570 !IF Q$="K" THEN GOTO 760 580 PRINT :PRINT "ODAMeSZ AZ AJToHOZ eS BENYITSZ.EGY KIS SZOBaBA LePSZ,S A SZOBA |SSZES BuTORZATA EGY oCSKA FAASZTAL.AZ ASZTALON EGY GYERTYA,EZ VILaGITJA BE AZ EGeSZ SZOBaT,eS EGY TEKERCS PERGAMENT VAN." 590 PRINT "MIT TESZEL? ELOLVASOD AZ IRaST-O VAGY KIMeSZ AZ AJToN KELET FELe -'K'";:INPUT W$ 600 IF W$="O"THENGOTO 630 610 IF W$="K"THENGOTO 810 620 ! 630 TEXT :SET #102:PALETTEWHITE,MAGENTA 640 PRINT :PRINT "]DV\Z\LEK IDEGEN!MEGSeRTETED A T\RVENY]NKET eS EZeRT PUSZTULNOD KELENE, DE EGY ESeLYT ADOK,HOGY MEGMENSD B]N\S LELKEDET.FELADATOD,HOGY KIJUSS ID\LABIRINTUSOMBoL.eS MeG EGY!! A SZaMOKRA FIGYELJ! SOK SIKERT." 650 PRINT " BELEZEBUG" 660 PRINT :PRINT 670 PRINT "SZINTE ELKaBULSZ AZ OLVASTAKToL .BaMULSZ MAGAD ELe NEM GONDOLSZ SEMMIRE.A PAPIR TEKERCS KIHULL A KEZEDB\L." 680 PRINT "ELTELIK Jo PaR PERC AMIG MAGADHOZ TeRSZ. MOST MaR aTGONDOLOD AZ EGeSZET eS KeT \TLET JUT AZ ESZEDBE. 1-\NGYILKOS LESZEL ,2-PRoBA SZERENCSE NEKIVaGSZ AZ uTNAK.'1'-EST VAGY A '2'-EST BILL. NYOMOD MEG ";:INPUT E$ 690 IF E$="1"THENGOTO 720 700 IF E$="2"THENGOTO 760 710 ! \N-GYILKOS ? 720 TEXT :SET #102:PALETTECYAN,RED 730 PRINT AT10,6:"FEL\S KIS NYUSZI" 740 PRINT AT13,6:"eS HOGY |L\D MEG MAGAD?" 750 WAIT 7 760 TEXT :SET #102:PALETTEWHITE,BLUE 770 SET BORDERRED 780 PRINT :PRINT "LELKILEG ER\T GY]JT\TTeL MAGADBAN. HATaROZOTT LePTEKKEL ELINDULSZ A KELET FELe." 790 WAIT 15 800 ! 810 PRINT :PRINT "KELET FELe HALADSZ eS NEHaNY MeTER UTaN EGY ELaGAZASHOZ eRSZ.EGY uT VEZET eSZAKRA EGY MaSIK NYUGATRA, eS VeG]L EGY uT KELET FELe IS NYILIK." 820 PRINT :PRINT "ELaGAZAS ! MERRE MeSZ:" 830 PRINT :PRINT "eSZAKRA-'E'";:! 840 PRINT :PRINT "KELETRE-'K'";:! 850 PRINT :PRINT "NYUGATRA-'N'";:INPUT R$ 860 IF R$="E"THENGOTO 980 870 IF R$="K"THENGOTO 890 880 IF R$="N"THENGOTO 580 890 ! 900 TEXT :SET #102:PALETTEWHITE,BLACK 910 PRINT :PRINT "A FoLYOSo ZSaKUTCaBA TORKOLIK.MaR-MaR VISSZA FORDULSZ AMIKOR EGY NYILAT VESZEL eSZRE A FALRA FESTVE,S ALATTA EGY VeRREL IRT SZo `TOVaBB`." 920 PRINT :PRINT "MIT CSINaLSZ? MeSZ A NYIL IRaNYaBA A FA FELe, VAGY INKaBB VISSZAMeSZ AZ ELaGAZaSHOZ eS eSZAK FELe INDULSZ.VaLASZTaSOD TOVaBB-`T` , ELaGAZaSHOZ-`E` ";:INPUT T$ 930 IF T$="T"THENGOTO 950 940 IF T$="E"THENGOTO 820 950 PRINT :PRINT "MeSZ A FAL FELe KINYuJTOTT KeZZEL eS LaS CSODaT A FAL ELT]NT ES IGY BEJUTHATTAL EGY TITKOS FEGYVERKAKTaRBA.GY\NY\R] MINTA PeLDaNYOK,S ESZEDBE JUTVA MI IS A FELADATOD FELFEGYVERZED MAGAD." 960 PRINT "FELVESZEL EGY VAS KARDOT TOKKAL,\VVEL EGY MELVeRTET IS MAGADRA \LTESZ.B\RCSIZSMaVAL A LaBADON HAGYOD EL A REJTETT FEGYVERTaRAT.ELeGEDETEN MeSZ AZ ELaGAZaSHOZ." 970 GOTO 820 980 ! ESZEK 990 TEXT :SET #102:PALETTEWHITE,BLACK 1000 SET BORDERRED 1010 PRINT :PRINT "eSZAK FELe HALATSZ, AMIKOR A FoLYOSo JOBB OLDALaBA EGY uJ uTAT VESZEL eSZRE.MIT CSINaLSZ? TOVaBB MeSZ eSZAKNAK-'E' VAGY ELINDULSZ AZ uJ FoLYOSON-`K` ";:INPUT Z$ 1020 IF Z$="E"THENGOTO 1120 1030 IF Z$="K"THENGOTO 1040 1040 ! PAJZS 1050 TEXT :SET #102:PALETTEWHITE,BLUE 1060 SET BORDERGREEN 1070 PRINT :PRINT "ELINDULSZ A FoLYOSON, AHOL NINCS VILaGITaS.VeG]L OLYAN S\TeT VAN, HOGY SEMMIT NEM LaTSZ.MaR ePP VISSZA AKARSZ FORDULNI AMIKOR VALAMIBE ELBOTLASZ.F\LaLLSZ eS FELEMELED A TaRGYAT MEG PRoBaLOD KIDERITENI MI IS AZ." 1080 PRINT "A TaRGY NAGY eS KEREK.NEM J|SZ Ra MI AZ eS ELHATaROZOD VISSZAFORDULSZ.KIeRVE A FOLYoSOBoL LaTOD, HOGY EGY PAJZSOT TARTASZ A KEZEDBEN.\R|M|D HATaRTALAN.A HARCBAN 3 PONT LEHET IGY AZ ELTeReSED." 1090 PRINT "uGY VeLED MOST MaR SIKER]LNIE KELL A KIJUTaSNAK. PEDIG HA TUDNaD MeG CSAK AZ ELEJeN VAGY AZ EGeSZNEK.ELINDULSZ eSZAKNAK." 1100 WAIT 30 1110 ! 1120 PRINT :PRINT "NeZED, AHOGY ELMARAD M|G|TED A FEKETE FoLYOSO.S MIK|ZBEN HaTRA FELe FORDULSZ NEM VESZED eSZRE AZ aRKOT EL|TTED.BELEESEL!! VALAHONAN GuNYOS KACAJ HANGZIK F|L." 1130 PRINT "MAJD EZEKET A HANGOKAT HALLOD MIK|ZBEN FEL aLLSZ.TESSeK EZT MEG eRDEMELTED.MeRT FOGLALKOZOL MINDIG A MuLTAL. AMI VOLT AZ VOLT MINDIG A JELENNEL FOGLALKOZZ !" 1140 PRINT "K|R}L NeZEL. AHONNAN J|TTEL OTT MOST SIMA FAL EMELKEDIK,ALATTAD PUHA HOMOK.JOBBRA eS BALLRA IS CSAK FAL, DE EL|TTED eSZAKRA A MEGMENT\ LePCS\" 1150 PRINT ".ELINDULSZ A LEPCS| FELe MIKOR LaTOD AZ ELS| LePCSOFOKON VALAMIK FeNYLENEK.4 ARANYPeNZ." 1160 PRINT "MICSODA SZERENCSE! B}SZKeN INDULSZ A LePCS|N FELFELe." 1170 WAIT 33 1180 TEXT :SET #102:PALETTEWHITE,BLACK 1190 SET BORDERBLACK 1200 PRINT :PRINT " KERESZTEZ|DeSHEZ eRTeL. EGY uT VEZETT TOVaBB eSZAKRA , DE EGY FoLYOSON MEHETSZ NYUGAT FELe. eSZAK-'E' ; NYUGAT-'N' .MERRE MeSZ ";:INPUT Q$ 1210 IF Q$="E"THENGOTO 2140 1220 IF Q$="N"THENGOTO 1230 1230 ! OSKOR 1240 TEXT :SET #102:PALETTEWHITE,BLACK:SET BORDER125 1250 PRINT :PRINT " NYUGAT FELE HALADSZ A FOLYOSON, DE PAR METER UTAN UTADAT ALLJA EGY ORIASI FAAJTO. AZ AJTO LE VAN LAKATOLVA. MEGLEPEDESEDRE AZ AJTO MELLETT EGY SZ\GRE A LAKAT KULCSA VAN FELAKASZTVA.MIT CSINALSZ?" 1260 PRINT "HA KINYITOD AZ AJTOT AKKOR AZ 'A' ; HA VISSZAFORDULSZ ES A KERESZTEZODESNEL ESZAK FELE MESZ AKKOR AZ 'E' BILLENTYUT NYOMD MEG. ";:INPUT W$ 1270 IF W$="A"THENGOTO 1290 1280 IF W$="E"THENGOTO 1590 1290 ! EZ KEMENY LESZ 1300 PRINT "A KUCSOT ELFORDITOD A ZARBAN ES KINYITOD AZ AJTOT.EGY BARLANGBAN TALALOD MAGAD ,DE JOBBAN NEM TUDSZ K\RULNEZNI MERT KET \SEMBER FERFI TAMAD RAD. EGYSZERE KUZDESZ MEG MIND A KETTOVEL." 1310 DEF CSATA 1320 PRINT "ADJ MEG EGY SZAMOT 1 ES 10 KOZOTT ." 1330 INPUT P$ 1340 IF P$="1"THENGOTO 1440 1350 IF P$="2"THENGOTO 1440 1360 IF P$="3"THENGOTO 1440 1370 IF P$="4"THENGOTO 1440 1380 IF P$="5"THENGOTO 1440 1390 IF P$="6"THENGOTO 1440 1400 IF P$="7"THENGOTO 1440 1410 IF P$="8"THENGOTO 1440 1420 IF P$="9"THENGOTO 1440 1430 ! PFUU EZ KEMENY VOLT 1440 PRINT "OK ! A GEP SZAMA :" 1450 RANDOMIZE 1460 PRINT (RND*10)+1 1470 PRINT "NYERTEL I/N ";:INPUT CS$ 1480 IF CS$="N"THENGOTO 1500 1490 IF CS$="I"THENGOTO 1510 1500 PRINT "PROBALD UJRA !":GOTO 1320 1510 PRINT "HANYADIK TALALATOD ";:INPUT E$ 1520 IF E$="2"THENGOTO 1550 1530 IF E$="1"THENGOTO 1320 1540 END DEF 1550 TEXT :SET #102:PALETTE27,BLACK:SET BORDER222 1560 PRINT :PRINT " KIMERULVE DE GYOZTESKENT ULSZ LE A KET HOLTTEST MELLE . A BARLANGBAN SEMMI HASZNALHATO DOLGOT NEM TALALSZ KIVEVE AZT A HUSBARABOT AMI A TUZON SUL. A HUS KISSE SOTLAN ,DE EHSEGEDET MEGSZUNTETED VELE.KORULNEZEL A BARLANGBAN." 1570 PRINT "NEHANY AGYAGKORSON KIVUL SEMMIT NEM TALALSZ,DE UGY ERZED VALAMI NEM ILLIK BELE EBBE A KORBA. K\R]LNEZEL JOBBAN VAGY NEM I/N ";:INPUT P$ 1580 IF P$="I"THENGOTO 1600 1590 IF P$="N"THENGOTO 1620 1600 TEXT :SET #102:PALETTE54,34:SET BORDER23 1610 PRINT :PRINT "AGODALMAD NEM VOLT ALAPTALAN .A BARLANG TETEJEN EGY JOL KIVEHET\ 4-ES SZAM LATHATO." 1620 PRINT "A BARLANGBOL KET KIJARAT NYILIK . EGYIK AZ AZ AJTO AMELYIKEN BEJOTTEL A MASIK A BARLANG SZABADBA NYILO KIJARATA. MELYIKET VALASZTOD HA VISSZAFORDULSZ AKKOR AZ 'E' ;HA KIMESZ A BARLANGBOL AKKOR 'N' BET]T NYOMD MEG." 1630 INPUT R$ 1640 IF R$="E"THENGOTO 2190 1650 IF R$="N"THENGOTO 1660 1660 TEXT :SET #102:PALETTE234,140:SET BORDER183 1670 PRINT :PRINT " ELINDULSZ A SZABAD EG FELE. KINT VAKITOAN VERODIK VISSZA A NAPFENY A PUHA HOMOKROL.JO PAR METER UTAN EGY FOLYO BUKAN FEL ELOTED .A HUS UTAN JOT TESZ EGY KIS VIZ. DE MI EZ!EGY ORIASI VIZISIKLO USZIK FELED." 1680 PRINT "VAN FEGYVERED I/N ";:INPUT T$ 1690 IF T$="I"THENGOTO 1750 1700 IF T$="N"THENGOTO 1710 1710 TEXT :SET #102:PALETTE51,81:SET BORDER71 1720 PRINT :PRINT "AZ ORIASSIKLO NAGYOT CSAP A FARKAVAL MAJD NYAKAD KORE FONODIK VASTAG NYALKAS TESTE ES BERANT A VIZBE." 1730 GOSUB 1840 1740 ! 1750 TEXT :SET #102:PALETTE95,16:SET BORDER46 1760 PRINT :PRINT "AZ ORIASSIKLO CSAPNI PROBAL A FARKAVAL , DE TE }GYESEN MEGEL|Z|D ES KETTE VAGOD AZ |SH}LL|T." 1770 PRINT "EZ GYORS MUNKA VOLT .MOST MAR NYUGOTTAN IHATSZ ES ELD|NTHETED MERRE IS MESZ TOVABB.VISSZAMESZ A BARLANGBA ,VAGY FOLYTATOD KIRANDULASOD AZ |SKOR TAJAIN VALASZTASOD: VISSZA 'V' ;TOVABB `O` ." 1780 INPUT W$ 1790 IF W$="V"THENGOTO 1810 1800 IF W$="O"THENGOTO 1910 1810 PRINT :PRINT :PRINT "ELUNDULSZ VISSZA A BARLANGHOZ MAJD ATLEPSZ A NAGY FAAJTO K}SZ|BEN " 1820 PRINT "eS MaR OTT IS VAGY AZ ELaGAZaS K|ZEPeN ,eS ELINDULSZ eSZAK FELe <VaRJ!>.":WAIT 20 1830 GOSUB 2140 1840 ! HALAL 1850 TEXT :SET #102:PALETTEBLUE,WHITE:SET BORDERBLACK 1860 PRINT :PRINT AT10,4:"SAJNOS KALANDOD VeGET eRT." 1870 PRINT :PRINT "AKKARSZ uJAT JaTSZANI I/N ";:INPUT V$ 1880 IF V$="I"THENGOTO 100 1890 IF V$="N"THENGOTO 1900 1900 EXT "BASIC" 1910 TEXT :SET #102:PALETTEYELLOW,BLACK:SET BORDERGREEN 1920 PRINT :PRINT " uTAD EGY CSOPORT |SFA K|Z|TT VEZET EL ,eS EGY TISZTaSRA eRSZ. LEHEVEREDSZ A F}BE eS EGY KICSIT eLVEZED A TISZTA LEVEG|" 1930 PRINT " eS A SZeP ID| GY|NY|R}SeGeT. ARRA ESZMeLSZ ,HOGY AZ aLLANDo MADaRCSICSERGeS MEGSZ}NT eS CSAK EGY MeLY SZuSZoGaST HALLASZ." 1940 PRINT "KARDOD UTaN NYuLSZ eS NEM HIJaBA. EGY |SH}LL| SZEMELT KI TeGED EBeDRE. MIT CSINaLSZ. ELMENEK}LSZ -'M' ;VAGY A HARCOT VaLASZTOD -'H' GOMB ";:INPUT H$ 1950 IF H$="M"THENGOTO 1970 1960 IF H$="H"THENGOTO 2010 1970 TEXT :SET #102:PALETTEWHITE,BLUE:SET BORDER34 1980 PRINT :PRINT " KIFUTSZ A TISZTaSRoL eS PaR TIZ MeTER UTaN EGY PAPIRBA G|NGY|LT K| REP}L ELed. MEGaLLSZ eS A H}LL|t KERESED, AMELYNEK NYOMAVESZETT ELOLVASOD A LEVELET." 1990 PRINT " NYOMJ MEG AZ 'F'GOMBOT";:INPUT S$ 2000 IF S$="F"THENGOTO 2060 2010 TEXT :SET #102:PALETTE56,98:SET BORDER90 2020 PRINT :PRINT " F|LKeSZ}LSZ A K}ZDELEMRE eS VAROD A TaMADaST. HIRTELEN ELT}NT A BRONTOSZAURUSZ eS EGY PAPIRBA BURKOLT K|DARAB MARADT A HELYeN." 2030 PRINT " EL|SZ|R NEM eRTED , DE AZTaN RaJ|SZ EZ EGY }ZENET. ELOLVASOD A LEVELET." 2040 ! 2050 GOTO 1990 2060 TEXT :SET #102:PALETTE3,5:SET BORDER4 2070 PRINT :PRINT "BELEZEBuG VAGYOK ! uGYE MeG EMLeKSSZEL RaM .AKKOR AZT IS TUDOD ,HOGY MI A FELADATOD.EZT A SZ|RNYET eN K}LDTEM AJaNDeKBA .NE FELED NEM NYARALNI J|TTeL." 2080 PRINT :PRINT :PRINT " NYARALSZ TOVaBB ! HA NEM AKKOR 'N'";:INPUT N$ 2090 IF N$="N"THENGOTO 2100 2100 TEXT 2110 PRINT :PRINT " A PAPIRT MESZE DOBOD MeRGEDBEN eS A MeGERT|L F}TVE ELINDUSZ A BARLANGBA. NeHaNY PERC MuLVA MaR A KeT |SEMBER TETEME MELLETT MeSZ EL. " 2120 PRINT "KIMeSZ AZ AJToN ,DE A BIZTONSaG KEDVeeRT A KULCCSAL RaZaROD ." 2130 GOTO 1200 2140 TEXT :SET #102:PALETTE34,43:SET BORDER38 2150 PRINT :PRINT " EGY NeGYES ELaGAZaSHOZ eRTeL.MEHETSZ :" 2160 PRINT " eSZAKRA ->`E` DeLRE -->`D` KELETRE ->`K` NYUGATRA 6`N` ";:INPUT VS$ 2170 IF VS$="D"THENGOTO 1200 2180 IF VS$="K"THENGOTO 2210 2190 IF VS$="N"THENGOTO 2260 2200 IF VS$="E"THENGOTO 2210 2210 PRINT " EGY HOSSZu FOLYoSoN MeSZ EGYENESEN . Jo NEGYED oRA IS ELTELT MaR eS SEMMI ELaGAZaS VAGY KANYAR." 2220 PRINT "LePTEID KOPOGaSA EGYRE IDEGESIT|BB. EGYSZER CSAK MEGREMEGNEK A FALAK eS DINNYE NAGYSaGu K|DARABOK ESNNEK LE A PLAFONRoL." 2230 PRINT " ESZEVESZETT GYORSASaGGAL FORDULSZ VISSZA eS FUTSZ , AHOGY CSAK TUDSZ. DE HIaBA EGY K| FEJEN TALaL , AZTaN MeGEGY. MaR CSAK ANNYI ER|D MARAD, HOGY MEGNYOMD A 'Q'- BILLENTY}T ";:INPUT VG$ 2240 IF VG$="Q"THENGOTO 1840 2250 TEXT :SET #102:PALETTE123,32:SET BORDER1 2260 PRINT :PRINT "NUGAT FELe HALADSZ PaR TIZ MeTERT eS UTaNA EGY KANYAR UTaN eSZAK FELe FORDULSZ." 2270 PRINT "ITT IS MeSZ EGY DARABIG ,MAJD uJBoL NYUGAT FELe VISZ AZ uTAD ." 2280 PRINT "NeHaNY LePeS UTaN FRISS SZELL| CSAPJA MEG ARCODAT <MEG eN IS HA UNOD A JaTeKOT .A SZERZ.>. AMINT KILePSZ A BARLANGBoL KeT JoLMEGTERMETT KATONA RONT RaD." 2290 PRINT " EGYENKeNT K}ZDESZ MEG VEL}K . HA VAN PAJZSOD AZ MOST JoL J|N." 2300 PRINT :PRINT " NYOMJ 'K'- GOMB";:INPUT K$ 2310 IF K$="K"THENGOTO 2320 2320 PRINT "ADJ MEG EGY SZAMOT 1 ES 10 KOZOTT ." 2330 INPUT P$ 2340 IF P$="3"THENGOTO 2430 2350 IF P$="2"THENGOTO 2430 2360 IF P$="3"THENGOTO 2430 2370 IF P$="4"THENGOTO 2430 2380 IF P$="5"THENGOTO 2430 2390 IF P$="6"THENGOTO 2430 2400 IF P$="7"THENGOTO 2430 2410 IF P$="8"THENGOTO 2430 2420 IF P$="9"THENGOTO 2430 2430 ! PFUU EZ KEMENY VOLT 2440 PRINT "OK ! A GEP SZAMA :" 2450 RANDOMIZE 2460 PRINT (RND*10)+1 2470 PRINT "NYERTEL I/N ";:INPUT CS$ 2480 IF CS$="N"THENGOTO 2550 2490 IF CS$="I"THENGOTO 2510 2500 PRINT "PROBALD UJRA !":GOTO 2320 2510 PRINT "HANYADIK TALALATOD ";:INPUT E$ 2520 IF E$="2"THENGOTO 2560 2530 IF E$="3"THENGOTO 2600 2540 IF E$="1"THENGOTO 2320 2550 PRINT " HaNYADIK SeR}LeSED ";:INPUT TZ$ 2560 IF TZ$="1"THENGOTO 2500 2570 IF TZ$="2"THENGOTO 2500 2580 IF TZ$="3"THENGOTO 2500 2590 IF TZ$="4"THENGOTO 1840 2600 TEXT :SET #102:PALETTE124,123:SET BORDER178 2610 PRINT :PRINT " AMIRE VeGEZTeL MIND A KeT TaMADoDDAL BEESTELEDETT .VISSZAMeSZ A BARLANGBA VAGY TOVaBB MeSZ AZ uTON:`V` VAGY 'T' ";:INPUT W$ 2620 IF W$="V"THENGOTO 2190 2630 IF W$="T"THENGOTO 2640 2640 TEXT :SET #102:PALETTE188,187:SET BORDER46 2650 PRINT :PRINT " uTAD EGY ERD|N KERESZT}L VEZETT eS ILYENKOR KeS| ESTE ELeGe FeLELMETESNEK T}NT AZ EGeSZ.KARDOD MARKOLATaT ER|SEN FOGOD , DE NEM VOLT Ra SZ}KSeG IGY SeRTETLEN}L JUTHATaL KI AZ ERD|B|L." 2660 PRINT " AZ ERD| MELLETT EGY KIS FALU FEKSZIK . MOST MaR NYUGOTABB VAGY eS ELINDULSZ A FALUBA . KUTYaK UGATaSA JELZI J|TT|DET. A FALUBAN KeT HaZBAN VAN MeG VILLaGOSSaG ." 2670 PRINT " VAGY BEKOPOGSZ AZ EGYIK BE ;VAGY A FALU HATaRaBAN LeV| SZeNAKAZALT VaLASZTOD SZaLLaSUL ":PRINT " VaLASZTaSI LEHET|SeG : 'H' - HaZ ; 'K' - KAZAL ";:INPUT F$ 2680 IF F$="K"THENGOTO 2700 2690 IF F$="H"THENGOTO 2730 2700 PRINT :PRINT "BEFuROD MAGAD A SZeNA K|Ze eS R|GT|N MeLY aLOMBA MER}LSZ.":GOTO 3060 2710 TEXT :SET #102:PALETTE143,144:SET BORDER155 2720 PRINT " A KeT HaZ PONT EGYMaSSAL SZEMBEN aLL . A BALOLDALI DISZES TORNaCu SZeP NAGY HaZ ,JoMoDu uRA LEHET . A MaSIK EGY ROZOGA KIS VISKo ,CSODA HOGY MeG NEM D|LT |SSZE." 2730 PRINT "VaLASZ :JOBB -> 'J' BALL -> 'B'";:INPUT CS$ 2740 IF CS$="B"THENGOTO 2760 2750 IF CS$="J"THENGOTO 2810 2760 PRINT :PRINT :PRINT "BEKOPOGSZ A HaZBA , S LaTOD VALAKI KINeZZ AZ ABLAKON . EGY MeRGES HANG SZoL KI . `` MIT KERESSEL ITT ?``.-MONDOTT ,HOGY SZaLLaST KeRNeL , DE BE SEM TUDOD FEJEZNI A MONDATOT MERT FeLBE SZAKITANAK." 2770 PRINT "`` TAKARODJ INNEN HOLMI CSAVARGoNAK eN NEM ADOK SZaLLaST !" 2780 PRINT " VaLASZTaSOD :JOBOLDALI HaZ -> 'J' SZALMABOGLYA -> 'K' ";:INPUT G$ 2790 IF G$="K"THENGOTO 2700 2800 IF G$="J"THENGOTO 2810 2810 TEXT :SET #102:PALETTE200,210:SET BORDER205 2820 PRINT :PRINT " FELLePSZ A TORNaCRA ,AMELY ALIG-ALIG BIR EL . BEKOPOGSZ AZ AJToN . EGY K|ZeP KORu FeRFI NYIT AJToT ILLEND|EN MEGHAJOL eS MUTATJA " 2830 PRINT " , HOGY MENJ BE." 2840 PRINT " A HaZ EGY SZOBaBoL aLL , AHOL VAN A KONYHA eS A HaZ |SSZES BuTORA. A PARASZT AZ ASZTALHOZ VEZETT eS LE}LTETT A SZeKRE . SZoL A FELESeGeNEK , HOGY HOZZON VACSORaT. " 2850 PRINT "AZ ASSZONY SZo NeLK}L EL|VESZ EGY FATaNYeRT eS VALAMI LEVEST MER BELE . ELeDTESZI EGY SZELET KENYeR eS EGY FAKANaLLAL EGYETEMBEN . " 2860 PRINT "ADDIG OTT aLL MELLETTED eS NeZZ AMIG MEG NEM ETTED A LEVEST. AMINT VeGEZTeL ELVESZI EL|LED AZ }RES TaNYeRT eS EGY KANCSo BORT RAK LE AZ ASZTALRA ." 2870 PRINT :PRINT " VaLASZTHATSZ ELBESZeLGETSZ A FeRFIVAL VAGY INKaBB LEFEKSSZEL . BESZeLGETeS -'B' LEFEKVeS ----'L' <- GOMB." 2880 INPUT P$ 2890 IF P$="L"THENGOTO 2910 2900 IF P$="B"THENGOTO 2940 2910 PRINT :PRINT :PRINT :PRINT " A FeRFI NEM SZoL SEMMIT . FELKINaLJA NEKED AZ | aGYaT . TE LEFELSZEL eS NeHaNY PERC MuLVA MeLY aLOMBA MER}LSZ . Jo eSZAKaT ! ALUDJ EGY KICSIT ." 2920 WAIT 40 2930 GOTO 2980 2940 TEXT :SET #102:PALETTE146,164:SET BORDER189 2950 PRINT :PRINT " A PARASZT AZ ELS| KeT POHaRIG NEM IGEN BESZeDES , DE UTaNA MEGERED A NYELVE . ELMONDJA , HOGY EGY NAGYON ROSSZ EMBERe AZ A F|LD . VALAMI GRoF VAGY MI LEHET ." 2960 PRINT " A NEVE :BELEZEBuG. MeG SENKI NEM LaTTA |T CSAK AZ ADoSZED| KATONaIT. eS AKI NEM FITETT AZT ELVISZIK eS SENKI NEM LaTJA T|BBe. AZT MONDJaK , HOGY BEVISZI A BARLANGBA ES OTT SZ|RNYe VARaZSoLJA ." 2970 PRINT " A PARASZT EZeRT MOST NAGY BAJBAN VAN MERT PeNZE NINCS eS NEMSOKaRA J|NNEK MEGINT A KATONaK. BENYuLSZ AZ ERSZeNYEDBE eS EL|VESZEL 2 ARANYPeNZT eS AZ EMBERNEK ADOD . AZ NEM GY|Z HaLaLKODNI , DE TE INKaBB LEFEKSZEL.":GOTO 2910 2980 TEXT :SET #102:PALETTE200,210:SET BORDER88 2990 PRINT "REGGEL KORaN eBREDSZ PONT AKKOR AMIKOR A FeRFI IS KeSZ}L|DIK A MUNKaRA.GYORSAN FEL|LT|Z|L eS VELE INDULSZ uTRA. MeG K|D }L A TaJON,DE LaTOD AZ ERD| FELe MENTEK , uGYANIS A FeRFI FAVaGo." 3000 PRINT " AZ ERD| HATaRaBAN VaLToK EL , SOK SiKERT KIVaNVA EGYMaSNAK." 3010 PRINT :PRINT " AZ ERD| KEZD eLEDNI eS VELE EGY}TT NEKED IS N| A BaTORSaGOD <DE ANNYI NINCS ,HOGY HaTUL KINYOMD ! > . KEZD A NAP IS FELKELNI." 3020 WAIT 16 3030 TEXT :SET #102:PALETTE208,218:SET BORDER228 3040 PRINT "AZ ERD| K|ZEPE FELe JaRHATSZ , AMIKOR A MADARAK VESZETT RIKOLTOZaSBA KEZDENEK eS MESSZE A MAGASBA SZaLLNAK. NEKED SE KELL SOKaIG BAMBaN NeZNI |KET ,MERT EGY oRIaSI SZ|RNY LeP ELeD KEZeBEN EGY FAVaGo ERNYEDT TESTE LoG." 3050 PRINT "HOL T|LT|TED AZ eJSZAKaT A SZALMAKAZALBAN VAGY A JOBB OLDALI HaZBAN .A MEGFELEL| KEZD|BET}VEL VaLASZOLJ <S/H>." 3060 GET FAKAS$ 3070 IF FARKAS$="S"THENGOTO 3090 3080 IF FARKAS$="H"THENGOTO 3100 3090 PRINT " FARKASEMBER ! TUDOD ITT CSAK A HARC SEGIT ."WAIT10:GOSUB 3120 3100 PRINT "A FAVaGo AZ AKIT A FARKASEMBER A KEZE K|Z|TT TART . NAGY D}HVEL TaMADSZ." 3110 CALL HARC 3120 TEXT :SET #102:PALETTE20,91:SET BORDERBLUE 3130 PRINT :PRINT :PRINT " ADJ MEG EGY SZaMOT 1 eS 10 K|Z|TT ." 3140 GET H$ 3150 IF H$<>"1"THENGOTO 3160 3151 IF H$<>"2"THENGOTO 3160 3152 IF H$<>"3"THENGOTO 3160 3153 IF H$<>"4"THENGOTO 3160 3154 IF H$<>"5"THENGOTO 3160 3155 IF H$<>"6"THENGOTO 3160 3156 IF H$<>"7"THENGOTO 3160 3157 IF H$<>"8"THENGOTO 3160 3158 IF H$<>"9"THENGOTO 3160 3159 IF H$<>"0"THENGOTO 3130 3160 PRINT :PRINT " A GeP SZaMA :"INT(RND*10) 3170 PRINT :PRINT " NYERTeL I/N :" 3180 GET NY$ 3190 IF NY$="I"THENGOTO 3210 3200 IF NY$="N"THENGOTO 3270 3205 IF NY$<>"I"ORNY$<>"N"THENGOTO 3180 3210 PRINT " HaNYADIK TALaLATOD :" 3220 GET T$ 3230 IF T$<>"1"THENGOTO 3130 3240 IF T$<>"2"THENGOTO 3130 3250 IF T$<>"3"THENGOTO 3130 3260 IF T$<>"4"THENGOTO 3300 3270 PRINT " HaNYADIK SeR}LeSED :" 3280 GET S$ 3290 IF S$<>"1"THENGOTO 3130 3300 IF S$<>"2"THENGOTO 3130 3310 IF S$<>"3"THENGOTO 1840
EXOS header pos/serial: #1 at 0x49e5 EXOS type/header: 0xa [00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: End of module
End of FILE parsing, because: End-of-module header got (type=10)



Enterprise-128 EXOS file analyzer, lister and disassembler v0.5.8 ©2012,2013 "LGB" Gábor Lénárt (lgb at-sign lgb dot hu)