DAMEDAME N0:23624H\,70F:0:1:0:0:6:  bd=0  6000p ( 4000 2 9000(# < mo=0 F 5000   mo=0 "Zug eingeben ";b$ b$="0000"20,0;1;"Sie haben aufgegeben ";21,0;"Noch}al: Irgendeine Taste.":0: G21,0;"Ihr Zug-";b$(2);" nach ";b$(3);" " /z(1)=b$(1)*10 +b$(2) /z(2)=b$(3)*10 +b$(4) $f=12 . 9160#:.02{# =,35# 8x,y B}x=021,0;2;7;"Ungueltiger Zug";0;" ":.5,-10 :1020 Lz(f)=xb(f)=y:1120` V 10808 `f j/(a(b(1))ha(b(1))w)1220 ta(b(2))b1220 ~=a(b(1))=h(b(2)-b(1))<01220 x(b(1)-b(2))>7a((b(1)+b(2))/2)ca((b(1)+b(2))/2)k1220  mo=0 a(b(2))=a(b(1)) a(b(1))=b T(b(1)-b(2))>7mo=1:a((b(1)+b(2))/2)=b  5000  2000 ^21,0;2;7;"Ungueltiger Zug";0;" ":1010  f=2472H a(f)ca(f)k21004  d=14 a(f)kd>221004  ]((a(f+x(d))=h)(a(f+x(d))=w))(a(f+(2*x(d))))=bq=x(d):.5,0:2120H *d 4f > 2240 Ha(f+2*q)=a(f) Rcs=cs+1 \ a(f+q)=b fp=f+2*q:a(f)=b pm=0:d=14 za(p)kd>22200 7(a(p+x(d))=ha(p+x(d))=w)a(p+2*x(d))=bm=x(d) m=0d m=060<  2000  f=2472H a(f)ca(f)kf:2340$ a(f)=c2330 d=14 a(f+x(d))bd:f:2340$ o=12 9(a(f+x(d)+x(o))=w)(a(f+x(d)+x(o))=h)d:f:2340$ o o=34 &(a(f+x(d)+x(o))=w)d:f:2340$ o "a(f+x(d))=a(f):a(f)=b:60< d=12 a(f+x(d))bd:f:2340$ o=12 5a(f+x(d)+x(o))=ha(f+x(d)+x(o))=wd:f:2340$ o o=34 &(a(f+x(d)+x(o))=w)d:f:2340$ !o ""a(f+x(d))=a(f):a(f)=b:60< $ y=0 .`.07}\(,-2:f=24+(*491):y=y+1:y>400ls=1:5000 8a(f)ca(f)k2350. Bd=14 La(f)=cd>22350. V/a(f+x(d))=ba(f+x(d))=a(f):a(f)=b:60< `d j 2350.  f=2472H a(f)=hf>68Da(f)=w a(f)=cf<28a(f)=k f   62;1;"********************************" `2;1;"************";0;7;" DAME ";2;1;"**************" 62;1;"********************************" '"In dieser Version des Damen- spiels ist ein Stein, eine Dame."'"Ihre Steine sind rot(unten)meine blau(oben)."' D"Die Zuege werden in normaler al-gebraischer Notation eingegeben." "Sie geben also z.B.C3D4 ein,um einen Stein von Spalte C,Zeile 3 nach Spalte D,Zeile 4 zu schie-ben.Wollen Sie aufgeben,so geben Sie 0000 ein." "Bitte CAPSLOCK einschalten." #1;"Bitte warten"   O3000 :.09}8Q,20:.05|L,15:mo=1hs=hs+1 0,10 ;6;1;"Dame";0;6;4,21;"Spectrum ";7;cs;6,21;6;"Mensch ";7;hs:bd=15080 f=3154 4;7;f-1,2;" ";f,2;" ";f+1,2;" ";f+2,2;" " Sf-1,0;(579-f/2);f+1,0;(568-f/2) f:bd=1 Ι19,2;"A B C D E F G H":6:15,160:129,0:0,-129:-129,0:0,129:6 af=0:e=07:s=(e/2=(e/2)):f=f+7*s+6*s:d=2*s &j=03:v=a(79O-f-j) 1+(v557f68Df67Cf62>f61=f60<a(f)=c:9090# #nLf<546f>42*f491f480f47/a(f)=b:9090# #xVf<41)f>23f36$f35#f34"f29f28a(f)=h #f #$ls=0:cs=0:hs=0 #%b$(4):b(2):z(2) #mo=0:b$(3)="k" #K"Wollen ";1;"Sie";0;" anfangen ? ";a$::a$(1)="J" #Q5000:z=579+(*3):q=(*2)-7:a(z+q)=c:a(z)=b: # #+-6,-7,6,7,9 # #699,27,701,40(,703,535,705,66B,710,33!,712,46.,714,59;,716,72H,719,26,721,39',723,524,725,65A #730,32 ,732,45-,734,58:,736,71G,739,25,741,38&,743,513,745,64@,750,31,752,44,,754,579,756,70F #ܩ759,24,761,37%,763,502,765,63?,770,30,772,43+,774,568,776,69E,0,0 #P"A",0,15,31,63?,127,127,127,127 #S"B",0,240,248,252,254,254,254,254 #P"C",127,127,127,127,63?,31,15,0 $S"D",254,254,254,254,252,248,240,0 $P"E",0,15,31,63?,127,124|,120x,121y $Q"F",0,240,248,252,254,62>,30,158 $"P"G",121y,120x,124|,127,63?,31,15,0 $,Q"H",158,30,62>,254,252,248,240,0 "