100 REM: COPYRIGHT BY PROTOCOL PROD. OY 101 REM: VALIKON TEKI TONI LUODE AD.-87
110 SYS51676
120 POKE53269,.:SYS49422:YZ=1:GOSUB190:GOSUB920:X=-1:POKE53269,.:GOSUB192
140 INPUT#2,A$,A$,A$:IFA$<>"@"ORLEFT$(A$,1)<>"@"THENX=X+1:GOTO140
150 CLOSE2:X=X+15:DIM N$(X),F$(X),E$(X):GOSUB192
160 FORT=0TO7:N$(T)="":F$(T)="":E$(T)="":NEXT
170 FORT=8TOX-7
171 INPUT#2,N$(T),F$(T),E$(T):IFLEFT$(N$(T),1)="@"ANDLEN(N$(T))>1THEN171
172 IFN$(T)="@"THEN176
173 IFASC(MID$(N$(T),1,1))=128THENGOSUB194
174 IFN$(T)="."THENN$(T)=" "
175 NEXT
176 CLOSE2:POKE53269,127
180 FORT=X-7TOX:N$(T)="":F$(T)="":E$(T)="":NEXT
190 CD$="":GOTO200
192 OPEN2,8,2,"FILES.TXT":RETURN
193 CLOSE2:RETURN
194 N$(T)=CHR$(VAL(MID$(N$(T),2,1))+149)+MID$(N$(T),3,LEN(N$(T))-2):RETURN
200 SYS50432:SYS49840:SYS49984
201 PRINT"[156]";
205 IFYZ=1ANDSC=.THENPRINTLEFT$(CD$,13);"[212][197][210][214][197][212][213][204][207][193] [198][204][207][208][208][201][203][211][197][197][206] 6/88!"
240 PRINTCD$;"[156]([195]) [208]ROTOCOL [208]RODUCTIONS [207]Y"
260 IFSC=.ORMU=1THENGOSUB920
262 IFYZ=1THENYZ=0:SYS50416:RETURN
265 SYS51662:PRINTLEFT$(CD$,4)
270 IFN0=.THENN0=8:T=.:GOTO290
272 T=N0-8
280 PRINTTAB(4)N$(T):IFT=XORT=N0+8THEN300
282 T=T+1:GOTO280
290 PRINTTAB(4)N$(T):IFT=16THEN300
292 T=T+1:GOTO290
300 POKE198,0:SYS49467:SYS50432:SC=.:IFMU=.ANDZZ=.THENSYS50880:SC=1:ZZ=1:GOTO302
301 IFMU=.THENSYS50665:SC=1
302 SYS49920
304 GETI$:PRINT"":IFI$=""THEN304
310 I=ASC(I$)
312 IFI=17THENSYS49920:GOTO360
320 IFI=145THENSYS49920:GOTO390
330 IFI=13THENPM=.:GOTO440
340 IFI=32THENPM=1:GOTO440
350 GOTO304
360 IFN0=X-8THENSYS49920:GOTO304
370 N0=N0+1:SYS50288:IFN0+8>XTHEN302
380 PRINTLEFT$(CD$,21)SPC(4)N$(N0+8)
382 IFVAL(E$(N0))=.THEN360
384 GOTO302
390 IFN0=8THENSYS49920:GOTO304
400 N0=N0-1:SYS50352:IFN0<8THEN302
410 PRINT"    "N$(N0-8)
420 IFVAL(E$(N0))=.THEN390
422 GOTO302
440 SYS49840:IFRIGHT$(E$(N0),1)<>"B"ANDBP=0THEN449
441 SYS49920:IFBP=1THEN448
442 PRINTLEFT$(CD$,13);"[211][217][220][212][219] [194]-[208][213][207][204][201] [204][197][214][217][193][211][197][205][193][193][206]":BP=1
444 PRINT"[202][193] [208][193][201][206][193] [202][207][212][193][201][206].":POKE198,0:WAIT198,1:POKE198,0
446 GOTO449
448 PRINTLEFT$(CD$,13);"[211][217][220][212][219] [193]-[208][213][207][204][201] [204][197][214][217][193][211][197][205][193][193][206]":BP=0
449 SYS49840
450 V=VAL(E$(N0)):F$=F$(N0):N$=N$(N0):SYS49467:OFF=.:IFPEEK(49875)=1THENOFF=1
452 IFRIGHT$(F$,2)<>".N"THENTU=1:GOTO460
455 POKE816,165:POKE817,244:F$=LEFT$(F$,LEN(F$)-2):POKE49875,0:TU=0
460 SYS51648:SYS49920
462 IF(N1<>N0)ORPMTHEN468
464 SYS50048:IFV>=6ANDV<=8THEN2006
466 ONVGOTO650,896,570,600,512
468 N1=N0
469 SYS50048:IFV<>2THENGOSUB900
470 POKE53269,.:IFV>=6ANDV<=8THEN2000
472 IFV>8THEN610
480 ONVGOTO640,890,570,600,490
490 F$=F$+",S":GOSUB500:SYS50416:GOTO200
500 IFV<>5THENRETURN
505 IFPMTHENPM=.:GOTO520
510 GOSUB860:OPEN1,8,0,F$:SYS16384:RETURN
512 POKE53269,0:SYS17080:SYS50416:GOTO200
520 SYS49840:PRINTLEFT$(CD$,13);"[212]ULOSTETAANKO TEKSTI (K/E) ?  [146]":SYS49920
530 GETA$:PRINT"":IFA$=""ORA$<>"E"ANDA$<>"K"THEN530
540 SYS50048:IFA$="E"THENSYS49920:RETURN
550 GOSUB860:OPEN2,4,7:CMD2:OPEN1,8,0,F$:SYS50592:CLOSE1:CLOSE2:SYS49920:RETURN
570 GOSUB3000:IFZA>0THENGOSUB620:GOTO200
580 GOSUB860:GOSUB630:PRINT"";:GOSUB624
586 PRINT":CLR:P[207]198,1:P[207]631,131"
590 PRINT"LOAD"CHR$(34)F$CHR$(34)",8":POKE198,1:POKE631,13:END
600 GOSUB3000:IFZA>0THENGOSUB620:GOTO200:REM:LOAD"",8,1
602 GOSUB860:GOSUB630:PRINT"";:GOSUB624
606 PRINT":CLR:P[207]198,1:P[207]631,131"
608 PRINT""CHR$(34)F$CHR$(34)",8,1":POKE198,1:POKE631,13:END
610 GOSUB3000:IFZA>0THENGOSUB620:GOTO200:REM:LOAD"",8,1+SYS...?
612 GOSUB860:GOSUB630:PRINT"";:GOSUB624
615 PRINT":CLR:P[207]198,2:P[207]631,13:P[207]632,13"
616 PRINT"LOAD"CHR$(34)F$CHR$(34)",8,1":POKE198,1:POKE631,13
618 PRINT"SYS";V;"":END
620 IF OFF THEN POKE49875,OFF
622 RETURN
624 IFTU=.ORPEEK(49875)=.THENPRINT"SYS53226";
626 IFTU=1ANDPEEK(49875)=1THENPRINT"SYS53184";
628 RETURN
630 SYS64789:SYS65409:SYS64931:SYS49467:POKE646,14:POKE53272,20:RETURN
640 F$="APUA":GOSUB660:GOSUB2030:SYS50032:GOTO200
650 GOSUB660:SYS50037:GOTO200
660 POKE53269,.:MU=.:ZZ=1:SYS50886:RETURN
860 POKE53269,.
865 RK=RK+1:GOSUB900:IF RK>5THEN RK=1
870 V$="MAINOS"+RIGHT$(STR$(RK),1)
880 OPEN1,8,2,V$+",S":SYS16999:RETURN
890 SYS50416:IFMU=1THENMU=.:GOSUB900:GOTO200
892 MU=1:SYS49920:GOSUB2030:SYS49493:GOSUB920:SYS49920:GOTO200
896 SYS50416:IFMU=.THENMU=1:SYS49920:SYS49498:GOSUB920:SYS49920:GOTO200
898 GOTO890
900 MU=.:SYS49502:RETURN
920 SYS50416:SYS50912
922 PRINTCD$;"[156][198][204][207][208][208][217] [205][193][199][193][218][201][206][197], [202][207][213][204][213][203][213][213],  6/88";:RETURN
2000 GOSUB2030:IFV=6THEN C1=10:C2=0:POKE49872,C1:POKE49873,C2
2002 IFPMTHENPM=.:IFV<>7THENPOKE49874,V-6:SYS50927:N1=0:GOTO3100
2004 POKE49874,V:SYS49819:GOTO200
2006 IFV=6THEN C1=10:C2=0:POKE49872,C1:POKE49873,C2
2008 POKE49874,V:SYS49964:GOTO200
2010 REM: COLOR 1&2  ( C1 & C2 )                  NEWSROOMISSA, ARVOT 0-15
2030 IFLEN(F$)>16THENF$=LEFT$(F$,16)
2032 N$=RIGHT$(N$,LEN(N$)-2):SYS49952:IFLEN(N$)>32THENN$=LEFT$(N$,32)
2040 POKE49882,LEN(F$):POKE49883,LEN(N$)
2050 FORY=1TOLEN(F$):POKE49903+Y,ASC(MID$(F$,Y,1)):NEXT
2052 IFV<6ORV>8THEN2072
2060 FORY=1TOLEN(N$):N=ASC(MID$(N$,Y,1))
2070 POKE51471+Y,N:NEXT
2072 IFMU=.THENGOSUB860
2080 RETURN
3000 OPEN15,8,15:OPEN2,8,2,"0:"+F$+",P,R":INPUT#15,ZA,ZB$,ZC,ZD:CLOSE2:CLOSE15
3005 IFZA=.THENRETURN
3010 SYS49840:SYS49984:PRINT"[207][200][202][197][204][205][193][193] [197][201] [204][220][217][212][217][206][217][212]. [212]ARKISTA"
3015 PRINT"ONKO OIKEA LEVYNPUOLI SIS[LL[."
3020 PRINT"[205]IK[LI VIKA EI KUITENKAAN OLE"
3025 PRINT"SIIN[, TARKISTA MUUT KYTKENN[T."
3030 PRINT"'_'-N[PP[IMEST[ TAKAISIN VALIKKOON.":POKE198,0
3035 PRINT"[205]UISTA N[PP[IMIST[ LATAUS JATKUU.":SYS50416:SYS50672:SYS50432
3040 GETWC$:PRINT"":IFWC$=""THEN3040
3042 IFWC$="_"THENRETURN
3044 SYS50048:POKE53269,0:GOTO3000
3100 REM KUVAN PRINTTAUSRUTSKUT
3102 SYS50416:SYS49984:SYS50432
3104 SYS49840:SYS50665
3110 PRINT"";TAB(11);"[203][213][214][193][206] [208][210][201][206][212][212][193][213][211]":PRINTTAB(11);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3112 PRINT" 1 [146]801/1525 -[196]UMPPI"
3114 PRINT" 2 [146][201][206][212][197][210][198][193][195][197]-[198]ASTDUMP"
3116 PRINT" 3 [146]802 -[196]UMPPI"
3118 PRINT" 4 [146][208][207][201][211]."
3120 PRINT"[198][193][211][212][196][213][205][208] ON TARKOITETTU [201][206][212][197][210][198][193][195][197]-"
3122 PRINT"PRINTTEREILLE. [203]UVIEN PRINTTAUS ON"
3124 PRINT"TEHTY [196][207][207][196][204][197]- JA [206][197][215][211][210][207][207][205]-KUVILLE.":POKE198,0
3130 GETWC$:PRINT"":IFWC$=""ORWC$<"1"ORWC$>"4"THEN3130
3132 ON(VAL(WC$))GOTO3140,3150,3160,200
3134 PRINT"[156]    [208][210][201][206][212][193][212][212][193][214][193] [203][213][214][193]: ";N$:PRINT"   [212][217][217][208][208][201]: [196][207][207][196][204][197][157][157][157][157][157][157][157]";
3135 IFV=6THENPRINT"[206][197][215][211][210][207][207][205]";
3136 PRINT:RETURN
3137 PRINT"<< [208][193][201][206][193] [202][207][212][193][201][206] [208][210][201][206][212][193][212][193][203][211][197][211][201] [203][213][214][193][206] >>":POKE198,0:WAIT198,1
3138 POKE198,0:RETURN
3139 PRINT" >>> [208][210][201][206][212][212][193][213][211] [203][219][217][206][206][201][211][211][219]. [200][197][212][203][201] <<<":RETURN
3140 SYS49840
3142 PRINT"";TAB(11);"801/1525 [196][213][205][208][208][201]":PRINTTAB(11);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3144 REMGOSUB3134:GOSUB3137:GOSUB3139:GOSUB4000:GOTO3104
3146 PRINT" 1525-[196][213][205][208][208][201] [212][213][204][197][197] [213][213][212][197][197][206] [214][193][204][201][203][203][207][207][206]. ":FORD=1TO2000:NEXT
3147 GOTO3104
3150 SYS49840:PRINT"";
3152 PRINTTAB(9);"[201][206][212][197][210][198][193][195][197] [198][193][211][212][196][213][205][208]":PRINTTAB(9);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3154 GOSUB3134:GOSUB3137:GOSUB3139:SYS51712:GOTO3104
3160 SYS49840:PRINT"";
3162 PRINTTAB(14);"802 [196][213][205][208][208][201]":PRINTTAB(14);"[163][163][163][163][163][163][163][163][163][163]"
3164 PRINT"[193]NNA OIKEAN REUNAN MARGINAALI";:INPUTMA:POKE255,MA
3166 GOSUB3134:GOSUB3137:GOSUB3139:SYS52210:GOTO3104
5000 REM *** RIVIEN POISTO.
5001 INPUT"ANNA ALKU-,LOPPURIVI: ";AR,LR
5002 AR=AR-1
5003 IFAR=LRTHENEND
5004 AR=AR+1:PRINT"[147]"AR"AR="AR":LR="LR":GOTO5003";
5005 POKE631,13:POKE632,13:POKE198,2:END