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)