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

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

Program: 0x0, size: 0x647 bytes.
  100 PROGRAM "Flappyb.bas"
  110 RANDOMIZE 
  120 TEXT 40
  130 SET INTERRUPTSTOPOFF:SET KEYCLICKOFF:SET STATUSOFF
  140 ENVELOPE NUMBER1;0,63,63,1;10,-20,-20,60;RELEASE;-10,-20,-20,60;-30,-10,-10,100
  150 ENVELOPE NUMBER2;0,43,43,1;RELEASE;-10,-20,-20,60;-30,-10,-10,100
  160 ENVELOPE NUMBER3;0,0,63,1;30,63,-63,10
  170 GRAPHICS HIRES4
  180 SET PALETTE0,255,8,10:SET LINEMODE3
  190 LET SUCC,FAIL=0:LET LEV=100
  200 CALL DRAWLEVEL
  210 LET A,L=1:LET B=300
  220 SET INK1:PLOT A,B
  230 SOUND INTERRUPT,PITCH(B-210)/6+20,ENVELOPE2,LEFT200,RIGHT90
  240 WHEN EXCEPTIONUSEHIBA
  250   DO 
  260     PLOT A,B
  270     LET A=A+4:LET B=B-L*2
  280     PLOT A,B
  290     LOOK #101,ATA,B:C
  300     IF C<>1THENCAUSE 1
  310     IF L<20THENLET L=L+.5
  320     IF INKEY$=" "THENLET L=-5:SOUND INTERRUPTPITCH(B-210)/6+20,ENVELOPE1,RIGHTA/5,LEFT255-A/5
  330   LOOP 
  340 END WHEN 
  350 DEF DRAWLEVEL
  360   POKE 56,201
  370   SET INK2
  380   FOR X=200TO1270STEP70
  390     LET Q1=300+RND(LEV):LET Q2=Q1+110
  400     FOR S=0TO16STEP4
  410       PLOT X+S,0;X+S,Q1:PLOT X+S,Q2;X+S,719
  420     NEXT 
  430   NEXT 
  440   SET #102:COLOR1,5:PRINT #102,AT2,6:"SUCCEED: ";SUCC;
  450   PRINT #102,AT2,23:"FAILED: ";FAIL;
  460   POKE 56,245
  470 END DEF 
  480 HANDLER HIBA
  490   IF A>=1280THEN
  500     LET SUCC=SUCC+1
  510     PRINT #102,AT2,15:SUCC;
  520     IF LEV<181THENLET LEV=LEV+10
  530     SOUND PITCH70,DURATION3,INTERRUPT
  540     CLEAR GRAPHICS
  550     GOTO  200
  560   END IF 
  570   CLEAR SOUND
  580   SOUND ENVELOPE3,STYLE48,PITCH50,SOURCE1
  590   LET FAIL=FAIL+1
  600   PRINT #102,AT2,31:FAIL;
  610   IF FAIL=6THEN
  620     PRINT AT3,16:"GAME OVER!"
  630     WAIT 1
  640     LET KEY$=INKEY$
  650     IF INKEY$=""THEN 650
  660     RUN 
  670   END IF 
  680   GOTO  210
  690 END HANDLER 

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