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

File name: /tmp/phpCWJ5iR (1538 bytes)
Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpCWJ5iR.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 E2 05 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)

Program: 0x0, size: 0x5e2 bytes.
  100 ALLOCATE 80
  110 CODE M=HEX$("DB,B1,F5,F7,18,6F,79,D3")
  120 CODE =HEX$("B1,20,2B,3E,01,11,00,40")
  130 CODE =HEX$("01,00,10,F7,06,11,00,40")
  140 CODE =HEX$("20,1C,3E,02,01,00,10,F7")
  150 CODE =HEX$("08,18,E8,6F,E5,21,00,10")
  160 CODE =HEX$("B7,ED,42,E5,C1,E1,79,B0")
  170 CODE =HEX$("28,04,3E,02,F7,08,3E,01")
  180 CODE =HEX$("F7,03,3E,02,F7,03,DB,B1")
  190 CODE =HEX$("4F,F7,19,F1,D3,B1,26,00")
  200 CODE =HEX$("C9,00,00,00,00,00,00,00")
  210 ! tape to disk
  220 SET TAPESOUNDOFF
  230 REM OUT 191,12:POKE 56,201
  240 LET F=1
  250 WHEN EXCEPTIONUSEKI
  260   TEXT 
  270   GOTO  400
  280   PRINT "1 --> Original name"
  290   PRINT "2 --> Rename"
  300   LET A$=INKEY$
  310   IF A$="1"THENGOTO  390
  320   IF A$="2"THENGOTO  340
  330   GOTO  300
  340   ! Rename 
  350   INPUT PROMPT"New name:":A$
  360   EXT "copy tape: a:"&A$
  370   PRINT UCASE$(A$)"file copied."
  380   GOTO  280
  390   ! Original
  400   OPEN #1:"tape:"ACCESSINPUT
  410   LET A$=""
  420   FOR A=48838TO48850
  430     LET A$=A$&CHR$(PEEK(A))
  440   NEXT 
  450   LET A$=RTRIM$(A$)
  460   IF A$=""THEN
  470     LET A$="tapefile."&STR$(F)
  480     LET F=F+1
  490   END IF 
  500   PRINT A$;
  510   WHEN EXCEPTIONUSENINCSFILE
  520     OPEN #2:"a:"&A$ACCESSINPUT
  530     CALL VANFILE
  540   END WHEN 
  550   OPEN #2:"a:"&A$ACCESSOUTPUT
  560   CALL USR(M,0)
  570   REM CLOSE £1
  580   REM CLOSE £2
  590   PRINT " ok"
  600   GOTO  390
  610   HANDLER NINCSFILE
  620     IF EXTYPE=9207THEN 550
  630   END HANDLER 
  640   DEF VANFILE
  650     PRINT " file already exists."
  660     REM POKE 56,245
  670     INPUT PROMPT"New filename?":B$
  680     REM POKE 56,201
  690     IF LEN(B$)=0THEN 710
  700     LET A$=B$
  710     PRINT UCASE$(A$);
  720     CLOSE #2
  730   END DEF 
  740 END WHEN 
  750 HANDLER KI
  760   REM POKE 56,245
  770   CAUSE EXTYPE
  780 END HANDLER 

EXOS header pos/serial: #1 at 0x5f2
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)