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

File name: /tmp/phptmz8YY (5833 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phptmz8YY.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 A9 16 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x16a9 bytes.
100 PROGRAM "kazetta" 110 NUMERIC I,M,A,SZAMLALO(1TO48,1TO2) 120 FOR I=1TO40 130 POKE 48823+I,32 140 NEXT 150 SET 12,45:SET KEYCLICKOFF 160 STRING PRG$(1TO48,1TO2)*20,A$*1 170 LET M=1 180 DO 190 SET STATUSOFF 200 GRAPHICS HIRES16 210 SET PALETTE0,255 220 SET #102:PALETTE0,255 230 PRINT #101,AT6,9:M 240 PRINT AT1,6:"Hånyadik kazettåt vålasztod ?" 250 DO 260 GET A$ 270 SELECT CASEA$ 280 CASE CHR$(176) 290 IF M<31THENLET M=M+1 300 CLEAR GRAPHICS 310 PRINT #101,AT6,9:M 320 CASE CHR$(180) 330 IF M>1THENLET M=M-1 340 CLEAR GRAPHICS 350 PRINT #101,AT6,9:M 360 CASE ELSE 370 END SELECT 380 LOOP UNTILA$=" "ORA$=CHR$(13) 390 PING 400 LET M$=" "&STR$(M)&". KAZETTA " 410 FOR I=1TO12 420 POKE 48836+I,ORD(M$(I)) 430 NEXT 440 SET STATUSON 450 SELECT CASEM 460 CASE 1 470 RESTORE 2010 480 CASE 2 490 RESTORE 2020 500 CASE 3 510 RESTORE 2030 520 CASE 4 530 RESTORE 2040 540 CASE 5 550 RESTORE 2050 560 CASE 6 570 RESTORE 2060 580 CASE 7 590 RESTORE 2070 600 CASE 8 610 RESTORE 2080 620 CASE 9 630 RESTORE 2090 640 CASE 10 650 RESTORE 2100 660 CASE 11 670 RESTORE 2110 680 CASE 12 690 RESTORE 2120 700 CASE 13 710 RESTORE 2130 720 CASE 14 730 RESTORE 2140 740 CASE 15 750 RESTORE 2150 760 CASE 16 770 RESTORE 2160 780 CASE 17 790 RESTORE 2170 800 CASE 18 810 RESTORE 2180 820 CASE 19 830 RESTORE 2190 840 CASE 20 850 RESTORE 2200 860 CASE 21 870 RESTORE 2210 880 CASE 22 890 RESTORE 2220 900 CASE 23 910 RESTORE 2230 920 CASE 24 930 RESTORE 2240 940 CASE 25 950 RESTORE 2250 960 CASE 26 970 RESTORE 2260 980 CASE 27 990 RESTORE 2270 1000 CASE 28 1010 RESTORE 2280 1020 CASE 29 1030 RESTORE 2290 1040 CASE 30 1050 RESTORE 2300 1060 CASE 31 1070 RESTORE 2310 1080 CASE ELSE 1090 END SELECT 1100 READ A 1110 IF A=0THEN 1120 TEXT 1130 PRINT "Ezzen a kazettån több zagyvasåg van mint amit meg lehet jegyezni !" 1140 WAIT 3 1150 ELSE 1160 FOR I=1TOA 1170 READ PRG$(I,1),PRG$(I,2),SZAMLALO(I,1),SZAMLALO(I,2) 1180 NEXT 1190 TEXT 1200 SET #102:PALETTE0,255 1210 IF A<25THEN 1220 FOR I=1TOA 1230 PRINT #102,ATI,11:PRG$(I,1); 1240 PRINT #102,USING"%££",ATI,23:SZAMLALO(I,1); 1250 PRINT #102:"-"; 1260 PRINT #102,USING"%££":SZAMLALO(I,2) 1270 NEXT 1280 LET X=30 1290 ELSE 1300 FOR I=1TO24 1310 PRINT #102,ATI,1:PRG$(I,1); 1320 PRINT #102,USING"%££",ATI,13:SZAMLALO(I,1); 1330 PRINT #102:"-"; 1340 PRINT #102,USING"%££":SZAMLALO(I,2) 1350 NEXT 1360 FOR I=25TOA 1370 PRINT #102,ATI-24,21:PRG$(I,1); 1380 PRINT #102,USING"%££",ATI-24,33:SZAMLALO(I,1); 1390 PRINT #102:"-"; 1400 PRINT #102,USING"%££":SZAMLALO(I,2) 1410 NEXT 1420 LET X=20 1430 END IF 1440 LET I=1 1450 PRINT #102,ATI,X:"" 1460 DO 1470 GET A$ 1480 IF A$<>""THEN 1490 IF I<25THEN 1500 PRINT #102,ATI,X:" " 1510 ELSE 1520 PRINT #102,ATI-24,40:" " 1530 END IF 1540 END IF 1550 SELECT CASEA$ 1560 CASE CHR$(176) 1570 IF I>1THENLET I=I-1 1580 CASE CHR$(180) 1590 IF I<ATHENLET I=I+1 1600 CASE CHR$(184) 1610 IF I>24THENLET I=I-24 1620 CASE CHR$(188) 1630 IF I+24<=ATHENLET I=I+24 1640 CASE ELSE 1650 END SELECT 1660 IF A$<>""THEN 1670 IF I<25THEN 1680 PRINT #102,ATI,X:"" 1690 ELSE 1700 PRINT #102,ATI-24,40:"" 1710 END IF 1720 END IF 1730 LOOP UNTILA$=CHR$(27)ORA$=CHR$(13)ORA$=" " 1740 PING 1750 IF PRG$(I,2)="<"THENCLEAR TEXT:PRINT "Ezt a programot csak BASIC nélk}l lehet betölteni !":WAIT 3 1760 WHEN EXCEPTIONUSEHIBA 1770 IF A$<>CHR$(27)THENRUN PRG$(I,2) 1780 END WHEN 1790 END IF 1800 LOOP 1810 HANDLER HIBA 1820 CONTINUE 1830 END HANDLER 2010 DATA 0 2020 DATA 2,A OLDAL,>,0,0,BUGGY BOY,BUGGY.COM,653,897 2030 DATA 4,B OLDAL,>,0,0,JACKTN.\R\K,JACK.COM,0,106,BACI-SZAPI,BACI_SZAPI,106,121,LIFE,LIFE.FBT,121,126 2040 DATA 0 2050 DATA 18,A OLDAL,>,0,0,AIRWOLF,AIRWOLF,0,82,AMAUROTE,AMAUROTE,82,284,BOMB SQAD,BOMB_SQAD,284,319,CAULDRON 1,CAULDRON,319,497,CHAINS,CHAIN,497,586,CYRUS CHESS,CHESS,586,638 2051 DATA DEATH DIVER,DEATH_DIVER,638,721,DOT BREAKER,DOT-BREAKER,721,757,D COLLECTOR,DOT-COLLECTOR,757,788,AM\BA,FIVE_IN_A_ROW,788,826,NODES,NODES_OF_YESOD,826,983 2052 DATA BOMBER MAN,BOMBER_MAN,983,031,B OLDAL,>,0,0,KARNOV,KARNOV,0,470,CYBERNOID 1,CYBERNOID,470,600,MAGICBALL,<,600,943,GRIDTROUBLE,GRID_TROUBLE,943,989 2060 DATA 32,A OLDAL,>,0,0,ORIENT E.,EXPRESS,0,74,RACE ACE,RACE_ACE,74,144,SNOOKER.BRD,SNOOKER_BRD,144,178,T. RENEGADE,TARGET_RENEGADE,178,424,TOMBSOFDOOM,TOMBS_OF_DOOM,424,469,HEARTLAND,HEARTLAND,469,555,GREATESCAPE,THE_GREAT_ESCAPE,555,680 2061 DATA JETPAC,JETPAC,680,730,CYCLONE,CYCLONE,730,855,720 DEGREES,720,855,20,TORPEDO,TORPEDO,20,70,KISZORITO,KISZORITO,70,94,DILIMINER,DILIMINER_ATTUS,94,208,LODE,LODE,208,339,SZUPERKUKAC,SZUPKUK-BEV,339,415,HAMIKA-5,HAMIKA-5_BEVEZ,415,478 2062 DATA SZOJÅTéK,SZOJATEK,478,497,B OLDAL,>,0,0,WIZARD LAIR,LAIR,0,88,BARBARIAN 1,BARBARIAN_I,88,190,PERMOLIFT,<,190,290,ELITE,-ELITE-,290,393,TOMAHAWK,TOMAHAWK,393,526,JACKTHENIP2,JACK_THE_NIPPER,526,647,BRUCE LEE,BRUCE-LEE,647,747 2063 DATA RE DA AW,RE_DA_AW,747,855,CENTRUMBALL,CENTRUMBALL,855,912,ACE,ACE,912,50,POPEYE,POPEYE,50,200,ENTER-STACK,ENTER-STACK,200,323,ENTER BALL,ENTERBALL,323,481 2070 DATA 20,A OLDAL,>,0,0,KOKOTONI W.,KOKOTONI,0,137,FRED,FRED,137,212,NAUTILUS,NAUTILUS_ATTACK,212,309,RAID OVER M,RAID,309,416,STARSTRIKE,STARSTRIKE,416,547,ARNHEM,ARNHEM.CR,547,729,AUTOMANIA,AUTOMAN.COM,729,868,BEATCHA,BEATCHA,868,917 2071 DATA B OLDAL,>,0,0,CYBERUN,CYBERUN.ATTUS,0,106,PASCAL 0.3,PASCAL,106,147,FORTH 1.0,FORTH,147,183,ROCKYHORROR,RHS,183,301,REBELSTAR,REBELSTAR,301,424,MAD&MIXGAME,START,424,555,HUBERT,HEBERT,555,621,AUF WIED M.,AUF_WIED.COM,621,837,GEN,GEN,837 2072 DATA 891,MON,MON,891,991 2080 DATA 4,B OLDAL,>,0,0,MINER.BAS,MINER.BAS,0,31,MINER.ZIP,MINER.ZIP,31,74,HANOI,HANOI_TORNYAI,74,84 2090 DATA 16,A OLDAL,>,0,0,DIZZY 2,DIZZY2.COM,0,121,BOUNESBACK,THING.COM,121,217,UNVER HERO,UNVHERO.COM,217,340,NUCL. COUNT,NUCLEAR.COM,340,448,MERLIN,MERLIN.COM,448,584 2091 DATA SIDEWALK,SIDEWALK.COM,584,728,GOLYO.BAS,GOLYO.BAS,728,756,ROCKMONITOR,ROCKMON.COM,756,874,B OLDAL,>,0,0,FAST FOOD,FASTFOOD.COM,0,98,ENIGMAFORCE,EFORCE.COM,98,198 2092 DATA TOTALECLIPS,TOTAL.COM,198,311,FUTUREKNIGT,FUTURE.COM,311,448,SOUTHERNBEL,SOUTHERN.COM,448,584,VAMPIRE'S E,VAMPIRE.COM,584,809 2100 DATA 0 2110 DATA 0 2120 DATA 0 2130 DATA 0 2140 DATA 0 2150 DATA 0 2160 DATA 0 2170 DATA 0 2180 DATA 0 2190 DATA 0 2200 DATA 0 2210 DATA 0 2220 DATA 0 2230 DATA 0 2240 DATA 0 2250 DATA 0 2260 DATA 0 2270 DATA 0 2280 DATA 0 2290 DATA 0 2300 DATA 0 2310 DATA 0
EXOS header pos/serial: #1 at 0x16b9 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)