# TELE-MUEHLE =============P4E (P) 04/86 COMMODORE WELT BWg ===========================( (C) ../86 BY =2 M.PURUCKER =< =F VERSION 3.5 40Z/ASCII =P C16/116 + 16K/P4 + 1531/41=3Z ===========================Cd 1,1: 0,1jn STRINGS INITIALISIEREN**********ux 3440{: S$(26): 0,2,0: 4,2,0 940: UU011: N,P: 950: UUS$(12)(98)(32)(98)(32)(98)(32)(98)(32)7S$(12)S$(12)(98):S$(13)(98)(32)(98):S$(14)(117)S$(15)(105):S$(16)(106):S$(17)(107):S$(18)(98):S$(19)(32)S$(20)(99):S$(21)(176):S$(22)(174):S$(23)(181)S$(24)(182):S$(25)(173):S$(26)(189): VORSPANN************************j1,1,1,S$(14)S$(1)S$(15):1,1,2,S$(16)S$(10)S$(15)S$(14)S$(2)S$(17)1,5,3,S$(0)S$(3)S$(14)S$(4)S$(15)S$(9)S$(14)S$(15)S$(5)S$(14)S$(4) 1,36,3,S$(15):1,5,4,S$(0)S$(3)S$(18)S$(14)S$(6)S$(17)S$(9)S$(0)61,23,4,S$(5)S$(18)S$(14)S$(6)S$(17)k1,5,5,S$(0)S$(3)S$(0)S$(5)S$(0)S$(5)S$(0)"1,5,6,S$(0)S$(3)S$(18)S$(16)S$(6)S$(15)S$(9)S$(0)S$(5)S$(18)S$(16),1,32,6,S$(6)S$(15)61,5,7,S$(0)S$(3)S$(18)S$(14)S$(6)S$(17)S$(9)S$(0)A@1,23,7,S$(5)S$(18)S$(14)S$(6)S$(17)vJ1,5,8,S$(0)S$(3)S$(0)S$(5)S$(0)S$(5)S$(0)T1,5,9,S$(0)S$(3)S$(18)S$(16)S$(6)S$(15)S$(9)S$(18)S$(16)S$(6)S$(15)^1,28,9,S$(9)S$(18)S$(16)S$(6)S$(15)Dh1,5,10,S$(16)S$(17)S$(3)S$(16)S$(4)S$(17)S$(9)S$(16)S$(4)S$(17)kr1,28,10,S$(9)S$(16)S$(4)S$(17)|1,2,13,S$(21)S$(20)S$(22)S$(19)S$(21)S$(20)S$(22)S$(19)S$(21)S$(19)1,12,13,S$(23)S$(24)S$(19)S$(22)S$(19)S$(21)S$(8)S$(22)S$(19)61,24,13,S$(21)S$(7)S$(21)S$(6)S$(22)p1,2,14,S$(12)S$(8)S$(13)S$(8)S$(13)S$(7)S$(18)1,2,15,S$(12)S$(8)S$(13)S$(8)S$(13)S$(7)S$(18)1,2,16,S$(12)S$(8)S$(13)S$(11)S$(13)S$(7)S$(18)S$(11)<1,2,17,S$(18)S$(19)S$(25)S$(20)S$(26)S$(19)S$(13)S$(8)S$(13)S$(8)1,22,17,S$(13)S$(7)S$(18):1,2,18,S$(25)S$(3)S$(26)S$(19)S$(25)1,11,18,S$(6)S$(26)S$(19)S$(25)S$(8)S$(26)S$(19)S$(25)S$(6) 1,29,18,S$(26)S$(19)S$(25)S$(6)S$(26)? 1,13,21,S$(14)S$(20)S$(15): 1,13,22,S$(18)"C"S$(18) 1,17,22,"BY PURISOFT M.P. 85/86": 1,13,23,S$(16)S$(20)S$(17):FA$(130):FO$(131): 3440:GB9:GW9 UI07: UI: 1,UI,40: 2,UI,40: 0,UI3,3: 4,UI5,3 T1400::, 1,7,120: 2,516,120: 0,14,1: 4,14,1Z 1,516,120: 2,770,120: 0,12,2: 4,12,2& 1,770,150: 2,897,150: 0,8,4: 4,8,40 8: 1,7,30: 2,516,30: 0,3,0: 4,3,0: 2,516,100: 1,897,200: 0,16,3: 4,16,3D UI811: UI:3,516,20:0,5,2:4,5,2: T1500:KN UI1: 3,7,20: 0,2,0: 4,2,0: T1500::|X: 1,1,1,"VORNAME SPIELER 1 (WEISS) ": N1$b 1,1,3,"VORNAME SPIELER 2 (SCHWARZ) ": N2$l 1,1,10,"MIT 'E' ZUM SPIEL"v 1,3,24,"- MIT 'SPACE' ZU ERLAEUTERUNGEN -"" 239,0: HS$: HS$"E" 960C: 1,10,1,"SPIELERKLAERUNG"x 1,1,3,"SPIELFELD:DER SPIELPLAN IST HORIZONTAL" 1,1,5,"DREIGETEILT (A-B-C);VERTIKAL BESTIMMEN" 1,1,7,"ZAHLEN DIE POSITIONEN,INDEM MAN EIN-" 1,1,9,"FACH IN DEN JEWEILIGEN MUEHLEEBENEN"D 1,1,11,"VON LINKS NACH RECHTS DURCHZAEHLT."v 1,1,13,"IN DER B-EBENE EXISTIEREN B2,B5,B8" 1,1,15,"NICHT, DAMIT DAS ZAEHLSYSTEM NICHT" 1,1,17,"DURCHBROCHEN WIRD. 1,5,24,"- MIT 'SPACE' UMBLAETTERN -": 239,0: HS$:: 1,1,1,"REGELN:ES WIRD NACH DEN ALLGEMEINGUEL-"n 1,1,3,"TIGEN REGELN GESPIELT;EINES IST ABER " 1,1,5,"ZU BEACHTEN:HAT MAN BEI DER STEINWEG-"  1,1,7,"NAHME EINEN STEIN GEWAEHLT, FRAEGT DAS"  1,1,9,"PROGRAMM, OB DIESES DER REGEL GEMAESS"<  1,1,11,"IST.DIESE REGEL LAUTET:EIN STEIN,"r* 1,1,13,"DER IN EINER MUEHLE EINGESCHLOSSEN IST"4 1,1,15,"DARF NICHT ENTNOMMEN WERDEN,": 1,3,5:1,30,15,"FALLS"> 1,1: 1,1,17,"NICHT ALLE STEINE IN MUEHLEN EIN-" H 1,1,19,"GESCHLOSSEN SIND."K R 1,5,24,"- MIT 'SPACE' UMBLAETTERN -": 239,0: HS$: \ 1,1,1,"VORSICHT !:FALLS SIE BEIM STEINEZIEHEN" f 1,1,3,"AUF DEN SELBEN PLATZ ZIEHEN, AUF DEM" p 1,1,5,"SIE STEHEN (BZW. STANDEN), HABEN SIE "!z 1,1,7,"DAS SPIEL VERLOREN, DA DER COMPUTER "K! 1,1,9,"DANN ANNIMMT, DASS SIE MIT KEINEM "u! 1,1,11,"STEIN MEHR ZIEHEN KOENNEN."! 1,5,24,"- MIT SPACE ZUM SPIEL -": 239,0: HS$! 960! 2,98,36,99,31,99,5,32,5,99,7,32,4,99,6,32,4,32,2,32,3,99,4,184" TT1N:S$(UU)S$(UU)(P)::D" HPR****************************V" 0,2: 4,7,6d" 5:1060o" 1300z" 1890" 2000" 2230" KO1 2930" 1020" GRAPHICVORBEREITUNG************"$ 1,1#. 1,1,20,"REM GRAPHISCHE SPIELFELDVORBEREITUNGEN"Q#8 1,100,30100,20110,20:1,100,20,1: OL$,90,10,110,30#B 1,150,30150,20140,20:1,150,20,1: OD$,140,10,160,30#L 1,200,10200,20210,20:1,200,20,1: UL$,190,10,210,30$V 1,250,10250,20240,20:1,250,20,1: UR$,240,10,260,30<$` 1,290,20310,20: 1,300,20300,30:1,300,20,1T$j MO$,290,10,310,30$t 1,10,10020,100: 1,20,9020,110:1,20,100,1$~ MR$,10,90,30,110$ 1,50,9050,100: 1,40,10060,100:1,50,100,1$ MU$,40,90,60,110 % 1,110,100100,100: 1,100,90100,110:1,100,100,18% ML$,90,90,110,110p% 1,140,100160,100: 1,150,90150,110:1,150,100,1% K$,140,90,160,110% 1,20,20,10: 1,20,20,7: 1,20,20,4% W$,10,10,30,30% 0,20,20,7: 0,20,20,4: 1,20,20& 0,20,20,7: 0,20,20,4& BL$,10,10,30,30I& 1,30,30,1: 1,30,30: P$,29,29,31,31Q&:w&  SPIELFELDAUFBAU****************& 1,74,14,244,184& 1,99,39,219,159&( 1,124,64,194,134&2 1,74,99124,99&< 1,194,99244,99&F 1,159,14159,64'P 1,159,184159,134&'Z1960: T1240'd X,YA'n P$,X1,Y1I'x:o' STEINPOSITION BESTIMMEN********'1960: T1PO' X,Y':' MUEHLEBESTIMMUNG***************'KO0:I(B$)64:J(Z$):E13 2'F17 3 :KA0?( F(E,F)F(E,F1)F(E,F)F(E,F2)(F(E,F)1F(E,F)2)KAF(E,F):KO1r(KO1(EI(FJ(F1)J(F2)J)) KO1: KO0( KO1 ( F,E( F17 3:KA0( F(1,F)F(2,F)F(1,F)F(3,F)(F(1,F)1F(1,F)2)KAF(1,F):KO1)KO1(FJ(I1I2I3))KO1:KO0) KO1 $)F9)" F39 3:KA0~), F(1,F)F(2,F)F(1,F)F(3,F)(F(1,F)1F(1,F)2)KAF(1,F):KO1)6KO1(FJ(I1I2I3))KO1:KO0)@ KO1 )J F)TKA0 *^F(2,1)F(2,4)F(2,1)F(2,7)(F(2,1)1F(2,1)2)KAF(2,1):KO14*hKO1(I2(J1J4J7))KO1:KO0C*r KO1 L*|KA0*F(2,3)F(2,6)F(2,3)F(2,9)(F(2,3)1F(2,3)2)KAF(2,3):KO1*KO1(I2(J3J6J9))KO1:KO0* KO1 *KA0+F(1,2)F(1,5)F(1,2)F(1,8)(F(1,2)1F(1,2)2)KAF(1,2):KO1>+KO1(I1(J2J5J8))KO1:KO0M+ KO1 V+KA0+F(3,2)F(3,5)F(3,2)F(3,8)(F(3,2)1F(3,2)2)KAF(3,2):KO1+KO1(I3(J2J5J8))KO1:KO0++ ERSATZSHAPEBESTIMMUNG**********0,PO1PO4PO7EZ$OL$:: ERSATZSTEINPOSITIONSENTSCHEIDUNGN,PO3PO6PO9EZ$OD$:o,PO16PO19PO22EZ$UL$:,PO18PO21PO24EZ$UR$:,&PO2PO23EZ$MO$:,0PO12PO15EZ$MR$:,:PO8PO17EZ$MU$:,DPO10PO13EZ$ML$:-NEZ$K$:--X BEZEICHNUNGSAUFBAU*************W-b 1,6,1,"A": 1,6,12,"B": 1,6,23,"C"-l 1,11,24,"1": 1,21,24,"2": 1,32,24,"3"-v 1,13,21,"4": 1,21,21,"5": 1,28,21,"6"- 1,16,18,"7": 1,21,18,"8": 1,25,18,"9".1,1,18,"NOCH":1,35,18,"NOCH",1+.1,2,20,(GW):1,36,20,(GB),1:y. DATABLOECKE ZU STEINPOSITIONS- BESTIMMUNG*********************. 74,14,159,14,244,14,99,39,159,39,219,39,124,64,159,64,194,64,74,99,99,99. 124,99,194,99,219,99,244,99,74,184,159,1846/ 244,184,99,159,159,159,219,159,124,134,159,134,194,134\/ STEINE SETZEN******************/GB9:GW9:W9:B9: T13: Y19:F(T,Y)0:Y,T/GE$"A1A2A3A4A5A6A7A8A9B1B4B7B9B6B3C1C2C3C4C5C6C7C8C9"/ 20300 4,8,6: 1,1,5,"WOHIN": 239,0: B$,Z$:A$B$Z$:DR1 0 1,2,9,A$N0A$"B2"A$"B5"A$"B8" 1,0,20: 2030}0  F(((B$)64),(Z$))0 1,0,20: 20300PO(((GE$,A$)1)2):PO01420:1,0,20: 20300 W$,X10,Y10:WW1:F(((B$)64),(Z$))1:1890:14601* KO1 293014 GW33200&1> 0,1,5,"WOHIN"11H 2130p1R 4,15,1: 1,34,5,"WOHIN",1: 239,0: B$,Z$:A$B$Z$:DR21\ 1,36,9,A$,11fA$"B2"A$"B5"A$"B8" 1,0,20: 21301p F(((B$)64),(Z$))0 1,0,20: 21302zPO(((GE$,A$)1)2):PO01420:1,0,20: 2130T2 BL$,X10,Y10:BB1:F(((B$)64),(Z$))2: 1890: 1460d2 GB33200x2 KO1 29302 0,34,5,"WOHIN"2 B0: 20202 STEINE ZIEHEN******************2 22602GW3 32003 4,8,6: 1,1,5,"VON ": 239,0: B$,Z$:A$B$Z$:DR1L3 F(((B$)64),(Z$))DR 1,0,20: 2260[3 1,2,9,A$3F(((B$)64),(Z$))0:PO(((GE$,A$)1)2):BOPO3 BO0 1790: 1,0,20: 22603 1420: EZ$,X10,Y10: 18903 2330 4 1,1,5,"NACH": B$,Z$:A2$B$Z$4$ 1,2,9,A2$54. GW3 2600: EV1h48 F(((B$)64),(Z$))0EV0 1,0,20: 23304B F(((B$)64),(Z$))1:PO(((GE$,A2$)1)2)4L PO0 1420: 1,0,20: 23304V W$,X10,Y10: 1890: 14604` KO1 29305j 0,1,5,"NACH"5t 2440#5~ GB3 3200h5 4,15,1:1,35,5,"VON",1:1,4,5," ":239,0:B$,Z$:A$B$Z$:DR25 F(((B$)64),(Z$))DR 1,0,20: 24405 1,36,9,A$,15 F(((B$)64),(Z$))0:PO(((GE$,A$)1)2):BOPO6 BO0 1790: 1,0,20: 2440)6 1420: EZ$,X10,Y10: 189046 2510e6 1,34,5,"NACH",1: 239,0: B$,Z$:A2$B$Z$x6 1,36,9,A2$,16 GB3 2600: EV16 F(((B$)64),(Z$))0 EV0 1,0,20: 25106 F(((B$)64),(Z$))2:PO(((GE$,A2$)1)2) 7 PO0 1420: 1,0,20: 2510B7 BL$,X10,Y10: 1890: 1460V7 0,34,5,"NACH"\7 7( ZUGMOEGLICHKEITSBESCHRAENKUNG**72 EV07< A$A2$ DR1 DR2: 32007F A$A2$ DR2 DR1: 32007P BO13 2670+8Z BO2690,2700,2710,2720,2730,2740,2750,2760,2770,2780,2790,2800,281018d y8n BOBO13:BO2820,2830,2840,2850,2860,2870,2880,2890,2900,2910,29208x BOBO13:8 A2$"A2"A2$"B1"EV1:: 8 A2$"A1"A2$"A3"A2$"A5"EV1:: 8 A2$"A2"A2$"B3"EV1:: 9 A2$"B4"A2$"A5"EV1:: R9 A2$"A4"A2$"A6"A2$"A2"A2$"A8"EV1:: u9 A2$"A5"A2$"B6"EV1:: 9 A2$"B7"A2$"A8"EV1:: 9 A2$"A7"A2$"A5"A2$"A9"EV1:: 9 A2$"A8"A2$"B9"EV1:: : A2$"A1"A2$"C1"A2$"B4"EV1:: H: A2$"B1"A2$"B7"A2$"A4"A2$"C4"EV1:: t: A2$"B4"A2$"A7"A2$"C7"EV1:: : A2$"B6"A2$"A9"A2$"C9"EV1:: : A2$"B9"A2$"B3"A2$"A6"A2$"C6"EV1:: ; A2$"B6"A2$"A3"A2$"C3"EV1:: $; A2$"B1"A2$"C2"EV1:: P;" A2$"C1"A2$"C3"A2$"C5"EV1:: s;, A2$"C2"A2$"B3"EV1:: ;6 A2$"B4"A2$"C5"EV1:: ;@ A2$"C4"A2$"C6"A2$"C2"A2$"C8"EV1:: ;J A2$"C5"A2$"B6"EV1::  1420: 1790:F(((B$)64),(Z$))0:AU0d> EZ$,X10,Y10: 0,1,5,"WELCHER": 0,1,7,"STEIN ?": 1890> DR1 GBGB1: 1,36,20,(GB),1> DR2 GWGW1: 1,2,20,(GW)>& >0 UPR ZU STEINENTFERNUNG*********?: 0,1: 1,7,5,"IST DIESE STEINENTNAHME"(?D 1,7,7,"DER REGEL GEMAESS ?"A?N DR1 VA2: VA1u?X 1,2,9,"(VON SPIELER"(VA)" ZU BEANTWORTEN)"?b 1,13,11,"(J/N)"?l 239,0: RI$: RI$"J" AU1?v 1,0:? SCHLUSS-SIEGEREHRUNG***********@ 0,2,0: 4,2,0: 1,1: 0,1@ DR1 N3$N1$: N3$N2$M@ 1,4,5: T024: 1,1,T,"GRATULIERE !":p@ 1,12,4: 1,20,12,FA$N3$FO$@ 1,8,5: 1,25,4,"SIEGER ! ! !": 1,25,20,"SIEGER ! ! !"@ 1,3,5: 8:1,7,480:2,770,480: 3340@ 1,7,120: 2,516,120A 1,516,120: 2,770,1206A 1,770,150: 2,897,150:T12300:\A 1,0:: 3380: 1,7,30: 2,516,30xA 1,516,200: 2,897,200A T13:1,7,5:1,159,99,47:1,12,5:1,159,99,47:A T14000:: 0,2: 4,7,6: 1,1: 0,1:B GRAPHIC - SCHLUSSEHRUNG********.B 1,159,99,90:1,159,99,89: 1,159,99,88dB 1,4,3: 1,159,99,63: 1,159,99,62: 1,159,99,61B* 1,8,4: 1,159,99,36: 1,159,99,35: 1,159,99,34:B4 1,20(((N3$)1)2),12,N3$B> 1,2,3,"SIEGER !"BH 1,30,3,"SIEGER !"CR 1,2,21,"SIEGER !"C\ 1,30,21,"SIEGER !"$Cf DCp 0,1: 0,2: 1,1: 4,7,6:eCz MUEHLE =================P4C 048383 BYTES MEMORY ===C 013387 BYTES PROGRAMM ===C 000000 BYTES VARIABLES ===C 000000 BYTES ARRAYS === D 000000 BYTES STRINGS ===+D 034681 BYTES FREE (0) ===LD ==========================