''A1$"HEIMCOMPUTER robotron Z9001"=A2$"SPIELE":A92PA3$"K+GAMMON"eA4$"BACKGAMMON"A5$"EIN STRATEGIE-SPIEL" VERFASSER:KITTELMANN ANSCHRIFT:MKD,1EKG DATUM 21.02.1985 VERSION 1.0 VON HOLGER GEHRMANN, HG-SOFTWARE( INITIALWERTE =================IN;A9:8:1:160sB(27),D(4),DA$(3),DI$(6,3),US(4),P(24),PR(6),M$(5)I((31)1)BK$(40," "):M$(1)"WERFE DURCH "M$(2)"ZIEHE VON ":M$(3)"ZIEHE VON " M$(5)"ZIEHE VON ":M$(4)"KANN NICHT SETZEN"3M$(0)"RAUS VON ":FR$" NACH "V"AL$"XWVUTSRQPONMLKJIHGFEDCBA"k$I112:P(I):I&.31,.33,.39,.42,.42,.47,.17,.17,.14,.08,.06,.08(I06:PR(I):*0,.03,.11,.25,.44,.69,1.I16:J13:DI$(I,J):J:I70"","","","","","","","",""{2"","","","","","","","",""Z100:1000` UNTERPROGRAMME ===============UPb TITELBILD --------------------UPd(2,2);A1$:(4,2);"",(34,""),""f(5,2);"":(5,37);""=h(6,2);"",(34,""),""]j(5,3);A2$:3;(5,29);A3$wlA9:(8,2);(36,"")nI913:(I,2);"":(I,37);"":Ip(14,2);(36,"")r8:(10,36(A4$));A4$:(12,36(A5$));A5$ t3:(17,2);"HANS KITTELMANN"% u(19,2);"8019 DRESDEN"G v(21,2);"HOLBEINSTR. 131":8m w >ENTER< ---------------------UP x4;(22,31);">ENTER<" |170:T13(20,27);(11," "): ~130:124 WIE BITTE ? -----------------UP 2;(20,27);"WIE BITTE ?":( J/N ABFRAGE -----------------UPM 4;(22,(34(KY$)));KY$," ? J"h 170:2;(22,37);(T) T74T13T1:(20,27);(11," "): T78T0:(20,27);(11," "): 130:10:150 STANDART-WINDOW -------------UP ::(0,0);" ":) TASTENABFRAGE ---------------UPD T(36):T0T127170J z 160:L$" ":M$" ":R$"":LL$(14," ") (0,8);"ABCDEF*GHIJKL":X$" " I18:(I,8);L$,X$,X$,X$,M$,X$,X$,X$,R$:I I910:(I,8);"",LL$,"",LL$,"":J X$" ":I1118:(I,8);L$,X$,X$,X$,M$,X$,X$,X$,R$:I{ (19,8);"XWVUTSRQPONM": (" "(13I),2)21)((I12),2): I025:B(I)0:I:B(26)15:B(27)15 B(1)2:B(6)5:B(8)3:B(12)5 B(13)5:B(17)3:B(19)5:B(24)2; I124:N(B(I)):TMI:FM27(N0)^ B(I)0:N0J1(N):312:Je I L1419:(L,0);" ":L L2023:(L,0);BK$:L (16,0);(" IHR MEIN ",54NP,8):(18,0);" WURF "(17,0);" ":(19,0);" "PJ12:LX5J4:K03:(LXK,2);" ":K: PAUSE1(LX,2);"":K13:(LXK,2);DI$(D(J),K):K:JPP0:J624:K13J6K12IKJ6:B(I)0PPPPP(IK)I:K14PPPPP(25K)2MS3:CS0Q48PR(BH)(1PR(BH))3Q58PR(BC)(1PR(BC))QKP5:238:CZPP(P5Q4)AhKP5RL:238:PZPPCWPZ(P5RLQ4)AB(P5)2CSCSCZB(P5)1B(K)0CSCSCZ:MS5B(K)1CSCS25KQ5:MS1:K18CSCS4B(K)1270 CSCSCW:B(P5)2MS2 276<SM0:J20:NNKR1:NN20JNNdIKJ:B(I)1SMSMP(IK)(25I)~I:CSCSCW(1PZ)SMBS999:BM4:FM0:TM0:TRTR1L2411:B(L)1L:RLD(Y):RLRL:R24L:RFB(R)1L: B(R)1L: G1296B"Q0:L1LD(1):L2LD(2):B(L1)2Q1T$B(L2)2Q2b&Q0L:p(P5L:246~*G1306,MS3:B(L1)1Q1:CSCS25L1:MS1.B(L2)1Q2:CSCS25L2:MS10KQ2CSBSL:4BSCS:FML:TMK:BMMS6L:18PTFM:328:P(B(FM)):328:B(FM)B(FM)PT:FM25FM0(Z8,S8);"":318{;D$"":(1PT)1(B(PT))8D$" "<FM26(Z8,S8);D$>B(TM)P322@PT25(P0):B(PT)B(PT)P:328:PP:500:PP:B(TM)0 BB(TM)B(TM)P:PTTM:TM26328:500DS8MV2:MVMV1$F1HPT25EJPT0PT25340eLVT(B(PT)):PT13VT19VTNTB(12.5PT)21:TB12TBTB4PTB30TBR344TVTB(PT):VT0VT19VTVTB15XZ8VT:S8TB8:ZJ150:Z$:Z$""354 \J:(21,S8);""*^J150:Z$:Z$""354D`J:(21,S8);" ":346dbZ(Z$):ZL(IN$):Z32362rdZ90346fZL30346hIN$IN$Z$:(21,8);IN$:S8S81jZ13(21,S8);" ":lZ8ZL0IN$(IN$,ZL1):(21,S8);" ":S8S81:348"nZ2(21,8);(ZL1," "):IN$"":S88+p346H2P1(Z8,S8);""::c2P2(Z8,S8);"":2P3(Z8,S8);"":: HAUPTPROGRAMM ===============HPCM24:F6:S0:HM24:HB0:CB0:XC0:XH0:TT.5160:ATT:(1).5F1200:2147D(1)((1)61):D(2)((1)61):D(1)D(2)1004ENP1:234}D(2)D(1)NP1:(16,0);"SIE":(18,0);"BEGINNEN"D(2)D(1)NP1:(16,0);"ICH":(18,0);"BEGINNE"50:TU2:1022TU2:D(1)((1)61):D(2)((1)61):D(3)D(1)D(2)(D(1)D(2)D(3)D(1):D(4)D(1):TU46232:228jMV0:Y0:I1TU:YYD(I):US(I)0:I:NP11182}XHXHY:IN$""I1IN$""(IN$)2IN$(IN$,2):1036 228:(21,0);"ZUG",I,":":S88:SS$:346 IN$""1138 (IN$)11046&IN$"A"IN$"F"IN$"*"IN$IIN$"S"IN$"X"IN$IN$"-"\(IN$)11046~(23,8);"FALSCHER ZUG":1181(IN$)31044(IN$,2,1)","IN$(IN$,1)(IN$,3):1048F$(IN$,1)F$"A"F$"X"FM89(F$):1056FM25:F$"*"F$"-"1044* T$(IN$,2,1)H"T$"*"T$"-"TM0:1064`$T$"A"T$"X"1044&TM89(T$):N0:MFMTM:K1:L0(FM25B(25)0(23,8);"KEIN STEIN AUF BAR":1181*FMTM(23,8);"RICHTUNG FALSCH":1181,B(25)0FM25(23,8);"STEIN EINWERFEN":1181N.B(FM)0(23,8);"KEIN STEIN AUF ",F$:1181]0TM011132L0:J1TU:US(J)KK1:10804LL1:NND(J):NM10826D(J)MKJ:L1:10828J:(23,8);M,"GEHT NICHT":1181:B(TM)1(23,8);"FELD ",T$," BESETZT":1181*<L1312:US(K)1:1178[>B(25)1(23,8);"STEIN E EINWERFEN":1181j@TU41100BB(FMD(1))1M1:1096DB(FMD(2))1M2:1096F(23,8);"FELD IST BESETZT":1181HNTM:TMFMD(M):312:FMTM:TMN:312:II1J1178LN1L'NB(FMD(1)N)11094.PN9RNKJUTTMFMD(N):US(N)1:312hVII1:FMTM:NxXII1:1178YK724:B(K)0(23,8);"RAUS IST NOCH VERBOTEN":1181ZK\TM26:J1TU:US(J)0FMD(J):312:US(J)1:1178^J `FM61128bJ6FM11RdB(J)0(23,8);"RAUS VON ",F$," GEHT NICHT":1181YfJhK0:D(K)0:J1TU:US(J)0D(J)FMD(J)D(K)KJjJlK0(23,8);FM," FELDER GEHT NICHT":1181n(23,8);"ICH VERWENDE WURF",D(K):US(K)1:10 p:312:1178rB(25)01148'tJ16LvJD(TU)US(TU)0B(25J)21176uxJD(TU1)US(TU1)0B(25J)21176zJ:1180|J2421~B(J)01156JD(TU1)0US(TU1)0B(JD(TU1))21176JD(TU)0US(TU)0B(JD(TU))21176J"J2471:B(J)01180)JGUS(TU)0B(D(TU))01176iUS(TU1)0B(D(TU1))01176US(TU)DD(TU1):1170DD(TU):US(TU1)0DD(TU1)DD(TU1)J1D1:B(J)01176J:1180 (23,8);"ZUG IST MOEGLICH":1181 II1:ITU1030) NP1:1346H L116::2:L:228:1030b 21,23,8,39:MO0:B90n XCXCYv K0 KK1:B(0)0KTU1200 B(D(K))11188 US(K)1:MOMO1 FM0:TMD(K):312!:"VON BAR UND WERFE DURCH ";(AL$,TM,1); !1188!K0/!KK1:B(0)0KTU1214K!B(D(K))0US(K)01202_!US(K)1:MOMO1u!FM0:TMD(K):312!:"EINWURF AUF ",(AL$,TM,1);!1202!B(0)0MOTU1220!MOTU:"KANN NICHT EINWERFEN";!1336!CM61258"J1TU:L25D(J):B(L)11226U"FML:TM27:312:::M$(0);(AL$,L,1);:MOMO1:1250 ]"K6"Y25K:B(LK)1B(Y)11236"B(Y)1B(Y)0"FMLK:TMY:312":M$(3);(AL$,FM,1);FR$;(AL$,Y,1);:1250"K1KK1:1228"K1#LK241248#B(LK)112486#MOMO1:FMLK:TM27:312i#::M$(0);(AL$,FM,1);" MIT WURF";D(J);:1250~#K6KK1:1240#B(27)151346#TUMO1336#J#1336#TUMO1336#TUMO21292#HB01292#JI#B(J)11290&$J1JD(1):J2JD(2):J11J211290B$D(1)D(2)B(J1)11290\$B(J1)1B(J2)11290k$TU41280$J118B(J1)21290$J218B(J2)21290$MVMV1:TMJ:FMJ1:312:FMJ2:312$:M$(1);(AL$,J1,1);" UND ";%(AL$,J2,1);" NACH ";(AL$,J,1);:MOMO2:HBHB14%TU4US(3)1:US(4)1>%1258T% J24JJ1:1266a% TR0:Y1s%US(Y)11332|%278%Y1MO0TU4BM41310%S1BS:F1FM:M1BM:Y2:278%S2BS:F2FM:M2BM:Y3:G1:278&G0:BSS1S2YTM:TMFMD(Y):13101&S2S1FMF2:Y2:TMF2D(Y):BMM2:1310P&FMF1:Y1:TMF1D(Y):BMM1`&BM41322t& F1F1:1296&"TRTU41332&$J118:B(J)0B9:M$(4);:1336&&J:B91:1222&(1332&*BM1HBHB1',MOMO1:US(Y)1:HM24CMBM3:A0 '.3126'0:M$(BM);(AL$,FM,1);FR$;(AL$,TM,1);F'2MOTU1336Z'4YY1:YTUY1d'61294s'8X$:NP1'9I125:X$:X$(13)1342':I:(16,0);"BITTE ":(18,0);"WUERFELN"';I125:X$:X$(13)1342(<I:(16,0);" ":(18,0);" "(=1337!(>224+(@1346W(BB(26)15X$"GEWONNEN MIT":XCP:1380(DB(27)15X$"VERLOREN MIT":XHP:1380(FHM0:CM0:JM0:HP0:CP0:HB0:CB0:BC0:BH0(HI025(JB(I)0HPHPB(I)I:HMI)LB(I)0CPCPB(I)(25I):JM25I)NJMCMCMJM))PB(I)1HBHB1=)RB(I)1CBCB1V)TI7B(I)1BHBH1o)VI18B(I)1BCBC1v)XI)ZXXCP:HPXXXXHP)\Y(CPHP)XX:Y.2S1:F6:A.1)^Y.1S0:F1:ATT)`S1HM6FHM)b1016*d228:(21,2);X$,X,"AUGEN DIFFERENZ"B*f(22,2);"MEINE AUGEN =",XC," IHRE AUGEN =",XHc*h(23,2);"NOCH EIN SPIEL? J"l*jX$*lX$:X$""1388*nX$"J"X$(13)1000*pX$"N"9000*r1388*'# ENDE =====================ENDE +(#160:3;(8,2);"AUF WIEDERSEHEN!":50:T$:(13)1000*pX$"N"9000*r1388*'# ENDE =====================ENDE +(#160:3;(8,2);"AUF WIEDERSEHEN