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

File name: /tmp/php86wGuV (40836 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/php86wGuV.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x3 [00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC multiple header
Program: 0x0, EMPTY MODULE.
EXOS header pos/serial: #1 at 0x10 EXOS type/header: 0x4 [00 04 4A 17 01 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x1, size: 0x174a bytes.
100 PROGRAM "IDOROBOT.PR1" 110 ! NOPE'K_SUPER 120 ! NOPE'K_SUPER 130 ! NOPE'K_SUPER ROFI 140 CALL STATUS:SET 26,0 150 SET CHARACTERORD("A"),24,60,102,102,126,102,102,0 160 SET CHARACTERORD("B"),252,102,102,124,102,102,252,0 170 SET CHARACTERORD("C"),60,102,192,192,192,102,60,0 180 SET CHARACTERORD("D"),248,108,102,102,102,108,248,0 190 SET CHARACTERORD("E"),254,98,104,120,104,98,254,0 200 SET CHARACTERORD("F"),254,98,104,120,104,96,240,0 210 SET CHARACTERORD("G"),60,102,192,192,206,102,62,0 220 SET CHARACTERORD("H"),102,102,102,126,102,102,102,0 230 SET CHARACTERORD("I"),126,24,24,24,24,24,126,0 240 SET CHARACTERORD("J"),30,12,12,12,204,204,120,0 250 SET CHARACTERORD("K"),230,102,108,120,108,102,230,0 260 SET CHARACTERORD("L"),240,96,96,96,98,102,254,0 270 SET CHARACTERORD("M"),198,238,254,254,214,198,198,0 280 SET CHARACTERORD("N"),198,230,246,222,206,198,198,0 290 SET CHARACTERORD("O"),56,108,198,198,198,108,56,0 300 SET CHARACTERORD("P"),252,102,102,124,96,96,240,0 310 SET CHARACTERORD("Q"),56,108,198,198,218,204,118,0 320 SET CHARACTERORD("R"),252,102,102,124,108,102,230,0 330 SET CHARACTERORD("S"),60,102,96,60,6,102,60,0 340 SET CHARACTERORD("T"),126,90,24,24,24,24,60,0 350 SET CHARACTERORD("U"),102,102,102,102,102,102,60,0 360 SET CHARACTERORD("V"),102,102,102,102,102,60,24 370 SET CHARACTERORD("W"),198,198,198,214,254,238,198,0 380 SET CHARACTERORD("X"),198,108,56,56,108,198,198,0 390 SET CHARACTERORD("Y"),102,102,102,60,24,24,60,0 400 SET CHARACTERORD("Z"),254,198,140,24,50,102,254,0 410 SET CHARACTERORD("a"),0,0,120,12,124,204,118,0 420 SET CHARACTERORD("å"),12,8,120,12,124,204,118,0 430 SET CHARACTERORD("b"),224,96,124,102,102,102,220,0 440 SET CHARACTERORD("c"),0,0,60,102,96,102,60,0 450 SET CHARACTERORD("d"),28,12,124,204,204,204,118,0 460 SET CHARACTERORD("e"),0,0,60,102,126,96,60,0 470 SET CHARACTERORD("é"),12,8,60,102,126,96,60,0 480 SET CHARACTERORD("f"),28,54,48,120,48,48,120,0 490 SET CHARACTERORD("g"),0,0,62,102,102,62,6,124 500 SET CHARACTERORD("h"),224,96,108,118,102,102,230,0 510 SET CHARACTERORD("i"),24,0,56,24,24,24,60,0 520 SET CHARACTERORD("j"),6,0,14,6,6,102,102,60 530 SET CHARACTERORD("k"),224,96,102,108,120,108,230,0 540 SET CHARACTERORD("l"),56,24,24,24,24,24,60,0 550 SET CHARACTERORD("m"),0,0,108,254,214,214,198,0 560 SET CHARACTERORD("n"),0,0,220,102,102,102,102,0 570 SET CHARACTERORD("o"),0,0,60,102,102,102,60,0 580 SET CHARACTERORD("ö"),102,0,60,102,102,102,60,0 590 SET CHARACTERORD("p"),0,0,220,102,102,124,96,240 600 SET CHARACTERORD("q"),0,0,118,204,204,124,12,30 610 SET CHARACTERORD("r"),0,0,220,118,96,96,240,0 620 SET CHARACTERORD("s"),0,0,60,96,60,6,124,0 630 SET CHARACTERORD("t"),48,48,124,48,48,54,28,0 640 SET CHARACTERORD("u"),0,0,102,102,102,102,62,0 650 SET CHARACTERORD("ü"),102,0,102,102,102,102,62,0 660 SET CHARACTERORD("v"),0,0,102,102,102,60,24,0 670 SET CHARACTERORD("w"),0,0,198,214,214,254,108,0 680 SET CHARACTERORD("x"),0,0,198,108,56,108,198,0 690 SET CHARACTERORD("y"),0,0,102,102,102,62,6,124 700 SET CHARACTERORD("z"),0,0,126,12,24,48,126,0 710 ! NOPE'K_SUPER ROFI 720 SET FKEY1"Tolts be egy allast"&CHR$(13) 730 SET FKEY2"Mentsd ki az allast"&CHR$(13) 740 SET FKEY3"Mutasd mi van nalad"&CHR$(13) 750 SET FKEY4"Mutasd mit latsz ott"&CHR$(13) 760 SET FKEY5"Adjal kis segitseget"&CHR$(13) 770 SET FKEY6"Hulye robot vagy"&CHR$(13) 780 SET FKEY7"Menj a fenebe"&CHR$(13) 790 SET FKEY8"Befejezem a jatekot"&CHR$(13) 800 ! NOPE'K_SUPER ROFI 810 PRINT AT24,1:" "; 820 PRINT AT24,1:"Kérsz ismertetöt ? (I/N) "; 830 GET A$ 840 IF A$=""THEN 830 850 IF UCASE$(A$)="I"THEN 920 860 IF UCASE$(A$)<>"N"THEN 810 870 CLEAR TEXT:DISPLAY GRAPHICS 880 CHAIN 0 890 ! NOPE'K_SUPER ROFI 900 ! NOPE'K_SUPER ROFI 910 ! NOPE'K_SUPER ROFI 920 CLEAR TEXT:DISPLAY TEXT 930 PRINT 940 PRINT "Az idörobot cimÜ program tulajdonkép- pen egy szöveges kalandjåték.":PRINT :PRINT "Segitségével egy robotot irånyitha- tunk, szöveges parancsokkal, valamint a vålaszokat is igy kapjuk vissza." 950 PRINT 960 PRINT "A jåték célja, hogy az 1500 évvel ezelött elveszett koronåzåsi ékszere- ket megkeressÜk és a starthelyszinre juttassuk. Utunkat akadålyok és ellen- ségek nehezitik, de kaphatunk segitsé- get is." 970 PRINT 980 PRINT "Az irånyitåst és néhåny parancs kia- dåsåt segiti a a beépitett joystick valamint a funkcio billentyÜk." 990 PRINT AT24,1:" "; 1000 PRINT AT24,1:"Ha elolvastad nyomd meg az M-et!"; 1010 GET A$ 1020 IF A$=""THEN 1010 1030 PRINT :PRINT 1040 PRINT "A robot åltalåban teljes mondatos pa- rancsokat vår. Pl:Menj északi irånyba. (a parancsokban ékezeteket és irasjeleket nem hasznalhatsz)" 1050 PRINT :PRINT "Egyszerre csak egy parancsot probal meg teljesiteni." 1060 PRINT "Tehåt nem lesz eredmenyes példåul a 'Menj és vedd fel a bilit.' parancs, mivel vagy megy, vagy felvesz." 1070 PRINT :PRINT "Néhåny kivétel azonban van. Ezek felderitése a jåték egyik célja és teljesitésének egyik elöfeltétele." 1080 PRINT :PRINT :PRINT :PRINT :PRINT "Sikeres kalandozast kivån a program készitöje: Budavåri Låszlo":PRINT 1090 PRINT AT24,1:" "; 1100 PRINT 1110 PRINT AT24,1:"Ha elolvastad nyomd meg az M-et!"; 1120 GET A$ 1130 IF A$=""THEN 1120 1140 ! NOPE'K_SUPER ROFI 1150 GOTO 870 1160 DEF STATUS 1170 ! NOPE'K_SUPER ROFI 1180 RESTORE 1190 1190 DATA 32,32,32,32,32,32,201,196,207,210,207,194,207,212,32,32,32,32,32,32,32,32,32,66,65,66,83,79,70,84,95,49,57,57,49,32,32,32,32,32 1200 LET Q=0:LET SP=SPEEK(255,16375)*256+SPEEK(255,16374) 1210 SPOKE 255,14600,0:SPOKE 255,14601,10:SPOKE 255,14602,0:SPOKE 255,14603,247 1220 DO 1230 READ IFMISSINGEXITDO:B 1240 SPOKE 255,SP+Q,B 1250 LET Q=Q+1 1260 LOOP 1270 END DEF 1280 ! NOPE'K_SUPER ROFI 1281 ! NOPE'K_SUPER ROFI
EXOS header pos/serial: #2 at 0x176a EXOS type/header: 0x4 [00 04 FA 87 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x87fa bytes.
10 PROGRAM "IDOROBOT.PRG" 11 ! NOPE'K_SUPER K_V3.4 12 ! NOPE`K_V3.4 NOPE`K_V3.4 13 ! NOP 14 GOSUB 9000 15 GOTO 110 16 RESTORE 2164 17 RETURN 96 ! NOPE'K_SUPER 97 ! NOPE'K_SUPER 98 ! NOPE'K_SUPER ROFI 99 ! NOPE'K_SUPER ROFI 100 IF CT(1)<1THENLET CT(4)=CT(4)-1:CALL EREDMENY 101 IF CT(4)<1THENCALL VEGE:GOTO 110 102 IF CT(1)<1THENLET CT(1)=70:CALL IREN(1,70,1,0) 103 RETURN 109 ! NOPE'K_SUPER ROFI 110 IF LAP(23)=1THENLET LAP(23)=0:CALL LAP3 111 IF SOTEL=0THEN 120 112 CALL IR(21,3,CT(0)) 113 GOSUB 9900 119 ! NOPE'K_SUPER 120 CALL IR(21,1,80) 121 CALL PARANCS 129 ! NOPE'K_SUPER ROFI 131 CALL FELISM 133 IF CT(6)=0THEN 134 IF SZO$(2)=""THENCALL IR(21,2,81):GOTO 120 135 LET SZO$(3)=SZO$(2):LET SZO$(2)="":GOTO 131 136 END IF 140 IF CT(10)+CT(11)=0THEN 142 IF SZO$(3)<>""THENLET SZO$(2)=LTRIM$(SZO$(2)&" "&SZO$(1)):GOTO 131 144 CALL IR(21,1,92):GOTO 121 146 ELSE 148 LET SZO$(3)=LTRIM$(SZO$(3)&" "&SZO$(2)):LET SZO$(2)="" 150 END IF 151 ! NOPE'K_SUPER ROFI 152 ON CT(10)*10+CT(11)GOTO 1000, 1050, 1100, 1150, 1200, 1250, 1300, 1310, 1330, 1370, 1400, 1450, 1470, 1490, 1530, 1540, 1550, 1560, 1570 153 ! NOPE'K_SUPER ROFI 996 ! NOPE'K_SUPER ROFI 997 ! NOPE'K_SUPER ROFI 998 ! NOPE'K_SUPER ROFI 999 ! NOPE'K_SUPER ROFI 1000 IF SZO$(3)=""THENCALL IR(21,1,89):GOTO 121 1001 IF CT(9)=6THENLET MOD=1 1002 IF CT(9)<>6THENLET MOD=0 1003 CALL FELISM 1004 IF CT(6)=0THENCALL IR(21,1,91):GOTO 121 1005 IF CT(7)=2THEN 1032 1006 IF CT(7)=3THENCALL IR(21,1,89):GOTO 121 1007 IF CT(7)=4THEN 1008 SELECT CASECT(8)*10+CT(9) 1009 CASE 1TO11 1010 CALL IR(21,1,89):GOTO 121 1011 CASE 12TO14 1012 CALL IR(21,1,97):GOTO 121 1013 CASE ELSE 1014 CALL IR(21,1,89):GOTO 121 1015 END SELECT 1016 END IF 1017 IF CT(7)=9THEN 1018 SELECT CASECT(8)*10+CT(9) 1019 CASE 1 1020 CALL IR(21,1,115):CALL VARJ(250):GOTO 120 1021 CASE 2 1022 CALL IR(21,1,89):GOTO 121 1023 CASE ELSE 1024 CALL IR(21,1,91):GOTO 121 1025 END SELECT 1026 END IF 1027 IF SZO$(3)=""THEN 1028 CALL IR(21,2,91):GOTO 120 1029 ELSE 1030 GOTO 1003 1031 END IF 1032 SELECT CASEBEJ(CT(0),CT(9)) 1033 CASE 0 1034 CALL IR(21,2,87):GOTO 120 1035 CASE 1TO31 1036 IF AKEL=1THEN 120 1037 IF CT(0)=21ANDMOD=0ANDCT(9)=5THENCALL IR(21,2,117):GOTO 120 1038 IF CT(0)=22ANDMOD=0ANDCT(9)=6THENCALL IR(21,2,116):GOTO 120 1039 LET AZ(1)=CT(0):LET CT(0)=BEJ(CT(0),CT(9)):LET CT(1)=CT(1)-1:LET CT(3)=CT(3)+1:LET AZ(2)=0 1040 IF HAL(CT(0))=0THENLET CT(2)=CT(2)+20:LET HAL(CT(0)),AZ(2)=1 1041 CALL EREDMENY:CALL IREN(CT(1)+1,CT(1)+1,3,3):GOSUB 100 1042 GOTO 110 1043 CASE ELSE 1044 CALL IR(21,2,86+BEJ(CT(0),CT(9))):LET CT(4)=CT(4)-1:CALL EREDMENY:CALL VARJ(300):GOSUB 100 1045 CALL TORL(21,2):GOTO 110 1046 END SELECT 1047 ! NOPE'K_SUPER ROFI 1048 ! NOPE'K_SUPER ROFI 1049 ! NOPE'K_SUPER ROFI 1050 IF SOTEL=0THEN 120 1051 IF SZO$(3)=""THENCALL IR(21,1,93):GOTO 121 1052 CALL FELISM 1053 IF CT(6)=0THENCALL IR(21,1,94):GOTO 121 1054 IF CT(7)=4THEN 1062 1055 IF SZO$(3)=""THEN 1056 IF CT(7)<>3THENCALL IR(21,2,95) 1057 IF CT(7)=3THENCALL IR(21,2,96) 1058 GOTO 120 1059 ELSE 1060 GOTO 1052 1061 END IF 1062 SELECT CASECT(8)*10+CT(9) 1063 CASE 1,2 1064 IF CT(0)=8ORCT(0)=14THEN 1066 1065 CALL IR(21,2,103):GOTO 120 1066 IF AKA(1,1)=2THENCALL IR(21,2,102):GOTO 120 1067 IF OBJ(11)<>35THENCALL IR(21,2,101):GOTO 120 1068 CALL IR(21,2,104):LET AKA(1,1),AKA(2,1)=2:GOTO 120 1069 CASE 9 1070 IF CT(0)<>4THENCALL IR(21,2,103):GOTO 120 1071 IF AKA(9,1)=2THENCALL IR(21,2,102):GOTO 120 1072 CALL IR(21,2,98):LET AKA(9,1)=2:GOTO 120 1073 CASE 10 1074 IF CT(0)<>2THENCALL IR(21,2,103):GOTO 120 1075 IF AKA(10,1)=2THENCALL IR(21,2,102):GOTO 120 1076 IF OBJ(11)<>35THENCALL IR(21,2,101):GOTO 120 1077 CALL IR(21,2,100):LET AKA(10,1)=2 1078 IF LAP(23)=1THENLET LAP(23)=0:CALL LAP3 1079 CALL TLIS:GOTO 120 1080 CASE 11 1081 IF CT(0)<>13THENCALL IR(21,2,103):GOTO 120 1082 CALL IR(21,2,99):GOTO 120 1083 CASE 12TO14 1084 CALL IR(21,2,97):GOTO 120 1085 CASE ELSE 1086 CALL IR(21,1,94):GOTO 121 1087 END SELECT 1088 ! NOPE'K_SUPER ROFI 1089 ! NOPE'K_SUPER ROFI 1099 ! NOPE'K_SUPER ROFI 1100 IF SOTEL=0THEN 120 1101 IF SZO$(3)=""THENCALL IR(21,1,93):GOTO 121 1102 CALL FELISM 1103 IF CT(6)=0THENCALL IR(21,1,94):GOTO 121 1104 IF CT(7)=4THEN 1112 1105 IF SZO$(3)=""THEN 1106 IF CT(7)<>3THENCALL IR(21,2,95) 1107 IF CT(7)=3THENCALL IR(21,2,96) 1108 GOTO 120 1109 ELSE 1110 GOTO 1102 1111 END IF 1112 SELECT CASECT(8)*10+CT(9) 1113 CASE 1,2 1114 IF CT(0)=8ORCT(0)=14THEN 1116 1115 CALL IR(21,2,103):GOTO 120 1116 IF AKA(1,1)=1THENCALL IR(21,2,105):GOTO 120 1117 IF OBJ(11)<>35THENCALL IR(21,2,101):GOTO 120 1118 CALL IR(21,2,106):LET AKA(1,1),AKA(2,1)=1:GOTO 120 1119 CASE 9 1120 IF CT(0)<>4THENCALL IR(21,2,103):GOTO 120 1121 IF AKA(9,1)=1THENCALL IR(21,2,105):GOTO 120 1122 CALL IR(21,2,107):LET AKA(9,1)=1:GOTO 120 1123 CASE 10 1124 IF CT(0)<>2THENCALL IR(21,2,103):GOTO 120 1125 IF AKA(10,1)=1THENCALL IR(21,2,105):GOTO 120 1126 IF OBJ(11)<>35THENCALL IR(21,2,101):GOTO 120 1127 CALL IR(21,2,108):LET AKA(10,1)=1:GOTO 120 1128 CASE 11 1129 IF CT(0)<>13THENCALL IR(21,2,103):GOTO 120 1130 CALL IR(21,2,109):GOTO 120 1131 CASE 12TO14 1132 CALL IR(21,2,97):GOTO 120 1133 CASE ELSE 1134 CALL IR(21,1,94):GOTO 121 1135 END SELECT 1136 ! NOPE'K_SUPER ROFI 1137 ! NOPE'K_SUPER ROFI 1149 ! NOPE'K_SUPER ROFI 1150 IF SOTEL=0THEN 120 1151 IF SZO$(3)=""THENCALL IR(21,1,93):GOTO 121 1152 CALL FELISM 1153 IF CT(6)=0THENCALL IR(21,1,94):GOTO 121 1154 IF CT(7)=3THEN 1169 1155 IF CT(7)=4THEN 1161 1156 IF SZO$(3)=""THEN 1157 IF CT(7)=2ANDCT(8)*10+CT(9)>4THENCALL IR(21,1,94):GOTO 121 1158 CALL IR(21,2,95):GOTO 120 1159 END IF 1160 GOTO 1152 1161 SELECT CASECT(8)*10+CT(9) 1162 CASE 1TO11 1163 CALL IR(21,2,96) 1164 CASE 12TO14 1165 CALL IR(21,2,97) 1166 CASE ELSE 1167 END SELECT 1168 GOTO 120 1169 IF OBJ(CT(8)*10+CT(9))=35THENCALL IR(21,2,111):GOTO 120 1170 IF OBJ(CT(8)*10+CT(9))<>CT(0)THENCALL IR(21,2,103):GOTO 120 1171 IF CT(5)=3THENCALL IR(21,2,112):GOTO 120 1172 IF OBJ(CT(8)*10+CT(9))=9THEN 1173 IF CT(0)=15ORCT(0)=22THENLET AKA(3),AKA(4),AKA(5),AKA(6)=1 1174 END IF 1175 LET OBJ(CT(8)*10+CT(9))=35:LET CT(5)=CT(5)+1:CALL IR(21,2,113) 1176 ! NOPE'K_SUPER ROFI 1177 GOTO 120 1178 ! NOPE'K_SUPER ROFI 1179 ! NOPE'K_SUPER ROFI 1199 ! NOPE'K_SUPER ROFI 1200 IF CT(9)=1THENLET MOD=1 1201 IF CT(9)<>1THENLET MOD=0 1202 CALL FELISM 1203 IF CT(6)=0THENCALL IR(21,1,94):GOTO 121 1204 IF CT(7)=3THEN 1208 1205 IF CT(7)=4THENCALL IR(21,2,110):GOTO 120 1206 IF SZO$(3)=""THENCALL IR(21,1,94):GOTO 121 1207 GOTO 1202 1208 IF OBJ(CT(8)*10+CT(9))<>35THENCALL IR(21,2,110):GOTO 120 1209 LET Y=0 1210 FOR X=1TO16 1211 IF OBJ(X)=CT(0)THENLET Y=Y+1 1212 NEXT 1213 IF Y=3ANDCT(0)<>31THENCALL IR(21,2,114):GOTO 120 1214 IF MOD=1ANDCT(9)=9ANDCT(0)=22THENLET AKA(7,1),AKA(8,1)=2 1215 LET OBJ(CT(8)*10+CT(9))=CT(0):LET CT(5)=CT(5)-1:CALL IR(21,2,113) 1216 IF SOTEL=0THEN 120 1217 LET Y=0 1218 IF CT(0)=31THEN 1219 FOR X=1TO3 1220 IF OBJ(X)<>31THENLET Y=255 1221 NEXT 1222 IF Y=0THENCALL NYERT 1223 END IF 1224 LET Y=0:GOTO 120 1236 ! NOPE'K_SUPER ROFI 1237 ! NOPE'K_SUPER ROFI 1249 ! NOPE'K_SUPER ROFI 1250 ! NOPE'K_SUPER ROFI 1251 CALL LELT:GOTO 120 1252 ! NOPE'K_SUPER ROFI 1253 ! NOPE'K_SUPER ROFI 1299 ! NOPE'K_SUPER ROFI 1300 CALL IR(21,2,121):GOTO 120 1301 ! NOPE'K_SUPER ROFI 1302 ! NOPE'K_SUPER ROFI 1309 ! NOPE'K_SUPER ROFI 1310 IF SOTEL=0THEN 120 1311 IF CT(0)<>4THENCALL IR(21,2,124):GOTO 120 1312 IF AKA(9,1)=1THENCALL IR(21,2,173):GOTO 120 1313 LET X=RND(6)+130 1318 IF OBJ(7)=35THENLET X=137 1319 IF CT(2)<200THENLET X=136 1320 CALL IR(21,2,X):GOTO 120 1321 ! NOPE'K_SUPER ROFI 1322 ! NOPE'K_SUPER ROFI 1329 ! NOPE'K_SUPER ROFI 1330 IF SZO$(3)=""THENCALL IR(21,1,93):GOTO 121 1331 CALL IR(21,2,0):LET MOND$=RTRIM$(SZO$(3)):CALL FELISM 1332 IF CT(6)=0THEN 120 1333 IF CT(7)<>9THEN 120 1334 IF (CT(8)*10)+CT(9)=4THENCALL IR(21,2,127):GOTO 120 1335 IF (CT(8)*10)+CT(9)=5THENCALL IR(21,2,128):GOTO 120 1336 IF (CT(8)*10)+CT(9)=6THEN 1337 IF CT(0)=15THEN 1338 IF HAL(31)=0THENLET CT(2)=CT(2)+1000:LET HAL(31)=1 1339 LET CT(0)=31:LET CT(1)=CT(1)-1:LET CT(3)=CT(3)+1 1340 CALL EREDMENY:CALL IREN(CT(1)+1,CT(1)+1,3,3):GOSUB 100 1341 GOTO 110 1342 ELSE 1343 CALL IR(21,2,166):GOTO 120 1344 END IF 1345 END IF 1346 IF (CT(8)*10)+CT(9)=22THENCALL IR(21,2,170):GOTO 120 1347 IF (CT(8)*10)+CT(9)=21THEN 1348 LET D=0 1349 IF MOND$="SZILAGYI TAMAS"THENLET D=32 1350 IF MOND$="KISS BELA"THENLET D=33 1351 IF MOND$="BUDAVARI LASZLO"THENLET D=34 1352 IF MOND$="ROFI MAMA"THENLET D=35 1353 IF D=0THENCALL IR(21,2,170):GOTO 120 1354 ! NOPE'K_SUPER ROFI 1355 CALL LAP2 1356 FOR Z=5TO2STEP-1 1357 CALL IR(23,Z,295+Z+(D*4)) 1358 NEXT 1359 GOTO 120 1360 END IF 1361 CALL IR(21,2,126):GOTO 120 1362 ! NOPE'K_SUPER ROFI 1363 ! NOPE'K_SUPER ROFI 1369 ! NOPE'K_SUPER ROFI 1370 CALL IR(21,2,172):GOTO 120 1371 ! NOPE'K_SUPER ROFI 1372 ! NOPE'K_SUPER ROFI 1399 ! NOPE'K_SUPER ROFI 1400 IF SZO$(3)=""THENCALL IR(21,1,93):GOTO 121 1401 IF CT(9)+(CT(8)*10)=14THENLET MOD=0 1402 IF CT(9)+(CT(8)*10)=15THENLET MOD=1 1403 CALL FELISM 1404 IF CT(6)=0THENCALL IR(21,1,94):GOTO 121 1405 IF MOD=1ANDCT(7)=3ANDCT(8)*10+CT(9)=7ANDOBJ(7)<>35THENCALL IR(21,2,144):GOTO 120 1406 IF MOD=1ANDCT(7)=3ANDCT(8)*10+CT(9)=7ANDOBJ(7)=35THENCALL IR(21,2,146):GOTO 120 1407 IF CT(7)<>9ANDCT(9)<>9THENCALL IR(21,2,122):GOTO 120 1408 CALL IR(21,2,129):CALL PARANCS:LET Z=CT(1):CLEAR TEXT:DISPLAY #102:AT21FROM21TO24:PRINT AT21,1:""; 1409 WHEN EXCEPTIONUSEHIBA 1410 SELECT CASEMOD 1411 CASE 0 1412 OPEN #3:SZO$(3)ACCESSOUTPUT 1413 FOR X=0TO5 1414 PRINT #3:CT(X) 1415 NEXT 1416 FOR X=1TO16 1417 PRINT #3:OBJ(X) 1418 NEXT 1419 FOR X=1TO31 1420 PRINT #3:HAL(X) 1421 NEXT 1422 FOR X=1TO14 1423 FOR Y=1TO5 1424 PRINT #3:AKA(X,Y) 1425 NEXT 1426 NEXT 1427 CLOSE #3:CLEAR TEXT:DISPLAY #24:AT21FROM1TO4:GOTO 120 1428 CASE 1 1429 OPEN #3:SZO$(3)ACCESSINPUT 1430 FOR X=0TO5 1431 INPUT #3:CT(X) 1432 NEXT 1433 FOR X=1TO16 1434 INPUT #3:OBJ(X) 1435 NEXT 1436 FOR X=1TO31 1437 INPUT #3:HAL(X) 1438 NEXT 1439 FOR X=1TO14 1440 FOR Y=1TO5 1441 INPUT #3:AKA(X,Y) 1442 NEXT 1443 NEXT 1444 CLOSE #3:CLEAR TEXT:DISPLAY #24:AT21FROM1TO4:CALL EREDMENY:CALL IREN(Z,1,3,3):CALL IREN(1,CT(1),1,0):GOTO 110 1445 END SELECT 1446 END WHEN 1447 GOTO 120 1448 ! NOPE'K_SUPER ROFI 1449 ! NOPE'K_SUPER ROFI 1450 CALL IR(21,2,138):CALL PARANCS 1451 IF SZO$(3)="IGEN"THENCALL VEGE:GOTO 110 1452 GOTO 120 1453 ! NOPE'K_SUPER ROFI 1454 ! NOPE'K_SUPER ROFI 1469 ! NOPE'K_SUPER ROFI 1470 CALL IR(21,2,128):GOTO 120 1471 ! NOPE'K_SUPER ROFI 1472 ! NOPE'K_SUPER ROFI 1489 ! NOPE'K_SUPER ROFI 1490 IF SOTEL=0THEN 120 1491 IF SZO$(3)=""THENCALL IR(21,1,93):GOTO 121 1492 CALL FELISM 1493 IF CT(6)=0THENCALL IR(21,1,94):GOTO 121 1494 IF CT(7)=9THEN 1497 1495 IF SZO$(3)=""THENCALL IR(21,2,122):GOTO 120 1496 GOTO 1492 1497 SELECT CASECT(8)*10+CT(9) 1498 CASE 10 1499 CALL IR(21,2,123):GOTO 120 1500 CASE 11 1501 ! NOPE'K_SUPER ROFI 1502 CALL LELT:GOTO 120 1503 CASE 12 1504 ! NOPE'K_SUPER ROFI 1505 CALL LAP2 1506 FOR Z=5TO2STEP-1 1507 CALL IR(23,Z,295+Z+(CT(0)*4)) 1508 NEXT 1509 CALL VARJ(300):LET LAP(23)=0:CALL LAP3:CALL TLIS:GOTO 120 1510 CASE ELSE 1511 CALL IR(21,1,94):GOTO 121 1512 END SELECT 1513 ! NOPE'K_SUPER ROFI 1514 ! NOPE'K_SUPER ROFI 1529 ! NOPE'K_SUPER ROFI 1530 CALL IR(21,2,139):GOTO 120 1531 ! NOPE'K_SUPER ROFI 1532 ! NOPE'K_SUPER ROFI 1539 ! NOPE'K_SUPER ROFI 1540 CALL IR(21,2,RND(4)+140):GOTO 120 1541 ! NOPE'K_SUPER ROFI 1542 ! NOPE'K_SUPER ROFI 1549 ! NOPE'K_SUPER ROFI 1550 CALL IR(21,2,113):GOTO 120 1551 ! NOPE'K_SUPER ROFI 1552 ! NOPE'K_SUPER ROFI 1559 ! NOPE'K_SUPER ROFI 1560 IF OBJ(7)<>35THENCALL IR(21,2,144):GOTO 120 1561 CALL IR(21,2,145):GOTO 120 1562 ! NOPE'K_SUPER ROFI 1563 ! NOPE'K_SUPER ROFI 1569 ! NOPE'K_SUPER ROFI 1570 IF SOTEL=0THEN 120 1571 LET MOD=CT(8)*10+CT(9) 1572 IF SZO$(3)=""THENCALL IR(21,1,93):GOTO 121 1573 CALL FELISM 1574 IF CT(6)=0THENCALL IR(21,1,94):GOTO 121 1575 IF CT(7)=4ANDCT(8)*10+CT(9)<15ANDCT(8)*10+CT(9)>10THEN 1580 1576 IF SZO$(3)=""THENCALL IR(21,1,141):GOTO 121 1577 CALL FELISM 1578 IF CT(6)=0THENCALL IR(21,1,141):GOTO 121 1579 GOTO 1575 1580 IF CT(8)*10+CT(9)=14THENCALL IR(21,1,164):GOTO 121 1581 IF MOD=30THENCALL IR(21,1,165):GOTO 121 1582 SELECT CASEMOD 1583 CASE 31 1584 IF OBJ(15)=0THENCALL IR(21,1,103):GOTO 121 1585 IF OBJ(8)<>35THENCALL IR(21,1,161):GOTO 121 1586 IF CT(8)*10+CT(9)<>13THENCALL IR(21,1,160):GOTO 121 1587 IF CT(0)<>27THENCALL IR(21,1,162):GOTO 121 1588 CALL IR(21,2,150):LET AKA(13,1)=2:LET OBJ(15)=0:LET CT(2)=CT(2)+100:CALL EREDMENY 1589 ! NOPE'K_SUPER ROFI 1590 GOTO 120 1591 CASE 32 1592 IF OBJ(14)=0THENCALL IR(21,1,103):GOTO 121 1593 IF OBJ(5)<>35THENCALL IR(21,1,161):GOTO 121 1594 IF CT(8)*10+CT(9)<>12THENCALL IR(21,1,160):GOTO 121 1595 IF CT(0)<>19THENCALL IR(21,1,162):GOTO 121 1596 CALL IR(21,2,148):LET AKA(12,1)=2:LET OBJ(14)=0:LET CT(2)=CT(2)+100:CALL EREDMENY 1597 ! NOPE'K_SUPER ROFI 1598 GOTO 120 1599 CASE 33 1600 IF OBJ(6)<>35THENCALL IR(21,1,161):GOTO 121 1601 IF CT(8)*10+CT(9)<>11THENCALL IR(21,1,160):GOTO 121 1602 IF CT(0)<>13THENCALL IR(21,1,162):GOTO 121 1603 CALL IR(21,2,163):LET AKA(11,1)=2:LET CT(2)=CT(2)+100:CALL EREDMENY 1604 ! NOPE'K_SUPER ROFI 1605 GOTO 120 1606 END SELECT 1607 ! NOPE'K_SUPER ROFI 1608 ! NOPE'K_SUPER ROFI 2000 ! NOPE'K_SUPER ROFI 2001 DATA Hideg és nedves cellåban vagyok. 2002 DATA A fogda padlåsån vagyok. 2003 DATA Ez a fogda épÜletének a teteje. 2004 DATA De hisz ez Törppapa håza. 2005 DATA Egy szigeten ållok. 2006 DATA Egy szigeten ållok. 2007 DATA Itt a titkos kincses kamra. 2008 DATA Ez itt a fogda. 2009 DATA Ez itt egy nagy-nagy csatatér. 2010 DATA A Hupikék Törpök falujåban vagyok. 2011 DATA Egy szigeten ållok. 2012 DATA Egy szigeten ållok. 2013 DATA Itt a titkos tronterem. 2014 DATA Hideg és nedves cellåban vagyok. 2015 DATA Hatalmas tölgyerdöben haladok. 2016 DATA Egy kis fenyveserdöben vagyok. 2017 DATA Ez egy nagy vulkånos sziget. 2018 DATA Egy hajotörött kunyhojåban vagyok. 2019 DATA Bokros cserjés liget mindenütt. 2020 DATA Ez egy hatalmas és hideg barlang. 2021 DATA Ez itt egy hatalmas sziklatetö. 2022 DATA Ez végtelenÜl hatalmas bÜkkerdö. 2023 DATA Itt tenger hullåmzik. 2024 DATA Itt vagyok HOKUSZPOK pincéjében. 2025 DATA Ez egy nedves és hideg barlang. 2026 DATA Itt egy szép csepköves barlang. 2027 DATA Ez egy pokhålos rémisztö helység. 2028 DATA Vigyåzz nyålkås és hosszu lépcsö. 2029 DATA Ez HOKUSZPOK varåzslo håza. 2030 DATA Ez HOKUSZPOK varåzslo sétét erdeje. 2031 DATA Egy füves és virågos réten ållok. 2040 DATA Ugy låtom van itt : 2041 DATA egy arany korona 2042 DATA egy arany jogar 2043 DATA egy arany alma 2044 DATA egy arany pénz 2045 DATA egy hegyes låndzsa 2046 DATA egy éles balta 2047 DATA egy hosszucsövü puska 2048 DATA egy kézi grånåt 2049 DATA egy hosszu kötél 2050 DATA egy szép lampa 2051 DATA egy nagy kulcs 2052 DATA egy nagy låda 2053 DATA egy régi könyv 2054 DATA egy vad oriås gyik Vigyåzz 2055 DATA egy hatalmas pok Vigyåzz 2056 DATA egy nagyfülü nyul Vigyåzz 2057 DATA Van nålam : 2058 DATA Nincs nålam semmi. 2061 DATA Egy erös råcs ållja utamat. 2062 DATA Függöleges sziklafal ållja utamat. 2063 DATA Mély szakadék van ellöttem. 2064 DATA A könyv be van csukva. 2065 DATA A låda be van csukva. 2066 DATA Hatalmas tölgyfaajto ållja utamat. 2067 DATA Az oriås gyik nem enged tovåbb. 2068 DATA A nagy szörös pok az utban åll. 2069 DATA Egy nagyfÜlÜ nyul åll az utban. 2080 DATA Most mit csinåljak? 2081 DATA Ezt a parancsot nem értem. 2082 DATA Ez a parancs tul hosszu. 2083 DATA Mulik az idö. 2084 DATA Mi történt? Elaludtål? 2085 DATA Csinålj mår végre valamit. 2086 DATA Ilyen lassan sosem jutok célhoz. 2087 DATA Arra nem lehet. 2088 DATA Tul sötét van. Nem låtok semmit. 2089 DATA De merre? 2090 DATA Ez a parancs tul rövid. 2091 DATA Merre? 2092 DATA Nem értem. Mit csinåljak? 2093 DATA De mit? 2094 DATA Mit? 2095 DATA Na ne viccelj. 2096 DATA Azt nem lehet. 2097 DATA Bocs. Nem vagyok öngyilkos. 2098 DATA A könyv kinyilik. 2099 DATA Nem nyilik. 2100 DATA A låda fedele felcsapodik. 2101 DATA Nincs hozzå kulcsom. 2102 DATA Mår nyitva van. 2103 DATA Nem låtok itt ilyesmit. 2104 DATA A råcs csikorogva kinyilik. 2105 DATA Mår csukva van. 2106 DATA A råcs csattanva bezarodik. 2107 DATA A könyv becsukodik. 2108 DATA A låda fedele lecsapodik. 2109 DATA Nem csukodik! 2110 DATA Nincs nålam ilyesmi. 2111 DATA Mår nålam van. 2112 DATA A karjaim mår tele vannak. 2113 DATA Rendben. 2114 DATA Nem fér itt el mår semmi. 2115 DATA Rendben de csak te utånad. 2116 DATA Igy nem jutok fel a kötélen. 2117 DATA Igy nem jutok le a kötélen. 2118 DATA A kråterben halålra zuztam magam. 2119 DATA A mélyben halålra zuztam magam. 2120 DATA Egy veremben halålra zuztam magam. 2121 DATA Erre képtelen vagyok. 2122 DATA Ilyet nem tudok. 2123 DATA Azt neked jobban kell tudnod. 2124 DATA Nincs itt semmi olvasnivalo. 2125 DATA Tartalek szöveg. 2126 DATA Teljesen felesleges lenne. 2127 DATA Semmi nem történik. 2128 DATA O te szånalmas alak. 2129 DATA Mi a jåtékållås neve? 2130 DATA A fény és a siker fentröl jön. 2131 DATA A kincsekhez fel is ut le is ut. 2132 DATA A pénz nem boldogit. 2133 DATA Csak a vaknak nem kell låmpa. 2134 DATA Ne feledd. Készitett: BABSOFT 2135 DATA Az olvasås nemes és hasznos. 2136 DATA Még nem vagy elég érett rå. 2137 DATA Mit ér a puska golyo nélkÜl. 2138 DATA Vége? KezdjÜk elölröl? 2139 DATA Sajnos fogalmam sincs rola. 2140 DATA Erre most nincs idö. 2141 DATA Ennek most semmi értelme. 2142 DATA Hidd el. Teljesen felesleges. 2143 DATA Van most ennél fontosabb is. 2144 DATA Nincs nålam puska. 2145 DATA Nincs megtöltve a puskåm. 2146 DATA Nincs töltényem a puskåhoz. 2147 DATA Nem låtok ellenséget a közelben. 2148 DATA A gyik kilehelte lelkét. 2149 DATA Sajnos nincs ellene fegyverem. 2150 DATA A pok darabokra szakadt. 2160 DATA Nem érdemes megprobalni. 2161 DATA Nincs nålam erre alkalmas dolog. 2162 DATA Ez a hely erre nem alkalmas. 2163 DATA Az ajtot összehasogattam tÜzifånak. 2164 DATA Kår lenne azért a szegény ållatért. 2165 DATA Na de milyen modon? 2166 DATA A végén biztosan segiteni fog. 2167 DATA Fogadd öszinte elismerésemet. 2168 DATA A feladatot teljesitetted. 2169 DATA Te nem vagy egy elveszett ember. 2170 DATA Nem azonosithato. 2171 DATA A csunya szavakat nem szeretem. 2172 DATA Milyen modon ? 2173 DATA A könyv csukva van. 2301 DATA rakva. 2302 DATA kifaragott kockåkbol lett össze- 2303 DATA A falak és a padlo sziklatömbökböl 2304 DATA Ez egy hideg és nedves helység. 2305 DATA Sok a por mindenÜtt. 2306 DATA vezet lefelé és felfelé is. 2307 DATA magånak. Egy-egy korhadt létra 2308 DATA A tetö résein a napfény tör utat 2309 DATA Délre nagy erdök és hegyek. 2310 DATA Még messzebb tenger kéklik. 2311 DATA Messze keletre piciny falu. 2312 DATA Erös a szél és a napfény. 2313 DATA KörÜlötte fÜst gomolyog. 2314 DATA nagyon réginek tÜnö könyv. 2315 DATA A szoba közepén hatalmas és 2316 DATA Minden ragyog a tisztasågtol. 2317 DATA -nagyobb szigetek låtszodnak. 2318 DATA Messziröl viz kéklik és kisebb- 2319 DATA Csupa homok dombok és buckåk. 2320 DATA Ez olyan mint egy lakatlan sziget. 2321 DATA -nagyobb szigetek låtszodnak. 2322 DATA Messziröl viz kéklik és kisebb- 2323 DATA Csupa homok dombok és buckåk. 2324 DATA Ez olyan mint egy lakatlan sziget. 2325 DATA Milyen vandål ållatok vannak... 2326 DATA Délre egy szétbarmolt ajto. 2327 DATA A falak aranybol és gyémåntbol. 2328 DATA A szemem kåpråzik a csillogåstol. 2329 DATA Tån elloptåk. Itt egy létra is. 2330 DATA még kettö. Itt a helye. 2331 DATA Egy råcsot låtok. Valaha lehetett 2332 DATA Ez nem valami baråtsågos hely. 2333 DATA jobbra erdöt låtok. 2334 DATA földet. Balra egy romos épÜletet 2335 DATA itt valaha. Sok vér åztatta ezt a 2336 DATA Micsoda borzalmas harcok lehettek 2337 DATA törpjeng el rajtuk kérve kérlek. 2338 DATA Törpvaråzslo könyvben bölcsességek 2339 DATA Benne törpök. Hallgass a szavukra. 2340 DATA Nagy erdöben van egy kis falucska. 2341 DATA -nagyobb szigetek låtszodnak. 2342 DATA Messziröl viz kéklik és kisebb- 2343 DATA Csupa homok dombok és buckåk. 2344 DATA Ez olyan mint egy lakatlan sziget. 2345 DATA -nagyobb szigetek låtszodnak. 2346 DATA Messziröl viz kéklik és kisebb- 2347 DATA Csupa homok dombok és buckåk. 2348 DATA Ez olyan mint egy lakatlan sziget. 2349 DATA meg itt valaha. 2350 DATA Nagyhatalmu kirålyok fordulhattak 2351 DATA Elöttem vastag nagy tölgyfa ajto. 2352 DATA Valaha ez volt a titkos tronterem. 2353 DATA rakva. 2354 DATA kifaragott kockåkbol lett össze- 2355 DATA A falak és a padlo sziklatömbökböl 2356 DATA Ez egy hideg és nedves helység. 2357 DATA valaki tudja az egész vilågon. 2358 DATA virågos rét is. A helyét csak egy 2359 DATA szem ellåt. De van itt valahol egy 2360 DATA Hatalmas fåk vannak itt. Amerre a 2361 DATA Tengert és szigetet keletre. 2362 DATA Falut északra. 2363 DATA Erdöt délre és nyugatra. 2364 DATA Låtok én innen minden félét. 2365 DATA sok-sok sziget. 2366 DATA kis håziko is. Messze tenger és 2367 DATA a tetejéig. Ugy låto van itt egy 2368 DATA HÜ mekkora hegy. Alig låtok fel 2369 DATA semmi pénzért sem. 2370 DATA szalmatetö. Nem laknék itt 2371 DATA Kopott deszkafalak szélfutta 2372 DATA Szegény ember lakta håz ez. 2373 DATA Delre Üreges sziklåt låtok. 2374 DATA Van itt egy diszes épÜlet is. 2375 DATA Mintha egy kirålyi sétakert lenne. 2376 DATA O de kedves kis liget. 2377 DATA Lefelé hosszu alagut vezet. 2378 DATA Némelyikböl fény szÜrödik be. 2379 DATA Körben Üregek nyilnak. 2380 DATA Mekkora barlang. Te jo ég. 2381 DATA Van itt egy barlang is. 2382 DATA Csak le ne fujjon innen a szél. 2383 DATA A szikla låbånål erdö kezdödik. 2384 DATA Csupasz kemény sziklåk mindenfele. 2385 DATA 2386 DATA az årnyékåt. 2387 DATA Balrol hatalmas szikla veti råm 2388 DATA Jobbrol hullåmverést zajåt hallom. 2389 DATA låtnék. Hopp egy hullåm. 2390 DATA Eszakra és keletre mintha földet 2391 DATA mert berozsdåsodik a processzorom. 2392 DATA Viz viz és viz. TÜntess el innen 2393 DATA Hogy kerÜltem ide ? 2394 DATA Se ajto se ablak. 2395 DATA Lehet hogy félek kicsit ? 2396 DATA Olyan ez mint egy pince. 2397 DATA Déli irånyban sötét Üreg. 2398 DATA Több felé alagutak vezetnek. 2399 DATA Viz csöpög a menyezetröl. 2400 DATA Nagyon hideg van itt. 2401 DATA és kusza labirintus van itt. 2402 DATA Minden irånyba alagutak vezetnek 2403 DATA GyönyörÜ csepkövek. 2404 DATA Itt aztån van sok szép låtnivalo. 2405 DATA sÜrÜn beszöve pokhålokkal. 2406 DATA Jobra sötét Üreg a falban 2407 DATA Ezer éves falak rémisztö pokhålok. 2408 DATA Itt tån még a madår sem jårt. 2409 DATA Jobb lenne visszafordulnom. Nem? 2410 DATA Huzatos baråtsågtalan hely ez. 2411 DATA Sok-sok hideg fekete lépcsöfok. 2412 DATA Itt bizony nincs sok låtnivalo. 2413 DATA Hideg szél sÜvit be az ablakon. 2414 DATA Jobbra-balra elöl-håtul ajtok. 2415 DATA Gonosz varazslo itt a håz ura. 2416 DATA Ez egy félelmetes hely. 2417 DATA Nyugatra egy öreg kastélyt låtok. 2418 DATA Kiszåradt fåk sehol egy fÜszål. 2419 DATA félelmetes erdö. 2420 DATA Körbe-körbe mindenÜtt sÜrÜ sötét 2421 DATA tarka lepkék repdesnek. 2422 DATA Itt jo illatuak a virågok és 2423 DATA erdö. Nem lehet åtlåtni rajta. 2424 DATA Körbe-körbe mindenÜtt sÜrÜ sötét 2425 DATA BAMBA-SOFT 2426 DATA (amit nagyon szeret) 2427 DATA De néhåny feles UNICUM utan 2428 DATA Ha jozan akkor TOM-SOFT. 2429 DATA (a bor a(z) unicum a stb. ) 2430 DATA italokat szereti. (de nagyon) 2431 DATA Csak az 'a' betüvel kezdödö 2432 DATA Jo haver. Szépek a halai. 2433 DATA Szereti az UNICUM-ot. 2434 DATA Okos szép és szerény. 2435 DATA Neki köszönhetem létezésem. 2436 DATA Håt igen. ö a BABSOFT. 2437 DATA szereti az UNICUM-ot. 2438 DATA Szereti Röfi Papåt de nem 2439 DATA jo ha van és rossz ha nincs. 2440 DATA Röfi Mama dråga kincs 2650 DATA AJTO,41100,AJTOT,41100,AJTON,41100,ALMA,30300,ALMAT,30300,ANYAD,90100,ANYUK,90100,ADWAR,90500,ABRAK,90400,ALLAS,90800,APRIT,13319,.,0 2651 ! NOPE'K_SUPER ROFI 2660 DATA BALRA,20400,BALLR,20400,BAL,20400,BALL,20400,BALTA,30600,BOMBA,30800,BAB,90600,BABSO,90600,BETOL,11511,BEFEJ,11612,BESZE,10016,BUDAV,92100,BELA,92200,BASZD,90300,BUZI,90400,.,0 2670 DATA CSUKD,10703,CSIRI,90400,.,0 2680 DATA DEL,20300,DELI,20300,DELRE,20300,DELFE,20300,DOBD,10105,DOBJA,10105,DOFD,13219,DOFJ,13219,DOFJE,13219,.,0 2690 DATA ELORE,20100,ESZAK,20100,EJTSD,10205,EJCSD,10205,EGYEL,10907,ELOLR,11612,.,0 2700 DATA FEL,20600,FELFE,20600,FENEB,90100,FRANC,90100,FELAD,11612,.,0 2710 DATA GYERU,10501,GYIK,41200,GYIKO,41200,GYIKN,41200,GRANA,30800,GYILK,10019,.,0 2720 DATA HATRA,20300,HAZA,90200,HELYS,91200,HELP,90500,HOKUS,90400,HASOG,13319,HULYE,90300,HASZN,10010,.,0 2730 DATA INDUL,10501,IRJ,10907,IRD,10907,IRJAL,10907,IRJAD,10907,.,0 2740 DATA JOBRA,20200,JOBBR,20200,JOB,20200,JOBB,20200,JOGAR,30200,JATEK,90800,.,0 2750 DATA KELET,20200,KONYV,40900,KORON,30100,KOTEL,30900,KULCS,31100,KAPD,10304,KAPJA,10304,KAPAS,10601,KIMEN,11411,KORNY,91200,KERES,10501,KISS,92100,KURVA,90300,KERDE,10016,.,0 2760 DATA LE,20500,LEFEL,20500,LADA,41000,LADAT,41000,LADAN,41000,LANDZ,30500,LANZS,30500,LAMPA,31000,LELTA,11006,LOAD,11511,LATSZ,91200,LEPKE,10016,LOJ,10018,LOJJ,10018,LOJJE,10018,LOD,10018,LODD,10018,LACI,92200,LASZL,92200,.,0 2770 DATA MENJ,10501,MENJE,10501,MASSZ,10601,MASZ,10601,MUTAS,11914,MOND,11209,MONDJ,11209,MENT,11411,MENTS,11411,MIERT,10015,MERRE,10015,MIT,11914,MAMA,92200,MARHA,90300,.,0 2780 DATA NYUGA,20400,NYISD,10802,NYISS,10802,NYUL,41400,NYULA,41400,NYULN,41400,NALAM,91000,NALAD,91100,NEZZ,10017,NEZD,10017,NEZZE,10017,NYILK,13019,.,0 2790 DATA OLVAS,11108,OLD,13019,OLJ,13019,OLJED,13019,OKOR,90400,.,0 2800 DATA POK,41300,POKOT,41300,POKNA,41300,PENZ,30400,PENZT,30400,PENZE,30400,PUSKA,30700,PICSA,90100,PUKKA,10016,PUSZT,13019,.,0 2810 DATA .,0 2820 DATA ROHAN,10501,RACS,40100,RACSO,40100,RACSN,40100,REPUL,10907,ROBBA,13119,ROFI,92100,.,0 2830 DATA SIESS,10501,SZALA,10501,SZEKE,30600,SEGIT,90513,SAVE,11411,SZURD,13219,SZURJ,13219,SZILA,92100,.,0 2840 DATA TARD,10802,TEDD,10205,TEGYE,10205,TEREP,91200,TOLTS,11511,TOLT,11511,TAJAT,91200,TORD,13319,TORJE,13319,TAMAS,92200,.,0 2850 DATA UGORJ,10501,UGGOR,10501,.,0 2860 DATA VEDD,10304,VEGYE,10304,VARAZ,10907,VEGE,11612,VEGEM,11612,VIRAG,10016,VERD,13319,VERJ,13319,VERJE,13319,.,0 2870 DATA .,0 2880 DATA .,0 2890 DATA .,0 2900 DATA ZARD,10703,.,0 4997 ! NOPE'K_SUPER ROFI 4998 ! NOPE'K_SUPER ROFI 4999 ! NOPE'K_SUPER ROFI 5000 DEF TLIS 5002 LET E,F=0 5004 FOR G=1TO16 5006 IF G=10ANDOBJ(G)=2ANDAKA(G,1)=1THEN 5022 5008 IF OBJ(G)=CT(0)THEN 5010 IF F=0THEN 5011 IF LAP(23)=1THENLET LAP(23)=0:CALL LAP3 5012 CALL LAP2:CALL IR(23,5,40):LET F=1:GOTO 5016 5014 ELSE IF F>0THEN 5016 CALL IR(23,4-E,40+G):LET E=E+1 5018 END IF 5020 END IF 5022 NEXT 5024 END DEF 5033 DEF LELT 5034 LET E,F=0 5035 FOR G=1TO16 5036 IF OBJ(G)=35THEN 5037 IF F=0THEN 5038 CALL LAP2:CALL IR(23,5,57):LET F=1:GOTO 5040 5039 ELSE IF F>0THEN 5040 CALL IR(23,4-E,40+G):LET E=E+1 5041 END IF 5042 END IF 5043 NEXT 5044 IF F=0THENCALL LAP2:CALL IR(23,5,58) 5045 END DEF 5060 DEF PARANCS 5061 SET #24:INK3:PLOT #24:50,80,:PRINT #24:"■■■■■■■■■■■■■■■■■■■■■■■■■■■":SET #24:INK1:PLOT #24:50,80,:LET SZO$(2),SZO$(3)="":LET G,H=0 5062 GET B$ 5063 IF B$=""THENLET B$="" 5064 SELECT CASEORD(B$) 5065 CASE 32,65TO90,97TO122 5066 LET G=G+1 5067 IF G=27THENCALL IR(21,2,82):GOTO 5061 5068 CALL IHAN:PRINT #24:B$;:LET SZO$(3)=SZO$(3)&UCASE$(B$) 5069 CASE 164 5070 LET G=G-1 5071 IF G=-1THENCALL IR(21,2,90):GOTO 5061 5072 SET #24:INK3:PLOT #24:ANGLE0;:PLOT #24:BACK32;:CALL IHAN:PRINT #24:"";:PLOT #24:BACK32;:SET #24:INK1:LET SZO$(3)=SZO$(3)(1:LEN(SZO$(3))-1) 5073 CASE 176,180,184,188 5074 SET #24:INK3:PLOT #24:50,80,:PRINT #24:"■■■■■■■■■■■■■■■■■■■■■■■■■■■":SET #24:INK1:PLOT #24:50,80, 5075 IF ORD(B$)=176THENLET B$="Menj eszak fele" 5076 IF ORD(B$)=180THENLET B$="Menj del fele" 5077 IF ORD(B$)=184THENLET B$="Menj nyugat fele" 5078 IF ORD(B$)=188THENLET B$="Menj kelet fele" 5080 FOR X=1TOLEN(B$) 5081 PRINT #24:B$(X:X);:CALL IHAN 5083 IF B$(X:X)=" "THENCALL VARJ(RND(10)) 5084 NEXT 5085 LET SZO$(3)=UCASE$(B$):GOTO 5108 5100 CASE 13 5101 IF SZO$(3)=""THENCALL IR(21,2,90):GOTO 5061 5102 GOTO 5108 5103 CASE ELSE 5104 LET H=H+1 5105 IF H>600THENCALL TORL(21,2):CALL IR(21,2,RND(4)+83):LET CT(1)=CT(1)-1:CALL IREN(CT(1)+1,CT(1)+1,3,3):LET H=0:GOSUB 100 5106 END SELECT 5107 GOTO 5062 5108 CLEAR SOUND:CALL TORL(21,2):CALL TORL(21,1) 5109 IF LAP(23)=1THENLET LAP(23)=0:CALL LAP3 5112 END DEF 5113 DEF FELISM 5114 POKE 56,201 5115 LET SZO$(3)=LTRIM$(RTRIM$(SZO$(3))) 5116 IF POS(SZO$(3)," ")=0THENLET SZO$(1)=SZO$(3):LET SZO$(3)="":GOTO 5118 5117 LET SZO$(1)=SZO$(3)(1:POS(SZO$(3)," ")-1):LET SZO$(3)=LTRIM$(SZO$(3)(POS(SZO$(3)," ")+1:LEN(SZO$(3)))) 5118 LET B$=SZO$(1)(1:5):LET Y=PEEK(538)+(PEEK(539)*256)+121:LET C=ORD(B$)*10+2000:POKE Y,REM(C,256):POKE Y+1,INT(C/256):GOSUB 16 5119 READ A$,CT(6) 5120 IF A$=B$THEN 5124 5121 IF A$="."ANDSZO$(3)=""THEN 5126 5122 IF A$="."THEN 5116 5123 GOTO 5119 5124 IF CT(6)=90300THENCALL IR(21,2,171):GOTO 120 5125 CALL SZED 5126 POKE 56,245 5127 END DEF 5128 DEF SZED 5129 LET D$=STR$(CT(6)) 5130 FOR X=1TO5 5131 LET CT(6+X)=VAL(D$(X:X)) 5132 NEXT 5133 END DEF 5134 DEF RAK 5135 LET CT(6)=CT(7)*10000+CT(8)*1000+CT(9)*100+CT(10)*10+CT(11) 5136 END DEF 5137 DEF LAP1(CSAT) 5138 FOR CS=12TO1STEP-1 5139 DISPLAY #CSAT:ATCSFROM1TO13-CS:CALL VARJ(5) 5140 NEXT 5141 END DEF 5142 DEF LAP2 5143 FOR H=8TO1STEP-1 5144 DISPLAY #23:AT13FROMHTO8 5145 CALL VARJ(5) 5146 NEXT 5147 LET LAP(23)=1 5148 END DEF 5149 DEF LAP3 5150 FOR X=2TO8 5151 DISPLAY #23:AT13FROMXTO8 5152 DISPLAY #20:AT22-XFROM1TO1 5153 IF X=8THENDISPLAY #20:AT13FROM1TO1 5154 CALL VARJ(5) 5155 NEXT 5156 FOR X=1TO5 5157 CALL TORL(23,X) 5158 NEXT 5159 LET LAP(23)=0 5160 END DEF 5161 DEF VARJ(ED) 5162 FOR MED=0TOED 5163 NEXT 5164 END DEF 5165 DEF EREDMENY 5166 CALL IHAN:CALL IRAS(300,385,3,3,"■■"):CALL IRAS(300,385,0,1,STR$(CT(4))):CALL IHAN:CALL IRAS(700,385,3,3,"■■") 5167 CALL IRAS(700,385,0,1,STR$(CT(3))):CALL IHAN:CALL IRAS(1100,385,3,3,"■■■■"):CALL IRAS(1100,385,0,1,STR$(CT(2))) 5168 END DEF 5169 DEF IHAN 5170 SOUND ENVELOPE4,SOURCE3,PITCH200,INTERRUPT 5171 END DEF 5172 DEF IREN(A,B,C,D) 5173 IF A>BTHENLET Z=-1 5174 IF A<=BTHENLET Z=1 5175 FOR X=ATOBSTEPZ 5176 SOUND PITCHX*.5+30,DURATION10,INTERRUPT:SET #21:INKC:PLOT #21:X*12+380,285;X*12+380,250,:SET #21:INKD:PLOT #21:X*12+385,290;X*12+385,255, 5177 NEXT 5178 END DEF 5179 DEF IR(A,B,C) 5180 CALL TORL(A,B) 5181 IF C=0THENLET D$=SZO$(3):GOTO 5186 5182 LET Y=PEEK(538)+(PEEK(539)*256)+121:LET C=C+2000 5183 POKE Y,REM(C,256):POKE Y+1,INT(C/256) 5184 GOSUB 16 5185 READ D$ 5186 IF A<>21THENPLOT #A:780-INT((LEN(D$)/2))*43,B*40+20, 5187 IF A=21THENPLOT #A:780-INT((LEN(D$)/2))*43,B*50+20, 5188 SET #A:INK1 5189 FOR X=1TOLEN(D$) 5190 PRINT #A:D$(X:X);:CALL IHAN 5191 IF D$(X:X)=" "THENCALL VARJ(20) 5192 NEXT 5193 CLEAR SOUND 5194 END DEF 5195 DEF IRAS(A,B,C,D,A$) 5196 PLOT #21:A,B,:SET #21:INKC:PRINT #21:A$:PLOT #21:A+5,B+5:SET #21:INKD:PRINT #21:A$ 5197 END DEF 5198 DEF TORL(CSAT,HOL) 5199 POKE 56,201 5200 SET #CSAT:INK3 5201 IF CSAT<>21THENPLOT #CSAT:50,HOL*40+20, 5202 IF CSAT=21THENPLOT #CSAT:50,HOL*50+20, 5203 PRINT #CSAT:"■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■" 5204 POKE 56,245 5205 END DEF 5206 DEF SOTEL 5207 SELECT CASECT(0) 5208 CASE 1,7,13,14,20,24TO29 5209 IF OBJ(10)<>35THENCALL TORL(21,3):CALL IR(21,2,88):LET SOTEL=0 5210 IF OBJ(10)=35THENLET SOTEL=1 5211 CASE ELSE 5212 LET SOTEL=1 5213 END SELECT 5214 END DEF 5215 DEF AKEL 5216 POKE 56,201 5217 SELECT CASECT(0) 5218 CASE 8,13,14,19,21,22,27 5219 FOR X=1TO14 5220 IF AKA(X,5)=CT(0)THEN 5221 IF AKA(X,4)=CT(9)ANDAKA(X,1)=1THENPOKE 56,245:CALL IR(21,2,AKA(X,3)+60):POKE 56,201:LET AKEL=1 5222 ELSE 5223 LET AKEL=0 5224 END IF 5225 NEXT 5226 CASE ELSE 5227 LET AKEL=0 5228 END SELECT 5229 POKE 56,245 5230 END DEF 5231 HANDLER HIBA 5232 WHEN EXCEPTIONUSEHIBAHIBA 5233 LET D$=EXSTRING$(EXTYPE):CALL TORL(21,2):SET #21:INK1:PLOT #21:700-INT((LEN(D$)/2))*43,120, 5234 FOR X=1TOLEN(D$) 5235 CALL IHAN:PRINT #21:D$(X:X); 5236 NEXT 5237 CLEAR TEXT:DISPLAY #24:AT21FROM1TO4:GOTO 120 5238 CLOSE #3 5239 END WHEN 5240 END HANDLER 5241 HANDLER HIBAHIBA 5242 END HANDLER 5243 DEF VEGE 5244 CLEAR TEXT:DISPLAY TEXT:DISPLAY GRAPHICS 5245 FOR X=20TO24 5246 CLOSE #X 5247 NEXT 5248 GOSUB 9014 5249 END DEF 5250 DEF NYERT 5251 CALL TORL(21,3):CALL TORL(21,2):CALL TORL(21,1) 5252 CALL IR(21,3,169) 5253 CALL IR(21,2,168) 5254 CALL IR(21,1,167) 5255 END 5256 END DEF 8997 ! NOPE'K_SUPER ROFI 8998 ! NOPE'K_SUPER ROFI 8999 ! NOPE'K_SUPER ROFI 9000 IF PEEK(400)=13THENPOKE 400,0:POKE 56,201:GOTO 9002 9001 POKE 400,13:CHAIN 1 9002 PRINT AT24,1:"Kis tÜrelmet kérek , tervezek!"; 9003 SET 8,255:POKE 49144,255 9010 DIM BEJ(1TO31,1TO6),CT(13),OBJ(1TO16),AKA(1TO14,1TO5),HAL(1TO31),LAP(21TO23),AZ(1TO3) 9012 STRING *35A$,B$,C$,D$,NEV$,MOND$,SZO$(1TO3) 9014 PRINT AT24,1:"Kis tÜrelmet kérek , tervezek!"; 9015 LET LAP(21),LAP(22),LAP(23)=0:LET CT(0)=31:LET CT(1)=70:RANDOMIZE 9016 RESTORE 9500 9018 FOR X=2TO13 9020 LET CT(X)=0 9022 NEXT 9023 LET CT(4)=3 9024 FOR X=1TO31 9026 LET HAL(X)=0 9028 FOR Y=1TO6 9030 READ A 9032 LET BEJ(X,Y)=A 9034 NEXT 9036 NEXT 9038 FOR X=1TO14 9040 FOR Y=1TO5 9042 READ A 9044 LET AKA(X,Y)=A 9046 NEXT 9048 NEXT 9050 FOR X=1TO16 9052 READ A 9054 LET OBJ(X)=A 9056 NEXT 9058 LET AKA(14,5),OBJ(16)=RND(30):LET AZ(1)=31:LET AZ(2)=1 9060 ENVELOPE NUMBER4;0,63,63,6 9062 ! NOPE'K_SUPER ROFI 9064 SET 22,0:SET 23,0:SET 24,40:SET 25,1 9066 OPEN #20:"VIDEO:" 9068 SET #20:PALETTE0,0 9070 FOR X=21TO23 9072 SET 22,1:SET 23,1:SET 24,40 9074 IF X<23THENSET 25,12 9076 IF X=23THENSET 25,8 9078 OPEN #X:"VIDEO:" 9080 SET #X:PALETTE255,0,56,199 9082 NEXT 9084 SET 22,1:SET 23,1:SET 24,30:SET 25,4 9086 OPEN #24:"VIDEO:" 9088 SET #24:PALETTE255,0,56,199 9090 SET #102:PALETTE0,10,56,199 9092 CALL RAJZ 9094 CLEAR TEXT:DISPLAY TEXT 9096 CALL LAP1(21) 9098 DISPLAY #24:AT21FROM1TO4 9100 POKE 56,245 9102 CALL EREDMENY:CALL IREN(1,70,1,0) 9104 TIME "00:00:00" 9106 RETURN 9497 ! NOPE'K_SUPER ROFI 9498 ! NOPE'K_SUPER ROFI 9499 ! NOPE'K_SUPER ROFI 9500 DATA 0,8,0,0,0,0,0,0,0,0,8,3,0,0,0,0,2,0,0,0,10,0,0,0,5,6,11,5,0,0,6,6,12,5,0,0,0,0,13,0,0,0,0,9,14,1,0,2,9,10,15,8,0,0,4,11,16,9,0,0,5,12,17,10,0,0,6,12,12,11,0,0,7,0,19,0,0,0,8,0,0,0,0,0,9,16,15,15,0,0 9510 DATA 10,17,22,15,0,0,11,18,23,16,0,32,0,0,0,17,0,0,13,20,25,19,0,0,20,21,26,19,33,0,21,21,33,20,22,0,16,23,22,22,0,21,17,23,23,22,0,0,0,0,29,0,0,0,19,26,34,0,0,0,20,27,26,25,0,0,0,28,0,26,0,0,0,29,0,27,29,27 9520 DATA 24,30,29,28,0,0,30,30,30,29,30,30,15,15,15,15,15,15 9527 ! NOPE'K_SUPER ROFI 9528 ! NOPE'K_SUPER ROFI 9529 ! NOPE'K_SUPER ROFI 9530 DATA 1,1,1,3,8,1,2,1,1,14,2,1,2,6,15,2,2,3,1,21,2,1,2,6,20,2,2,3,4,21,1,1,2,6,22,1,2,3,5,21,1,0,4,7,4,1,0,5,8,2,1,0,6,1,13,1,0,7,1,19,1,0,8,4,27,1,0,9,9,0 9537 ! NOPE'K_SUPER ROFI 9538 ! NOPE'K_SUPER ROFI 9539 ! NOPE'K_SUPER ROFI 9540 DATA 7,13,24,25,9,30,9,23,18,2,21,2,4,19,27,0 9797 ! NOPE'K_SUPER ROFI 9798 ! NOPE'K_SUPER ROFI 9799 ! NOPE'K_SUPER ROFI 9800 DEF RAJZ 9802 CALL BOX(21,0,0,1279,220,30):CALL BOX(21,0,220,1279,100,20):CALL BOX(21,0,320,410,110,20):CALL BOX(21,410,320,410,110,20):CALL BOX(21,820,320,459,110,20):CALL BOX(22,0,0,1279,431,30):CALL BOX(23,0,0,1279,287,30) 9807 CALL IRAS(55,385,0,1,"Robot :"):CALL IRAS(465,385,0,1,"Lépés :"):CALL IRAS(870,385,0,1,"Pont :"):CALL IRAS(55,280,0,1,"Energia :"):CALL BOX(24,0,0,959,143,20) 9814 END DEF 9815 DEF BOX(A,B,C,D,X,Y) 9816 SET #A:BEAMOFF:SET #A:INK1:PLOT #A:B,C;:PLOT #A:B+D,C;:PLOT #A:B+D,C+X;:PLOT #A:B+D,C+X;:PLOT #A:B,C+X;:PLOT #A:B,C:PLOT #A:B+Y,C+Y; 9824 PLOT #A:B+D-Y,C+Y;B+D,C;B+D-Y,C+Y;:PLOT #A:B+D-Y,C+X-Y;B+D,C+X;B+D-Y,C+X-Y;:PLOT #A:B+Y,C+X-Y;B,C+X;B+Y,C+X-Y;:PLOT #A:B+Y,C+Y 9828 SET #A:INK2:PLOT #A:B+5,C+5,PAINT:SET #A:INK3:PLOT #A:B+(D/2),C+(X/2),PAINT 9832 END DEF 9900 IF AZ(2)=1THEN 9901 CALL LAP2 9902 FOR Z=5TO2STEP-1 9903 CALL IR(23,Z,295+Z+(CT(0)*4)) 9904 NEXT 9905 CALL VARJ(300) 9906 END IF 9907 IF AZ(1)<>CT(0)THEN 9909 CALL TLIS 9910 END IF 9911 RETURN 9912 ! NOPE'K_SUPER ROFI 9913 ! NOP
EXOS header pos/serial: #3 at 0x9f74 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)