Screenshot 1
1000 22d0 0000 b ... OTHELLO var
basiert auf [a17f8e1f56553b8caa8e3b1648927eee]
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    1 B=H.(EC00)
   10 REM OTHELLO
   22 OUT(1)=207;OUT(1)=0
   30 A=H.(ECA6)
   40 G.5000
  100 G.4000
 1000 REM DREHVARIANTE SUCHEN
 1010 D=A;U=0;W=0
 1030 F.Y=0TO(@(150)-1)*64STEP64
 1040 F.X=DTOD+(@(151)-1)*2STEP2
 1050 B=X+Y;V=PEEK(B);U=U+1
 1060 IFV#46G.1090
 1070 C=@(U)*10;S=1
 1080 GOS.1380
 1090 N.X
 1130 OUTC.12;P.
 1135 F.I=1TORND(5);P.;N.I
 1140 P."  ICH  DENKE   (",
 1142 P.#1,Y/64+1,")"
 1160 N.Y
 1170 OUTC.12
 1180 Q=0;IFW=0Q=1;RETURN
 1190 X=N-(A-1)
 1200 Y=M/80+2
 1210 RETURN
 1220 REM AUSWERTUNG
 1225 OUTC.12
 1230 OUTC.12;P.;P."AUSWERTUNG"
 1235 OUT(0)=1;OUT(0)=0
 1240 M=0;N=0
 1250 F.I=0TO(@(151)-1)*2STEP2
 1260 F.J=0TO(@(150)-1)*64STEP64
 1270 IFPEEK(J+I+A)=42M=M+1
 1280 IFPEEK(J+I+A)=48N=N+1
 1290 N.J
 1300 N.I
 1310 P."* =",#2,M
 1320 P."0 =",#2,N;P.
 1322 IFM<NP."GRATULIERE !"
 1324 IFM=NP."REMIS !"
 1326 IFM>NP."ICH HABE GEWONNEN !"
 1330 P."                   >ENT<",;O=INC.
 1340 OUTC.12;P.;P.;P."NEUES SPIEL ? (J)/N :",
 1350 O=INC.
 1355 PO.H.(1B),0;PO.H.(1C),H.(EC);PO.H.(1D),0;PO.H.(1E),H.(F0)
 1360 CALLH.(F6D1)
 1375 IFO='N'OUTC.12;P.;P.
 1376 IFO='N'ST.
 1378 G.5000
 1380 REM
 1390 F=0;G=42;T=Z
 1400 IFZ=1G=48
 1410 F.K=1TO10
 1420 R=0
 1430 F.I=1TO10
 1440 H=B+@(100+K)*I
 1450 IFH<AG.1540
 1460 IFH>A+(@(151)-1)*2+(@(150)-1)*64G.1540
 1470 V=PEEK(H)
 1480 IFV=46G.1540
 1490 IFV=GR=1
 1500 IFV=48-Z*6R=(R+1)*R
 1510 IFR=2G.1580
 1520 IFR=0G.1540
 1530 N.I
 1540 N.K
 1550 IFS=1RETURN
 1560 Q=0;IFF=0Q=1
 1570 RETURN
 1580 REM DREHEN
 1590 F=1
 1600 IFS=1G.1670
 1610 IFT=0T=2;GOS.1730
 1620 F.L=1TO10
 1630 P=B+@(100+K)*L
 1640 IFPEEK(P)#GG.1540
 1650 POKEP,48-6*Z
 1660 N.L
 1670 REM BEWERTUNG
 1680 C=C+I
 1690 IFC<WG.1540
 1700 REM ANZ. VARIANTE
 1710 N=X;M=Y;W=C;C=0
 1720 G.1540
 1730 F.I=1TO10;F.E=1TO200;N.E;PO.B,46;F.E=1TO200;N.E;POKEB,48
 1735 N.I;RETURN
 4000 @(101)=64;@(102)=-64;@(103)=2;@(104)=-2
 4002 @(105)=66;@(106)=-66;@(107)=-62;@(108)=62
 4020 @(1)=9;@(2)=1;@(3)=8;@(4)=4;@(5)=4;@(6)=8;@(7)=1;@(8)=9
 4030 @(9)=1;@(10)=1;@(11)=2;@(12)=2;@(13)=2;@(14)=2;@(15)=1
 4032 @(16)=1
 4040 @(17)=8;@(18)=2;@(19)=7;@(20)=6;@(21)=6;@(22)=7;@(23)=2
 4042 @(24)=8
 4050 @(25)=4;@(26)=2;@(27)=6;@(28)=0;@(29)=0;@(30)=6;@(31)=2
 4052 @(32)=4
 4060 F.I=1TO32
 4065 @(65-I)=@(I)
 4070 N.I
 4075 G.4110
 4080 F.I=1TO8
 4085 F.W=1TO8
 4087 P.#3,@((I-1)*8+W),
 4088 N.W
 4089 P.
 4090 N.I
 4110 OUTC.12
 4111 G.4341
 4115 P.
 4120 P."    O T H E L L O"
 4130 P.
 4160 P."   1 2 3 4 5 6 7 8"
 4165 P.
 4170 P." 1 . . . . . . . . 1"
 4175 P.
 4180 P." 2 . . . . . . . . 2"
 4185 P.
 4190 P." 3 . . . . . . . . 3"
 4195 P.
 4210 P." 4 . . . * * . . . 4"
 4215 P.
 4220 P." 5 . . . 0 0 . . . 5   SIE"
 4225 P.
 4230 P." 6 . . . . . . . . 6   SPIELEN"
 4235 P.
 4240 P." 7 . . . . . . . . 7   MIT  0"
 4245 P.
 4250 P." 8 . . . . . . . . 8"
 4255 P.
 4260 P."   1 2 3 4 5 6 7 8"
 4270 PO.H.(1B),H.(C0);PO.H.(1C),H.(EE);PO.H.(1D),0
 4280 PO.H.(1E),H.(F0)
 4285 PO.H.(1B),H.(40);PO.H.(1C),H.(EF)
 4290 CALLH.(F6D1)
 4340 RETURN
 4341 REM
 4348 P.;P.;P.
 4350 INPUT"SCHWIERIGKEIT ? (1/2)"C
 4360 OUT(0)=1;OUT(0)=0
 4370 IFC=1F.I=1TO64;@(I)=1;N.I
 4380 OUTC.12;P.;P.;P.
 4390 P."MOECHTEN SIE BEGINNEN ? (J)/N :",
 4400 O=INC.;IFO='N'G.4420
 4405 OUT(0)=1;OUT(0)=0
 4410 G.4540
 4420 REM RECHNER AM ZUG
 4425 OUT(0)=1;OUT(0)=0
 4460 Z=1;GOS.1000;IFQ=1G.1230
 4470 B=N+M
 4475 OUT(0)=1;F.I=1TO100;N.I;OUT(0)=0
 4480 F.I=1TO10;PO.B,46;F.O=1TO200;N.O;PO.B,42;F.O=1TO200;N.O
 4485 N.I
 4490 S=0;GOS.1380
 4500 REM SPIELER AM ZUG
 4540 Z=0;S=0
 4560 OUTC.12
 4570 P.;P."KOENNEN SIE";P.
 4575 P."SETZEN ? (JA=ENT;NEIN=SPACE):",
 4590 O=INC.;IFO=32OUTC.O;F.I=0TO300;N.I;G.1230
 4592 OUT(0)=1;OUT(0)=0
 4595 OUT(0)=1;OUT(0)=0
 4600 OUTC.12
 4620 P.;P."IHR ZUG BITTE";P.
 4630 P."ZEILE :",
 4640 Y=INC.;Y=Y-24;OUTC.Y
 4650 Y=Y-48
 4655 OUT(0)=1;OUT(0)=0
 4660 IFY>=0IFY<@(150)G.4670
 4662 OUT(0)=1;F.I=1TO300;N.I;OUT(0)=0;G.4600
 4670 P.;P."SPALTE:",
 4680 X=INC.;X=X-24;OUTC.X
 4690 X=X-48
 4695 OUT(0)=1;OUT(0)=0
 4700 IFX>=0IFX<@(151)G.4710
 4705 G.4670
 4710 X=X+1;Y=Y+1;B=2*X+64*(Y-1)+A
 4715 B=B-2
 4720 C=PEEK(B)
 4730 IFC#46P.;P."BESETZT";F.I=1TO1000;N.I;G.4500
 4740 POKEB,48-6*Z
 4750 GOS.1380
 4760 IFQ=1P.;P."FEHLER";GOS.1730;GOS.1730;POKEB,46;G.4500
 4770 G.4420
 5000 REM SPIELFELDGROESSE
 5010 OUTC.12;P.;P.
 5020 P."FESTLEGUNG FORM UND GROESSE";P.
 5030 P."DES SPIELFELDS"
 5040 P.;P.;P.
 5050 P."RECHTECK...........1";P.
 5060 P."QUADRAT............2";P.
 5070 P.;INPUT"KENNZIFFER"A
 5080 OUTC.12;P.;P.
 5090 IFA=1G.5120
 5100 P."SEITENLAENGE ? (4/6/8/10)",;INP.""B
 5105 @(150)=B;@(151)=B
 5106 IFB>10G.5100
 5107 IFB<4G.5100
 5108 IFB/2#(B+1)/2G.5100
 5110 G.5200
 5120 INP."EINGABE HOEHE (4/6/8/10)"@(150)
 5122 IF@(150)>10G.5120
 5123 IF@(150)<4G.5120
 5124 IF@(150)/2#(@(150)+1)/2G.5120
 5130 P.;INP."EINGABE BREITE (4/6/8/10)"@(151)
 5135 IF@(151)>10G.5130
 5136 IF@(151)<4G.5130
 5137 IF@(151)/2#(@(151)+1)/2G.5130
 5200 OUTC.12;IF@(150)<9P.;P.
 5300 P."        O T H E L L O"
 5310 P.;P.
 5315 TAB(5)
 5320 F.I=1TO@(151)
 5325 P." ",
 5335 P.#1,I-1,
 5340 N.I
 5350 P.;P.
 5360 F.I=1TO@(150)
 5370 TAB(2)
 5380 P.#2,I-1,
 5385 P."  ",
 5390 F.J=1TO@(151)
 5392 OUTC.46;P." ",;N.J
 5395 P." ",
 5403 P.#1,I-1;P.
 5410 N.I
 5420 TAB(5)
 5430 F.I=1TO@(151);P." ",
 5440 P.#1,I-1,;N.I
 5500 B=H.(ECE6)
 5505 IF@(150)>=9B=B-64
 5506 A=B
 5510 U=(@(151)/2)*2+((@(150)/2)*2)*32
 5520 U=U+B
 5522 PO.U,42
 5525 PO.U-2,42
 5530 PO.U-64,48;PO.U-66,48
 5600 GOS.4270
 6000 G.4000