5 POKE53280,0:POKE53281,11:DIMR$(18) 10 DIM PT(4,18):DIM PK(4,18):DIM T$(18) 15 DIMHD(6),LD(6) 16 FORI=0TO6:READHD(I),LD(I):NEXT 17 DATA9,21,18,42,20,100,24,63,27,56,30,141,36,85 20 FOR I=0TO18 30 READ T$(I),R$(I):NEXTI 35 DATA.,.,A,YKKOSET,B,KAKKOSET,C,KOLMOSET,D,NELOSET,E,VIITOSET,F,KUUTOSET,,,, 40 DATAG,PARI,H,2 PARIA,I,3 SAMAA,J,4 SAMAA,K,P-SUORA,L,I-SUORA,M,T-KASI 45 DATAN,SEKAL.,O,YATZY,.,. 50 POKE53272,23 55 PRINT"[147] [154] " 60 PRINT"  [217][160][160][193][160][160][212][160][160][218][160][160][217] " 70 PRINT"  " 80 PRINT 90 PRINT" [210]ISTO [200]AMALAINEN" 100 PRINT" 1 9 8 3 " 110 PRINT 120 PRINT" [212]AMA ON NORMAALIN YATZY-PELIN TIETO-" 130 PRINT" KONEVERSIO 1-4:LLE PELAAJALLE." 140 PRINT 150 PRINT" [211]EURAA RUUDUN YLAREUNAAN TULEVIA " 160 PRINT" TOIMINTAOHJEITA. [214]ARSINAISIA YATZYN" 165 PRINT" SAANTOJA EI TASSA SELVITETA ERIKSEEN." 170 PRINT" [203]ONE ARPOO PELIJARJESTYKSEN,PITAA" 180 PRINT" KIRJANPITOA SEKA OHJAA PELIN KULKUA.":PRINT 220 PRINT" [205]IKA ON PELAAJIEN MAARA";:INPUTPM 225 IFPM<1ORPM>4THEN220 230 PRINT:PRINT" [193]NNA NIMET (MAX 5 KIRJ.): " 240 FOR I=1TOPM 250 PRINT" [208]ELAAJA"I; 252 INPUT N$(I):IFLEN(N$(I))>5THEN N$(I)=LEFT$(N$(I),5) 258 NEXT 260 PRINT" [203]IITOS! [208]AINA [210][197][212][213][210][206][146]!" 270 GETA$:IFA$=""THEN270 280 FOR I=1TO6 290 H1=HD(I):L1=LD(I):KE=125 300 GOSUB6000 310 NEXT 400 FOR I=1TO PM 410 X=INT(RND(1)*PM)+1 420 IF N$(X)="X" THEN 410 430 P$(I)=N$(X):N$(X)="X" 440 NEXTI 600 PRINT"[147]" 605 PRINT"[176][192][192][192][192][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]" 610 PRINT"[221]PELI [221] [221] [221] [221] [221] VUOROSSA" 620 PRINT"[171][192][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]" 630 PRINT"[221]A 1:SET [221] [221] [221] [221] [221]" 640 PRINT"[221]B 2:SET [221] [221] [221] [221] [221]" 650 PRINT"[221]C 3:SET [221] [221] [221] [221] [221]" 660 PRINT"[221]D 4:SET [221] [221] [221] [221] [221]" 670 PRINT"[221]E 5:SET [221] [221] [221] [221] [221]" 680 PRINT"[221]F 6:SET [221] [221] [221] [221] [221]N O P A T" 690 PRINT"[171][192][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] " 700 PRINT"[221]1-6 YHT.[221] [221] [221] [221] [221]" 710 PRINT"[221] HYVITYS[221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221]" 720 PRINT"[221]G PARI [221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221] " 730 PRINT"[221]H 2PARIA[221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221] " 740 PRINT"[221]I 3SAMAA[221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221] VALITTU" 750 PRINT"[221]J 4SAMAA[221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221] PELI " 760 PRINT"[221]K PSUORA[221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221]" 770 PRINT"[221]L ISUORA[221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221]" 780 PRINT"[221]M T-KASI[221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221]" 790 PRINT"[221]N SEKAL.[221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221]" 800 PRINT"[221]O YATZY [221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221][160][160][160][160][221]" 810 PRINT"[171][192][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]" 820 PRINT"[221]YHTEENSA[221] [221] [221][160][160][160][160][221][160][160][160][160][221]" 840 PRINT"[173][192][192][192][192][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"; 850 PRINT"";TAB(10);P$(1); 860 PRINTTAB(15);P$(2); 870 PRINTTAB(20);P$(3); 880 PRINTTAB(25);P$(4) 1000 V=0 1010 V=V+1:IF V>PM THEN V=1 1015 PRINT"[150]";TAB(31);" " 1020 PRINT"";TAB(32);"";P$(V) 1030 H1=HD(1):L1=LD(1):KE=125:GOSUB6000 1040 H1=HD(V+1):L1=LD(V+1):KE=250:GOSUB6000 1050 H=0 1055 FOR I=1TO5:L$(I)=" ":NEXT 1060 H=H+1 1062 PRINT""; 1063 PRINTTAB(30);"[160]    " 1065 GOSUB9999:IF H>1 THEN1072 1070 PRINT" PAINA RETURN[146]";"";TAB(30);H;"[157].HEITTO":GOTO 1075 1072 PRINT"";TAB(30);H;"[157].HEITTO":GOTO1078 1075 GETX$:IFX$=""THEN1075 1076 IF X$<>CHR$(13)THEN1075 1078 GOSUB9999:Z=1 1080 FOR X=Z TO 10 1090 FOR Y=ZTO5 1095 IF L$(Y)="X"THEN 1110 1100 N(Y)=INT(RND(1)*6)+1 1105 B$=STR$(N(Y)) 1106 A$(Y)=RIGHT$(B$,1) 1110 NEXTY 1120 PRINT""; 1125 PRINTTAB(30);A$(1);"";A$(2);"";A$(3);"";A$(4);"";A$(5) 1130 NEXTX 1135 Z=Z+1:IFZ<6THEN1080 1137 H1=HD(0):L1=LD(0):KE=75:GOSUB6000 1140 IF H=3 THEN 1500 1160 FOR I=1TO5 1165 PRINT""; 1166 PRINTTAB(28+2*I);"";A$(I);"[146]" 1170 PRINT""; 1180 PRINTTAB(28+2*I);" " 1190 NEXTI 1200 GOSUB9999 1205 PRINT" ILMOITA UUSINNAT: RET=KYLLA, X=EI[146]" 1210 FOR I=1TO5 1215 PRINT"";TAB(28+2*I);"^"; 1220 GET X$:IF X$="" THEN 1220 1222 IF X$="X"ORX$=CHR$(13)THEN1225 1223 GOTO1220 1225 L$(I)=X$:IFX$<>"X"THEN1237 1227 PRINT""; 1228 PRINTTAB(28+2*I);" [146]" 1230 PRINT""; 1235 PRINTTAB(28+2*I);A$(I) 1237 PRINT"";TAB(28+2*I);" "; 1240 NEXTI 1242 GOSUB9999 1244 PRINT" KORJAA (K) TAI PAINA RETURN[146]" 1246 GETD$:IF D$=""THEN1246 1248 IF D$="K"THEN1160 1249 IF D$<>CHR$(13)THEN1246 1250 GOSUB9999:X=0 1260 FOR I=1TO5 1262 PRINT""; 1263 PRINTTAB(28+2*I);" " 1270 IF L$(I)="X" THEN X=X+1 1275 NEXTI 1280 IF X<5 THEN 1290 1283 FOR I=1TO5 1285 PRINT""; 1286 PRINTTAB(28+2*I);"";A$(I);"[146]" 1287 NEXTI:GOTO1500 1290 GOTO 1060 1500 FOR I=1TO5 1510 PRINT""; 1520 PRINTTAB(28+2*I);" " 1522 NEXTI 1525 GOSUB9999 1530 PRINT" VALITSE KIRJAIMELLA HALUAMASI PELI[146]" 1532 PRINT"";TAB(31);" " 1535 GETX$:IFX$=""THEN1535 1538 FOR I=1TO18 1539 IFX$=T$(I)THEN 1542 1540 NEXTI:GOTO1580 1542 GOSUB9999 1544 PRINT"";TAB(31);R$(I);"[146]" 1545 PRINT" KORJAA (K) TAI PAINA RETURN[146]" 1546 GET D$:IFD$=""THEN1546 1548 IF D$="K"THEN1525 1550 IFD$<>CHR$(13)THEN1546 1555 PRINT"";TAB(31);" " 1560 GOTO1600 1570 NEXTI 1580 GOSUB9999 1582 H1=HD(V+1):L1=LD(V+1):KE=250 1583 FOR I=1TO3:GOSUB6000:NEXT 1585 PRINT" VAARA VALINTA/YRITA UUDELLEEN[146]" 1590 GOTO1535 1600 IF PK(V,I)=1 THEN 1580 1610 PK(V,I)=1:IX=I:S=0:NN=0 1615 NN=NN+1:Y(NN)=0 1620 FOR J=1TO5 1630 IF NN=N(J) THEN Y(NN)=Y(NN)+1 1640 NEXTJ 1650 IF NN<6THEN1615 1680 IFI>9 THEN 1690 1685 ONI GOTO 1700,1800,1900,2000,2100,2200,2300,2400,2500 1690 I=I-9 1695 ON I GOTO 2600,2700,2800,2900,3000,3100,3200,3300,3400 1700 S=Y(1):GOTO4000 1800 S=2*Y(2):GOTO4000 1900 S=3*Y(3):GOTO4000 2000 S=4*Y(4):GOTO4000 2100 S=5*Y(5):GOTO4000 2200 S=6*Y(6):GOTO4000 2300 GOTO1580 2400 GOTO1580 2500 FOR NN=6TO1STEP-1 2510 IF Y(NN)< 2 THEN 2530 2520 S=2*NN:GOTO4000 2530 NEXT NN 2540 S=0:GOTO4000 2600 FOR NN=6TO1STEP-1 2610 IF Y(NN)< 4 THEN 2630 2620 S=4*NN:GOTO4000 2630 NEXT NN 2640 FOR NN=6TO1STEP-1 2645 IF Y(NN)< 2 THEN 2660 2650 S=2*NN+S 2655 IF S>2*NN THEN4000 2660 NEXT NN 2670 S=0:GOTO4000 2700 FOR NN=6TO1STEP-1 2710 IF Y(NN)< 3 THEN 2730 2720 S=3*NN:GOTO4000 2730 NEXT NN 2740 S=0:GOTO4000 2800 FOR NN=6TO1STEP-1 2810 IF Y(NN)< 4 THEN 2830 2820 S=4*NN:GOTO4000 2830 NEXT NN 2840 S=0:GOTO4000 2900 FOR NN=6TO1STEP-1 2910 IF Y(NN) >1 THEN S=0 2915 IF Y(NN) >1 THEN 4000 2920 NEXTNN 2930 IF Y(6)>0THEN S=0 2932 IF Y(6)>0THEN 4000 2935 S=15 2940 GOTO4000 3000 FOR NN=6TO1STEP-1 3005 IF Y(NN) >1 THEN S=0 3010 IF Y(NN) >1 THEN 4000 3020 NEXTNN 3030 IF Y(1)>0THEN S=0 3032 IF Y(1)>0THEN 4000 3035 S=20 3040 GOTO4000 3100 X=0 3110 FOR NN=6TO1STEP-1 3120 IF Y(NN)=2 THENX=X+2 3130 IF Y(NN)=3 THENX=X+3 3140 NEXT NN 3150 IF X=5 THEN 3170 3160 S=0:GOTO4000 3170 FOR X=1TO5 3180 S=S+N(X) 3190 NEXTX:GOTO4000 3200 FOR NN=1TO5 3210 S=S+N(NN) 3220 NEXTNN 3230 GOTO4000 3300 FOR NN=6TO1STEP-1 3310 IF Y(NN)<>5 THEN 3330 3320 S=50:GOTO4000 3330 NEXT NN 3340 S=0:GOTO4000 3400 GOTO1580 4000 PT(V,IX)=S 4005 PRINT"" 4007 IF IX<7 THEN4010 4008 PRINT""; 4010 FOR I=1TOIX:PRINT:NEXTI 4020 PRINTTAB(5+5*V);S 4030 S=0 4040 FOR I=1TO6 4050 S=S+PT(V,I) 4060 NEXT 4070 IF S>62 THEN PT(V,8)=50 4080 PT(V,7)=S 4090 PRINT"";TAB(5+5*V);PT(V,7) 4100 PRINTTAB(5+5*V);PT(V,8) 4110 S=0 4120 FOR I=7TO 17 4130 S=S+PT(V,I) 4140 NEXT 4145 PT(V,18)=S:IFS>PATHENPA=S 4150 PRINT"";TAB(5+5*V);S 4160 IF V<>PM THEN 1010 4170 FOR I=1TO6 4180 IF PK(V,I)=0THEN1010 4190 NEXT I 4270 FOR I=9TO17 4280 IF PK(V,I)=0THEN1010 4290 NEXT I 4300 FOR I=1TOPM 4310 IFPT(I,18)