T \{?]\ 00D:\6812345@W P P P M8MMYYL8Wq !{v><~~<$BB$>BB<DHpHDB@~BfZBBBBbRJFBxDxp[CxFxFx\B'!JYX8![ PP! 00 { K SR Pd 9000(#  7: 6:i=06:i,0;6;" ":i:i=1421:i,0;6;" ":i ^0,64@:255,0:0,568:-255,0:0,-568 @i=56820016:i,64@:0,72H:i -144,0 i=04:8+i,1+i;"";8+i,30-i;"";8+i,0;1;i+1;8+i,31;1;i+1:i l5,7;1;6;"1 3 5 7 9 ";6,9 ;6;1;"2 4 6 8" !in=1 &C236077\,60<:0,13 ;2;7;"PULUC" 0X236077\,123{:2,0;4;"Ich spiele - ",,,"Sie spielen - " X*Hauptroutine* ]6:0 b.(700a=1)+(1000a=2) -i=15:s(i)99c705  vi:15,0;1;"Sie haben verloren":21,0;"Druecken Sie eine Taste":0:2000  a=2 Ʈ15,0;"Sie sind an der Reihe":236077\,60<:,,1;"Druecken Sie eine Taste,um zu werfen":236077\,123{:0:c=(*5+1) B17,0;"Sie haben eine ";c;" geworfen " I"Welchen Stein wollen Sie ziehen (1-5) ? ";w$:w$>"5"w$<"1"730 #p=s(w$)-c:p1p=11 s(w$)=99c730 $f(p)=1p11 730 0w=w$:19,0;"Sie ziehen Stein ";w f(s(w))=0 <s(w)11 x=(6+2*s(w))-2:754 x=31-w:s(w)=11 I7+w,x;1;7;"":502:7+w,x;7;" " Js(w)-c>1s(w)=s(w)-c:x=(6+2*s(w))-2:760 x=31-w:s(w)=11 S1;7+w,x;7;"":100d:0;7+w,x;7;"" f(s(w))2900  q.1}L,0:.1}L,12 :.1}L,24:.1}L,36$:.1}L,480:.1}L,60<  i=15 *nc(i)=s(w)7+i,(6+2*c(i))-2;7;" ";7+w,x;"":c(i)=99c:900 4i >7+w,x;7;"" l236077\,60<:21,0;1;"Druecken Sie eine Taste":236077\,123{:0 f(s(w))=1 Pi=1421:i,0;6;" ":i   a=1 .i=15:c(i)99c1050 vi:1;15,0;"Sie haben gewonnen":21,0;"Druecken Sie eine Taste":0:2000 V20,0;"@ " $c=(*5+1) .g15,0;"Ich bin am Zug";17,0;"Ich habe eine ";1;c;0;" geworfen" Bi=15 L!p=c(i)+c:p11 p=1 V+f(p)=1ko=1:w=i:1300 `i ~i=15 !p=c(i)+c:p11 p=1 $f(p)2p=11200 i V20,0;"Ich kann nicht ziehen.Ich muSS noch einmal wuerfeln":1000 3w=(*5+1):c(w)=99c1210 !p=c(w)+c:p11 p=1 f(p)=21210 :19,0;6;"Ich setze Stein ";1;w #<c(w)1x=(6+2*c(w))-2:13302 (x=w 2S7+w,x;1;7;"":150:7+w,x;0;7;" " 7f(c(w))=0 <*c(w)=c(w)+c:c(w)11 c(w)=1 F<c(w)1x=(6+2*c(w))-2:1357M Kx=w MS7+w,x;1;7;"":100d:7+w,x;0;7;"" Nf(c(w))=2 Pko=01500 U ko=0 Zq.1}L,60<:.1}L,480:.1}L,36$:.1}L,24:.1}L,12 :.1}L,0 di=15:s(i)=c(w)7+i,(6+2*s(i))-2;7;" ":s(i)=99c:7+w,x;"":1500 ni l236077\,60<:20,0;1;"Druecken Sie eine Taste":0:236077\,123{ Ri=1521:i,0;" ":i:600X ,i=122:0*3280 :i 17,0;"Moechten Sie noch einmal ";:236077\,60<:"Puluc":236077\,123{:"spielen ? ":"Bitte geben Sie ""Ja"" oder ""Nein""ein" a$:a$=02030 Xa$(1)="n"a$(1)="N":15,0;"Dann bis zum naechsten Mal...":  9000(# 6:6: in=1 1236077\,60<:0,12 ;"PULUC" ."Puluc ist ein indianisches Brettspiel" ?"Es wird auf einem Brett gespieltdass so aussieht":520 in=0:16,0;"Der Sinn des Spieles ist es, durch das Daraufsetzen der eigenen Steine die gegnerischen Steine gefangenzunehmen und aus dem Spiel zu holen" f"Druecken Sie ";c$:i=1521:i,0;" ":i 16,0;"Man wuerfelt mit einem 5-seitigen Wuerfel.Die Steine werden um so viele Felder weitergerueckt,wie man Punkte erwuerfelt." f"Druecken Sie ";c$:i=1521:i,0;" ":i 15,0;"Der Computer spielt mit von links nach rechts,und Sie spielen mit von rechts nach links.Geraet der Stein auf das gegnerische Startfeld oder darueber hinaus,so kommt er auf sein eigenes Startfeld ." f"Druecken Sie ";c$:i=1521:i,0;" ":i 15,0;"Es ist nicht erlaubt,einen Steinauf ein Feld zu stellen,wo schon ein eigener Stein steht.' Gewonnen hat,wer als erster alleSteine des Gegners gefangen hat" &f"Druecken Sie ";c$:i=1521:i,0;" ":i 0|16,0;"Wollen sie die Instruktionen noch einmal sehen ?":c$:(c$>"j"c$<"k")(c$>"J"c$<"K"):3000 : :500 #( *Variable* #2"a",24,60<,126~,255,255,126~,60<,24,"b",24,36$,66B,129,129,66B,36$,24 #>:i=12:c$:n=07:c:c$+n,c:n:i #236099\,100d $^a=(2*+1) $hKs(5):c(5):i=15:s(i)=11 :c(i)=1:i $r f(11 ) $| ko=0 ' 3000 '6"Puluc"9999':"Puluc"31743{,1025: '31743{:"":9000(# #cCba : 8"" ""  Puluc r' @xU-{]-%*{G,?D00 M\ \TX;{U!:!{p v> $$$~$$~$>(> >bd&F(*D:  >>> < >>Cx$8$x$$x "p$$$p8D@0@D8~8P  ?@ pp8T"x ~2R2^0P2R$o7X$%4Sn$E$84RfT*+(T2R2R8Hy4Z "D|n2OF$A*"cD& $I0p p(