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)