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

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

Program: 0x0, size: 0x713 bytes.
24000 ! COPYRIGHT BY ZOZOSOFT&APUCI ALL RIGHTS RESERVED !! 
24001 !  
24002 !  
24003 !  
24004 POKE 56,201!] 
24005 ALLOCATE 180!] 
24006 WHEN EXCEPTIONUSESTOPOT_NYOMOTT!] 
24007   POKE 45604,255!] 
24008   CODE R=""!] 
24009   LET CALLL=33+R!] 
24010   LET SZOV=41+R!] 
24011   LET COUNT=72+R!] 
24012   CODE FO=HEX$("21")&WORD$(COUNT)&HEX$("7E,3C,77,fe,ff,c8,FE,0A,D4")&WORD$(CALLL)&HEX$("00,C6,b0,32")&WORD$(SZOV+7)!] 
24013   CODE =HEX$("21")&WORD$(SZOV)&HEX$("ED,5B,F6,BF,01,1f,00,ED,B0,C9")!] 
24014   CODE CALLL=HEX$("21")&WORD$(SZOV+6)&HEX$("36,b1,D6,0A,C9")!] 
24015   CODE SZOV="EDDIG 00 BLOKK VAN BET"&CHR$(3)&"LTVE.   "!] 
24016   CODE COUNT=CHR$(254)!] 
24017   CODE KERET=HEX$("f3,f5,c5,d5,e5,dd,e5,fd,e5,cd")&WORD$(FO)&HEX$("3e,40,d3,b4,fd,e1,dd,e1,e1,d1,c1,f1,c9")!] 
24018   POKE 47368,MAGENTA!] 
24019   POKE 47369,WHITE!] 
24020   POKE 47370,YELLOW!] 
24021   POKE 47371,BLUE!] 
24022   POKE 542,PEEK(540)!] 
24023   POKE 543,PEEK(541)!] 
24024   FOR I=SZOVTOSZOV+30!] 
24025     POKE I,PEEK(I)-128!] 
24026   NEXT !] 
24027   POKE 57,ORD(WORD$(KERET)(1))!] 
24028   POKE 58,ORD(WORD$(KERET)(2))!] 
24029   POKE 59,201!] 
24030   SET VIDEOX40!] 
24031   SET VIDEOY26!] 
24032   SET VIDEOCOLOR0!] 
24033   SET VIDEOMODE1!] 
24034   OPEN #101:"video:"!] 
24035   DISPLAY #101:AT1FROM1TO26!] 
24036   SET #101:PALETTE0,0!] 
24037   POKE 56,205!] 
24038   EXT "vload "KOCKAPOK.PIC""!] 
24039   SET #101:PALETTE0,255!] 
24040   POKE COUNT,255!] 
24041   RUN "kockapok.bas"!] 
24042 END WHEN !] 
24043 HANDLER STOPOT_NYOMOTT!] 
24044   ALLOCATE 10!] 
24045   POKE 47368,RED!] 
24046   POKE 47369,WHITE!] 
24047   POKE 47370,RED!] 
24048   POKE 47371,WHITE!] 
24049   LET A$="  "&EXSTRING$(EXTYPE)&"  "!] 
24050   FOR I=1TOLEN(A$)!] 
24051     POKE 48829+I,ORD(A$(I))!] 
24052   NEXT !] 
24053   CODE RES=HEX$("3e,ff,4f,f7,00")!] 
24054   FOR I=1TO1000!] 
24055   NEXT !] 
24056   CALL USR(RES,0)!] 
24057 END HANDLER !] 
24058 !  
24059 !  
24060 !  
24061 !  
24062 !  
24063 ! COPYRIGHT BY ZOZOSOFT&APUCI ALL RIGHTS RESERVED !! 

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