Enterprise-128 EXOS file analyzer, lister and disassembler

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

File name: /tmp/php5u7qgZ (7802 bytes) Options: bin=None cset='BRD' dasm='' html='' info='' out='/tmp/php5u7qgZ.out' EP-ASCII: BRD EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 6A 1E 00 01 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)

Program: 0x0, size: 0x1e6a bytes.

100 SET INTERRUPTSTOPOFF 101 POKE 111140,0 110 SET STATUSOFF 120 SET #102:COLOR0,74 130 SET #102:COLOR1,WHITE 140 SET CHARACTERORD("#"),255,255,255,255,255,255,255,255,255 150 STRING A$ 160 NUMERIC X,Y,VX,VY 170 NUMERIC KUKACX(0TO79) 180 NUMERIC KUKACY(0TO79) 190 NUMERIC MT,KAPUX,KAPUY 200 NUMERIC AKADSZ,HOSSZ 210 NUMERIC IDO,PLUSIDO 220 SET KEYCLICKOFF 230 REM ****************************** 240 DEF KERET 250 SET STATUSOFF 260 SET BORDER74 270 CLEAR SCREEN 280 SET #102:PAPER0 290 PRINT #102,AT2,1:"#######################################":! 300 PRINT #102,AT24,1:"#######################################":! 310 FOR I=2TO24 320 PRINT #102,ATI,1:"#"; 330 PRINT #102,ATI,40:"#"; 340 NEXT I 350 END DEF 360 REM ****************************** 370 DEF PALYA 380 NUMERIC AKADX,AKADY 390 RANDOMIZE 400 FOR I=1TOINT(RND(3)+3) 410 LET AKADX=INT(RND(21))+3 420 LET AKADY=INT(RND(38))+2 430 PRINT #102,ATAKADX,AKADY:; 440 GET #102:A$ 450 IF A$=" "THEN 460 PRINT #102:"*"; 470 LET AKADSZ=AKADSZ+1 480 ELSE I=I-1 490 END IF 500 NEXT I 510 END DEF 520 REM ***************************** 530 DEF START 540 LET AKADSZ=0 550 LET HOSSZ=5 560 RANDOMIZE 570 IF RND<.5THEN 580 LET Y=INT(RND(38))+2 590 LET VY=0 600 IF RND<.05THEN 610 LET X=3 620 LET VX=1 630 ELSE 640 LET X=23 650 LET VX=-1 660 END IF 670 ELSE 680 LET X=INT(RND(21))+3 690 LET VX=0 700 IF RND<.5THEN 710 LET Y=2 720 LET VY=1 730 ELSE 740 LET Y=39 750 LET VY=-1 760 END IF 770 END IF 780 FOR I=1TOHOSSZ 790 LET KUKACX(I)=1 800 LET KUKACY(I)=1 810 NEXT I 820 LET MT=0 830 LET KUKACX(0)=X 840 LET KUKACY(0)=Y 850 CALL VIZS 860 PRINT #102,ATX,Y:"O"; 870 END DEF 880 REM ****************************** 890 DEF IRANY 900 IF VX=0THEN 910 SELECT CASEJOY(1)ORJOY(0) 920 CASE 1 930 LET VX=0 940 LET VY=1 950 CASE 2 960 LET VX=0 970 LET VY=-1 980 CASE 4,5,6 990 LET VX=1 1000 LET VY=0 1010 CASE 8,9,10 1020 LET VX=-1 1030 LET VY=0 1040 CASE ELSE 1050 END SELECT 1060 ELSE 1070 SELECT CASEJOY(1)ORJOY(0) 1080 CASE 1,5,9 1090 LET VX=0 1100 LET VY=1 1110 CASE 2,6,10 1120 LET VX=0 1130 LET VY=-1 1140 CASE 4 1150 LET VX=1 1160 LET VY=0 1170 CASE 8 1180 LET VX=-1 1190 LET VY=0 1200 CASE ELSE 1210 END SELECT 1220 END IF 1230 END DEF 1240 REM ******************************* 1250 DEF LEPES 1260 NUMERIC S1,S2,UMT 1270 LET UMT=MOD(MT+1,HOSSZ) 1280 LET S1=KUKACX(UMT) 1290 LET S2=KUKACY(UMT) 1300 PRINT #102,ATS1,S2:" "; 1310 LET X=KUKACX(MT)+VX 1320 LET Y=KUKACY(MT)+VY 1330 LET MT=UMT 1340 LET KUKACX(MT)=X 1350 LET KUKACY(MT)=Y 1360 CALL VIZS 1370 PRINT #102,ATX,Y:"o"; 1380 SOUND PITCH25,DURATION1 1390 PRINT #102,AT1,19:IDO; 1400 PRINT #102,AT1,1:HOSSZ; 1410 PRINT #102,AT1,38:SZINT; 1420 END DEF 1430 REM ****************************** 1440 DEF NOV 1450 IF HOSSZ<79THEN 1460 LET KUKACX(HOSSZ+1)=KUKACX(HOSSZ) 1470 LET KUKACY(HOSSZ+1)=KUKACY(HOSSZ) 1480 LET HOSSZ=HOSSZ+1 1490 END IF 1500 END DEF 1510 REM ****************************** 1520 DEF KAPUKI 1530 SET BORDERRED 1540 IF RND<.5THEN 1550 LET KAPUY=INT(RND(38))+2 1560 IF RND<.5THEN 1570 LET KAPUX=2 1580 ELSE 1590 LET KAPUX=24 1600 END IF 1610 ELSE 1620 LET KAPUX=INT(RND(21))+3 1630 IF RND<.5THEN 1640 LET KAPUY=1 1650 ELSE 1660 LET KAPUY=40 1670 END IF 1680 END IF 1690 PRINT #102,ATKAPUX,KAPUY:"-"; 1700 END DEF 1710 REM ****************************** 1720 DEF KAPUBE 1730 SET BORDERYELLOW 1740 PRINT #102,ATKAPUX,KAPUY:"#"; 1750 END DEF 1760 REM ****************************** 1770 DEF VIZS 1780 PRINT #102,ATX,Y:; 1790 GET #102:A$ 1800 SELECT CASEA$ 1810 CASE " " 1820 CASE "*" 1830 POKE 47368+X*16+1,RED 1840 SOUND PITCH70,DURATION2 1850 CALL NOV 1860 LET AKADSZ=AKADSZ-1 1870 POKE 47368+X*16+1,WHITE 1880 IF AKADSZ=0THENCALL KAPUKI 1890 CASE ELSE 1900 LET VEGE=1 1910 END SELECT 1920 END DEF 1930 REM ***************************** 1940 DEF FALAK 1950 SELECT CASESZINT 1960 CASE 1 1970 LET PLUSIDO=30 1980 CASE 2 1990 LET PLUSIDO=50 2000 PRINT #102,AT13,9:"########################"; 2010 CASE 3 2020 LET PLUSIDO=80 2030 FOR I=8TO18 2040 PRINT #102,ATI,8:"#"; 2050 PRINT #102,ATI,32:"#"; 2060 NEXT I 2070 CASE 4 2080 LET PLUSIDO=100 2090 PRINT #102,AT9,9:"########################"; 2100 PRINT #102,AT17,9:"########################"; 2110 CASE 5 2120 LET PLUSIDO=50 2130 PRINT #102,AT13,4:"############### ###############"; 2140 FOR I=5TO11 2150 PRINT #102,ATI,20:"#"; 2160 NEXT I 2170 FOR I=15TO21 2180 PRINT #102,ATI,20:"#"; 2190 NEXT I 2200 CASE 6 2210 LET PLUSIDO=50 2220 PRINT #102,AT5,18:"#####"; 2230 PRINT #102,AT6,2:" ##### # #####"; 2240 PRINT #102,AT7,2:" # # #"; 2250 PRINT #102,AT8,2:" # # # #"; 2260 PRINT #102,AT9,2:" ### #### # # #### ###"; 2270 PRINT #102,AT10,2:" # # # # # # # #"; 2280 PRINT #102,AT11,2:" # ### ### # # ### ### #"; 2290 PRINT #102,AT12,2:" # # # # # #"; 2300 PRINT #102,AT13,2:" # # # # # #"; 2310 PRINT #102,AT14,2:" # # # # # #"; 2320 PRINT #102,AT15,2:" # ### ### # # ### ### #"; 2330 PRINT #102,AT16,2:" # # # # # # # #"; 2340 PRINT #102,AT17,2:" ### #### # # #### ###"; 2350 PRINT #102,AT18,2:" # # # #"; 2360 PRINT #102,AT19,2:" # # #"; 2370 PRINT #102,AT20,2:" ##### # #####"; 2380 PRINT #102,AT21,2:" #####"; 2390 END SELECT 2400 PRINT #102,AT1,11:"^^^^^^^ ^^^^^^^^"; 2410 END DEF 2420 REM *****************************+ 2430 DEF FOCIM 2440 STRING BILL$ 2450 CLEAR SCREEN 2460 SET BORDER74 2470 PRINT AT5,19:"HAMIKA" 2480 PRINT AT10,10:"Ha kezdhetjük a jatekot," 2490 PRINT AT12,10:"Nyomj le egy billentyüt!" 2500 DO 2510 GET BILL$ 2520 LOOP UNTILBILL$<>"" 2530 IF BILL$=CHR$(27)THENCALL KOD 2540 END DEF 2550 REM ***************************** 2560 DEF SIR 2570 ! 2580 ! 2590 PRINT #102,AT10,10:"Sajnalom, nem sikerült"; 2600 SET BORDERRGB(.6,0,.5) 2610 SOUND PITCH49,DURATION10 2620 SOUND PITCH44,DURATION10 2630 SOUND PITCH41,DURATION10 2640 SOUND PITCH37,DURATION20 2650 WAIT 4 2660 IF SZINT>1THENLET SZINT=SZINT-1 2670 END DEF 2680 REM****************************** 2690 DEF NEVET 2700 ! 2710 ! 2720 PRINT #102,AT12,13:"HURRA! SIKERÜLT!!"; 2730 SET BORDERCYAN 2740 SOUND PITCH37,DURATION20 2750 SOUND PITCH41,DURATION20 2760 SOUND PITCH44,DURATION20 2770 SOUND PITCH49,DURATION40 2780 WAIT 4 2790 END DEF 2800 REM ***************************** 2810 CALL FOCIM 2820 FOR SZINT=1TO6 2830 DO 2840 CALL KERET 2850 CALL FALAK 2860 CALL START 2870 DO 2880 CALL PALYA 2890 LET VEGE=0 2900 FOR IDO=150+PLUSIDOTO0STEP-1 2910 CALL LEPES 2920 CALL IRANY 2930 IF VEGETHENEXIT FOR 2940 NEXT IDO 2950 IF VEGETHEN 2960 EXIT DO 2970 ELSE 2980 IF AKADSZ=0THENCALL KAPUBE 2990 END IF 3000 LOOP 3010 IF A$<>"-"THEN 3020 CALL SIR 3030 ELSE 3040 CALL NEVET 3050 EXIT DO 3060 END IF 3070 LOOP 3080 NEXT SZINT 3090 REM ****************************+ 3100 CLEAR SCREEN 3110 PRINT #102,AT10,1:; 3120 PRINT #102:" ### ### ## # # ## ##" 3130 PRINT #102:" # # # # # # # # # # ##" 3140 PRINT #102:" ### ### # # # # # # ##" 3150 PRINT #102:" # # # # #### # # # # ##" 3160 PRINT #102:" # # # # # # ## # # " 3170 PRINT #102:" ### # # # # ## ## ##" 3180 SET BORDERBLUE 3190 FOR J=1TO5 3200 RESTORE 3260 3210 FOR I=1TO8 3220 READ HANG,HOSSZ 3230 SOUND PITCHHANG,DURATIONHOSSZ 3240 NEXT I 3250 NEXT J 3260 DATA 37,10,41,10,44,10,49,10,37,10,42,10,46,10,49,10 3270 SOUND PITCH1,DURATION2 3280 SOUND PITCH49,DURATION20 3290 SOUND PITCH1,DURATION2 3300 SOUND PITCH44,DURATION20 3310 SOUND PITCH1,DURATION2 3320 SOUND PITCH41,DURATION20 3330 SOUND PITCH1,DURATION2 3340 SOUND PITCH37,DURATION20 3350 SOUND PITCH1,DURATION2 3360 SOUND PITCH37,DURATION80 3370 WAIT 4 3380 FOR I=1TO24 3390 PRINT ATI,1:"" 3400 NEXT I 3410 GOTO 240 3420 REM ************************* 3430 DEF KOD 3440 LET KOD$="☀ƒ☀ƒöƒØü6#πåÖÇ" 3450 LET JO=1 3460 FOR I=1TOLEN(KOD$) 3470 GET A$ 3480 IF A$=""THEN 3470 3490 IF A$<>KOD$(I)THENLET JO=0 3500 NEXT I 3510 IF JO=1THEN 3520 TEXT 3530 SET STATUSON 3540 SET KEYCLICKON 3550 SET BORDER0 3560 CLEAR FONT 3570 POKE 111140,179 3580 SET INTERRUPTSTOPON 3590 END 3600 END IF 3610 END DEF

End of FILE parsing, because: No new EXOS header found at the current position (end of file)