& *****************************K * *p * PROGRAMM "QUADRIS" *( * *2 * ERSTELLT IM NOV. '85 VON *< * *F * (C) UDO ROEDEL *)P * *NZ *****************************wd 4094,0: 4095,0:0,15,6:4,15,6:8n1,739,25:2,685,25:1,810,25:2,739,25xTA15:C1:OO1:A(10,10):Z(10):M(20):EZ(25):3090:26701650 TA)"òòòî"Q03:Q$(Q)(QQ13ETA)" "MQQjTA)"ó"r QTA)"ñññý"""TA)""TA)"1234"TA)""TA)"    "=TA)" 1  2  3  4 "\TA)"    "e""",Z(5)11:Z(6)21:Z(7)31:Z(8)41:Z(0)44:Z(1)34:Z(2)24:Z(3)146Q14:A(Q,1)Q:A(Q,4)Q:@Q05:A(0,Q)2:A(5,Q)2:JQ05:A(Q,0)2:A(Q,5)2:T7101^596,685,739,810,739,664,596wh41,32,81,32,121,32,42,32,82,32,122,32,43,32,83,32,123,77,164,205r5,229,45,229,85,229,125,229,165,229,7,32,47,32,87,32,10,229,50|229,90,229,130,229,170,229,52,32,172,32,15,229,55,32,95,32,135H32,175,229,58,32,98,32,138,32,20,229,60,229,100,229,140,229,180,22962,32,182,32,24,223,104,105,144,223,25,229,65,229,105,229,145,229,185229,27,229,67,229,107,229,147,229,187,229,147,32,148,32,70,32,71,32 ### VERSETZ-ROUTINE ###PO3274TA160(Y1)4(X1)2A(X,Y)0:Z(I14)0mPO41,32:PO40,32:PO39,32:PO1,32:PO,32:PO1,32PO39,32:PO40,32:PO41,32XX1:YY1:A(X,Y)I1Z(I14)X10YPO3274TA160(Y1)4(X1)I10PA160I10PA102PB(I1)176IPO41,PA:PO40,PA:PO39,PA:PO1,PA:PO,PB:PO1,PAPO39,PA:PO40,PA:PO41,PA:MM0:FC0:FD0:OO1&1,596,5:1,685,5:1,739,5:1,810,50I10710:Q012:M(Q)0:DA(1,1)0M(MM1)11:M(MM2)12:M(MM3)7:MMMM37NA(1,4)0M(MM1)8:M(MM2)13:M(MM3)14:MMMM3nXA(4,1)0M(MM1)16:M(MM2)17:M(MM3)22:MMMM3bA(4,4)0M(MM1)23:M(MM2)18:M(MM3)19:MMMM3lA(2,4)0A(3,4)0N(1)1:N(2)4:N(3)6:FCFC1 vA(1,2)0A(1,3)0N(1)7:N(2)6:N(3)8:FCFC1AA(2,1)0A(3,1)0N(1)8:N(2)5:N(3)3:FCFC1uA(4,2)0A(4,3)0N(1)2:N(2)1:N(3)3:FCFC1C1FC0MM2M1M(1):M2M(2):M3M(3):710FD((1)(MM3))3M1M(FD1):M2M(FD2):M3M(FD3)  ###ZUG/NUMMER STEUERUNG ###&1510:II1:IIII1:I1IKII2II0:II1:I1I:I1I1(1)dI14I0:II0:710sBAZ(I14)BX(BA10)BYBA(BX10)XBX:YBY II01020810  ### AUSWERTUNG RICHTUNGSEINGABE ###*A(X1,Y1)0A(X1,Y)0A(X1,Y1)0A(X,Y1)01830Y4A(X,Y1)0A(X1,Y1)0A(X1,Y)0A(X1,Y1)01830c>2010HH1X1X1:Y1Y1:930RH2X1X:Y1Y1:930\H3X1X1:Y1Y1:930fH4X1X1:Y1Y:930pH6X1X1:Y1Y:930zH7X1X1:Y1Y1:930H8X1X:Y1Y1:930;H9X1X1:Y1Y1:930D980WY11Y14980lA(X1,Y1)0980X11X14980H0970OOOO1:W0:C1:430 ### FALSCHE EINGABE ###QQ13:1,596,10:2,643,10:2570:2570:1880 ### COMPUTER ZIEHT ###>CV0:LV0:L0:ZM0:ZU0:ZZ0:FA0[X3X1:Y3Y1:ZM1:1260vX3X1:Y3Y:ZM2:1260X3X1:Y3Y1:ZM3:1260$X3X:Y3Y1:ZM4:1260.X3X:Y3Y1:ZM5:12608X3X1:Y3Y1:ZM6:1260BX3X1:Y3Y:ZM7:1260LX3X1:Y3Y1:ZM8:1260-VCV02390<`FA01150PjFB((1)FA)1]tZUB(FB)~ZU1170,1180,1190,1200,1210,1220,1230,1240430X1X1:Y1Y1:X1X1:Y1Y:X1X1:Y1Y1:Y1Y1:X1X:Y1Y1:X1X:X1X1:Y1Y1:X1X1:Y1Y:.X1X1:Y1Y1:L ### UMZINGLUNGSGRAD ###_A(X3,Y3)0rCV1:ZZZM:L0A(X31,Y31)0LL1 A(X31,Y3)0LL1A(X31,Y31)0LL1A(X3,Y31)0LL1(A(X3,Y31)0LL1 2A(X31,Y31)0LL1 <A(X31,Y3)0LL1: FA(X31,Y31)0LL1E PLL.2T ZKVX35Y3s dKVM1KVM2KVM3LL2.5 nFC01420 xZMN(1)ZMN(2)ZMN(3)1420 LL.5 X31Y31L.1 X31Y34L.1 X34Y31L.1 X34Y34L.1!LLVZUZM:LVL:FA0(!LLV1490=!FAFA1:B(FA)ZMC!d! ### INFORMATIONS-PRINT ###m!""|!OO5OO1!OPOO!II1OP$"":OPOO1!II1OP0OP4!II0OP$" "!"OO$(OP)!,"""66)(TI$,3,2)":"(TI$,2)"@6)""(O2.5),"J8)""OO$""OP$<"T""B"^Z"h ### SPIELPLAN ###"r1,3,4:" ""|" QUADRIS ":1,1""ZEIT: 00:00""""""ZUEGE: 0""""#"ZUG MIT: 1  "#""<#"":TI$"000000":140y#"DAS SIND DEINE STEINE, "#"DU DARFST BEGINNEN"#QQ13000:#23)" "#" "#23)" " $" ";$$""::$ ### EINGABE ###E$&239,0^$0(4094)0O01740$:PK3274TA160(Y1)4(X1)$DPK3113PK4112$NPC(PK)$XPK,PC128:PK40,228$bQ18:EI$:EI$""1960$l6)(TI$,3,2)":"(TI$,2)"":%vPK,PC:PK40,1602%Q18:EI$:EI$""1960S%6)(TI$,3,2)":"(TI$,2)""_%:1880% IFPEEK(4094)THENGOSUB4100%Q8:%AA(EI$)65:AA0AA25H0:1980%HEZ(AA):H0980:X10:%H1H91880%840 & ###SPIELER HAT VERLOREN ###;&II0:2370:1510:2310:CA(4095)1:4095,CAK&QB3:Q15i&10)""&10)"DU HAST VERLOREN !"&2530& 10)" "&10)"DU HAST VERLOREN !"& 2530&*:2560&4O242270'>(4095)2140,2160,2180,2200,22202'H(4095)52240<'R2300h'\"MOECHTEST DU NOCH EINMAL VERSUCHEN,"'f"GEGEN MICH ZU GEWINNEN ? (J/N)":'p"NA,VIELLEICHT GEWINNST DU JA JETZT."'z"WILLST DU ES VERSUCHEN ? (J/N)":&("WILLST DU ETWA NOCH EINMAL VERSUCHEN,"X("MICH,DAS SUPERHIRN,ZU SCHLAGEN ? (J/N)":("HAST DU UEBERHAUPT NOCH HOFFNUNGEN,MICH"("AUCH EINMAL ZU SCHLAGEN ? (J/N)":("DU BIST ECHT EINE FLASCHE ! WILLST DU")"MICH NOCH EINMAL HERAUSFORDERN ? (J/N)":H)"JETZT HABE ICH ABER DIE NASE VOLL !!!")"DU SPIELST ZU SEHR UNTER MEINEM NIVEAU !";:Q16000:)2660)"SO HAST DU ABER KEINE CHANCE,GEGEN")"MICH ZU GEWINNEN. STRENG' DICH MAL AN !"; *Q15000::4094,1:110*TW1:2610&* ""9* ""M* "EIN ZUG IST"d*$ ""*. "NICHT MOEGLICH!":*8 ### NOTEN-DATAS EINLESEN ###*B :QA17:T(QA)::*L ### DER COMPUTER HAT VERLOREN ###+V II0:2370:1510:2310:4095,0+` Q150+j 11)""P+t 11)"DU HAST GEWONNEN !"[+~ 2530{+ 11)" "+ 11)"DU HAST GEWONNEN !"+ 2530+ :2560+ PRINT"";, " ICH FORDERE REVANCHE ! ";L, " EINVERSTANDEN ? (J/N) ";V, 2610z, ### VERZOEGERUNGSSCHLEIFE ###, QK14:1,T(QKQB),10, QZ150:, QK:, Q1200::, QV150::, A$:A$""2580, -( ### NOCH EINMAL ? ###-2 A$:A$""2610&-< 4094,1>-F A$"J"A$"D"110V-P A$"N"A$"R"2660`-Z 2610k-d "":y-n "":SS0-x QQ17:TZ:- (4094)1- Q15:4)" ":Q- Q1500:- QQ157:A,B. 1,SS,0:SSSS17:1,SS,3#. 3076140A,B7. $$$ SOUND $$$O. QQ: $$$ SOUND $$$. 2560:2560:2560:"DU MUSST VERSUCHEN,AUF EINEM SPIELFELD". "VON VIER AUF VIER FELDERN MEINE SPIEL-". "STEINE EINZUKREISEN BZW.DICH NICHT VON"/ "MEINEN EINKREISEN ZU LASSEN.DIE STEINE"L/ "HABEN NUMMERN VON 1-4 UND MUESSEN DER"{/ "REIHENFOLGE IHRER NUMMERN ENTSPRECHEND"/ "BEWEGT WERDEN. IST DIES NICHT MOEGLICH,"/ "SO HAT MAN VERLOREN. <RETURN>"/" 2580'0, "MAN KANN SEINEN STEIN JEWEILS NUR AUF"P06 "DAS NAECHSTE FREIE FELD BEWEGEN."~0@ "DIE RICHTUNG WIRD MIT DEN FOLGENDEN "0J "TASTEN BESTIMMT:"0T "":RR100^ RR6)"OBEN"0h RR)"î î î"0r RR)"Q W E"1| RR)"ý ý ý"-1 RR)" "J1 RR)" "g1 RR)"î Ϸ î"1 RR7)"LINKS AåSTEIND RECHTS"1 RR)"ý ̯ ý"1 RR)" "1 RR)" " 2 RR)"î î î"&2 RR)"Z X C"C2 RR)"ý ý ý"|2 RR6)"UNTEN <RETURN>";2 2580:2 ""2 30802 EZ(0)4:EZ(2)3:EZ(3)6:EZ(4)9:EZ(16)7:EZ(22)8:EZ(23)2:EZ(25)12