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

File name: /tmp/phpDLQ33d (15210 bytes) Options: bin=None cset='HFONT' dasm='' html='' info='' out='/tmp/phpDLQ33d.out' EP-ASCII: HFONT EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 4A 3B 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x3b4a bytes.
100 PROGRAM "AMOBASZH.BAS" 110 ! 95-12-15 klf.szövegek a végén 120 ! Gyári kazetta alapján,magyarítva,Hfont,Szabály 130 CLEAR SCREEN:EXT "HFONT" 140 SET STATUSOFF 150 CALL KEP 160 SET INTERRUPTSTOPOFF 170 SET INTERRUPTKEYOFF 180 CALL SZABALY 190 DISPLAY #102:FROM0TO24AT1 200 ALLOCATE 1290 210 WHEN EXCEPTIONUSEPROGRAM_STOP 220 SET INTERRUPTSTOPON 230 CODE EX=HEX$("e1,c9") 240 CODE HIT=HEX$("e5,1e,fd") 250 CODE LP2=HEX$("e1,e5,6,5,7d,82,6f,79,ee,3,a6,20,4,1c,10,f4") 260 CODE =HEX$("1d,af,92,57,fa") 270 CODE =WORD$(LP2) 280 CODE =HEX$("1d,fa") 290 CODE =WORD$(EX)&HEX$("7c,81,67") 300 CODE FREL=HEX$("7d,82,6f,e5,d5,6,5,1e,80,7e,b7,20,2,cb,3,7d,82,6f") 310 CODE =HEX$("10,f5,7b,fe,8,28,8,38,8,e1,e1,62,d1,d1,c9,1e,ff,6,5,7d,92,6f,7e,b7,28,6,83,77") 320 CODE =HEX$("30,2,36,ff,10,f1,d1,e1,1d,f2") 330 CODE =WORD$(FREL)&HEX$("e1,c9") 340 CODE INIT=HEX$("3e,ff,77,2c,20,fc,3e,f,6,f,36,0,2c,10,fb,2c,3d,20,f5,c9") 350 CODE BEST=HEX$("af,1e,ff,be,30,2,7e,5d,2c,20,f8,6b,c9") 360 CODE EVAL=HEX$("7e,b7,28,2,3e,ff,3c,24,77,24,77,25,25,2c,20,f0") 370 CODE =HEX$("e,2,16,11,2e,0,7e,b9,cc") 380 CODE =WORD$(HIT)&HEX$("2c,20,f8,3e,2,a2,28,1,57,15,20,ed,d,20,e8,24,cd")&WORD$(BEST) 390 CODE =HEX$("57,24,cd")&WORD$(BEST) 400 CODE =HEX$("26,0,6c,b2,3d,c0,2c,c9") 410 CODE SEL=HEX$("7d,ee,3,84,57,7d,84,67,af,6f,5f,47,4f") 420 CODE =HEX$("7e,cb,3f,8e,38,5,eb,86,eb,30,2,3e,ff,b8,38,2,47,4d") 430 CODE =HEX$("2c,1c,20,ea,63,69,78,fe,4,d0,21,ff,ff,c9") 440 CODE DATA="" 450 ! 460 RANDOMIZE 470 STRING *10H$(7) 480 DIM MOVES(230),TRIES(20) 490 LET MOVES(0)=119 500 FOR X=1TO6 510 READ H$(X) 520 NEXT 530 ! itt van a magyarítás ! 540 DATA SZINT,KÖVETKEZŐ,LÉPJ NEKEM,VISSZA,ELŐRE,JÁTÉKOS 550 LET GLEN=0:LET LEV=1 560 TEXT :SET BORDER200 570 SET KEYRATE8 580 SET STATUSOFF 590 SET VIDEOY24 600 SET VIDEOMODE1 610 SET VIDEOCOLOUR1 620 OPEN #101:"video:" 630 DISPLAY #101 640 LET F=40 650 LET S=52:LET K=256 660 LET P,PLAY=1 670 LET L=F+14*S 680 FOR X=1TO16 690 SET FKEYX"Z" 700 NEXT 710 RESTORE :!Új játék indítása 720 LET SIDE,LINES=2 730 LET MOVEN,BACK,GOVER,REP=0 740 LET W,WL,WH=0:LET VISZ=0 750 LET BRD=(DATABOR255)+1 760 CALL USR(INIT,BRD) 770 SET PALETTE200,99,0,RED 780 SET PAPERBACK:CLEAR GRAPHICS 790 SET INKLINES 800 FOR P=FTOLSTEPS 810 PLOT F,P;L,P, 820 PLOT P,F;P,L, 830 NEXT 840 PRINT #101,AT1,3:"***** A M Ő B A *****" ! főcím 850 SET INK1 860 FOR X=1TO6 ! itt írja ki a vezérlő szavakat 870 PRINT #101,AT3*X+3,27:H$(X) 880 NEXT 890 SET INK3 900 FOR X=1TO6 ! itt színezi az első betűt 910 PRINT #101,AT3*X+3,27:H$(X)(1:1) 920 NEXT 930 RANDOMIZE 940 LET FRA=RND(5) ! Te nyertél.. 950 LET FRB=RND(5) ! A gép nyert.. 960 IF FRA=0THENLET FRA$="DOPPING VIZSGÁLAT KÖVETKEZIK !" 970 IF FRB=0THENLET FRB$="A GÉP IS EMBER !" 980 IF FRA=1THENLET FRA$="PROFIK NEM JÁTSZHATNAK !" 990 IF FRB=1THENLET FRB$="A PROFIK IS TÉVEDHETNEK !" 1000 IF FRA=2THENLET FRA$="VAK TYÚK IS TALÁL SZEMET !" 1010 IF FRB=2THENLET FRB$="NÉHA A GÉP IS GYőZHET !" 1020 IF FRA=3THENLET FRA$="VISSZAVÁGÓT KELL ADNOD !" 1030 IF FRB=3THENLET FRB$="EZT TALÁN NEM ÍGY GONDOLTAD ?!" 1040 IF FRA=4THENLET FRA$="EZ CSAK VÉLETLEN LEHETETT !" 1050 IF FRB=4THENLET FRB$="EZ NEM VOLT VÉLETLEN !" 1060 DO 1070 CALL DISP 1080 LET CCCC=CURSE 1090 SELECT CASECCCC ! CURSE 1100 CASE 0TO239 1110 CALL PLONK(P) 1120 LET REP=(PLAY=1) 1130 CASE -1 1140 LET LEV=MOD(LEV+1,6) 1150 CASE -2 1160 GOTO 710 1170 CASE -(3BAND(GOVER=0)) 1180 CALL USR(EVAL,BRD) 1190 LET MAG=BRD+256*SIDE 1200 LET MDE=BRD+256*(3-SIDE) 1210 LET AD=USR(BEST,MDE) 1220 LET AA=USR(BEST,MAG) 1230 LET SD=PEEK(AD):LET MD=MOD(AD,K) 1240 LET SA=PEEK(AA):LET MA=MOD(AA,K) 1250 IF MOVEN=0THEN 1260 LET MD=116+RND(7-LEV)+INT(LEV/2) 1270 ELSE IF SA=255THEN 1280 LET MD=MA 1290 ELSE IF LEV=0THEN 1300 IF SA*1.4+RND(3)>SDTHENLET MD=MA 1310 ELSE IF SD<129THEN 1320 FOR TRY=0TOLEV 1330 LET M=USR(SEL,BRD+SIDE) 1340 IF M=-1THENEXIT FOR 1350 POKE MDE+M,0 1360 POKE MAG+M,0 1370 LET TRIES(TRY)=M 1380 NEXT 1390 LET M=TRY 1400 LET BS=1 1410 IF SA>SDTHENLET MD=MA 1420 FOR TRY=0TOM-1 1430 POKE BRD+TRIES(TRY),SIDE 1440 CALL USR(EVAL,BRD) 1450 POKE BRD+TRIES(TRY),0 1460 LET AD1=USR(BEST,MAG) 1470 LET AS1=PEEK(AD1) 1480 POKE AD1,0 1490 LET AS2=PEEK(USR(BEST,MAG)) 1500 POKE AD1,AS1 1510 IF AS2=255THEN 1520 LET MD=TRIES(TRY) 1530 EXIT FOR 1540 END IF 1550 LET DD1=USR(BEST,MDE) 1560 LET DS1=PEEK(DD1) 1570 LET AS2=AS2*.6-DS1 1580 POKE DD1,0 1590 LET DD2=USR(BEST,MDE) 1600 LET DS2=PEEK(DD2) 1610 LET DS2=DS2*1.4+PEEK(MAG+DD2-MDE)/9 1620 LET AS1=AS1/9-MAX(DS2,DS1) 1630 LET AS2=AS2+AS1/2+RND(7-LEV)/2+700 1640 IF AS2>BSTHEN 1650 LET BS=AS2 1660 LET MD=TRIES(TRY) 1670 END IF 1680 NEXT 1690 END IF 1700 CALL PLONK(MD) 1710 LET REP=0 1720 CASE -(4BAND(MOVEN>0)) 1730 CALL UNPLONK 1740 CASE -(5BAND(GLEN>MOVEN)) 1750 CALL PLONK(MOVES(MOVEN)) 1760 CASE -6 1770 LET PLAY=3-PLAY 1780 CASE ELSE 1790 LET REP=0 1800 END SELECT 1810 LOOP 1820 END WHEN 1830 ! 1840 DEF PLONK(P) 1850 NUMERIC X,Y 1860 LET X=PBAND15:LET Y=(P-X)/16 1870 SET LINEMODE0 1880 SET INKSIDE 1890 PLOT F+S*X,F+S*Y, 1900 POKE BRD+P,SIDE 1910 LET W=USR(EVAL,BRD):LET WH=INT(W/K) 1920 IF WHTHEN 1930 LET GOVER=SIDE 1940 LET WL=MOD(W,K) 1950 ELSE IF WTHEN 1960 LET GOVER=3 1970 END IF 1980 LET MOVEN=MOVEN+1 1990 IF GLEN<MOVENORMOVES(MOVEN-1)<>PTHENLET GLEN=MOVEN 2000 LET MOVES(MOVEN-1)=P 2010 SET INKSIDE 2020 FOR J=1TO3 2030 SOUND PITCH60,STYLE48,DURATION1 2040 FOR T=16TO4STEP-4 2050 PLOT ELLIPSET,T, 2060 NEXT 2070 SET INK0 2080 FOR T=4TO16STEP4 2090 PLOT ELLIPSET,T, 2100 NEXT 2110 SET INKSIDE 2120 FOR T=16TO4STEP-4 2130 PLOT ELLIPSET,T, 2140 NEXT 2150 NEXT 2160 SET INK0 2170 PRINT #101,AT2,11:"■■■■■■" 2180 SET INKSIDE 2190 PRINT #101,AT2,12:MOVEN 2200 IF MOVEN=60THENLET GOVER=3 ! ennyi elég egy játékból, legyen döntetlen... 2210 LET SIDE=3-SIDE 2220 END DEF 2230 DEF UNPLONK 2240 LET MOVEN=MOVEN-1 2250 LET P=MOVES(MOVEN) 2260 NUMERIC X,Y 2270 LET X=PBAND15:LET Y=(P-X)/16 2280 SET LINEMODE0 2290 SET INKBACK 2300 PLOT F+S*X,F+S*Y, 2310 POKE BRD+P,0 2320 FOR T=4TO16STEP4 2330 PLOT ELLIPSET,T, 2340 NEXT 2350 SET INKLINES 2360 PLOT F+S*MAX(X-.5,0),F+S*Y;F+S*MIN(X+.5,14),F+S*Y, 2370 PLOT F+S*X,F+S*MAX(Y-.5,0);F+S*X,F+S*MIN(Y+.5,14), 2380 SET INK0 2390 PRINT #101,AT2,11:"■■■■■■■■" 2400 SET INKSIDE 2410 PRINT #101,AT2,12:MOVEN 2420 LET GOVER=0 2430 LET VISZ=1 2440 END DEF 2450 DEF CURSE 2460 NUMERIC X,Y 2470 SET LINEMODE3 2480 LET X=7:LET Y=0 2490 LET CURSE=-3 2500 IF REPTHENEXIT DEF 2510 DO 2520 GET A$ 2530 DO UNTILA$>"" 2540 PLOT F+S*(X-.3),F+S*(Y+.3), 2550 SET INK3 2560 PRINT #101:""; 2570 GET A$ 2580 PLOT F+S*(X-.3),F+S*(Y+.3), 2590 PRINT #101:""; 2600 IF VISZ=1THENLET FRA$="EZT CIGÁNYKODVA NYERTED !" 2610 IF GOVER=2ANDPLAY=1THENSET INKSIDE:PRINT #101,AT24,5:FRA$ 2620 IF GOVER=1ANDPLAY=1THENSET INKSIDE:PRINT #101,AT24,5:FRB$ 2630 IF A$=""THENGET A$ 2640 LOOP 2650 SELECT CASEORD(UCASE$(A$)) 2660 CASE 176 ! fel 2670 LET Y=MOD(Y+1,15) 2680 CASE 180 ! le 2690 LET Y=MOD(Y-1,15) 2700 CASE 184 ! balra 2710 LET X=MOD(X-1,15) 2720 CASE 188 ! jobbra 2730 LET X=MOD(X+1,15) 2740 CASE 90 ! Z 2750 LET P=MOVES(MAX(0,MOVEN-1)) 2760 LET X=MOD(P,16):LET Y=INT(P/16) 2770 CASE 32,13 ! szóköz,ENTER 2780 LET CURSE,P=Y*16+X 2790 IF PEEK(BRD+P)ORGOVERTHEN 2800 PING 2810 ELSE 2820 EXIT DEF 2830 END IF 2840 CASE ELSE 2850 ! Ezek a betűk: s,k,l,v,e,j - adják a vezérlést 2860 LET P,CURSE=-POS("SKLVEJ",UCASE$(A$)) 2870 IF PTHEN 2880 EXIT DEF 2890 ELSE 2900 PING 2910 END IF 2920 END SELECT 2930 LOOP 2940 END DEF 2950 DEF DISP 2960 SET LINEMODE0 2970 SET INKBACK 2980 LET T$=CHR$(159) 2990 PRINT #101,AT6,35:T$ 3000 PRINT #101,AT21,35:T$ 3010 LET T$=T$&T$ 3020 LET T$=T$&T$&T$&T$&T$ 3030 PRINT #101,AT3,29:T$ 3040 SELECT CASEGOVER 3050 CASE 0 3060 SET INKSIDE 3070 LET T$="TE LÉPJ !" 3080 CASE 2 3090 SET PALETTE0,200,99,RED 3100 LET T$="NYERT ! " 3110 SET INKGOVER 3120 SET PALETTE200,99,0,RED 3130 SET LINEMODE3 3140 FOR X=1TO4 3150 PLOT F+S*MOD(WL,16),F+S*INT(WL/16); 3160 LET P=WL+4*WH 3170 PLOT F+S*MOD(P,16),F+S*INT(P/16), 3180 NEXT 3190 CALL KETSZER 3200 SET LINEMODE0 3210 CASE 1 3220 SET PALETTE0,200,99,RED 3230 LET T$="NYERT ! " 3240 SET INKGOVER 3250 SET PALETTE200,99,0,RED 3260 SET LINEMODE3 3270 FOR X=1TO4 3280 PLOT F+S*MOD(WL,16),F+S*INT(WL/16); 3290 LET P=WL+4*WH 3300 PLOT F+S*MOD(P,16),F+S*INT(P/16), 3310 NEXT 3320 CALL BANATOS 3330 SET LINEMODE0 3340 CASE 3 3350 LET T$="DÖNTETLEN !" 3360 SET INK3 3370 SOUND PITCH25,DURATION5 3380 SOUND PITCH29,DURATION20 3390 SOUND PITCH32,DURATION10 3400 SOUND PITCH37,DURATION50 3410 SOUND PITCH41,DURATION20 3420 SOUND PITCH37,DURATION40 3430 SOUND PITCH32,DURATION60 3440 SOUND PITCH37,DURATION80 3450 END SELECT 3460 PRINT #101,AT3,29:T$ 3470 PLOT L+75,L,ELLIPSE16,16,PAINT, 3480 SET INK2 3490 PRINT #101,AT6,34:LEV 3500 PRINT #101,AT21,34:PLAY 3510 END DEF 3520 HANDLER PROGRAM_STOP 3530 IF EXTYPE=9229THEN 3540 ASK INTERRUPTCODEINT_VAL 3550 ELSE 3560 LET INT_VAL=0 3570 END IF 3580 CLEAR FKEYS 3590 SET KEYRATE3 3600 SET STATUSON:SET BORDER0 3610 TEXT 3620 END HANDLER 3630 DEF BANATOS 3640 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,14;0,-40,-40,20 3650 RESTORE 3710 3660 DO 3670 READ M,H 3680 IF M=-1THENEXIT DO 3690 SOUND ENVELOPE1,PITCHM,DURATIONH 3700 LOOP 3710 DATA 41,30,37,20,36,20,34,30,34,20,36,20,37,20,39,30,36,20,37,20,39,40 3720 DATA 43,30,39,20,38,20,36,30,36,20,38,20,39,20,41,30,38,20,39,20,41,60 3730 DATA 39,20,41,20,42,20,41,20,42,20,41,20,39,30,41,20,39,20,32,20,37,40 3740 DATA 36,20,34,20,37,20,37,20,37,20,39,20,37,20,39,20,37,60 3750 DATA -1,-1 3760 END DEF 3770 DEF KETSZER 3780 ENVELOPE NUMBER1;0,63,63,2;0,-10,-10,4;0,-40,-40,20 3790 RESTORE 3860 3800 DO 3810 READ M,H 3820 IF M=-1THENEXIT DO 3830 SOUND ENVELOPE1,PITCHM,DURATIONH,SOURCE0 3840 SOUND ENVELOPE1,PITCHM+12,DURATIONH,SOURCE2 3850 LOOP 3860 DATA 37,10,37,10,32,10,32,10,34,10,37,10,32,20 3870 DATA 37,10,37,10,32,10,32,10,37,10,37,10,37,40 3880 DATA -1,-1 3890 END DEF 3900 DEF KEP 3910 GRAPHICS 3920 SET CHARACTER81,48,97,195,195,193,192,193,99,48 !Q jel nagy ku 3930 SET CHARACTER113,0,255,24,24,255,255,153,24,0 !q jel kis ku 3940 SET CHARACTER119,12,134,195,195,131,3,131,198,12 !w jel kis dupla v 3950 SET CHARACTER130,0,24,126,60,126,24 !╝ kurzorkis dupla v 3960 PING 3970 CALL RAJZ 3980 CALL CK.TUN 3990 CLEAR #101 4000 TEXT 4010 DEF VONALMOD(C) 4020 DO 4030 READ A$,X,Y 4040 IF A$="i"THENSET #C:INKX 4050 IF A$="m"THENSET #C:BEAMOFF:PLOT #C:X,Y; 4060 IF A$="mo"THENSET #C:BEAMOFF:PLOT #C:X,Y, 4070 IF A$="d"THENPLOT #C:X,Y; 4080 IF A$="p"THENSET #C:BEAMOFF:PLOT #C:X,Y,PAINT, 4090 IF A$="c"THENPLOT #C:ELLIPSEX,Y, 4100 IF A$="g"THENSET #C:PAPERX:CLEAR GRAPHICS 4110 IF A$="b"THENSET BORDERX 4120 IF A$="bias"THENSET BIASX 4130 LOOP UNTILA$="end" 4140 END DEF 4150 DEF RAJZ 4160 CALL GRAFIKA(16) 4170 SET PALETTE32,54,78,200,4,0,6,7 4180 RESTORE 4340 4190 CALL VONALMOD(101) 4200 SET INK4 4210 PLOT 320,440, 4220 PRINT #101:"MuMuS*SOFT" 4230 SET INK5 4240 PLOT 544,360, 4250 PRINT #101:"Qqw" 4260 PLOT 510,240, 4270 SET INK4 4280 PRINT #101:"1995" 4290 PLOT 225,648, 4300 SET INK1 4310 PRINT #101:"A M Ő B A" 4320 PLOT 225,80, 4330 SET INK1 4340 PRINT #101:"Ö T Ö D Ö L Ő" 4350 END DEF 4360 REM rajz adatok 4370 DATA i,1,0,mo,640,360,c,400,200 4380 DATA i,2,0,p,640,360 4390 DATA i,2,0,mo,640,719,c,350,140 4400 DATA i,2,0,mo,640,0,c,350,140 4410 DATA mo,1279,719,c,990,940 4420 DATA mo,1279,0,c,990,940 4430 DATA mo,0,719,c,990,940 4440 DATA mo,0,0,c,990,940 4450 DATA i,3,0,p,340,620,p,640,660,p,940,620 4460 DATA i,6,0,p,340,100,p,640,100,p,940,100 4470 DATA mo,0,0 4480 DATA end,0,0 4490 DEF GRAFIKA(N) 4500 CLOSE #101 4510 IF N=16THENSET VIDEOCOLOUR2 4520 OPEN #101:"video:" 4530 DISPLAY #101:FROM1TO20AT1 4540 END DEF 4550 END DEF 4560 ENVELOPE NUMBER1;0,43,43,1;0,-20,-20,10;0,-23,-23,50 4570 DEF CK.TUN 4580 ENVELOPE NUMBER1;0,63,63,1;0,-10,-10,2;0,-40,-40,20 4590 RESTORE 4660 4600 DO 4610 READ M,MA,H 4620 IF M=-1THENEXIT DO 4630 SOUND ENVELOPE1,PITCHM,DURATIONH,LEFT200,RIGHT200,SOURCE0 4640 SOUND ENVELOPE1,PITCHMA,DURATIONH,LEFT128,RIGHT128,SOURCE1 4650 LOOP 4660 DATA 56,37,10,56,44,10,56,41,10,58,44,10,56,37,10,53,44,10,49,41,10 4670 DATA 51,44,10,53,37,10,53,44,10,51,37,10,49,44,10,51,129,10,51,32,10,51,32,20 4680 DATA 56,37,10,56,44,10,56,41,10,58,44,10,56,37,10,53,44,10,49,41,10 4690 DATA 51,44,10,53,39,10,53,39,10,51,32,10,51,32,10,49,37,10,49,37,10,49,39,20 4700 DATA 49,41,10,54,42,10,54,37,10,54,42,10,54,37,10,58,42,10,58,42,10 4710 DATA 58,41,10,58,39,10,56,37,10,56,44,10,53,41,10,49,44,10,51,32,10,51,32,10,51,32,20 4720 DATA 56,37,10,56,44,10,56,41,10,58,44,10,56,37,10,53,44,10,49,41,10 4730 DATA 51,44,10,53,39,10,53,39,10,51,32,10,51,32,10,49,37,10,49,37,10,49,37,30 4740 DATA -1,-1,-1 4750 END DEF 4760 DEF SZABALY 4770 TEXT 4780 PRINT AT10,1:"ISMERED AZ AMŐBA-JÁTÉK SZABÁLYAIT i/n ?" 4790 LET V$=INKEY$ 4800 IF V$="i"THENGOTO 5030 4810 IF V$<>"n"THENGOTO 4790 4820 IF V$="n"THENGOTO 4830 4830 TEXT 4840 PRINT " ÖTÖT EGYMÁS UTÁN " 4850 PRINT " (AMŐBA)" 4860 PRINT :PRINT 4870 PRINT "AZ AMŐBA EGY LOGIKAI TÁBLÁS JÁTÉK. KETTEN JÁTSZHATJÁK,FEHÉR ÉS FEKETE KORONGOKKAL. FELVÁLTVA HELYEZNEK FIGURÁT A TÁBLA RÁCSPONTJAIRA. A FELADAT ÖT SAJÁT FIGURA ELHELYEZÉSE EGY SORBAN, OSZLOPBAN, VAGY ÁTLÓBAN EGYMÁS MELLETT." 4880 PRINT "A BOTKORMÁNY SEGÍTSÉGÉVEL EGY CSILLAGOT MOZGATHATUNK, HA A CSILLAG AZON A HELYEN ÁLL, AHOVÁ FIGURÁNKAT HELYEZNI AKARJUK, AKKOR A SZÓKÖZT VAGY AZ ENTER-T KELL LENYOMNI." 4890 PRINT 4900 PRINT "HA FOLYTATHATJUK A SZABÁLYISMERTETÉST, NYOMJ LE EGY BILLENTYŰT." 4910 CALL ZENE 4920 CLEAR SCREEN 4930 PRINT :PRINT 4940 PRINT "AZ AMŐBA JÁTÉK A GÉPPEL IS JÁTSZHATÓ. ILYENKOR VAN AZ ALAPÁLLÁS : JÁTÉKOS 1. A SZINT UGYANCSAK 1. HA EMELNI AKARJUK A SZINTET AZ `S` BILLENTYŰT NYOMJUK MEG. HA HIBÁZTUNK A `V`BILLENTYŰVEL VISSZA LÉPHETÜNK." 4950 PRINT "AZ `E` BILLENTYŰVEL PEDIG ÚJBÓL ELŐRE LÉPÜNK. A `K` BILLENTYŰ LENYOMÁSÁVAL ÚJ JÁTÉKOT KÉRHETÜNK." 4960 PRINT "AZ `L` BILLENTYŰVEL PEDIG A GÉPET KÉRHETJÜK MEG, HOGY LÉPJEN HELYETTÜNK." 4970 PRINT "A GÉP KIÍRJA A LÉPÉSSZÁMOT ÉS HOGY KINEK KELL LÉPNIE." 4980 PRINT 4990 PRINT "HA KEZDHETJÜK A JÁTÉKOT, NYOMJ LE EGY BILLENTYŰT." 5000 PRINT :PRINT 5010 PRINT " JÓ JÁTÉKOT !" 5020 CALL ZENE 5030 CLEAR SCREEN 5040 PING 5050 END DEF 5060 DEF ZENE 5070 !REMEMOR.TUN 5080 ENVELOPE NUMBER1;0,63,63,5;0,-10,-10,10;0,-40,-40,20 5090 DO UNTILINKEY$<>"" 5100 READ P,H 5110 IF P=1THEN 5120 SOUND ,DURATION40,LEFT0,RIGHT0 5130 SOUND ,DURATION40,LEFT0,RIGHT0,SOURCE1 5140 RESTORE 5210 5150 GOTO 5100 5160 END IF 5170 SOUND PITCHP,DURATIONH,ENVELOPE1 5180 SOUND PITCHP-12,DURATIONH,ENVELOPE1,SOURCE1,LEFT100,RIGHT100 5190 LOOP 5200 CLEAR SOUND 5210 DATA 37,10,41,10,44,10,47,10 5220 DATA 45,20,44,20,37,10,41,10 5230 DATA 44,10,47,10,45,20,44,40 5240 DATA 37,10,41,10,44,10,47,10 5250 DATA 45,20,44,20,42,40 5260 DATA 37,10,41,10,44,10,47,10 5270 DATA 45,20,44,20,37,10,41,10 5280 DATA 44,10,47,10,45,20,44,40 5290 DATA 49,10,47,10,45,10,47,10 5300 DATA 45,20,44,20,42,40 5310 DATA 49,10,47,10,45,10,49,10 5320 DATA 47,20,45,20,47,10,45,10 5330 DATA 47,10,49,40 5340 DATA 49,10,47,10,45,10,47,10 5350 DATA 45,20,44,20,42,40 5360 DATA 37,10,41,10,44,10,47,10 5370 DATA 45,20,44,20,37,10,41,10 5380 DATA 44,10,47,10,45,20,44,40 5390 DATA 37,10,41,10,44,10,47,20 5400 DATA 45,10,44,10,42,40 5410 DATA 37,10,41,10,44,10,47,10 5420 DATA 45,20,44,20,37,10,41,10 5430 DATA 44,10,45,10,42,40 5440 DATA 37,10,41,10,44,10,47,10 5450 DATA 45,20,44,20,49,10,47,10 5460 DATA 45,10,44,10,42,40 5470 DATA 49,10,49,10,49,10,47,10 5480 DATA 45,20,44,20,47,10,45,10 5490 DATA 44,10,41,10,37,40 5500 DATA 37,10,41,10,44,10,47,10 5510 DATA 45,20,44,20,37,10,41,10 5520 DATA 44,10,45,10,42,40 5530 DATA 37,10,41,10,44,10,47,10 5540 DATA 45,20,44,20,37,10,41,10 5550 DATA 44,15,45,15,42,40 5560 DATA 1,1 5570 END DEF
EXOS header pos/serial: #1 at 0x3b5a 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)