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

File name: /tmp/php7mPUU0 (15655 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/php7mPUU0.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 07 3D 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x3d07 bytes.
24000 PROGRAM "BABADAT.PRG"(MOD,NEV$,REC,AMSZ,ANH,AMH) ! 24001 WHEN EXCEPTIONUSEHIBA 24002 GOTO 24007 24003 !123456 24004 STRING *10AN$(1TO10) 24005 STRING *15BAB$(1TO150,1TO10) 24006 RETURN 24007 GOSUB 24520 24008 PRINT :PRINT :PRINT ! 24009 GOSUB 24182 24010 IF FREE<1000THENLET REC=REC-5:CHAIN "BABADAT.PRG"(MOD,NEV$,REC,AMSZ,ANH,AMH) 24011 IF MOD=2THENCALL LOAD 24012 CALL INF 24013 CALL MEN(0) 24014 GOSUB 24072 ! ? 24015 IF FF=1THEN 24047 24016 SELECT CASEMP 24017 CASE 1 24018 CALL UJREKORD 24019 CASE 2 24020 CALL OLV 24021 CASE 3 24022 CALL REND 24023 IF FF=0THENEXT "DEL RENDEZ.BAB" 24024 CASE 4 24025 CALL JAV 24026 CASE 5 24027 CALL TORL(0) 24028 CASE 6 24029 CALL SAVE 24030 CASE 8 ! 24031 CAUSE 13 24032 CASE 9 24033 CALL ABK(1) 24034 CASE 10 24035 GOSUB 24241 24036 CASE 11 24037 GOSUB 24223 24038 CASE 12 24039 IF PR=0THEN 24040 PRINT #202,AT20,70:"BE":LET PR=1 24041 ELSE IF PR=1THEN 24042 PRINT #202,AT20,70:"KI":LET PR=0 24043 END IF 24044 CASE ELSE 24045 PING 24046 END SELECT 24047 LET FF=0 24048 CALL MEN(1) 24049 GOTO 24014 24050 END WHEN 24051 DEF WAIT 24052 DO 24053 SET #202:INK1:PRINT #202,AT2,69:TIME$; ! 24054 IF C10<RSZ+1THENLET C10=RSZ+1 24055 IF C10<REC+1THEN 24056 LET BAB$(C10,C20)="_ ":LET C20=C20+1 24057 IF C20=AMSZ+1THENLET C20=1:LET C10=C10+1 24058 END IF 24059 GET A$ 24060 LOOP UNTILA$<>"" 24061 END DEF 24062 DEF ABK(C3) 24063 IF C3=1THEN 24064 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Azonosito megadås";:CALL BEIRAS("Kérem az azonositojåt vagy (ENTER)-t !",8,20,10):LET AZ$(4)=C$ ! 24065 END IF 24066 FOR C1=0TO4 24067 IF AZ$(4)=AZ$(C1)THENLET AZ=C1:EXIT FOR 24068 NEXT 24069 IF AZ=4THENLET AZ$(4),C$="_ ":GOTO 24066 24070 CALL TORLES(8,1,19,12) 24071 END DEF 24072 SELECT CASEAZ 24073 CASE 3 24074 SELECT CASEMP 24075 CASE 1,2,3,4,5,6,10,11 24076 GOSUB 24094 24077 CASE ELSE 24078 END SELECT 24079 CASE 2 ! 24080 SELECT CASEMP 24081 CASE 1,4,5,10,11 24082 GOSUB 24094 24083 CASE ELSE 24084 END SELECT 24085 CASE 1 24086 SELECT CASEMP 24087 CASE 4,5,10,11 24088 GOSUB 24094 24089 CASE ELSE 24090 END SELECT 24091 CASE ELSE 24092 END SELECT 24093 RETURN 24094 PRINT #202,AT4,3:"Ez a müvelet önnek nincs engedélyezve !";:LET FF=1 24095 WAIT 1 24096 CALL TORLES(4,1,3,40) 24097 RETURN 24098 DEF UJREKORD 24099 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Adatbeirås"; 24100 LET A,RT=0:LET RSZ=RSZ+1 24101 IF RSZ>RECTHEN 24102 PRINT #202,AT4,3:"Az adattårolo megtelt !"; 24103 WAIT 2 24104 PRINT #202,AT4,3:" ";:GOTO 24128 24105 END IF 24106 IF FF=0THENCALL AN_KIIR 24107 LET AKT=RSZ:CALL INF:PRINT #202,AT6+AMSZ,ANH+6:"Következö rekord"; 24108 CALL KERES("Melyik adatmezöbe akar irni ? ",6,AMSZ+1,ANH+5,A) 24109 IF A<AMSZ+1THEN 24110 CALL BEIRAS(" ",A+5,ANH+6,AMH):LET BAB$(RSZ,A)=C$ 24111 IF C$="___"THENLET BAB$(RSZ,A)="_ " 24112 IF LEN(BAB$(RSZ,A))<3THENLET BAB$(RSZ,A)=BAB$(RSZ,A)&" " 24113 ELSE IF A=AMSZ+1THEN 24114 FOR X=1TOAMSZ 24115 IF BAB$(RSZ,X)<>"_ "THENLET RT=1 ! 24116 NEXT 24117 IF RT=0THENLET RSZ=RSZ-1 24118 CALL TORLES(6,AMSZ,ANH+6,AMH):LET FF=1:GOTO 24100 24119 ELSE 24120 GOTO 24123 24121 END IF 24122 GOTO 24108 24123 LET RT=0 24124 FOR X=1TOAMSZ 24125 IF BAB$(RSZ,X)<>"_ "THENLET RT=1 24126 NEXT 24127 IF RT=0THENLET RSZ=RSZ-1 24128 CALL TORLES(6,AMSZ,3,ANH+AMH+4):CALL TORLES(6+AMSZ,1,ANH+6,16):LET AKT=0:CALL INF 24129 END DEF 24130 DEF AN_KIIR 24131 FOR X=1TOAMSZ 24132 PRINT #202,AT5+X,3:AN$(X) ! 24133 NEXT 24134 END DEF 24135 DEF AM_KIIR 24136 FOR X=1TOAMSZ 24137 IF BAB$(AKT,X)(1)="*"ANDVAL(BAB$(AKT,X)(2))>0THEN 24138 IF VAL(BAB$(AKT,X)(2))<3THEN 24139 IF VAL(BAB$(AKT,X)(2))<AZ+1THEN 24146 24140 ELSE IF VAL(BAB$(AKT,X)(2))=9THEN 24141 IF BAB$(AKT,X)(3)<>PIPA$THEN 24146 24142 END IF 24143 END IF 24144 PRINT #202,AT5+X,ANH+4+Y:BAB$(AKT,X) ! 24145 IF PR=1THENLPRINT AN$(X),BAB$(AKT,X) 24146 NEXT 24147 END DEF 24148 DEF BEIRAS(A$,A,B,C) 24149 PRINT #202,AT4,3:A$:LET D=B:LET C$="":LET FF=0:SET #202:INK4:PRINT #202,ATA,B-1:"[":PRINT #202,ATA,B+C:"]" 24150 FOR C1=BTOB+C-1 24151 PRINT #202,ATA,C1:" ":POKE 400+C1,32 24152 NEXT 24153 CALL WAIT:SET #202:INK4:LET AS=ORD(A$) 24154 SELECT CASEAS 24155 CASE 32TO159 ! 24156 PRINT #202,ATA,D:CHR$(AS):POKE 400+D,AS 24157 IF D<B+C-1THENLET D=D+1:GOTO 24153 24158 GOTO 24153 24159 CASE 164,184 24160 IF D=B+C-1ANDPEEK(400+D)<>32THEN 24161 PRINT #202,ATA,D:" ":POKE 400+D,32 24162 ELSE IF D>BTHEN 24163 LET D=D-1:PRINT #202,ATA,D:" ":POKE 400+D,32:GOTO 24153 24164 END IF 24165 GOTO 24153 24166 CASE 168,188 24167 IF D<B+C-1THENPRINT #202,ATA,D:" ":POKE 400+D,32:LET D=D+1:GOTO 24153 24168 GOTO 24153 24169 CASE 13 24170 LET C$="" 24171 FOR X=BTOB+C-1 24172 LET C$=C$&CHR$(PEEK(400+X)) 24173 NEXT 24174 IF LEN(RTRIM$(C$))=0THENLET C$="_ " 24175 CASE 27 24176 LET C$="___" 24177 CASE ELSE 24178 GOTO 24153 24179 END SELECT 24180 SET #202:INK1:PRINT #202,ATA,B-1:T$(1:C+2):PRINT #202,ATA,B:C$:CALL TORLES(4,1,3,40) 24181 END DEF 24182 STRING AZ$(4)*10 24183 STRING PIPA$*1 24184 FOR C1=0TO4 24185 LET AZ$(C1)="_ " 24186 NEXT 24187 RANDOMIZE 24188 LET A$,B$,C$=" ":LET DAT$="Nincs rögzitve":LET PIPA$="" 24189 LET A,B,C,C1,C2,C3,D,E,F,FF,X,Y,Z,AS,RSZ,AKT,AKTAM,AZ,MP,PR=0:LET C10,C20=1:POKE 49144,45 ! 24190 PRINT #202,AT4,58:"Név :":PRINT #202,AT5,58:"Max.: Akt.:":PRINT #202,AT6,58:"Utolso rögzités:" 24191 FOR X=PEEK(538)+(PEEK(539)*256)TO16383 24192 IF PEEK(X)=49ANDPEEK(X+1)=50ANDPEEK(X+2)=51ANDPEEK(X+3)=52ANDPEEK(X+4)=53ANDPEEK(X+5)=54THENEXIT FOR 24193 NEXT 24194 POKE X+15,ANH:POKE X+29,AMSZ:POKE X+41,AMH:POKE X+56,REM(REC,256):POKE X+57,INT(REC/256):POKE X+66,AMSZ 24195 GOSUB 24004 24196 LET T$=" " 24197 FOR C=1TOAMSZ 24198 LET AN$(C)="_ " 24199 NEXT 24200 RETURN 24201 DATA Beirås,Keresés,Rendezés,Javitås,Törlés,Kimentés, ,Nyito menübe,Bejelentkezés,Adatnév megadås,Azonosito megadås,Printer : KI 24202 DEF MEN(A) 24203 PRINT #202,AT2,25:" Adatkezelö menü ":LET MP=0:CALL INF:POKE 49144,45 ! 24204 IF A=0THEN 24205 RESTORE 24201 24206 FOR X=1TO12 24207 READ A$ 24208 PRINT #202,ATX+8,60:A$ 24209 NEXT 24210 END IF 24211 CALL KERES("Vålasszon a menüböl ! ",9,12,58,0) 24212 LET MP=A 24213 IF MP=7THEN 24211 24214 PRINT #202,AT2,25:" " 24215 END IF 24216 PRINT #102,AT2,25:" " 24217 END DEF 24218 DEF TORLES(A,B,C,D) 24219 FOR C1=ATOA+B-1 24220 PRINT #202,ATC1,C:T$(1:D) 24221 NEXT 24222 END DEF 24223 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Azonosito megadås"; 24224 PRINT #202,AT6,3:"Minden müvelet engedélyezett :":PRINT #202,AT8,3:"Csak irås-olvasås engedélyezett :":PRINT #202,AT10,3:"Csak olvasås engedélyezett :":LET Z=0:LET AZ=0 24225 FOR C3=6TO10STEP2 24226 CALL BEIRAS(" ",C3,37,10) 24227 IF C$="___"THENLET C$="_ " 24228 IF C3=6THENLET AZ$(4)=C$ 24229 IF C$="_ "THEN 24230 FOR C2=ZTO3 24231 LET AZ$(C2)=C$ ! 24232 NEXT 24233 GOTO 24237 24234 END IF 24235 LET AZ$(Z)=C$:LET Z=Z+1 24236 NEXT 24237 FOR C3=6TO10STEP2 24238 CALL TORLES(C3,1,3,45) 24239 NEXT 24240 RETURN 24241 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Adatnév megadås";A=0:CALL AN_KIIR 24242 CALL KERES("Melyiket akarja megadni ? ",6,AMSZ,2,A) 24243 IF A<=AMSZTHEN 24244 CALL BEIRAS("",A+5,3,ANH) 24245 IF LEN(C$)<3THENLET C$=C$&" " 24246 LET AN$(A)=C$:PRINT #202,ATA+5,3:C$:GOTO 24242 24247 ELSE 24248 CALL TORLES(6,AMSZ,3,ANH+6) ! 24249 END IF 24250 RETURN 24251 DEF REND 24252 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Adatrendezés"; 24253 IF RSZ=0THENGOSUB 24495 24254 IF FF=1THENEXIT DEF 24255 CALL AN_KIIR 24256 CALL KERES("Melyik szerint rendezzek ?",6,AMSZ,2,0):LET AKTAM=A:CALL TORLES(6,AMSZ,3,AMH+ANH+4) 24257 IF AKTAM=255THENLET FF=1:EXIT DEF 24258 PRINT #202,AT4,3:"Rendezem az adatokat, "AN$(AKTAM)" szerint." 24259 OPEN #8:"RENDEZ.BAB"ACCESSOUTPUT 24260 FOR C1=65TO91 24261 IF C1<91THEN 24262 FOR C2=1TORSZ 24263 IF ORD(UCASE$(BAB$(C2,AKTAM)(1)))=C1THEN 24264 FOR C3=1TOAMSZ 24265 PRINT #8:BAB$(C2,C3) 24266 NEXT 24267 END IF 24268 NEXT 24269 ELSE ! 24270 FOR C2=1TORSZ 24271 IF ORD(UCASE$(BAB$(C2,AKTAM)(1)))<65ORORD(UCASE$(BAB$(C2,AKTAM)(1)))>90THEN 24272 FOR C3=1TOAMSZ 24273 PRINT #8:BAB$(C2,C3) 24274 NEXT 24275 END IF 24276 NEXT 24277 END IF 24278 NEXT 24279 CLOSE #8 24280 OPEN #8:"RENDEZ.BAB"ACCESSINPUT 24281 FOR C1=1TORSZ 24282 FOR C2=1TOAMSZ 24283 INPUT #8:BAB$(C1,C2) 24284 NEXT 24285 NEXT 24286 CLOSE #8 24287 END DEF 24288 DEF SAVE 24289 LET AS=0 ! 24290 IF AZ$(2)<>"_ "THEN 24291 PRINT #202,AT4,3:"Titkositva mentsem ki? (i-n)":CALL WAIT:CALL TORLES(4,1,3,30):LET AS=ORD(UCASE$(A$)) 24292 IF AS=73ORAS=78THEN 24296 24293 IF AS=27THEN 24339 24294 PING :GOTO3130 24295 END IF 24296 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Adatkimentés";:LET C$=NEV$&".BAB":LET DAT$=DATE$(1:4)&"."&DATE$(5:6)&"."&DATE$(7:8)&" "&TIME$(1:5):LET RT=0 24297 OPEN #8:C$ACCESSOUTPUT 24298 PRINT :PRINT :PRINT 24299 PRINT #8:REC:PRINT #8:AMSZ:PRINT #8:ANH:PRINT #8:AMH:PRINT #8:RSZ:PRINT #8:DAT$ 24300 FOR C1=0TO2 24301 LET KOD=INT(RND*43) 24302 PRINT #8:KOD:PRINT #8:LEN(AZ$(C1)) 24303 FOR C2=1TOLEN(AZ$(C1)) 24304 PRINT #8:ORD(AZ$(C1)(C2))+KOD 24305 NEXT 24306 NEXT 24307 FOR C1=1TOAMSZ 24308 IF AN$(C1)(1)="*"ORAS=73THEN 24309 LET KOD=INT(RND*22) ! 24310 PRINT #8:KOD:PRINT #8:LEN(AN$(C1)) 24311 FOR C2=1TOLEN(AN$(C1)) 24312 PRINT #8:ORD(AN$(C1)(C2))+KOD 24313 NEXT 24314 ELSE 24315 PRINT #8:AN$(C1) 24316 END IF 24317 NEXT 24318 FOR C1=1TORSZ 24319 PRINT #202,AT5,73:C1 24320 FOR C2=1TOAMSZ 24321 IF BAB$(C1,C2)(1)="*"ORAS=73THEN 24322 LET KOD=INT(RND*17) ! 24323 PRINT #8:KOD:PRINT #8:LEN(BAB$(C1,C2)) 24324 FOR C3=1TOLEN(BAB$(C1,C2)) 24325 PRINT #8:ORD(BAB$(C1,C2)(C3))+KOD 24326 NEXT 24327 ELSE 24328 PRINT #8:BAB$(C1,C2) 24329 END IF 24330 NEXT 24331 NEXT 24332 CLOSE #8 24333 LET AKT=0:CALL INF 24334 IF RT=255THEN 24339 24335 PRINT #202,AT4,3:"Kér måsolatot az adatållomånyrol? (i-n)";:CALL WAIT:CALL TORLES(4,1,3,40):LET AS=ORD(UCASE$(A$)) ! 24336 IF AS=73THENPRINT #202,AT2,30:"Adatkimentés";:LET C$=NEV$&".BAK":LET RT=255:GOTO 24297 24337 IF AS=78ORAS=27THENEXIT DEF 24338 GOTO 24335 24339 END DEF 24340 DEF LOAD 24341 PRINT #202,AT2,25:" Adatbetöltés ";:LET A$=NEV$&".BAB" ! 24342 OPEN #8:A$ACCESSINPUT 24343 PRINT :PRINT :PRINT 24344 FOR C=1TO4 24345 INPUT #8:A 24346 NEXT 24347 INPUT #8:RSZ 24348 INPUT #8:DAT$ 24349 LET AKT=0:CALL INF 24350 FOR C1=0TO2 24351 INPUT #8:KOD 24352 INPUT #8:C3 24353 LET AZ$(C1)="" ! 24354 FOR C2=1TOC3 24355 INPUT #8:A 24356 LET AZ$(C1)=AZ$(C1)&CHR$(A-KOD) 24357 NEXT 24358 NEXT 24359 FOR C1=1TOAMSZ 24360 INPUT #8:A$ 24361 IF LEN(A$)<4THEN 24362 LET KOD=VAL(A$) 24363 INPUT #8:C3 24364 LET AN$(C1)="" 24365 FOR C2=1TOC3 24366 INPUT #8:A 24367 LET AN$(C1)=AN$(C1)&CHR$(A-KOD) 24368 NEXT 24369 ELSE 24370 LET AN$(C1)=A$ 24371 END IF 24372 NEXT 24373 FOR C1=1TORSZ 24374 PRINT #202,AT5,73:C1 24375 FOR C2=1TOAMSZ 24376 INPUT #8:A$ 24377 IF LEN(A$)<4THEN 24378 LET KOD=VAL(A$) ! 24379 INPUT #8:C3 24380 LET BAB$(C1,C2)="" 24381 FOR C=1TOC3 24382 INPUT #8:A 24383 LET BAB$(C1,C2)=BAB$(C1,C2)&CHR$(A-KOD) 24384 NEXT 24385 ELSE 24386 LET BAB$(C1,C2)=A$ 24387 END IF 24388 NEXT 24389 NEXT 24390 CLOSE #8 24391 CALL INF:CALL ABK(0) ! 24392 END DEF 24393 DEF KERES(A$,C,E,F,H) 24394 LET A,B=H:PRINT #202,AT4,3:A$ ! 24395 DO 24396 SET #202:INK1:PRINT #202,ATB+C,F:" ":SET #202:INK4:PRINT #202,ATA+C,F:"" 24397 CALL WAIT:LET AS=ORD(A$) 24398 IF AS=176THENLET B=A:LET A=A-SGN(A) 24399 IF AS=180THENLET B=A:LET A=A+SGN((E-1)-A) 24400 LOOP UNTILAS=27ORAS=13 24401 SET #202:INK1:PRINT #202,AT4,3:" ":PRINT #202,ATA+C,F:" ":LET A=A+1:CALL TORLES(4,1,3,40) 24402 IF AS=27THENLET A=255 ! 24403 END DEF 24404 DEF OLV 24405 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Adatkeresés"; 24406 IF RSZ=0THENGOSUB 24495 24407 IF FF=1THENEXIT DEF 24408 WAIT 1 24409 LET PIPA$="" 24410 GET PIPA$ 24411 PRINT #202,AT6,7:"Sorszåm":PRINT #202,AT7,7:"Adatmezö tartalom":CALL KERES("Melyik szerint keressek ?",6,2,5,0):CALL TORLES(6,2,5,20) 24412 IF A>0ANDA<20THENCALL AN_KIIR ! 24413 IF A=1THEN 24414 LET A$="Melyiket keressem ? (1-"&STR$(RSZ)&")":CALL BEIRAS(A$,4,30,3):LET AKT=VAL(C$):CALL TORLES(4,1,4,35) 24415 IF AKT>RSZTHENLET AKT=0:GOTO 24414 24416 IF AKT>0THENCALL TORLES(6,AMSZ,ANH+4,AMH):CALL INF:CALL AM_KIIR:GOTO 24414 24417 CALL TORLES(6,AMSZ,3,ANH+AMH+4):GOTO 24411 24418 ELSE IF A=2THEN 24419 CALL KERES("Melyik szerint keressek ?",6,AMSZ,2,0):LET AKTAM=A:CALL TORLES(AMSZ+6,1,3,5) 24420 IF A>AMSZTHENCALL TORLES(6,AMSZ,3,ANH+AMH+4):GOTO 24411 24421 CALL BEIRAS("Mit keressek ?",AKTAM+5,ANH+4,AMH):LET C3=POS(C$,"*") 24422 IF C$="___"THEN 24419 24423 IF C3>0THENLET C3=C3-1 24424 FOR C2=1TORSZ 24425 GET A$ 24426 IF A$<>""THEN 24448 24427 PRINT #202,AT5,73:C2 24428 IF C3=0THEN 24429 IF BAB$(C2,AKTAM)=C$THEN 24430 GOTO 24438 24431 END IF 24432 ELSE 24433 IF BAB$(C2,AKTAM)(1:C3)=C$(1:C3)THEN 24434 GOTO 24438 24435 END IF 24436 END IF 24437 GOTO 24444 24438 LET AKT=C2:CALL AM_KIIR:PRINT #202,AT4,3:"Keressem tovåbb ? (i-n)":CALL WAIT:LET AS=ORD(UCASE$(A$)) ! 24439 CALL TORLES(4,1,3,25):CALL TORLES(6,AMSZ,ANH+3,AMH+3) 24440 IF AS=73THEN 24444 24441 IF AS=78ORAS=27THEN 24448 24442 PING 24443 GOTO 24435 24444 NEXT 24445 ELSE 24446 EXIT DEF 24447 END IF 24448 CALL TORLES(6,AMSZ,ANH+3,AMH+3):LET AKT=0:CALL INF:GOTO 24419 24449 CALL TORLES(4,1,3,40):CALL TORLES(6,AMSZ,3,ANH):LET AKT=0:CALL INF 24450 END DEF 24451 DEF INF 24452 IF MP=1THENPRINT #202,AT5,63:REC 24453 IF MP<>1THENPRINT #202,AT5,64:" ":PRINT #202,AT5,63:RSZ 24454 PRINT #202,AT4,64:NEV$:PRINT #202,AT5,73:AKT:PRINT #202,AT7,60:DAT$ ! 24455 END DEF 24456 DEF JAV 24457 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Adatjavitås"; 24458 IF RSZ=0THENGOSUB 24495 24459 IF FF=1THENEXIT DEF 24460 LET PIPA$="" 24461 GET PIPA$ 24462 LET RT=0:LET A$="Melyiket akarja javitani ? (1-"&STR$(RSZ)&")":CALL BEIRAS(A$,4,37,3):LET AKT=VAL(C$):CALL TORLES(4,1,4,40) ! 24463 IF AKT>RSZTHEN 24462 24464 IF AKT>0THENCALL INF:CALL AN_KIIR:CALL AM_KIIR:GOTO 24466 24465 GOTO 24478 24466 CALL KERES("Vålasszon a mezök közül ! ",6,AMSZ,ANH+3,0) 24467 IF A<AMSZ+1THEN 24468 CALL BEIRAS(" ",A+5,ANH+4,AMH) 24469 IF C$="___"THENLET C$="_ " 24470 LET BAB$(AKT,A)=C$:GOTO 24466 24471 END IF 24472 IF AKT=0THEN 24476 24473 FOR X=1TOAMSZ 24474 IF BAB$(AKT,X)<>"_ "THENLET RT=1 24475 NEXT 24476 IF A>AMSZTHENCALL TORLES(6,AMSZ,ANH+4,AMH):GOTO 24462 ! 24477 IF RT=0THENCALL TORL(AKT) 24478 CALL TORLES(6,AMSZ,3,ANH):LET AKT,RT=0:CALL INF 24479 END DEF 24480 DEF TORL(RT) 24481 PRINT #202,AT2,30:" ";:PRINT #202,AT2,30:"Adattörlés"; 24482 IF RSZ=0THENGOSUB 24495 24483 IF FF=1THENEXIT DEF 24484 IF RT=0THENLET A$="Melyiket akarja törölni ? (1-"&STR$(RSZ)&")":CALL BEIRAS(A$,4,36,3):LET AKT=VAL(C$):CALL TORLES(4,1,4,32) ! 24485 IF AKT=0THEN 24494 24486 CALL INF 24487 IF RT>0THENLET AKT=RT 24488 FOR C1=AKTTORSZ-1 24489 FOR C2=1TOAMSZ 24490 LET BAB$(C1,C2)=BAB$(C1+1,C2) 24491 NEXT 24492 NEXT 24493 LET RSZ=RSZ-1:LET AKT=0:CALL INF 24494 END DEF 24495 PRINT #202,AT4,3:"Nincs adat !" 24496 WAIT 2 24497 PRINT #202,AT4,3:" ":LET FF=1 24498 RETURN 24499 HANDLER HIBA 24500 WHEN EXCEPTIONUSEHIB 24501 IF EXTYPE=13THEN 24502 IF AZ<3THENPRINT #202,AT6,8:"Ennek a müveletnek a hatåsåra az adatok":PRINT #202,AT7,16:"törlödnek a memoriåbol!" 24503 ELSE IF EXTYPE=5000THEN 24504 LET REC=REC-10:CHAIN "BABADAT.PRG"(MOD,NEV$,REC,AMSZ,ANH,AMH) ! 24505 ELSE 24506 CALL TORLES(4,1,3,50):CALL TORLES(6,15,2,50) 24507 PRINT #202,AT6,8:"Programhiba történt.Az adatållomånyt":PRINT #202,AT7,13:"törölnöm kell a memoriåbol!" 24508 END IF 24509 IF AZ<3THEN 24510 PRINT #202,AT4,3:"Kér adatkimentést ? (i-n)":CALL WAIT:CALL TORLES(4,1,3,25):CALL TORLES(6,2,8,40):LET AS=ORD(UCASE$(A$)) ! 24511 IF AS=73THENCALL SAVE 24512 IF AS<>78THEN 24510 24513 END IF 24514 CALL TORLES(6,2,8,40):RUN "BABADAT"(2,NEV$,REC,AMSZ,ANH,AMH) ! 24515 END WHEN 24516 END HANDLER 24517 HANDLER HIB 24518 EXT "BASIC" ! 24519 END HANDLER 24520 LET VER$="" 24521 LET Y=PEEK(538)+(PEEK(539)*256)+15559 ! 24522 FOR X=YTOY+27 24523 LET VER$=VER$&CHR$(PEEK(X)) 24524 NEXT 24525 IF MOD=255THEN 24526 IF VER$<>"BABADAT v.2.2 BABSOFT 1989"THENPRINT AT15,15:"Sajnålattal közlöm a föprogram megsérült !" ! 24527 IF VER$="BABADAT v.2.2 BABSOFT 1989"THENPRINT AT15,15:"Orömmel közlöm a föprogrammal minden rendben !" 24528 END 24529 ELSE 24530 IF VER$<>"BABADAT v.2.2 BABSOFT 1989"THENSET 0,0 ! 24531 END IF 24532 RETURN
EXOS header pos/serial: #1 at 0x3d17 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)