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)