3 IFPEEK(49152)=169ANDPEEK(49662)=192THEN5
4 LOAD"IMURI.ASM",8,1
5 DIMNI$(1000):POKE650,128:POKE53280,14:POKE53281,6:PRINT"[154]":GOTO500
10 OPEN1,8,15,"I":OPEN2,8,2,"#":SYS49416:SYS49280
15 S=1
20 PRINT#1,"U1: 2  0  18"S
25 SYS49152
30 T=PEEK(832):S=PEEK(833):IFT<1ORT>35THEN50
35 GOTO20
50 CLOSE2
55 M=(PEEK(253)+256*PEEK(254)-50944)/2:PRINTM
60 PRINT"[147]":POKE251,1:SYS49342
70 POKE251,1:SYS49446:PRINT""
75 Q=1:VQ=1:PB=1:V=0:IFM=0ORKP=1001THENKP=KP-1:GOTO500
80 PRINT"":POKE251,PB:SYS49342
82 POKE252,PEEK(646):POKE251,VQ:SYS49494
85 POKE251,PB:SYS49444
90 POKE252,0:POKE251,Q:SYS49494:VQ=Q
100 GETA$:IFA$=""THEN100
105 IFA$=""ANDQ+PB<MTHENQ=Q+2
110 IFA$="[145]"AND(Q>2ORPB>1)THENQ=Q-2
115 IFA$=""ANDQ+PB-1<MTHENQ=Q+1
120 IFA$="[157]"AND(Q>1ORPB>1)THENQ=Q-1
125 IFQ>32THENQ=Q-2:PB=PB+2:GOTO80
127 IFQ<1THENPB=PB-2:Q=Q+2:GOTO80
128 IFQ<>VQTHEN82
130 IFA$=" "THENPOKE50686+Q+PB,-(PEEK(50686+Q+PB)=0):V=V+2*PEEK(50686+Q+PB)-1:GOTO85
132 IFA$="[136]"ANDV>0THEN200
134 IFA$="[133]"THENKP=KP-1:GOTO500
150 GOTO100
200 YP=0:POKE252,PEEK(646):POKE251,Q:SYS49494
202 FORN=50944TO50944+M*2STEP2:YP=YP+PEEK(N/2+25216)*(PEEK(N)+256*PEEK(N+1)):NEXT
205 N=0
207 IFPEEK(50688+N)=0ANDN<M+2THENN=N+1:GOTO207
210 NI$="":FORZ=51200+16*NTO51215+16*N:NI$=NI$+CHR$(PEEK(Z)):NEXT
212 NI$=NI$+DI$:YP$=MID$(STR$(YP),2):IFLEN(YP$)>5THENYP$=RIGHT$(YP$,5)
214 IFLEN(YP$)<5THENYP$=" "+YP$:GOTO214
215 NI$(KP)=NI$+YP$:SYS49696:KP=KP+1:M=M-V:GOTO75
230 PRINT"[147] [204]AITA IMUROITAVA DISKI ASEMAAN !"
232 PRINT" [203]IRJOITA SEN J[LKEEN T[H[N DISKIN"
234 PRINT" NUMERO JA PUOLI (ESIM 15[193] TAI 15A)"
235 INPUT" ";DI$:IFLEN(DI$)>3THEN230
237 IFLEN(DI$)<3THENDI$="0"+DI$:GOTO237
240 IFRIGHT$(DI$,1)="A"THENDI$=LEFT$(DI$,2)+"[193]"
242 IFRIGHT$(DI$,1)="B"THENDI$=LEFT$(DI$,2)+"[194]"
245 IFRIGHT$(DI$,1)<>"[194]"ANDRIGHT$(DI$,1)<>"[193]"THEN230
247 IFVAL(LEFT$(DI$,2))<1THEN230
250 KP=KP+1:GOTO10
260 PRINT"[147] [193]AKKOSTUS DISKIEN/NIMIEN MUKAAN ? (D/N)"
265 GETA$:IFA$<>"D"ANDA$<>"N"THEN265
275 PRINT"[147] [193]AKKOSTAN TIETOJA. [207]DOTA."
277 IFA$="D"THEN880
280 FORN=1TOKP-1:B$=NI$(N):A=N:PRINT""N"[157] ->"KP-1:FORM=N+1TOKP
282 IFB$>NI$(M)THENB$=NI$(M):A=M
285 NEXT:NI$(A)=NI$(N):NI$(N)=B$:NEXT:GOTO500
300 PRINT"[147] [205]INK[ NIMISEN TIEDOSTON TEET":PRINT" ";
305 INPUTNI$:IFLEN(NI$)=0ORNI$=CHR$(160)THEN500
310 NI$="@:"+NI$+",S,W"
315 OPEN1,8,15,"I":OPEN2,8,2,NI$
320 INPUT#1,A,B$,C,D:IFA<20THEN323
322 PRINT""B$:POKE198,0:WAIT198,1:GOTO500
323 POKE53265,11:PRINT#1,"UI-"
325 PRINT#2,KP
330 FORN=1TOKP:PRINT#2,NI$(N):NEXT
332 PRINT#1,"UI+":POKE53265,27
335 INPUT#1,A,B$,C,D:IFA>19THEN322
340 CLOSE1:CLOSE2:GOTO500
350 PRINT"[147] [205]INK[ NIMISEN TIEDOSTON LATAAT":PRINT" ";
355 INPUTNI$:IFLEN(NI$)=0ORNI$=CHR$(160)THEN500
360 NI$=NI$+",S,R"
365 OPEN1,8,15,"I":OPEN2,8,2,NI$
370 INPUT#1,A,B$,C,D:IFA<20THEN373
372 PRINT"[147]"B$:POKE198,0:WAIT198,1:GOTO500
373 POKE53265,11:PRINT#1,"UI-"
375 INPUT#2,KP
380 FORN=1TOKP:INPUT#2,NI$(N):NEXT
382 PRINT#1,"UI+":POKE53265,27
385 INPUT#1,A,B$,C,D:IFA>19THEN372
390 CLOSE1:CLOSE2:GOTO500
400 PRINT"[147] [200]AETTAVAN TIEDOSTON NIMI TAI ALKU-"
405 PRINT" KIRJAIMET";:INPUTNI$
410 IFLEN(NI$)<1ORLEN(NI$)>16THEN500
412 N=1:M=LEN(NI$)
415 IFNI$=LEFT$(NI$(N),M)THEN430
420 N=N+1:IFN<=KPTHEN415
425 GOTO500
430 PRINT" [206]IMI   ";LEFT$(NI$(N),16)
432 PRINT" [196]ISKI  ";MID$(NI$(N),17,3)
435 PRINT" [208]ITUUS ";RIGHT$(NI$(N),5)
440 POKE198,0:POKE204,0:WAIT198,1:POKE204,1:GOTO420
500 CLOSE1:CLOSE2:PRINT"[147]   [214][193][204][201][212][211][197][160][212][207][201][205][201][206][212][207]"
505 PRINT"[193] - [212]IETOJEN IMUROINTI"
510 PRINT"[194] - [212]IETOJEN AAKKOSTUS"
515 PRINT"[195] - [212]IETOJEN TULOSTUS"
520 PRINT"[196] - [212]IETOJEN KORJAUS"
525 PRINT"[197] - [212]IETOJEN TALLENNUS"
530 PRINT"[198] - [212]IETOJEN LATAUS"
535 PRINT"[199] - [212]IEDOSTON ETSIMINEN"
537 PRINT"[200] - [196]ISKETIN POISTAMINEN"
550 POKE198,0:WAIT198,1:GETA$
555 IFA$="A"THEN230
557 IFA$="B"ANDKP>1THEN260
560 IFA$="E"ANDKP>0THEN300
565 IFA$="F"THEN350
567 IFA$="G"ANDKP>0THEN400
570 IFA$="C"ANDKP>0THEN600
575 IFA$="D"ANDKP>0THEN700
577 IFA$="H"ANDKP>0THEN820
590 GOTO550
600 PRINT"[147] [205]INK[ DISKIN TULOSTAT";:INPUTNI$
601 IFLEN(NI$)=0THEN500
602 IFNI$="KAIKKI"THEN660
603 DI$=NI$:GOSUB900:IFLEN(DI$)=3THENNI$=DI$:Q=3:GOTO615
604 IFLEN(NI$)>2THEN600
605 IFVAL(NI$)<1THEN600
606 IFLEN(NI$)<2THENNI$="0"+NI$
607 IFVAL(LEFT$(NI$,1))=0ANDLEFT$(NI$,1)<>"0"THEN600
608 Q=2
615 PRINT" [208]RITTERILLE VAI N[YTT\\N ? (P/N)"
617 GETA$:IFA$<>"P"ANDA$<>"N"THEN617
620 N=4:IFA$="N"THENN=3
625 OPEN2,N,7
630 PRINT"[147]"
640 M=1:FORN=1TOKP:IFMID$(NI$(N),17,Q)<>NI$THEN655
645 PRINT#2,RIGHT$("   "+STR$(M),5);". ";LEFT$(NI$(N),16);
650 PRINT#2,"    ";MID$(NI$(N),17,3);"   ";RIGHT$(NI$(N),5);"  ";:M=M+1
655 NEXTN:IFA$="N"THENPRINT"READY.":POKE198,0:WAIT198,1
657 PRINT#2:GOTO500
660 PRINT" [208]RITTERILLE VAI N[YTT\\N ? (P/N)"
662 GETA$:IFA$<>"P"ANDA$<>"N"THEN662
664 IFA$="P"THEN800
666 PRINT"[147]"
668 FORN=1TOKP
670 PRINTRIGHT$("   "+STR$(N),5);". ";LEFT$(NI$(N),16);
672 PRINT"    ";MID$(NI$(N),17,3);"   ";RIGHT$(NI$(N),5);"  ";
675 IFN/20=INT(N/20)THENPOKE198,0:WAIT198,1:PRINT
680 NEXTN:PRINT"READY.":POKE198,0:WAIT198,1
685 GOTO500
700 FORN=1TOKP
702 PRINT"[147] [206]IMI   ";LEFT$(NI$(N),16)
704 PRINT" [196]ISKI  ";MID$(NI$(N),17,3)
706 PRINT" [208]ITUUS ";RIGHT$(NI$(N),5)
710 PRINT" [203]ORJATTAVAA (RET/K)"
712 GETA$:IFA$<>"K"ANDA$<>CHR$(13)ANDA$<>"_"THEN712
713 IFA$="_"ANDN=1THENN=KP-1:GOTO765
714 IFA$="_"THENN=N-2:GOTO765
715 IFA$=CHR$(13)THEN765
717 NI$="":INPUT " [213]USI NIMI";NI$:IFNI$=""THEN725
718 IFNI$=" "ORNI$=CHR$(160)THEN725
719 IFLEN(NI$)>16THENNI$=LEFT$(NI$,16)
721 IFLEN(NI$)<16THENNI$=NI$+CHR$(160):GOTO721
723 NI$(N)=NI$+RIGHT$(NI$(N),8)
725 NI$="":INPUT " [213]USI DISKI";NI$:IFNI$=""THEN750
727 IFNI$=" "ORNI$=CHR$(160)THEN750
731 IFLEN(NI$)>3THEN725
733 IFLEN(NI$)<3THENNI$="0"+NI$:GOTO733
735 IFRIGHT$(NI$,1)="A"THENNI$=LEFT$(NI$,2)+"[193]"
737 IFRIGHT$(NI$,1)="B"THENNI$=LEFT$(NI$,2)+"[194]"
739 IFRIGHT$(NI$,1)<>"[194]"ANDRIGHT$(NI$,1)<>"[193]"THEN725
741 IFVAL(LEFT$(NI$,2))<1THEN725
745 NI$(N)=LEFT$(NI$(N),16)+NI$+RIGHT$(NI$(N),5)
750 NI$="":INPUT " UUSI PITUUS";NI$:IFNI$=""THEN765
751 IFNI$=" "ORNI$=CHR$(160)THEN765
752 IFVAL(NI$)=0THEN750
754 IFLEN(NI$)>5THENNI$=RIGHT$(NI$,5)
756 IFLEN(NI$)<5THENNI$=" "+NI$:GOTO756
760 NI$(N)=LEFT$(NI$(N),19)+NI$
765 NEXTN:GOTO500
800 Q=INT(KP/2+.5):VQ=INT(KP/2)
805 OPEN2,4,7:FORN=1TOQ
810 PRINT#2,RIGHT$("   "+STR$(N),5);". ";LEFT$(NI$(N),16);
812 PRINT#2,"    ";MID$(NI$(N),17,3);"   ";RIGHT$(NI$(N),5);"  ";
814 IFN=>QANDQ<>VQTHEN817
815 PRINT#2,RIGHT$("   "+STR$(N+Q),5);". ";LEFT$(NI$(N+Q),16);
816 PRINT#2,"    ";MID$(NI$(N+Q),17,3);"   ";RIGHT$(NI$(N+Q),5);"  ";
817 NEXTN:PRINT#2:GOTO500
820 PRINT"[147] [205]INK[ DISKIN POISTAT";
822 INPUTDI$:IFLEN(DI$)>3THEN820
823 IFVAL(RIGHT$(DI$,1))>0ORRIGHT$(DI$,1)="0"THEN850
833 IFLEN(DI$)<3THENDI$="0"+DI$:GOTO823
834 IFRIGHT$(DI$,1)="A"THENDI$=LEFT$(DI$,2)+"[193]"
835 IFRIGHT$(DI$,1)="B"THENDI$=LEFT$(DI$,2)+"[194]"
836 IFRIGHT$(DI$,1)<>"[194]"ANDRIGHT$(DI$,1)<>"[193]"THEN820
837 IFVAL(LEFT$(DI$,2))<1THEN820
840 N=1
841 IFMID$(NI$(KP),17,3)=DI$THENKP=KP-1:GOTO841
842 IFMID$(NI$(N),17,3)=DI$THENA$=NI$(N):NI$(N)=NI$(KP):NI$(KP)=A$:KP=KP-1
844 N=N+1:IFN<=KPTHEN842
846 GOTO500
850 IFLEN(DI$)=1THENDI$="0"+DI$
860 N=1
861 IFMID$(NI$(KP),17,2)=DI$THENKP=KP-1:GOTO861
862 IFMID$(NI$(N),17,2)=DI$THENA$=NI$(N):NI$(N)=NI$(KP):NI$(KP)=A$:KP=KP-1
864 N=N+1:IFN<=KPTHEN862
866 GOTO500
880 FORN=1TOKP-1:B$=MID$(NI$(N),17,3)+NI$(N):A=N:PRINT""N"[157] ->"KP-1:FORM=N+1TOKP
882 IFB$>MID$(NI$(M),17,3)+NI$(M)THENB$=MID$(NI$(M),17,3)+NI$(M):A=M
885 NEXT:NI$(A)=NI$(N):NI$(N)=MID$(B$,4):NEXT:GOTO500
900 IFLEN(DI$)<3THENDI$="0"+DI$:GOTO900
902 IFRIGHT$(DI$,1)="A"THENDI$=LEFT$(DI$,2)+"[193]"
904 IFRIGHT$(DI$,1)="B"THENDI$=LEFT$(DI$,2)+"[194]"
906 IFRIGHT$(DI$,1)<>"[194]"ANDRIGHT$(DI$,1)<>"[193]"THENDI$="":RETURN
908 IFVAL(LEFT$(DI$,2))<1THENDI$="":RETURN
910 RETURN