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:REMDIMSC(127),SC$(25,40)
140 READA$,A$,A$:IFVAL(A$)>=.THENX=X+1:GOTO140
150 RESTORE:X=X+15:DIM N$(X),F$(X),E$(X)
160 FORT=0TO7:N$(T)="":F$(T)="":E$(T)="":NEXT
170 FORT=8TOX-7:READN$(T),F$(T),E$(T):NEXT
180 FORT=X-6TOX:N$(T)="":F$(T)="":E$(T)="":NEXT
190 CD$=""
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] 3/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-7THENSYS49920: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
456 REM 0=NOTHING:1=HELP:2=MUSIC:3=LOAD"",8:4=LOAD"",8,1:5=EASY SCRIPT FILE
458 REM 6=NEWSROOM PHOTO:7=KOALAPAINTER PICTURE:8=DOODLE PICTURE:>8=LOAD+SYS
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:SYS4