epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler
File name: /tmp/php8XNuWn (11169 bytes)
Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/php8XNuWn.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 81 2B 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x2b81 bytes.
100 PROGRAM "FlapFlap.bas"
110 ! GRACHA EXPORTED
120 !
130 SET INTERRUPTSTOPOFF:SET KEYCLICKOFF
140 LET D=2
150 ENVELOPE NUMBER1;0,63,63,D;1,-63,-63,D;-1,63,63,D;1,-63,-63,D;1,63,63,D;-1,-63,-63,D;1,63,63,D;-1,-63,-63,D
160 LET D=3
170 ENVELOPE NUMBER2;0,63,63,D;1,-63,-63,D;-1,63,63,D;1,-63,-63,D;1,63,63,D;-1,-63,-63,D;1,63,63,D;-1,-63,-63,D
180 LET D=4
190 ENVELOPE NUMBER3;0,63,63,D;1,-63,-63,D;-1,63,63,D;1,-63,-63,D;1,63,63,D;-1,-63,-63,D;1,63,63,D;-1,-63,-63,D
200 ENVELOPE NUMBER5;0,63,63,2;3,-63,-63,2;0,63,63,2
210 STRING FLAP1$(4)*2
220 STRING FLAP2$(4)*2
230 LET FLAP1$(1)="uv"
240 LET FLAP2$(1)="wx"
250 LET FLAP1$(2)="qr"
260 LET FLAP2$(2)="st"
270 LET FLAP1$(3)="mn"
280 LET FLAP2$(3)="op"
290 LET FLAP1$(4)="qr"
300 LET FLAP2$(4)="st"
310 STRING LEV$(24)*42
320 DIM RAS(24,8)
330 LET BBB=200
340 TEXT 40:SET STATUSOFF:SET BORDERBBB
350 SET CHARACTERORD("["),0
360 SET CHARACTERORD("/"),0,255,255,255,255,255,255
370 CALL OP
380 CALL SETFONTS:CALL BIGABC
390 CALL DRAWLEVEL
400 CALL RASZT
410 PRINT #102,AT10,15:"[SPACE[TO[START"
420 PRINT #102,AT10,15:"[[[[[[[[[[[[[[["
430 IF INKEY$=""THEN 410
440 CALL GAME
450 SET #102:PALETTEBBB,203,219,255
460 CLEAR SOUND
470 SOUND SOURCE3,STYLE8,ENVELOPE1,DURATION15
480 SOUND SOURCE3,STYLE8,ENVELOPE2,DURATION15
490 SOUND SOURCE3,STYLE8,ENVELOPE3,DURATION15
500 FOR X=1TO100
510 PRINT #102,AT10,15:"[GAME[OVER["
520 PRINT #102,AT10,15:"[[[[[[[[[[[[[[["
530 LET I$=INKEY$
540 NEXT X
550 GOTO 400
560 ! LEVEL
570 DATA "eÄÖØÆecdcÄÖØÆecdcdcdÄÖØÆecddÄÖØÆeddddÄÖØÆe"
580 DATA "eÄÖØÆedddÄÖØÆedccdcdÄÖØÆedcdÄÖØÆecdcdÄÖØÆe"
590 DATA "eÄÖØÆejddÄÖØÆecijdijÄÖØÆedcdÄÖØÆeccddÄÖØÆe"
600 DATA "eÄÖØÆejijÄÖØÆejklijlÄÖØÆejcdÄÖØÆejdijÄÖØÆe"
610 DATA "eÄÖØÆejklÄÖØÆkl[[kl[ÄÖØÆklijÄÖØÆklijlÄÖØÆe"
620 DATA "eÄÖØÆkl[[ÄÖØÆ[[[[[[[ÄÖØÆ[[kl©#ÜÅ[[kl[ÄÖØÆk"
630 DATA "[ÄÖØÆ[[[[ÄÖØÆ[[[[[[[ÄÖØÆ[[[[[[[[[[[[[ÄÖØÆ["
640 DATA "[ÄÖØÆ[[[[ÄÖØÆ[[[[[[[©#ÜÅ[[[[[[[[[[[[[ÄÖØÆ["
650 DATA "[ÄÖØÆ[[[[©#ÜÅ[[[[[[[[[[[[[[[[[[[[[[[[©#ÜÅ["
660 DATA "[©#ÜÅ[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["
670 DATA "[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["
680 DATA "[[[[[[[[[[[[[[[[[[[[[[[[[[[[©#ÜÅ[[[[[[[[[["
690 DATA "[[[[[[[[[[[[[[[[[[[[[[[[[[[[ÄÖØÆ[[[[[[[[[["
700 DATA "[[[[[[[[[[[[[[[[[[[[©#ÜÅ[[[[ÄÖØÆ[[[[[[[[[["
710 DATA "[[[[[[[[[©#ÜÅ[[[[[[[ÄÖØÆ[[[[ÄÖØÆ[[[[[©#ÜÅ["
720 DATA "[[[[[[[[[ÄÖØÆ[[[[[[[ÄÖØÆ[[[[ÄÖØÆ[[[[[ÄÖØÆ["
730 DATA "[[[[[[[[[ÄÖØÆ[[[[[[[ÄÖØÆ[[[[ÄÖØÆ[[[[[ÄÖØÆ["
740 DATA "[©#ÜÅ[[[[ÄÖØÆ[[[[[[[ÄÖØÆ[[[[ÄÖØÆ[[[[[ÄÖØÆ["
750 DATA "[ÄÖØÆ[[[[ÄÖØÆ[[[[[[[ÄÖØÆ[[[[ÄÖØÆ[[[abÄÖØÆ["
760 DATA "eÄÖØÆ[[[[ÄÖØÆ[[[[[[[ÄÖØÆ[[abÄÖØÆab[cdÄÖØÆa"
770 DATA "eÄÖØÆab[[ÄÖØÆ[[[[[[[ÄÖØÆabcdÄÖØÆedaccÄÖØÆe"
780 DATA "eÄÖØÆedabÄÖØÆ[ab[ab[ÄÖØÆedcdÄÖØÆeccddÄÖØÆe"
790 DATA "[///////////////////////// ["
800 DATA "eÄÖØÆedcdÄÖØÆeddcdcdÄÖØÆedcdÄÖØÆeddcdÄÖØÆe"
810 ! COLOR ROWS
820 DATA 0,104,97,121,204,80,152,74,
830 DATA 0,104,97,121,200,144,138,154,
840 DATA 0,76,101,173,88,2,58,243,
850 DATA 0,76,101,173,17,18,211,255,
860 DATA 0,5,45,253,145,18,211,255,
870 DATA 0,5,45,253,145,144,138,154,
880 DATA 0,101,61,111,145,64,233,159,
890 DATA 0,101,61,111,67,64,233,159,
900 DATA 0,13,253,127,67,64,233,159,
910 DATA 0,13,253,127,195,64,233,159,
920 DATA 0,164,180,46,195,64,233,159,
930 DATA 0,166,254,255,195,64,233,159,
940 DATA 0,166,254,255,195,64,233,159,
950 DATA 0,166,254,255,131,64,233,159,
960 DATA 0,166,254,255,3,64,233,159,
970 DATA 0,166,254,255,3,64,233,159,
980 DATA 0,166,254,255,145,64,233,159,
990 DATA 0,180,62,247,216,212,6,118,
1000 DATA 0,180,62,247,216,18,211,255,
1010 DATA 0,52,38,54,88,18,211,255,
1020 DATA 0,52,38,54,88,2,58,243,
1030 DATA 0,164,180,46,200,144,138,154,
1040 DATA 0,203,219,255,0, 203,219,255
1050 DATA 0,4,164,180,136,128,80,144,
1060 ! FONTS
1070 DEF SETFONTS
1080 SET CHARACTER128,0,0,7,55,55,55,7,0,0
1090 SET CHARACTER129,0,0,15,255,255,255,15,0,0
1100 SET CHARACTER130,55,39,55,55,55,55,55,55,39
1110 SET CHARACTER131,175,143,223,143,175,79,143,207,159
1120 SET CHARACTER132,0,0,15,255,255,255,15,0,0
1130 SET CHARACTER133,0,0,14,142,78,142,14,0,0
1140 SET CHARACTER134,30,15,90,30,45,30,30,75,30
1150 SET CHARACTER135,160,224,192,224,160,192,104,192,224
1160 SET CHARACTER136,140,121,157,76,209,196,214,116,36
1170 SET CHARACTER137,254,250,18,128,213,234,92,248,79
1180 SET CHARACTER138,65,106,124,164,215,152,196,72,29
1190 SET CHARACTER139,190,67,203,134,212,123,175,151,9
1200 SET CHARACTER140,233,205,53,9,100,122,6,159,180
1210 SET CHARACTER141,20,159,134,241,223,226,184,228,135
1220 SET CHARACTER142,86,111,114,241,32,225,139,129,153
1230 SET CHARACTER143,153,27,132,195,236,249,12,42,27
1240 SET CHARACTER144,127,54,54,54,54,54,54,0,0
1250 SET CHARACTER145,126,102,48,24,48,102,126,0,0
1260 SET CHARACTER146,102,0,60,6,62,102,62,0,0
1270 SET CHARACTER147,102,0,60,102,102,102,60,0,0
1280 SET CHARACTER148,102,0,102,102,102,102,60,0,0
1290 SET CHARACTER149,24,0,60,6,62,102,62,0,0
1300 SET CHARACTER150,0,2,60,110,102,118,60,64,0
1310 SET CHARACTER151,0,0,62,10,62,104,62,0,0
1320 SET CHARACTER97,16,48,112,240,225,249,135,90,244
1330 SET CHARACTER98,128,192,224,224,248,244,210,165,249
1340 SET CHARACTER99,135,95,121,189,150,105,182,182,105
1350 SET CHARACTER100,214,235,167,250,239,180,122,105,180
1360 SET CHARACTER101,210,240,225,240,240,210,240,240,225
1370 SET CHARACTER102,0,0,0,0,0,0,0,0,0
1380 SET CHARACTER103,0,0,0,0,0,0,0,0,0
1390 SET CHARACTER104,0,0,0,0,0,0,0,0,0
1400 SET CHARACTER105,242,124,105,150,181,249,215,143,240
1410 SET CHARACTER106,90,91,180,254,251,182,203,210,249
1420 SET CHARACTER107,218,195,241,227,240,112,48,16,0
1430 SET CHARACTER108,181,210,244,248,240,240,224,224,192
1440 SET CHARACTER109,48,113,115,114,114,114,225,135,135
1450 SET CHARACTER110,192,232,236,228,228,224,30,30,30
1460 SET CHARACTER111,135,231,247,247,247,247,247,246,96
1470 SET CHARACTER112,224,30,150,150,224,128,128,0,0
1480 SET CHARACTER113,48,113,115,114,114,114,225,240,247
1490 SET CHARACTER114,192,232,236,228,228,224,30,30,150
1500 SET CHARACTER115,247,247,240,135,240,0,0,0,0
1510 SET CHARACTER116,224,150,30,30,224,0,0,0,0
1520 SET CHARACTER117,96,246,247,247,247,247,247,247,231
1530 SET CHARACTER118,192,224,228,228,228,224,30,30,30
1540 SET CHARACTER119,135,135,135,135,112,0,0,0,0
1550 SET CHARACTER120,224,30,30,30,224,0,0,0,0
1560 END DEF
1570 DEF DRAWLEVEL
1580 PRINT #102,AT1,1:;
1590 RESTORE 570
1600 LET C=102
1610 FOR X=1TO24
1620 READ LEV$(X)
1630 PRINT #C:LEV$(X);
1640 NEXT X
1650 END DEF
1660 DEF RASZT
1670 RESTORE 820
1680 LET P=14608:LET RMO=SPEEK(255,P+3)BOR192
1690 FOR X=1TO24
1700 FOR Y=1TO8
1710 READ RAS(X,Y)
1720 SPOKE 255,P+Y+7,RAS(X,Y)
1730 NEXT Y
1740 SPOKE 255,P+3,RMO:!SPOKE 255,P+1,168
1750 LET P=P+16
1760 NEXT X
1770 END DEF
1780 DEF OP
1790 CLOSE #102
1800 SET VIDEOY24
1810 SET VIDEOX42
1820 SET VIDEOCOLOR1
1830 OPEN #102:"video:"
1840 PRINT #102:CHR$(27);"o";:SET #102:SCROLLOFF
1850 SET #102:PALETTEBBB,104,97,121
1860 DISPLAY #102:AT1FROM1TO24
1870 END DEF
1880 DEF GAME
1890 LET X=1:LET Y=12:LET I=.5:LET AN=1:LET OX=X:LET OY=Y:LET C=1:LET E=26
1900 PRINT #102,AT23,2:"///////////////////////// "
1910 DO
1920 PRINT #102,ATY,X:FLAP1$(AN):PRINT #102,ATY+1,X:FLAP2$(AN)
1930 LET I$=INKEY$
1940 LET AN=MOD(AN,4)+1
1950 LET OX=X:LET OY=Y
1960 PRINT #102,AT23,29:"SCORE ";STR$(C);" "
1970 LET C=C+1
1980 ! PRINT £102,AT 23,2:"ENERGY ";STR$(C)
1990 SOUND DURATION15,LEFT60-X,RIGHTX+20,PITCH70-Y*2+RND,ENVELOPERND(3)+1,INTERRUPT,SOURCEMOD(C,3)
2000 LET X=X+1:LET Y=Y+I
2010 LET I=1
2020 IF JOY(0)BAND16THENLET I=-1
2030 LET D=0
2040 IF (LEV$(Y)(X+1)<>"["ORLEV$(Y+1)(X+1)<>"[")ANDX<41THENLET D=1
2050 IF (LEV$(Y)(X)<>"["ORLEV$(Y+1)(X)<>"[")ANDX<41THENLET D=1
2060 IF D=1THEN
2070 SET BORDER75
2080 PRINT #102,AT23,E:" "
2090 LET E=E-1
2100 IF E=0THENLET E=1
2110 SOUND SOURCE3,INTERRUPT,STYLE12,DURATION5,ENVELOPE5
2120 SET BORDERBBB
2130 END IF
2140 ! IF Y<8 THEN LET I=.5
2150 ! IF Y>15 THEN LET I=-.5
2160 IF X>41THENLET X=1
2170 LET Y=MIN(Y,20)
2180 LET Y=MAX(Y,5)
2190 PRINT #102,ATOY,OX:LEV$(OY)(OX:OX+1):PRINT #102,ATOY+1,OX:LEV$(OY+1)(OX:OX+1)
2200 IF E=1THENEXIT DEF
2210 LOOP UNTILI$=CHR$(27)
2220 END DEF
2230 DEF BIGABC
2240 SET CHARACTERORD("A"),68,206,138,10,14,40,160,160,0
2250 SET CHARACTERORD("B"),204,170,138,140,40,40,160,192,0
2260 SET CHARACTERORD("C"),68,138,136,136,8,8,160,64,0
2270 SET CHARACTERORD("D"),204,138,138,168,40,40,160,192
2280 SET CHARACTERORD("E"),238,136,136,140,8,8,128,224,0
2290 SET CHARACTERORD("F"),238,136,136,140,8,128,128,128,0
2300 SET CHARACTERORD("G"),68,138,136,136,104,40,160,64,0
2310 SET CHARACTERORD("H"),138,138,138,172,40,40,160,160,0
2320 SET CHARACTERORD("I"),68,68,4,4,4,64,64,64,0
2330 SET CHARACTERORD("J"),238,34,2,6,2,160,160,64,0
2340 SET CHARACTERORD("K"),170,138,10,12,72,160,160,160,0
2350 SET CHARACTERORD("L"),136,136,8,8,8,128,128,224,0
2360 SET CHARACTERORD("M"),168,202,44,104,40,160,160,160,0
2370 SET CHARACTERORD("N"),138,138,104,44,74,160,160,160,0
2380 SET CHARACTERORD("O"),68,170,138,168,40,40,160,64,0
2390 SET CHARACTERORD("P"),204,170,138,140,8,8,128,128,0
2400 SET CHARACTERORD("Q"),204,170,138,138,40,40,164,66,0
2410 SET CHARACTERORD("R"),204,170,138,140,40,40,160,160,0
2420 SET CHARACTERORD("S"),68,138,136,4,2,32,160,64,0
2430 SET CHARACTERORD("T"),206,68,4,4,64,64,64,64,0
2440 SET CHARACTERORD("U"),170,138,138,40,40,160,160,64,0
2450 SET CHARACTERORD("V"),170,138,138,40,160,64,64,64,0
2460 SET CHARACTERORD("W"),170,138,138,40,160,164,10,160,0
2470 SET CHARACTERORD("X"),170,138,10,64,64,224,10,160,0
2480 SET CHARACTERORD("Y"),170,138,10,4,4,64,64,64,0
2490 SET CHARACTERORD("Z"),206,2,32,4,64,128,128,224,0
2500 !
2510 SET CHARACTERORD("0"),68,172,138,168,40,40,160,64,0
2520 SET CHARACTERORD("1"),34,70,10,2,32,32,32,32,0
2530 SET CHARACTERORD("2"),68,170,2,4,64,128,128,224,0
2540 SET CHARACTERORD("3"),68,170,2,4,32,32,160,64,0
2550 SET CHARACTERORD("4"),136,136,136,8,44,64,64,64,0
2560 SET CHARACTERORD("5"),238,136,136,12,32,32,32,192,0
2570 SET CHARACTERORD("6"),68,138,136,12,40,160,160,64,0
2580 SET CHARACTERORD("7"),238,2,2,66,4,64,64,64,0
2590 SET CHARACTERORD("8"),68,138,138,4,40,160,160,64,0
2600 SET CHARACTERORD("9"),68,138,138,36,32,32,160,64,0
2610 !
2620 SET CHARACTERORD("""),38,68,128
2630 SET CHARACTERORD("("),68,136,136,136,8,8,128,64,0
2640 SET CHARACTERORD(")"),68,34,2,2,32,32,64,0
2650 SET CHARACTERORD(","),0,0,0,0,0,0,68,4,64
2660 !
2670 SET CHARACTERORD("▮"),240,240,240,240,240,240,240,240,240
2680 SET CHARACTERORD("Ω"),15,15,15,15,15,15,15,15,15
2690 SET CHARACTERORD("é"),255,255,255,255,255,255,255,255,255
2700 SET CHARACTERORD("à"),175,95,175,95,175,95,175,95,175
2710 SET CHARACTERORD("↑"),90,165,90,165,90,165,90,165,90
2720 SET CHARACTERORD("→"),160,80,160,80,160,80,160,80,160
2730 END DEF
EXOS header pos/serial: #1 at 0x2b91
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)