Enterprise-128 EXOS file analyzer, lister and disassembler

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

File name: /tmp/phpkMtyDu (5117 bytes) Options: bin=None cset='HUN' dasm='' html='' info='' out='/tmp/phpkMtyDu.out' EP-ASCII: HUN EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 DD 13 00 FF 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)

Program: 0x0, size: 0x13dd bytes.

100 PROGRAM "HORROR.DMO" 110 SET INTERRUPTSTOPOFF 120 !------------------------------ 130 !- Programed by GTL GAMES'91 - 140 !------------------------------ 150 SET STATUSOFF 160 SET KEYCLICKOFF 170 SPOKE 255,16376,0 180 SPOKE 255,16377,0 190 SET VIDEOMODE15 200 SET VIDEOX40 210 SET VIDEOY27 220 OPEN #101:"video:" 230 DISPLAY #101:AT1FROM1TO27 240 !----------SCRLOADER---------- 250 ALLOCATE 80:LET VY=0 260 CODE T="????" 270 CODE R=HEX$("f3,01,b1,03,ed,78,f5,ed") 280 CODE =HEX$("69,0c,2c,10,f7,3e,6a,ed") 290 CODE =HEX$("5b")&WORD$(T+2) 300 CODE =HEX$("ed,4b")&WORD$(T) 310 CODE =HEX$("f7,06,01,b3,03,f1,ed,79,0d") 320 CODE =HEX$("10,fa,fb,3e,6a,f7,03,c9") 330 CODE S=HEX$("3e,65,06,03,f7,0b") 340 CODE =HEX$("eb,b7,ed,42,22") 350 CODE =WORD$(T)&HEX$("60,69,c9") 360 DEF SCRLOAD(Y,N$,CH) 370 NUMERIC H(0TO12) 380 OPEN #106:N$ACCESSINPUT 390 FOR I=0TO11 400 GET #106:X$:LET H(I)=ORD(X$) 410 NEXT I 420 SET VIDEOMODEH(3) 430 SET VIDEOCOLORH(2) 440 SET VIDEOXH(1)/2 450 LET VY=H(0):SET VIDEOYVY 460 POKE S+1,CH:SET BIAS100 470 OPEN #CH:"video:" 480 FOR I=0TO7 490 SET #CH:COLORI,H(I+4) 500 NEXT I 510 SELECT CASEUSR(S,0) 520 CASE 0TO16383 !seg:252 530 CALL F(16384+USR(S,0)) 540 CALL USR(R,252) 550 CASE 16384TO32767 ! seg:253 560 CALL F(USR(S,0)) 570 CALL USR(R,253) 580 CASE -32768TO-16385 ! seg:254 590 CALL F(49152+USR(S,0)) 600 CALL USR(R,254) 610 CASE ELSE !seg:255 620 CALL F(32768+USR(S,0)) 630 CALL USR(R,255) 640 END SELECT 650 DEF F(X) 660 POKE T+2,REM(X,256) 670 POKE T+3,INT(X/256) 680 END DEF 690 END DEF 700 !--------------------------------------------------------------- 710 CALL SCRLOAD(6,"horror.LG1",10) 720 DISPLAY #10:AT9FROM1TO5 730 SET #101:PALETTE0,RGB(.2,0,0),RGB(.3,0,0),RGB(.5,0,0),RGB(.7,0,0),RGB(.8,0,0),RGB(.9,0,0),RGB(1,0,0) 740 !--------------------------------------------------------------- 750 CALL WRITE(1,10,"Welcome to HORROR LAND !",1) 760 CALL WRITE(3,11,"Nemsokàra megjelenik !",2) 770 CALL WRITE(5,2,"Az elsö igazi kalandjàték ENTERPRISE-on",3) 780 CALL WRITE(7,18,"Cime:",4) 790 CALL WRITE(15,9,"Ez nem SPECTRUM àtirat !",5) 800 CALL WRITE(17,1,"A jàték egy kisértetkastélyban jàtszodik",6) 810 CALL WRITE(19,9,"és magyar nyelven készÜl",5) 820 CALL WRITE(21,2,"Kizàrolag Lemezes rendszerben mÜködik !",4) 830 CALL WRITE(23,3,"A programot kiadja a CHART BREAKERS !",3) 840 CALL WRITE(25,9,"Késziti a GTL GAMES'1991",2) 850 CALL HWRITE(27,3,"Na,hogy tetszik a HIGHWRITE rutinom ?",6) 860 CALL HWRITE(27,7,"Le az unalmas SCROLL-okkal !!",6) 870 CALL HWRITE(27,7,"Vegye kezdetét a borzongàs !!",6) 880 CALL HWRITE(27,6,"( Mindenki borzong ?????!!!!!)",6) 890 CALL HWRITE(27,6,"( Tényleg mindenki !!!!!?????)",6) 900 CALL HWRITE(27,15,"( Akkor jo !)",6) 910 CALL HWRITE(27,4,"A programrol érdeklödni nàlam lehet",6) 920 CALL HWRITE(27,10,"Ja,a nevem Gröb Attila",6) 930 CALL HWRITE(27,18,"Cimem:",6) 940 CALL HWRITE(27,7,"Bp XX.ker. Pàzsitos sétàny 6",6) 950 CALL HWRITE(27,12,"De elérhetö vagyok:",6) 960 CALL HWRITE(27,4,"A HCC ENTERPRISE CLUB-ban keddenként",6) 970 CALL HWRITE(27,10,"Töredelmesen beismerem:",6) 980 CALL HWRITE(27,10,"A FROG az én mÜvem !!!!",6) 990 CALL HWRITE(27,10,"Jo szorakozàst hozzà !!",6) 1000 CALL HWRITE(27,19,"Màs !",6) 1010 CALL HWRITE(27,6,"Az ENTERPRESS-t megvenni !!!!",6) 1020 CALL HWRITE(27,4,"Na,mi làthato ebböl junosztyon ?!",6) 1030 CALL HWRITE(27,12,"Remélem igy irjàk ..",6) 1040 CALL HWRITE(27,4,"Ha nem làtod ràzd meg,és leÜlepszik !",6) 1050 CALL HWRITE(27,4,"Na aki nem fekszik a billentyÜzeten,",6) 1060 CALL HWRITE(27,11,"annak elàrulom, hogy",6) 1070 CALL HWRITE(27,3,"SPACE -re töltödik a jàték SCREEN-je",6) 1080 CALL HWRITE(27,6,"A következö SPACE-re pedig....",6) 1090 CALL HWRITE(27,10,"Na elég màr belölem !",6) 1100 CALL WRITE(27,7,"Viszlàt ! Vàrd a programot!!",6) 1110 GET A$ 1120 IF A$=""THENGOTO 1110 1130 CLOSE #101 1140 CALL SCRLOAD(1,"horror.SCR",9) 1150 FOR A=27TO1STEP-1 1160 DISPLAY #9:AT1FROMATO27 1170 NEXT 1180 GET A$ 1190 IF A$=""THENGOTO 1180 1200 DO 1210 GET S$ 1220 FOR A=1TO22 1230 DISPLAY #10:ATAFROM1TO5 1240 DISPLAY #9:AT1FROM1TO27 1250 NEXT 1260 FOR A=22TO1STEP-1 1270 DISPLAY #10:ATAFROM1TO5 1280 DISPLAY #9:AT1FROM1TO27 1290 NEXT 1300 LOOP WHILES$<>" " 1310 SET VIDEOMODE5 1320 SET VIDEOCOLOR0 1330 SET VIDEOX42 1340 SET VIDEOY1 1350 OPEN #99:"video:" 1360 SET #99:PALETTE0,0 1370 FOR C=1TO27STEP2 1380 DISPLAY #99:ATCFROM1TO1 1390 NEXT 1400 FOR C=27TO1STEP-1 1410 DISPLAY #99:ATCFROM1TO1 1420 NEXT 1430 SPOKE 255,12840,255 1440 DEF WRITE(GX,GY,W$,E) 1450 FOR TINT=1TOE 1460 GET A$ 1470 SET #101:INKTINT 1480 PRINT #101,ATGX,GY:W$ 1490 IF A$=" "THENGOTO 1130 1500 NEXT 1510 WAIT 1 1520 END DEF 1530 DEF HWRITE(GX,GY,W$,E) 1540 FOR TINT=1TOE 1550 GET A$ 1560 SET #101:INKTINT 1570 PRINT #101,ATGX,GY:W$ 1580 IF A$=" "THENGOTO 1130 1590 NEXT 1600 WAIT 3 1610 FOR TINT=ETO0STEP-1 1620 GET A$ 1630 SET #101:INKTINT 1640 PRINT #101,ATGX,GY:W$ 1650 IF A$=" "THENGOTO 1130 1660 NEXT 1670 END DEF 1680 !-----------THE END-------------

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