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)



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)