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

File name: /tmp/phpSszqxh (1027 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpSszqxh.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 E3 03 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x3e3 bytes.
100 PROGRAM "anim.bas" 110 ! 120 ! Elokeszites 130 SET VIDEOMODE1 140 SET VIDEOCOLOR1 150 SET VIDEOX10 160 SET VIDEOY10 170 ! 180 ! Lapok nyitasa 190 ! 200 FOR N=1TO20 210 OPEN #N:"video:" 220 CALL RAJZOK(N) 230 NEXT 240 ! 250 LET A$=INKEY$ 260 IF A$=""THEN 250 270 ! 280 ! Megjelenites 290 ! 300 FOR N=1TO20 310 DISPLAY #N:AT1FROM1TO10 320 GOSUB 430 330 NEXT 340 ! 350 FOR N=20TO1STEP-1 360 DISPLAY #N:AT1FROM1TO10 370 GOSUB 430 380 NEXT 390 GOTO 300 400 ! 410 ! Kesleltetes 420 ! 430 FOR T=1TO10 440 NEXT 450 RETURN 460 ! 470 ! Fazisrajzok 480 ! 490 DEF RAJZOK(N) 500 DISPLAY #N:AT1FROM1TO10 510 SET #N:PALETTEBLACK,GREEN,YELLOW,RED 520 PLOT #N:0,0;319,0;319,359;0,359;0,0, 530 SET #N:INK1 540 PLOT #N:-10+16*N,160, 550 PLOT #N:ELLIPSE70,70, 560 SET #N:INK2 570 PLOT #N:PAINT 580 SET #N:INK3 590 PLOT #N:328-16*N,200, 600 PLOT #N:ELLIPSE70,70, 610 PLOT #N:328-16*N,245, 620 PLOT #N:PAINT 630 SET #N:INK1 640 PLOT #N:-10+16*N,130, 650 PLOT #N:PAINT 660 END DEF
EXOS header pos/serial: #1 at 0x3f3 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)