1 REM *****************
2 REM *   NAPPIPELI   *
3 REM * BY J. VISKARI *
4 REM * (C) MCMLXXXVI *
5 REM *****************
6 REM""(null)
8 A$="      [146]"
9 F$="[194][160][194][160][194][160][194][160][194]  ":G$="[171][195][219][195][219][195][219][195][179]  "
10 POKE53280,8:POKE53281,8
11 PRINT"[147][144]           N A P P I P E L I"
12 H$="[176][195][178][195][178][195][178][195][174]  ":I$="[173][195][177][195][177][195][177][195][189]  "
13 PRINT"           [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
14 PRINT"[149]":FORX=1TO7:PRINTA$:NEXT
15 PRINT"[213][195][195][195]  [146] [195][195][195][201]":PRINT"[194]     [146]    [194]"
16 PRINT"[194]   [213] [146][201]   [194]":PRINT"[194]   [202][195][203]   [194]"
17 PRINT"[194]         [194]"
18 PRINT"[202][195][195][195][195][195][195][195][195][195][203]"
19 PRINT""
20 PRINTTAB(16)"[144]TAATTUA":PRINTTAB(16)"KOTIMAISTA"
21 PRINTTAB(16)"[194][194][194][194][194][194][194]"
22 PRINTTAB(15)"[195][219][219][219][219][219][219][219][201]"
24 PRINTTAB(15)"[195][219][219][219][219][219][219][219][203]  -TUOTANTOA"
26 PRINTTAB(15)"[195][219][219][219][219][219][219][219][195]"
28 PRINTTAB(16)"[194][202][203][202][203][194][194]     (1986)":GOTO40
30 FORY=1TO150:NEXT:RETURN
35 FORXY=0TO300:NEXT:RETURN
40 U=53248:FORX=0TO4:READL(X),H(X):NEXT
45 FORX=832TO894:READO:POKEX,O:NEXT
50 FORX=2040TO2043:POKEX,13:NEXT:POKE2044,250
55 POKEU+28,31:POKEU+38,0
57 CR=2:FORX=0TO4:CR=9-CR:POKEU+39+X,CR:NEXT
60 FORX=1TO9STEP2:POKEU+X,75:NEXT:POKEU+29,31:POKEU+23,31
65 FORX=0TO4:POKEU+2*X,L(X):NEXT:POKEU+21,1
70 FORX=896TO958:READO:POKEX,O:NEXT:POKEU+21,3
75 FORX=960TO1022:READO:POKEX,O:NEXT:POKEU+21,7
80 FORX=16000TO16062:POKEX,0:NEXT:FORX=16004TO16022STEP3:READO:POKEX,O:NEXT
81 POKEU+21,15:POKEU+27,16:GOSUB35
85 FORX=3TO0STEP-1:CR=9-CR:POKEU+43,CR
88 FORA=L(X)TO44STEP-1:POKEU+2*X,A:FORI=1TO4:NEXT:NEXT
90 GOSUB30:POKE2040+X,14:GOSUB30:POKEU+21,31:POKEU+9,75:POKE2040+X,15:GOSUB30
93 FORA=75TOH(X):POKEU+2*X+1,A:POKEU+9,A
94 FORI=1TO10:NEXT:NEXT:GOSUB35:NEXT
95 POKEU+21,15
98 PRINT"TARVITAANKO OHJEITA? ";
99 GOSUB998
100 F$="[194][160][194][160][194][160][194][160][194]  ":G$="[171][195][219][195][219][195][219][195][179]  "
102 H$="[176][195][178][195][178][195][178][195][174]  ":I$="[173][195][177][195][177][195][177][195][189]  "
104 IFM$="E"THEN150
106 IFM$<>"K"THEN99
110 POKEU+21,0:PRINT"[147]PELISSA ON TAVOITTEENA SAADA ENEMMAN"
112 PRINT"RIVEJA KUIN VASTUSTAJA.ORIGINAALI PELILAUTA KOOSTUU 16"
114 PRINT"PYSTYSUORASTA TAPISTA, JOIHIN PELAAJAT":PRINT"PUDOTTELEVAT VUOROTEL";
116 PRINT"LEN NAPPULOITAAN,  ENINTAAN 4 PAALLEKKAIN."
118 PRINT"RIVIT VOIVAT MUODOSTUA VAAKA- TAI PYSTY-SUORAAN TAI ERI VIISTOSUUN";
120 PRINT"TIIN.":PRINT"TASSA VERSIOSSA PELILAUDAN KERROKSET ON JAETTU 4 ";
122 PRINT"TASOON SEURAAVASTI:"
124 PRINTTAB(9)"1. SARAKE":PRINTTAB(9)"[194]":PRINTTAB(8)H$
126 PRINT"1. RIVI[195]"F$
128 FORCD=1TO3:PRINTTAB(8)G$:PRINTTAB(8)F$:NEXT:PRINTTAB(8)I$;
130 PRINT" <PAINA JOTAIN>":GOSUB998
132 PRINT"[147]TAKTIKOINTISAANTO:PELAAJA SAA PUDOTTAA NAPPULANSA SAMAAN ";
134 PRINT" TAPPIIN KUIN VASTUSTAJA ENINTAAN KAKSI  KERTAA PERAKKAIN."
135 CLR:GOSUB6000:GOTO153
150 PRINTM$:CLR:GOSUB6000:POKE53269,0
153 FORX=1TO206:READXX:NEXT
154 DIMD(4,4,4),D1(4,4,4),AR(4,4,4)
155 FORX=1TO4:FORY=1TO4:FORZ=1TO4
157 READLU:D1(X,Y,Z)=LU+1124:D(X,Y,Z)=LU+55396:NEXT:NEXT:NEXT
160 F$="[194][160][194][160][194][160][194][160][194]  ":G$="[171][195][219][195][219][195][219][195][179]  "
162 H$="[176][195][178][195][178][195][178][195][174]  ":I$="[173][195][177][195][177][195][177][195][189]  "
170 PRINT"[147]1. KERROS  2. KERROS"
173 GOSUB990:PRINT"  3. KERROS  4. KERROS":GOSUB990
176 PRINTTAB(17)"IHMINEN   TIETOKONE"
178 PRINT"  T I L A N N E :    0   -    0"
179 DIMK(4,4):FORJA=1TO4:FORJE=1TO4:K(JA,JE)=1:NEXT:NEXT
180 SS$="SIIRTOSI":RI$="  RIVI:  [146][157][157]":SA$="SARAKE:  [146][157][157]":SN$="SIIRRAN"
181 TB$=""
182 AP$=TB$+"ALA PURSOTA! ":PL$=TB$+"PELOTTAAKO?  ":TK$=TB$+"TAKTIKOINTIA!"
185 Y$="             "
190 VA=16:E1=55:DIMVR(16):FORX=1TO16:READVR(X):NEXT
200 PE=10:PRINT"";TAB(25)SS$:PRINTTAB(25)RI$;
205 GOSUB998:W=VAL(M$):IFW<1ORW>4THEN205
210 PRINTW:PRINTTAB(25)SA$;
215 GOSUB998:Z=VAL(M$):IFZ<1ORZ>4THEN215
220 PRINTZ:E2=10*W+Z:IFN2=E2ANDVA>1THEN200
225 R=W:S=Z:IFK(R,S)=5THENPRINT"";TAB(25)AP$:GOSUB35:GOTO200
230 Q=K(R,S):K(R,S)=K(R,S)+1:P(Q,W,Z)=10
235 IFT1=2ANDN2<55THENGOSUB980
240 IFE2=E1THENT1=T1+1:GOTO247
245 T1=0:GOTO250
247 IFVA>1THENPRINT"";TAB(25)TK$
250 IFT2=2ANDVA>1ANDQ<4THENN1=E2:GOSUB975:PRINT"";TAB(25)TK$:GOTO270
265 N1=55
270 G=E2:IFQ<4THENGOSUB930:GOTO280
275 GOSUB960
280 GOSUB970:GOSUB3000
282 PRINT""TB$;TAB(25)"...MIETIN... ":FORBY=1TO8:PRINTTAB(25)Y$:NEXT
285 PE=1
300 FORHA=1TOVA
310 Q=INT(VR(HA)/100):W=INT((VR(HA)-Q*100)/10):Z=VR(HA)-Q*100-W*10
315 KR=Q:RI=W:SA=Z:AR(Q,W,Z)=0:J=W+Z:C=W*Z:AF=0
320 IFW*10+Z=N1THEN440
323 IFQ=3THENAF=1:IFP(1,W,Z)+P(2,W,Z)=20THENAF=2
326 IFQ=1AND((J=3ORJ=4ORJ=6ORJ=7)ANDW<>Z)THENAF=3
329 IFQ=4THENAF=4.5:IFC=1ORC=16OR(C=4ANDW<>2)THENAF=8
333 IFQ=1AND(C=1ORC=16OR(C=4ANDW<>2))THENAF=8
335 IFQ=2ANDP(1,W,Z)=1THENAF=.5
337 AR(Q,W,Z)=AF
340 GOSUB700:GOSUB940:GOSUB710:GOSUB940:GOSUB720:GOSUB940:GOSUB730:GOSUB940
344 GOSUB740:GOSUB940:GOSUB750:GOSUB940:GOSUB760:GOSUB940:GOSUB770:GOSUB940
348 GOSUB780:GOSUB940:GOSUB790:GOSUB940:GOSUB800:GOSUB940:GOSUB810:GOSUB940
352 GOSUB820:GOSUB940
440 NEXT
445 IL=-99:FORHA=1TOVA
450 QQ=INT(VR(HA)/100):WW=INT((VR(HA)-QQ*100)/10):ZZ=VR(HA)-QQ*100-WW*10
455 IFAR(QQ,WW,ZZ)>ILTHENIL=AR(QQ,WW,ZZ):Q=QQ:W=WW:Z=ZZ
460 NEXT
461 PRINT"":FORKG=0TO11:PRINTTAB(25)Y$:NEXT
462 PRINTTAB(25)SN$:PRINTTAB(25)RI$;W:PRINTTAB(25)SA$;Z
465 E1=10*W+Z:P(Q,W,Z)=1:K(W,Z)=K(W,Z)+1
470 IFT2=2ANDN1<55THENGOSUB980
475 IFE1=E2THENT2=T2+1:GOTO483
480 T2=0:GOTO485
483 IFVA>1THENPRINT"";TAB(25)TK$
485 IFT1=2ANDVA>1ANDQ<4THENN2=E1:GOSUB975:PRINT"";TAB(25)TK$:GOTO495
490 N2=55
495 G=E1:IFQ<4THENGOSUB930:GOTO505
500 GOSUB960
505 GOSUB970:GOSUB3000
510 IFVA>1THEN200
520 Q=INT(VR(1)/100):W=INT((VR(1)-Q*100)/10):Z=VR(1)-Q*100-W*10
525 IFVA=1ANDP(4,W,Z)=0THEN200
556 PRINT"":FORKG=0TO11:PRINTTAB(25)Y$:NEXT
557 PRINTTAB(25)SN$:PRINTTAB(25)RI$;W:PRINTTAB(25)SA$;Z
560 PRINT"";TAB(25)"< P A I N A[157][157][157][157][157][157][157][157][157][157][157]J O T A I N >":GOSUB998
565 PRINT"[147]PELI ON PAATTYNYT!"
570 PRINT"VIRALLISET LOPPUTULOKSET:":PRINT"  IHMINEN:"SC(10)" PISTETTA"
572 PRINT"TIETOKONE:"SC(1)" PISTETTA"
575 IFSC(1)>SC(10)THENPRINT"JALLEEN KERRAN ON IHMISEN NOYRRYTTAVA":GOTO590
578 IFSC(10)>SC(1)THENPRINT"OLLOS YLPEA, IHMINEN, TANA HAPEAN       PAIVANA!"
580 IFSC(10)=SC(1)THENPRINT"OLET ULJAASTI KAMPPAILLUT TASAPELIN."
585 END
590 PRINT"YLIVERTAISEN KONEEN EDESSA.":END
600 FORX=1TO4:FORY=1TO4:POKED(Y,W,Z),1:NEXT:GOSUB35
602 FORY=1TO4:POKED(Y,W,Z),0:NEXT:GOSUB35:NEXT:RETURN
610 FORX=1TO4:FORY=1TO4:POKED(Q,W,Y),1:NEXT:GOSUB35
612 FORY=1TO4:POKED(Q,W,Y),0:NEXT:GOSUB35:NEXT:RETURN
620 FORX=1TO4:FORY=1TO4:POKED(Q,Y,Z),1:NEXT:GOSUB35
622 FORY=1TO4:POKED(Q,Y,Z),0:NEXT:GOSUB35:NEXT:RETURN
630 FORX=1TO4:FORY=1TO4:POKED(Y,Y,Z),1:NEXT:GOSUB35
632 FORY=1TO4:POKED(Y,Y,Z),0:NEXT:GOSUB35:NEXT:RETURN
640 FORX=1TO4:FORY=1TO4:POKED(Y,W,Y),1:NEXT:GOSUB35
642 FORY=1TO4:POKED(Y,W,Y),0:NEXT:GOSUB35:NEXT:RETURN
650 FORX=1TO4:FORY=1TO4:POKED(Q,Y,Y),1:NEXT:GOSUB35
652 FORY=1TO4:POKED(Q,Y,Y),0:NEXT:GOSUB35:NEXT:RETURN
660 FORX=1TO4:FORY=1TO4:POKED(Y,Y,Y),1:NEXT:GOSUB35
662 FORY=1TO4:POKED(Y,Y,Y),0:NEXT:GOSUB35:NEXT:RETURN
670 FORX=1TO4:FORY=1TO4:POKED(Q,Y,5-Y),1:NEXT:GOSUB35
672 FORY=1TO4:POKED(Q,Y,5-Y),0:NEXT:GOSUB35:NEXT:RETURN
680 FORX=1TO4:FORY=1TO4:POKED(Y,5-Y,Z),1:NEXT:GOSUB35
682 FORY=1TO4:POKED(Y,5-Y,Z),0:NEXT:GOSUB35:NEXT:RETURN
690 FORX=1TO4:FORY=1TO4:POKED(Y,W,5-Y),1:NEXT:GOSUB35
692 FORY=1TO4:POKED(Y,W,5-Y),0:NEXT:GOSUB35:NEXT:RETURN
700 SU=0
702 IFQ<4THENFORX=Q+1TO4:SU=SU+P(X,W,Z):NEXT
704 IFQ>1THENFORY=1TOQ-1:SU=SU+P(Y,W,Z):NEXT
706 RETURN
710 SU=0
712 IFZ<4THENFORX=Z+1TO4:SU=SU+P(Q,W,X):NEXT
714 IFZ>1THENFORY=1TOZ-1:SU=SU+P(Q,W,Y):NEXT
716 RETURN
720 SU=0
722 IFW<4THENFORX=W+1TO4:SU=SU+P(Q,X,Z):NEXT
724 IFW>1THENFORY=1TOW-1:SU=SU+P(Q,Y,Z):NEXT
726 RETURN
730 SU=0:IFQ<>WTHENRETURN
732 IFQ<4THENFORX=Q+1TO4:SU=SU+P(X,X,Z):NEXT
734 IFQ>1THENFORY=1TOQ-1:SU=SU+P(Y,Y,Z):NEXT
736 RETURN
740 SU=0:IFQ<>ZTHENRETURN
742 IFQ<4THENFORX=Q+1TO4:SU=SU+P(X,W,X):NEXT
744 IFQ>1THENFORY=1TOQ-1:SU=SU+P(Y,W,Y):NEXT
746 RETURN
750 SU=0:IFW<>ZTHENRETURN
752 IFW<4THENFORX=W+1TO4:SU=SU+P(Q,X,X):NEXT
754 IFW>1THENFORY=1TOW-1:SU=SU+P(Q,Y,Y):NEXT
756 RETURN
760 SU=0:IFQ<>ZORQ<>WTHENRETURN
762 IFQ<4THENFORX=Q+1TO4:SU=SU+P(X,X,X):NEXT
764 IFQ>1THENFORY=1TOQ-1:SU=SU+P(Y,Y,Y):NEXT
766 RETURN
770 SU=0:IFW+Z<>5THENRETURN
772 IFW<4THENFORX=W+1TO4:SU=SU+P(Q,X,5-X):NEXT
774 IFW>1THENFORY=1TOW-1:SU=SU+P(Q,Y,5-Y):NEXT
776 RETURN
780 SU=0:IFQ+W<>5THENRETURN
782 IFQ<4THENFORX=Q+1TO4:SU=SU+P(X,5-X,Z):NEXT
784 IFQ>1THENFORY=1TOQ-1:SU=SU+P(Y,5-Y,Z):NEXT
786 RETURN
790 SU=0:IFQ+Z<>5THENRETURN
792 IFQ<4THENFORX=Q+1TO4:SU=SU+P(X,W,5-X):NEXT
794 IFQ>1THENFORY=1TOQ-1:SU=SU+P(Y,W,5-Y):NEXT
796 RETURN
800 SU=0:IFQ<>WORQ+Z<>5THENRETURN
802 IFW<4THENFORX=W+1TO4:SU=SU+P(X,X,5-X):NEXT
804 IFQ>1THENFORY=1TOQ-1:SU=SU+P(Y,Y,5-Y):NEXT
806 RETURN
810 SU=0:IFW<>ZORQ+W<>5THENRETURN
812 IFW<4THENFORX=W+1TO4:SU=SU+P(5-X,X,X):NEXT
814 IFW>1THENFORY=1TOW-1:SU=SU+P(5-Y,Y,Y):NEXT
816 RETURN
820 SU=0:IFQ<>ZORQ+W<>5THENRETURN
822 IFQ<4THENFORX=Q+1TO4:SU=SU+P(X,5-X,X):NEXT
824 IFQ>1THENFORY=1TOQ-1:SU=SU+P(Y,5-Y,Y):NEXT
826 RETURN
900 FORX=1TO4:FORY=1TO4:POKED(Y,Y,5-Y),1:NEXT:GOSUB35
902 FORY=1TO4:POKED(Y,Y,5-Y),0:NEXT:GOSUB35:NEXT:RETURN
910 FORX=1TO4:FORY=1TO4:POKED(5-Y,Y,Y),1:NEXT:GOSUB35
912 FORY=1TO4:POKED(5-Y,Y,Y),0:NEXT:GOSUB35:NEXT:RETURN
920 FORX=1TO4:FORY=1TO4:POKED(Y,5-Y,Y),1:NEXT:GOSUB35
922 FORY=1TO4:POKED(Y,5-Y,Y),0:NEXT:GOSUB35:NEXT:RETURN
930 FORX=1TOVA
932 IFVR(X)=100*Q+GTHENVR(X)=VR(X)+100
936 NEXT:RETURN
940 IFSU=1THENAR(KR,RI,SA)=AR(KR,RI,SA)+5.5
942 IFSU=2THENAR(KR,RI,SA)=AR(KR,RI,SA)+9
944 IFSU=20THENAR(KR,RI,SA)=AR(KR,RI,SA)+.5
946 IFSU=30ORSU=3THENAR(KR,RI,SA)=AR(KR,RI,SA)+18
947 IFQ=1ANDSU=20THENAR(KR,RI,SA)=AR(KR,RI,SA)+6
948 RETURN
960 FORX=1TOVA
962 IFVR(X)=400+GTHENFORY=XTOVA-1:VR(Y)=VR(Y+1):NEXT:X=VA
964 NEXT:VA=VA-1:RETURN
970 POKED(Q,W,Z),0:POKED1(Q,W,Z),ME(PE):RETURN
975 POKED(Q+1,W,Z),1:POKED1(Q+1,W,Z),160:B1=Q+1:B2=W:B3=Z:RETURN
980 POKED1(B1,B2,B3),32:RETURN
990 PRINT"  "H$;H$:FORCD=1TO3:PRINT"  "F$;F$:PRINT"  "G$;G$:NEXT:PRINT"  "F$;F$
992 PRINT"  "I$;I$:RETURN
998 GETM$:IFM$=""THEN998
999 RETURN
3000 SC=0:GOSUB700:IFSU=3*PETHENGOSUB600:SC=SC+1
3010 GOSUB710:IFSU=3*PETHENGOSUB610:SC=SC+1
3020 GOSUB720:IFSU=3*PETHENGOSUB620:SC=SC+1
3030 GOSUB730:IFSU=3*PETHENGOSUB630:SC=SC+1
3040 GOSUB740:IFSU=3*PETHENGOSUB640:SC=SC+1
3050 GOSUB750:IFSU=3*PETHENGOSUB650:SC=SC+1
3060 GOSUB760:IFSU=3*PETHENGOSUB660:SC=SC+1
3070 GOSUB770:IFSU=3*PETHENGOSUB670:SC=SC+1
3080 GOSUB780:IFSU=3*PETHENGOSUB680:SC=SC+1
3090 GOSUB790:IFSU=3*PETHENGOSUB690:SC=SC+1
3100 GOSUB800:IFSU=3*PETHENGOSUB900:SC=SC+1
3110 GOSUB810:IFSU=3*PETHENGOSUB910:SC=SC+1
3120 GOSUB820:IFSU=3*PETHENGOSUB920:SC=SC+1
3125 IFSC>0ANDPE=1ANDVA>1THENPRINT"";TAB(25)PL$
3130 SC(PE)=SC(PE)+SC:PRINT""TB$"";TAB(30-PE)SC(PE):RETURN
6000 PRINT"KUMPI MERKKI, [209] VAI [214] ? ";
6010 GOSUB998
6020 IFM$<>"[209]"ANDM$<>"[214]"THEN6010
6030 PRINTM$:ME(10)=PEEK(1288):ME(1)=167-ME(10):GOSUB35
6040 PRINT" (KONE EI ALENNU ALOITTAMAAN)":RETURN
8000 DATA255,142,195,158,135,174,75,190,44,
8010 DATA,255,,3,170,192,14,170,176,14,170,176,58,170,172,58,170,172
8020 DATA58,170,172,58,190,172,234,195,171,234,195,171,234,195,171
8025 DATA234,195,171,234,195,171,58,190,172,58,170,172,58,170,172,58,170,172
8030 DATA14,170,176,14,170,176,3,170,192,,255,
8035 DATA,255,,3,170,192,14,170,176,14,170,176,58,170,172,58,170,172
8040 DATA58,190,172,234,235,171,234,235,171,234,255,171,234,195,171
8045 DATA234,190,171,250,170,175,250,170,175,238,170,187,62,170,188
8050 DATA59,170,236,58,255,172,14,170,176,3,170,192,,255,,,,,,195,
8055 DATA15,130,240,58,130,172,58,130,172,234,195,171,234,195,171,250,190,175
8060 DATA250,170,175,239,170,251,234,255,171,234,170,171,234,170,171
8065 DATA234,170,171,234,170,171,58,170,172,58,170,172,15,170,240
8070 DATA,255,,,,,,,,60,40,40,60,40,40,40
8200 DATA23,25,27,29,103,105,107,109,183,185,187,189,263,265,267,269
8210 DATA34,36,38,40,114,116,118,120,194,196,198,200,274,276,278,280
8220 DATA463,465,467,469,543,545,547,549,623,625,627,629,703,705,707,709
8230 DATA474,476,478,480,554,556,558,560,634,636,638,640,714,716,718,720
8300 DATA111,112,113,114,121,122,123,124,131,132,133,134,141,142,143,144