o A500:20: VIER GEWINNT !  ** REMZEILE = ACTIONSZEILE - 5 ** K0:J0:I0:H1HO:V1VE:R.999:CN0 S(8,7),H(7)!9000:6000:40001!  Grafik & BREAK-Verriegelung:!600J!FR1:280:X!3 Pieptonu!8SD.5:SV5:SP100:400:!G Eingabe!L200!VSD300:450:1080:! Sieg - Kontrolle!SI0:HS7 !M4:N6:I1 M:J1 N"PBS(I1,J):PCS(I2,J):PDS(I3,J)("2350:J:I:SI D"4M7:N3:I1 M:J1 Nl">PBS(I,J1):PCS(I,J2):PDS(I,J3)"H2350:J:I:SI "M4:L3:I1 M:J1 N"PBS(I1,J1):PCS(I2,J2):PDS(I3,J3)"2350:J:I:SI #M7:N3:I4 M:J1 N.# PBS(I1,J1):PCS(I2,J2):PDS(I3,J3)@# 2350:J:I:R#. S(I,J)P y#8 (PBP)(PCP)(PDP)IM:JN:SIP#B # HC - Taktik# IN0:Z0:C0:SI0:S(4,1)0 EN4:# PK3P:HS3 3900# PRoblem erst 3 dann 2 Steine$ PR3 2 1$ PXP PK PKP*$ PR3 3200<$ PR2 3100R$ SI3 PXPK:PR2g$ PX:PR:SI3 q$ 3900$ zwei Steine$ ENC:M6:N4:200:IN SI3:$& J1 M:YJ1:I2 N$0 S(I,J)PX 3180$: PBS(I1,J):PCS(I2,J):PDS(I1,J)%? ---- waagerecht9%D (PCPX)(PB0)(S(I1,Y))ENI1W%I ---- Diagonale steigend}%N (PBPX)(PC0)(S(I2,Y))ENI2%S ---- Diagonale fallend%X (PBPX)(PD0)(S(I1,Y))ENI1%b ENC SI3:JM:IN%l I%v J:&{ 3 Steine ---- waagerecht& 200:IN SI3:9& M6:N4:J1 M:I1 NI& S0:K0 3a& S(IK,J)PX SS1h& K& S3 3600:3580& I:J:SI3 & ---- senkrecht& 200:IN SI3:& M3:N7:J1 M:I1 N& S0:K0 3' S(I,JK)PX SS1' K' S3 3630:35801' I:J:SI3 O'C ---- Diagonale steigendd'H 200:IN SI3:'R M3:N4:J1 M:I1 N'\ S0:K0 3'f S(IK,JK)PX SS1'p K'z S3 3660:3580' I:J:SI3 ' ---- Diagonale fallend ( 200:IN SI3:)( M3:N7:J1 M:I4 N9( S0:K0 3S( S(IK,JK)PX SS1Z( Kq( S3 3690:3580{( I:J( ( SI3 JM:IN((  Suche freies Feld(K0 3:PAS(IK,J)(PA0 ENIK:YJ:3800($K:).K0 3:PAS(I,JK) )8PA0 SI3:ENI:K3))BK:C)LK0 3:PAS(IK,JK)a)VPA0 ENIK:YJK:3800j)`K:)jK0 3:PAS(IK,JK))tPA0 ENIK:YJK:3800)~K:) Untersuchung freies Feld)PAS(EN,Y1):Y2 3830)PBS(EN,Y2)*(PB)(PA0)CEN:SI0:(*PA SI3:K3:3*SI0:J*7 Zufallsgeneratorc*<Z0:200:IN SI3:*F260:ZZ1:EN(RV7)1:H(EN)5 3910*PZ100 *ZENC 3910*d* Graphic & Action*P2*P1 P2:PL$N2$:SR$N2$B$:H$SR$:4030!+P1:PL$N1$:SR$N1$B$:H$SR$<+HO0:VE.07:650:1080[+(PL$,8)C$ 4200:4100~+1100:ENIN48:(IN)(EN)4080+CN1:650:CN0:SR$PL$E$:650+250:250:3000+(EN1)(EN7) 250:4050+H(EN)5 250:4050,H(EN)H(EN)1:SHH(EN):S(EN,SH)P:HSHS12,1080:5000:4160O,,2000:(HS41)(SI)8000Y,64010z,@HO0:VE.07:CN1:650:CN0:,c Einmischung,h3000:IN 4220,r200:IN0 ,|(IN49)(IN55)4200,H(IN48)5 4200,CN1:650:CN0-SR$"Fremdling mischt sich ein !"4-650:250:ENIN48:G- Feld fuellen`-K1(6SH.1)6.7.2y-K2(7SH.1)6.7.2-K3(EN.9)7-K4(EN.1)7-VEK1 K2 PPVG-HOK3:620-HOK4:630-VE-P1 -HOK3 K4 4HG.VEK1:620.VEK2:630.HO%. 5.k TitelbildN.p1040:G10:G20:SN1b.zT$V$V$:SR$T$o.I0 21.CN CN0:6050.CN1:1080.HO0:VEI80:650.I.HO0:VE.5:SR$"Bitte Namen eingeben !":650 /VE.6:SR$">0< ist der "C$" !":650/7000-/ Spielfeld zeichnen;/1040:X0M/HO0 R R7\/VE.2:620k/VE.9:630s/HO/8VE.2 .901 .76/BHO0:620/LHOR:630/VVE/`VE.15/jI1 7/tSR$(48I)/~HOIR7.07:650/I 0HO0:VE0:SR$T$:650!0VE.05:HO0:620/0HOR:630F0VE.92 .96 1VGT0 HO0:620d0HO.05:630l0VE0(HO.1:VE.92:SR$N1$:65002VE.92 .96 4VG0<HO.5:6200FHO.54:6300PVE0ZHO.5 .54 4HG0dVE.92:6200nVE.96:6301xHO$1HO.6:VE.92:SR$N2$:65051270:1080:M1S Eingabe der NamenV1X200p1bPL$"":P1:7300:2501l7100:N1$PL$1vPL$"":P2:7300:25017100:SD30:450:N2$PL$1N1$N2$ 1N1$N1$" 1":N2$N2$" 2": 21100:K(PL$):IN48 IN0+2(IN64)(IN91)(K10)723092IN 7140b2CN1:7300:CN0:PL$C$:7300:7400:2(IN127)(IN28)71802K1 71002CN1:7300:CN02PL$(PL$,K1):7300:71002 (IN32)(IN13)72102K2 71002 72403*(IN64)(IN91)(K10)7230!347100?3>PL$PL$(IN):7300:7100I3H7400\3RH$"":K(PL$)3fI2 K:H$H$(((PL$,I,1))32):I3pPL$(PL$,1)H$:3HO0:VE.7P10:SRP:3003SR$P$SR$" ? "PL$:650:4SD2:I0 5:SVI10:SPPI360:400:I 4#4; GewinnauswertungM4@4160:CN1:HO0:VE.05:620:HOR:630i4JSR$"Unentschieden !!!"4TSI1 SR$N1$G$:G1G114^SI2 SR$N2$G$:G2G214hCN0:HO0:650:H$"52596468645952":SD5:SV154rI1 13 2:SP((H$,I,2)):400:I5|CN1:VE0:SR$T$:650:8520?5CN0:SR$T$:650:CN1:6400j511000:CN0:HO0:VE.1:SR$R$:650:J05((N1$,8)C$)((N2$,8)C$)J15HO0:VER:SR$BI$:650:SR$">>":HO12V15200:I0 50:CN0 15650:SD3:450:IN CN1:I506CN:I6CN0:IN 8170'6J1 8500X6N2$C$" 1":N1$C$" 2":G10:G20:SN0:8500p6(IN82)(J0)85006IN69 6000:40006 100006/! Revanche !!!64!H$N1$:N1$N2$:N2$H$:IG1:G1G2:G2I6>!SNSN1:8520:6100:40007H!SRSN:300:T1$SR$7R!SRG1:300:T2$SR$57\!SRG2:300:T3$SR$_7f!T$V$"Nr. "T1$" "T2$" : "T3$:7## Spielregeln & Strings & START7(#1050:C$"Computer":B$" ist dran !"72#V$" VIER GEWINNT ! ":E$" hilft der "C$" !!"8<#BI$"Bitte Taste druecken...! ":P$"Spieler "K8F#R$">R< = Revanche >E< = ENDE":G$" hat gewonnen !"q8Z#HOH1210:VE1::SR$V$:110:150}8d#:::8n#"Sind die Spielregeln":"bekannt (J/N) ? "8x#:BI$;:1080:11000:11108#(IN78)(IN)8#100:8#SR$V$:1509#:$9#"Ziel des Spiels ist es,"G9#" vier Steine in einer Reihe"Y9#" zu haben."p9#"Diese koennen :"9#" - waagerecht nebeneinander"9#" - senkrecht uebereinander"9#" - diagonal steigend"9#" - diagonal fallend" :#" in einer Reihe liegen."0:$"Wenn eine >0< gedrueckt wird,"K:$" spielt der ";C$;"."n:$"Wird keine Taste gedrueckt,":"$" greift nach ca. 30 s":,$" der ";C$;" ein.":T$:BI$;:250:^$1100:IN :h$:"ALLES KLAR ? (J/N) ";:r$250:1100:IN78 9100;|$; ' AbspannH;'1040:M1V1:N1H1:V3.5M.1:V4.5M.1:I.999f;'HO0:VEV3:620:HOI:630;$'HO0:VEV4:620:HOI:630;.'HO0:VEV3:620:VEV4:630;8'HOI:VEV3:620:VEV4:630;B'SR$"Auf Wiedersehen !!":VE.47:HO.59N:6502} ! auf ATARI 800 XE !*><} !-------------------!F>F} !Wenn das Programm !b>P} !gefaellt oder nicht!~>Z} !schreiben Sie mir !!>d} *-------------------*>n}>x} Erstausstrahlung: Deutschlandsender Kultur>}-spezial 910904schreiben Sie