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)