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

File name: /tmp/php34jCku (1013 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/php34jCku.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 D5 03 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x3d5 bytes.
100 ! tape to disk 105 SET TAPESOUNDOFF 110 OUT 191,12:POKE 56,201 120 WHEN EXCEPTIONUSEKI 140 TEXT 150 GOTO 280 160 PRINT "1 --> Original name" 170 PRINT "2 --> Rename" 180 LET A$=INKEY$ 190 IF A$="1"THENGOTO 270 200 IF A$="2"THENGOTO 220 210 GOTO 180 220 ! Rename 230 INPUT PROMPT"New name:":A$ 240 EXT "copy tape: a:"&A$ 250 PRINT UCASE$(A$)"file copied." 260 GOTO 160 270 ! Original 280 OPEN #1:"tape:"ACCESSINPUT 290 LET A$="" 300 FOR A=48838TO48850 310 LET A$=A$&CHR$(PEEK(A)) 320 NEXT 330 LET A$=RTRIM$(A$) 340 PRINT A$; 350 WHEN EXCEPTIONUSENINCSFILE 360 OPEN #2:"a:"&A$ACCESSINPUT 370 CALL VANFILE 380 END WHEN 390 OPEN #2:"a:"&A$ACCESSOUTPUT 400 COPY FROM#1TO#2 410 CLOSE #1 420 CLOSE #2 430 PRINT " ok" 440 GOTO 270 450 HANDLER NINCSFILE 460 IF EXTYPE=9207THEN 390 470 END HANDLER 480 DEF VANFILE 490 PRINT " file already exists." 500 POKE 56,245 510 INPUT PROMPT"New filename?":B$ 520 POKE 56,201 530 IF LEN(B$)=0THEN 550 540 LET A$=B$ 550 PRINT UCASE$(A$); 560 CLOSE #2 570 END DEF 580 END WHEN 590 HANDLER KI 600 POKE 56,245 610 CAUSE EXTYPE 620 END HANDLER
EXOS header pos/serial: #1 at 0x3e5 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)