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

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

Program: 0x0, size: 0x1fd bytes.
  100 PROGRAM "ABRA_2"
  110 OUT 191,2
  120 RANDOMIZE 
  130 SET 26,255
  140 LET Y=0:LET A=640:LET B=360
  150 GRAPHICS HIRES256
  160 SET 27,253
  170 SET PAPER253:CLEAR SCREEN
  180 SET #102:PALETTE253,1
  190 FOR X=0TO1279STEP32
  200   LET Y=Y+16
  210   SET INKRND(256)
  220   PLOT 640,360,ELLIPSEA,B,
  230   PLOT X,Y,ELLIPSEA,B,
  240   PLOT 1279-X,Y,ELLIPSEA,B,
  250   PLOT 1279-X,719-Y,ELLIPSEA,B,
  260   PLOT X,719-Y,ELLIPSEA,B,
  270 NEXT 
  280 GET I$:LET I$=UCASE$(I$)
  290 IF I$="V"THEN 310
  295 IF I$=""THEN 280
  300 RUN 
  310 SET 26,0
  320 OUT 191,0
  330 SET 27,0

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