100 IFSY=1THENGOSUB940:SYSV
110 IFSY=2THENPOKE56,160:POKE52,160:NEW
120 POKE56576,196:POKE53272,19:POKE648,196:POKE53280,4:POKE53281,7
130 X=-1:PRINT"[147]";
140 READA$,A$,A:IFA=>.THENX=X+1:GOTO140
160 POKE56576,196:POKE53272,19
170 RESTORE:DIM N$(X),F$(X),E(X)
180 FORT=.TOX:READN$(T),F$(T),E(T):NEXT
190 CD$=""
200 POKE53280,4:POKE53281,7
201 PRINT"[147][156] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] ";
202 PRINT" [221]       [198][204][207][208][208][217] [205][193][199][193][218][201][206][197] 3/1986  [156]     [221] ";
210 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] ";
220 PRINT"[156]                                        "
230 PRINTCD$;"[156]                                        [146]";
240 PRINT"[156] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] ";
250 PRINT" [221][167][167][170][170][182][182][161][161][146]  ([195])  [208]ROTOCOL [207]Y [146] [161][161][181][181][180][180][165][165][156][221] ";
260 PRINT"[156] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"LEFT$(CD$,12)
270 T=.:N0=.
280 PRINTTAB(4)N$(T):IFT=XORT=8THENGOSUB920:GOTO300
290 T=T+1:GOTO280
300 GETI$:IFI$=""THEN300
310 I=ASC(I$):IFI=17THEN360
320 IFI=145THEN390
330 IFI=13THEN430
340 IFI=32THENPM=1:GOTO430
350 GOTO300
360 IFN0=XTHEN300
370 N0=N0+1:GOSUB930:SYS16240:GOSUB920:IFN0+8>XTHEN300
380 PRINTLEFT$(CD$,21)TAB(4)N$(N0+8):GOTO300
390 IFN0=.THEN300
400 N0=N0-1:GOSUB930:SYS16304:GOSUB920:IFN0<8THEN300
410 PRINT"    "N$(N0-8):GOTO300
430 REM
450 V=E(N0):F$=F$(N0)
455 IFRIGHT$(F$,2)=".N"THENPOKE816,165:POKE817,244:F$=LEFT$(F$,LEN(F$)-2)
460 REM 0=NOTHING/1=HELP/2=MUSIC/3=LOAD BY ,8/4='' ,8,1/5=TEXT FILE/>5=LOAD+SYS
470 ONV+1GOTO300,630,620,570,610,490
480 GOSUB860:SY=1:LOADF$,8,1
490 GOSUB860:F$=F$+",S":GOSUB500:GOTO200
500 IFPMTHENPM=.:GOTO520
510 OPEN1,8,0,F$:SYS16384:RETURN
520 PRINT"[147][212]ULOSTETAANKO TEKSTI (K/E) ?  [146][157]";
530 GETA$:IFA$="E"THENRETURN
540 IFA$<>"K"THEN530
550 PRINTA$;:OPEN2,4,7:OPEN1,8,0,F$
560 SYS16128:CLOSE1:CLOSE2:RETURN
570 GOSUB860:POKE648,4:PRINT"[147]"
580 POKE631,13:POKE632,13:POKE633,13:POKE198,3
590 PRINT"P[207]56,160:P[207]52,160:CLR:LOAD"CHR$(34)F$CHR$(34)",8"
600 PRINT"P[207]56576,151:P[207]53272,21:R[213]":END
610 GOSUB940:SY=2:LOADF$,8,1
620 GOSUB890:GOTO300
630 PRINT"[147][182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181]";
640 PRINT"[182]                [193][208][213][193]                  [181]";
650 PRINT"[182]  [175][175][175][175][175][175]                              [181]";
660 PRINT"[182]   [195][210][211][210] [146] - [206][PP[IN LIIKUTTAA VALIKKOA [181]";
670 PRINT"[182]  [183][183][183][183][183][183]   YL\S ALAS.                 [181]";
680 PRINT"[182][175][175][175][175][175][175][175][175]                              [181]";
690 PRINT"[182] [210][197][212][213][210][206] [146] - [206][PP[IMELL[ VOIT LUKEA     [181]";
700 PRINT"[182][183][183][183][183][183][183][183][183]   T[HDEN OSOITTAMAN          [181]";
710 PRINT"[182]           ARTIKKELIN TAI K[YNNIST[[  [181]";
720 PRINT"[182]           OHJELMAN.                  [181]";
730 PRINT"[182] [175][175][175][175][175][175][175]                              [181]";
740 PRINT"[182]  [211][208][193][195][197] [146] - [206][PP[IN TOIMII SAMOIN KUIN [181]";
750 PRINT"[182] [183][183][183][183][183][183][183]    [210][197][212][213][210][206] [146] MUTTA TULOSTAA    [181]";
760 PRINT"[182]           ARTIKKELIN PRINTTERILLE.   [181]";
770 PRINT"[182]                                      [181]";
780 PRINT"[182]           [193]RTIKKELIA LUKIESSASI SAAT [181]";
790 PRINT"[182]           LIS[OHJEITA  [198] 8 [146] N[PP[I-  [181]";
800 PRINT"[182]           MELL[.[212]AKAISIN VALIKKOON   [181]";
810 PRINT"[182]           P[[SET  [198] 6 [146] N[PP[IMELL[.  [181]";
820 PRINT"[182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][181]"
830 PRINT"PAINA  [210][197][212][213][210][206] [146]
840 [161]A$:[139]A$[178]""[167]840
850 [137]200
860 RK[178][181]([187]([255])[172]2)[170]1:[141]900
870 V$[178]"MAINOS"[170][201]([196](RK),1)
880 [159]1,8,2,V$[170]",S":[158]17408:[142]
890 [139][194](788)[178]49[167][158]32787:[142]
900 [158]16225:[151]54296,0:[142]
920 [153][200](CD$,13)"  *":[142]
930 [153][200](CD$,13)"    ":[142]
940 [151]56576,151:[151]53272,21:[151]648,4:[153]"LOAD":[142]
950 [131] "CONTATN(null)(null)ATN","",1
960 [131] "","",0
970 [131] "(null)(null)(null)(null)RIGHT$(null)MID$(null)RIGHT$(null)(null)(null)",PAAKIRJ3/86,5
980 [131] "","",0
990 [131] "CONT(null)ATN(null)(null)(null)ATN(null)(null)(null)RIGHT$RIGHT$(null)(null)RIGHT$","",2
1000 [131] "","",0
1010 [131] "ATN(null)(null)RIGHT$(null)(null)VAL(null)RIGHT$(null)","",0
1015 [131] "","",0
1020 [131] " LENASTLEN OHJELMARAKENNE",CASTLE.ART,5
1030 [131] " (null)EVYKKEEN EDITOIMISESTA",FLOPPY.ART,5
1090 [131] "","",0
1100 [131] "STOP(null)ATN(null)(null)(null)ATN(null)","",0
1101 [131] "","",0
1110 [131] " (null)IKSIPALSTA",NIKSIT3/86.PAL,5
1112 [131] " (null)IRPEIT[ KIRJEIT[",KIRPKIR3/86.PAL,5
1120 [131] " (null)OOLIPELIT",ROOLIP3/86.PAL,5
1121 [131] " (null)EIKKAILIJOIDEN TAVERNA",ADVPAL3/86.PAL,5
1122 [131] " (null)UKIJAKYSELYN TULOKSIA",KILPATUL3/86.PAL,5
1125 [131] "","",0
1130 [131] "(null)LEFT$MID$VAL(null)(null)ATN(null)","",0
1135 [131] "","",0
1140 [131] " ASCLOPPY EDITOR",FLOPPY EDITOR,3
1200 [131] " LENASTLE",CASTLE.N,3
1210 [131] " (null)UNNEL OF PEEKIRDS",TUNNEL.N,4
1211 [131] " RIGHT$LPON BISNEKSET",AGENTTI6,3
1212 [131] " (null)UNINGAS ATNRTHUR",ARTHUR*.N,4
1220 [131] "","",0
1230 [131] "(null)LEFT$MID$VALVAL(null)","",0
1235 [131] "","",0
1240 [131] " ASCLOPPY VALDITOR",FLOPPY.OHJ,5
1250 [131] "","",0
1251 [131] "(null)ATN(null)(null)ATN(null)(null)RIGHT$(null)RIGHT$ATN (null)RIGHT$VALSTR$(null)(null)(null)VALRIGHT$(null)ATN","",0
1252 [131] "","",0
1253 [131] " CHR$URLAUSPOMMI",GP.M*,3
1280 [131] "","",-1