P DATUM 14-2-1982$Z JATZEE1d:(14);n1690cxDI(5),T(5),SC(4,13),TL(4,3),NM$(4)uDN$"""HOEVEEL SPELERS?":"1 OF 2 ";:1490:NP(IN$):NP1NP2"1 OF 2 SPELERS! AUB...,":210"HUN NAMEN AUB. ":"(MAXIMAAL 3 LETTERS)"PI1NP:"SPELER";I;":":1490:NM$(I)IN$::(IN$)3230nTL(I,0)94I3(IN$):II14:J113:SC(I,J)1:J:J13:TL(I,J)0:J,I (142)PL0:RD11340:DN$;"";"I1NP:TL(I,0));NM$(I);"":I,I15:DI(I)0:I:RL0?6PLPL1:PLNPPL1:RDRD1:RD13840I@1440sJDN$;"RONDE";RD;TL(PL,0));NM$(PL)TPR$"? ":1320:RL0IN$"00000"^IN$""340h(IN$,1)"0"ZER1:IN$(IN$,2):IN$""340rN1:A1:I1(IN$)|T$(IN$,I,1):T$"A"T$"M"A0-T$"0"T$"6"N04I?A560LN0340}RLRL1:RL3PR$"AL 3 KEER GEGOOID":830I1(IN$):T((IN$,I,1))J15:DI(J)TDI(J)0:N0:470JI:NRLRL1:830"":"WORP ":"NR:";RL!1240:970:RV$"":DN$;NI16:SCSC(0,I):SC(PL,I)0540:"";[:I::I713:SCSC(0,I):SC(PL,I)0540:"";:I:34094PL);RV$;(" "(SC),3):&94PL);" :":0RV$"":T(IN$)64:ADDSC(0,T) :T12ADD0SC(PL,T)0ADD100:620O DSC(PL,T)0PR$"HEEFT U AL INGEVULD":830d NADD0ZER1620 XPR$"HEUS OP 0 ZETTEN?":1320 b(IN$,1)"Y"340 lXT:T6XX2 vSC(PL,T)0SC(PL,T)0 :DN$;("",X); RV$"":SCADDSC(PL,T):SC(PL,T)SC) 540:T6750? ("",7T);c XTL(PL,1):SCXADD:TL(PL,1)SCw X62SC63720 XSC:SC35:XXSC:"";:540:TL(PL,1)X TL(PL,3)TL(PL,3)SC:SCX 540:"";:770 ("",14T); SCTL(PL,2)ADD:TL(PL,2)SC:540A SCTL(PL,3)ADD:TL(PL,3)SC:RV$""e 94PL);RV$;(" "(SC),3); DN$;:I16:SC(PL,I)0550:""; :I:: I713:SC(PL,I)0550:""; *:I 4DN$;"";TL(PL,0));NM$(PL):300 >DN$;"";PR$:I12500:I:340/ HTMTI300:I1NP:J1NP1J RTL(J,3)TL(J1,3)880v \TTL(J,3):TL(J,3)TL(J1,3):TL(J1,3)T fT$NM$(J):NM$(J)NM$(J1):NM$(J1)T$ pJ,I zTITM890 "EIND STAND: " I1NP:TL(I,3);" VOOR ";NM$(I):I? "NOG EENS PROBEREN? (J/N) ";:198,0:1490V (IN$,1)"N"260^ :q T$:T$""950w  I113:SC(0,I)0:I:CT0:SUM0 I15:TDI(I):XSC(0,T):X0CTCT1 SC(0,T)X1:SUMSUMT:I:SC(0,13)SUMCT1010,1040,1020,1090,1160>SC(0,12)50:SC(0,8)SUM:SC(0,7)SUM:1220`I16:SC(0,I)3SC(0,7)SUMmI:1220CT0:I16:SC(0,I)1CTCT1I:SC(0,7)SUM$CT0SC(0,9)25.CT1SC(0,8)SUM81220BMN7:MX0:I16LSC(0,I)01130VIMNMNI`IMXMXI&jI?tMXMN3SC(0,10)30I~1220SC(0,1)0SC(0,6)0SC(0,11)40:SC(0,10)30:1220SC(0,2)0SC(0,5)0SC(0,10)30:12201220IMXMXIIMXMN4SC(0,10)30:SC(0,11)40I16:SC(0,I)SC(0,I)I:I'I15kDI(I)0Q((1)61):T(I)3((1).5)3:CT(Q)CT(Q)1:DI(I)QrI{ ""J15:4J3);((DI(J)),1);::(DN$;" ":PR$;21490:<"":1440 FT$"=TOTAAL=============="BPDN$;"A:......ENEN":"B:....TWEEEN":"C:....DRIEEN"vZ"D:....VIEREN":"E:....VIJVEN":"F:....ZESSEN"d" >=63.BONUS":T$n"G:..3 ZELFDE":"H:..4 ZELFDE":"I:2/3 ZELFDE"x"J:.KL STRAAT":"K:.GR STRAAT" "L:....JATZEE":"M:.....GELUK"$T$:" EIND TOTAAL:";*UT$"":U$" ":V$"":S$""w"";S$;T$;T$;T$;T$;T$:I12S$;U$;U$;U$;U$;U$:I:S$;V$;V$;V$;V$;V$"":"WORP ":"NR: ":" "IN$" ":ZTTI:ZC2:ZD$(20) Z$:Z$""1530=ZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15G1500vZ(Z$):ZL(IN$):(Z127)32" ";:1570FL(Z127)64(Z127)91Z$((Z128)255)ZL2541500IN$IN$Z$:Z$;ZD$;Z$;"Z13IN$(IN$,2):CR$;:,Z20ZL1IN$(IN$,ZL1):"";:1500N6Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:1490X@1500gJPN01660}T13)"[TOETS]"^PNLP14)"VOOR":14)"START"h198,0rT$:T$""1650|PNLP:"";:120PNPN1:"PAG.";PN;"">"**** ***-PRODUCTIE":"COPYRIGHT (C) 1980"o"ANGEPAST VOOR DOOR "Q122:"";::"ILT INSTRUCTIE'S? (J/N) ";:1490(IN$,1)"J"1740"";::120LP4:1610" '"E"NEN TOT ZESSEN: 1 OF MEER VAN DAT SPECIALE NUMMER: (BV."`"4, 5, EN DRIE 2-EN)""AARDE IS DE SOM VAN DE GECOMBINEERDE NR'S.""BV: (3 3 4 5 3) IS IN WAARDE: 9""3 X ZELFDE: ELKE DRIE STENEN MET HET ZELFDE NUMMER:"&"WAARDE IS DE SOM VAN ALLE 5 STENEN."01610n&"4 X ZELFDE: ELKE VIER STENEN VAN HET ZELFDE NUMMER:"0"WAARDE IS DE SOM VAN ALLE 5 STENEN."D"2 & 3 X ZELFDE: DUS 2 VAN DE ENE EN 3 VAN DEANDERE:"N"WAARDE25 PUNTEN."$b"LEINE STRAAT: 4 OPEENVOLGENDE NR'S. BV:"Tl"2 3 4 5 OF 1 2 3 4. WAARDE 30 PUNTEN."^q1610v"ROTE STRAAT: 5 OPEEN VOLGENDE NR'S. BV:""2 3 4 5 6 OF 1 2 3 4 5 IS 40 PUNTEN WAARD.""ATZEE: ALLE STENEN GELIJKE WAARDEN!"$"AARDE IS 50 VOOR DE 1STE EN 100 PUNTEN"R"VOOR ELKE WORP VAN 5 GELIJKEN DAARNA!""ELUK: ALLES WAT WILT, DE WAARDE IS""GELIJK AAN DE SOM VAN ALLE STENEN!"1610"OOR DE 1STE WORP DRUKOP RETURN."#"OOR ELKE VOLGENDE, DECIJFERS DIE WEG MOETEN+ RETURN."g"OOR SCORE NOTATIE: GEEF DE LETTER IN VAN DIE COMBINATIE,""+ RETURN TOETS!""OOR HET '0' ZETTEN: GEEF EEN '0' + DE ""COMBINATIELETTER + RETURN TOETS IN."1610