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)