100 PROGRAM "4esjatek"
  110 SET STATUSOFF
  120 TEXT 
  130 CALL ATKODOLAS
  140 INPUT AT5,1,PROMPT"Ki j#tszik velem ? ":NEV$
  150 LET NEV$=NEV$(1:8)
  160 PRINT AT10,1:"Billenty©vel vagy Joyyal?"
  170 DO 
  180   GET WA$
  190 LOOP UNTILUCASE$(WA$)="B"ORUCASE$(WA$)="J"
  200 TEXT 
  210 NUMERIC A(15,15),Q(5),W(5),B(2),V(5)
  220 FOR I=0TO5
  230   LET Q(I),W(I),V(I)=0
  240 NEXT 
  250 LET B(1),B(2),D=0:LET K,F=3
  260 LET Q(1),W(2)=-1:LET Q(3),W(4),V(2)=1:LET V(1)=3:LET V(3)=0:LET V(4)=2
  270 FOR I=0TO15
  280   FOR J=0TO15
  290     LET A(I,J)=0
  300   NEXT 
  310 NEXT 
  320 SET VIDEOMODE15
  330 SET VIDEOCOLOR0
  340 SET VIDEOX42
  350 SET VIDEOY27
  360 OPEN #1:"video:"
  370 SET #1:PALETTE0,241,199,203,110,146,73
  380 LET J=-1
  390 DISPLAY #1:AT1FROM1TO23
  400 SET #1:INK1
  410 PRINT #1:"  A B C D E F G H I J K L M N O"
  420 PRINT #1:" äøéøéøéøéøéøéøéøéøéøéøéøéøéøéøü"
  430 FOR I=2TO19STEP2
  440   LET J=J+1
  450   PRINT #1:STR$(J)"Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä"STR$(J)
  460   PRINT #1:" àøÖøÖøÖøÖøÖøÖøÖøÖøÖøÖøÖøÖøÖøÖøÆ"
  470 NEXT 
  480 PRINT #1:"9Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä9"
  490 PRINT #1:" ☀øØøØøØøØøØøØøØøØøØøØøØøØøØøØøπ"
  500 PRINT #1:"  A B C D E F G H I J K L M N O"
  510 LET T=0
  520 SET #1:INK3
  530 FOR I=9-LEN(NEV$)TO9
  540   LET T=T+1
  550   PRINT #1,ATI,36:NEV$(T)
  560 NEXT 
  570 LET T=0
  580 FOR I=15TO18
  590   LET T=T+1
  600   PRINT #1,ATI,36:"Tomi"(T)
  610 NEXT 
  620 SET #1:INK4
  630 PRINT #1,AT10,35:0
  640 PRINT #1,AT20,35:0
  650 SET #1:INK2
  660 FOR I=1TO10
  670   FOR G=1TO15
  680     PRINT #1,AT2*I+1,G*2+1:STR$(A(I,G))
  690   NEXT 
  700 NEXT 
  710 IF WA$="b"THEN
  720   INPUT AT24,2,PROMPT"Mi a lÅpÅsed (bet©,sz#m) ":X$
  730   LET X=ORD(X$(2))-47:LET Y=ORD(X$(1))-96:LET P=1
  740   IF X<0ORX>10ORY<0ORY>15THENGOTO  720
  750 ELSE 
  760   SET #1:INK1
  770   DO 
  780     DO 
  790       LET JY=JOY(0)
  800       CALL VILL(K,F)
  810     LOOP WHILEJY=0
  820     IF JYBAND1THENLET F=F+2
  830     IF JYBAND2THENLET F=F-2
  840     IF JYBAND4THENLET K=K+2
  850     IF JYBAND8THENLET K=K-2
  860     IF K>21THENLET K=21
  870     IF K<3THENLET K=3
  880     IF F>31THENLET F=31
  890     IF F<3THENLET F=3
  900     IF JY=16THENEXIT DO
  910   LOOP 
  920   LET X=(K-1)/2:LET Y=(F-1)/2
  930 END IF 
  940 LET P=1
  950 IF A(X,Y)=4THENGOTO  710
  960 GOSUB  1090
  970 LET P=2:LET E=0
  980 LET E=E+1
  990 FOR I=1TO10
 1000   FOR H=1TO15
 1010     IF A(I,H)=V(E)THENLET X=I:LET Y=H:LET I=10:LET H=15:LET E=0
 1020   NEXT 
 1030 NEXT 
 1040 IF E<>0THENGOTO  980
 1050 PRINT AT24,1:"     Az Ån lÅpÅsem: "CHR$(Y+96);CHR$(X+47)"         ";
 1060 LET P=2
 1070 GOSUB  1090
 1080 GOTO  710
 1090 FOR I=0TO4
 1100   IF X+Q(I)=0ORY+W(I)=0ORQ(I)+X=11ORW(I)+Y=16THEN 1310
 1110   LET C=A(X+Q(I),Y+W(I))
 1120   IF C=4THEN 1310
 1130   LET S=0
 1140   IF C=3THENLET D=D+1:LET S=1
 1150   LET B(P)=B(P)+S:LET A(X+Q(I),Y+W(I))=C+1
 1160   SELECT C+1
 1170   CASE 1
 1180     SET #1:INK3
 1190     SOUND PITCH30,DURATION5
 1200   CASE 2
 1210     SET #1:INK4
 1220     SOUND PITCH40,DURATION5
 1230   CASE 3
 1240     SET #1:INK5
 1250     SOUND PITCH50,DURATION5
 1260   CASE 4
 1270     SET #1:INK6
 1280     SOUND PITCH60,DURATION5
 1290   END SELECT 
 1300   PRINT #1,AT(X+Q(I))*2+1,(Y+W(I))*2+1:STR$(C+1)
 1310 NEXT 
 1320 SET #1:INK4
 1330 PRINT #1,ATP*10,35:B(P)
 1340 IF WA$="b"ORP=2THEN
 1350   SET #1:INK1
 1360   FOR I=1TO7
 1370     CALL VILL(2*X+1,2*Y+1)
 1380   NEXT 
 1390 END IF 
 1400 IF D=150THEN 1420
 1410 RETURN 
 1420 IF B(2)>B(1)THEN
 1430   PRINT AT24,1:"        En gyöztem!       ";
 1440 ELSE IF B(1)>B(2)THEN
 1450   PRINT AT24,1:"        Te gyöztel!        ";
 1460 ELSE 
 1470   PRINT AT24,1:"        Döntetlen!         ";
 1480 END IF 
 1490 FOR I=255TO0STEP-1
 1500   SET #1:COLOR1,I
 1510 NEXT 
 1520 DO 
 1530 LOOP 
 1540 DEF VILL(T,Z)
 1550   PRINT #1,ATT-1,Z:"Σ"
 1560   PRINT #1,ATT+1,Z:"æ"
 1570   PRINT #1,ATT,Z-1:"ö"TAB(Z+1)"è"
 1580   PRINT #1,ATT-1,Z:"ø"
 1590   PRINT #1,ATT+1,Z:"ø"
 1600   PRINT #1,ATT,Z-1:"Ä"TAB(Z+1)"Ä"
 1610 END DEF 
 1620 DEF ATKODOLAS
 1630   SET CHARACTER153,12,24,60,102,126,102,102,0,0 ! §
 1640   SET CHARACTER129,12,24,60,6,62,102,62,0,0 ! #
 1650   SET CHARACTER143,12,24,60,102,102,102,60,0,0 ! ƒ
 1660   SET CHARACTER137,12,24,0,56,24,24,60,0,0 ! Ç
 1670   SET CHARACTER132,12,24,126,96,124,96,126,0,0 ! Ü
 1680   SET CHARACTER133,12,24,60,102,126,96,60,0,0 ! Å
 1690   SET CHARACTER128,51,102,0,102,102,102,60,0,0 ! ©
 1700   SET CHARACTER149,12,24,102,102,102,102,60,0,0 ! å
 1710   SET CHARACTER96,51,102,60,102,102,102,60,0,0 ! ´
 1720   SET CHARACTER39,51,102,0,60,102,102,60,0,0 ! '
 1730   SET CHARACTER150,0,0,0,255,255,255,0,0,0 ! øV
 1740   SET CHARACTER130,24,24,24,24,24,24,24,24,24 ! ÄB
 1750   SET CHARACTER145,0,0,0,255,255,255,0,255,0 ! ΣQ
 1760   SET CHARACTER151,0,255,0,255,255,255,0,0,0 ! æW
 1770   SET CHARACTER147,25,25,25,25,25,25,25,25,25 ! öS
 1780   SET CHARACTER152,152,152,152,152,152,152,152,152,152 ! èX
 1790   SET CHARACTER131,24,24,24,231,255,231,24,24,24 ! ÖC
 1800   SET CHARACTER146,0,0,0,7,15,7,24,24,24 ! äR 
 1810   SET CHARACTER148,0,0,0,224,240,224,24,24,24 ! üT 
 1820   SET CHARACTER154,24,24,24,7,15,7,0,0,0 ! ☀Z 
 1830   SET CHARACTER144,24,24,24,224,240,224,0,0,0 ! πP 
 1840   SET CHARACTER136,0,0,0,231,255,231,24,24,24 ! éH
 1850   SET CHARACTER135,24,24,24,224,240,224,24,24,24 ! ÆG
 1860   SET CHARACTER138,24,24,24,7,15,7,24,24,24 ! àJ
 1870   SET CHARACTER134,24,24,24,231,255,231,0,0,0 ! ØF
 1880 END DEF