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

File name: /tmp/phpspJKQE (640 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpspJKQE.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 60 02 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x260 bytes.
100 PROGRAM "mutatok.bas" 110 DIM MUTATOK(50) 120 LET A$="kjare///rgfiuqre---jhdcjh-iqrfb-----ljkwhaefgb5t----j,hdfhjv,jhv--jklhef-----liwefl---.jbv" 130 LET ALJA,TETEJE=0 200 DEF KERES(FORRAS$,KERESETT$,REFTOMB) 205 LET ALJA=LBOUND(TOMB) 206 LET TETEJE=UBOUND(TOMB) 210 LET MUTATO=POS(FORRAS$,KERESETT$) 220 IF MUTATO=0THEN 230 EXIT DEF 240 ELSE 250 LET TOMB(ALJA)=MUTATO 260 LET ALJA=ALJA+1 270 DO 280 LET MUTATO=POS(FORRAS$,KERESETT$,MUTATO+1) 290 IF MUTATO=0THENEXIT DEF 300 LET TOMB(ALJA)=MUTATO 310 LET ALJA=ALJA+1 320 LOOP UNTILALJA>TETEJE 330 END IF 340 END DEF 1000 CALL KERES(A$,"---",MUTATOK)
EXOS header pos/serial: #1 at 0x270 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)