10 DIM X$=8%,G$=1%
20 ONERRORGOTO 20 : ; "Ange DIMENSION f|r RAD & KOLUMN"; : INPUT C%,G1% : C%=C%-1% : IF G1%>120% THEN 20
30 N%=PEEK(65064%)*256%+PEEK(65063%)-PEEK(65057%)*256%-PEEK(65056%) : N%=N%-710%
40 DIM N$=140%,N1$=140% : G%=INT(N%/((C%+1%)*(G1%+6%))) : G%=G%-1%
50 IF G%<1% THEN 20 : DIM P$(G%,C%)=G1% : X$="L"+NUM$(C%+1%)+NUM$(G1%)
60 ; CHR$(12) : ; "Det finns";J%;" poster";G%;" ryms" : ; "Rad & Kolumn:";X$
70 ; CUR(19%,0%)" 1 = INMATNING";"     2 = AVL[SNING"
80 ; " 3 = S\KNING";"       4 = LISTNING" : ; " 5 = [NDRING"; : ; "       6 = SORTERING"
90 ; TAB(13%)"BEHOV?"; : GET N$ : ; : B%=ASC(N$)
95 IF B%<49% OR B%>54% THEN GOTO 60
100 ON B%-48% GOTO 110,200,250,310,340,420
110 ; "Vill du spara p} KASSETT svara med (J)" : ; : GET G$ : IF G$="J" THEN 170
120 IF J%<0% THEN J%=0%
130 J%=1%+J% : IF J%>G% THEN 470 : X%=J%
140 FOR K%=0% TO C% : N$=STRING$(G1%,42%) : N$=N$+" "+"rad."+NUM$(K%+1%)
150 GOSUB 500 : IF ASC(N$)=13% AND K%=0% THEN J%=J%-1% ELSE 160 : GOTO 60
160 GOSUB 540 : P$(J%,K%)=N$ : H%=J% : NEXT K% : ; : GOTO 130
170 ; "ST[LL IN KASSETTEN f|r INSPELNING och   TRYCK p} en TANGENT n{r du {r klar"
180 GET G$ : GOSUB 560 : PREPARE X$ ASFILE 1 : PRINT #1%,J%
190 FOR R%=1% TO J% : FOR K%=O% TO C% : ; #1%,P$(R%,K%); : ; #1%
195 NEXT K% : NEXT R% : CLOSE 1% : GOTO 60
200 ; "ST[LL IN KASSETTEN f|r AVSPELNING och   TRYCK p} en TANGENT n{r du {r klar" : GET G$
205 ONERRORGOTO 570
210 GOSUB 560 : OPEN X$ ASFILE 1% : INPUT #1%,J% : J%=J%+H%
220 ; CUR(20%,5%)(G%-H%);" RYMS AV";J%-H%;" FR]N FILEN" : IF J%>G% THEN J%=G%
230 FOR R%=H%+1% TO J% : FOR K%=0% TO C% : INPUTLINE #1,N1$
240 P$(R%,K%)=LEFT$(N1$,LEN(N1$)-2%) : NEXT K% : NEXT R% : CLOSE 1% : H%=J%
245 GOTO 50
250 ; : ; "Skriv den S\KTA TEXTEN" : ; : INPUTLINE N$ : ; 
255 IF ASC(N$)=13% THEN 70
260 P1%=0% : FOR R%=1% TO J% : FOR K%=0% TO C%
270 P%=INSTR(1,P$(R%,K%),LEFT$(N$,LEN(N$)-2%)) : IF P%=0% THEN 300
280 GOSUB 480 : P1%=1% : GET G$ : IF ASC(G$)=13% THEN 70
290 IF ASC(G$)=42% THEN U%=1% : GOSUB 480 : ; : U%=0%
300 NEXT K% : NEXT R% : IF P1%>0% THEN GOTO 250 ELSE ; "FINNS EJ I REGISTRET"
305 GOTO 250
310 FOR R%=1% TO J% : GOSUB 480 : GET G$ : IF ASC(G$)=13% THEN 70
320 IF ASC(G$)=42% THEN U%=1% : GOSUB 480 : U%=0%
330 NEXT R% : GOTO 70
340 ONERRORGOTO 60 : ; : ; "Vilket POSTnr. vill du {ndra i"; : INPUT N$
345 IF ASC(N$)<14% THEN 60 : R%=VAL(N$)
350 IF R%<1% OR R%>J% THEN GOTO 340
360 FOR K%=0% TO C% : ; : ; TAB(LEN(NUM$(X%))+4%)P$(R%,K%); : NEXT K% : ; 
370 FOR K%=0% TO C% : ; : GOSUB 580 : IF K%<>0% THEN GOTO 390
380 IF N$="BORT" THEN 410
390 IF ASC(N$)=0% THEN ; P$(R%,K%) ELSE P$(R%,K%)=N$
400 NEXT K% : GOTO 340
410 J%=J%-1% : FOR R%=R% TO J% : FOR K%=O% TO C% : P$(R%,K%)=P$(R%+1%,K%)
415 NEXT K% : NEXT R% : H%=J% : GOTO 340
420 ONERRORGOTO 420 : ; : ; "EFTER VILKEN RAD   1 -";C%+1% : INPUT N$ : IF VAL(N$)<1% OR VAL(N$)>C%+1% THEN 420
430 C1%=VAL(N$)-1% : GOSUB 560
440 FOR I%=1% TO J%-1% : FOR N%=I%+1% TO J% : IF P$(I%,C1%)<P$(N%,C1%) THEN 460
450 FOR K%=0% TO C% : N$=P$(N%,K%) : P$(N%,K%)=P$(I%,K%) : P$(I%,K%)=N$
455 NEXT K%
460 NEXT N% : NEXT I% : GOTO 60
470 ; CHR$(7%) : ; : ; "MINNET [R FULLT. TRYCK P] RETURN"; : GET G$ : J%=G%
475 GOTO 60
480 OPEN "PR:" ASFILE U% : IF U%>0% THEN 490 ELSE ; #U%"nr.";R% : ; 
490 FOR K%=0% TO C% : ; #U%;P$(R%,K%) : NEXT K% : ; #U : RETURN 
500 ; "nr.";X%;" ";N$ : ; TAB(LEN(NUM$(X%))+4%); : N1$=N$ : INPUTLINE N$ : ; 
510 IF ASC(N$)=13% THEN 530 ELSE N$=LEFT$(N$,LEN(N$)-2%)
520 IF LEN(N$)>G1% THEN ; : ; TAB(23%)"F\R L]NG TEXT";CHR$(7%) : N$=N1$ : GOTO 500
530 RETURN 
540 IF ASC(N$)=13% THEN N$=SPACE$(G1%)
550 RETURN 
560 ; CHR$(12);CUR(12%,17%)"ARBETAR" : RETURN 
570 J%=H% : ; CUR(12%,10%)"FEL P] AVL[SNING !"CHR$(7%) : GOTO 70
580 ; P$(R%,K%) : N$=P$(0%,0%) : G$=" " : G2%=LEN(P$(R%,K%)) : A%=0%
590 GET G$ : IF ASC(G$)=13% THEN 630 : IF ASC(G$)<>8% THEN 610
595 IF LEN(N$)=0% THEN 590
600 ; G$;SPACE$(1%);G$; : N$=LEFT$(N$,LEN(N$)-1%) : GOTO 590
610 IF ASC(G$)<>9% THEN 620 : IF A%+1%>G2% THEN 590 : A%=A%+1%
615 G$=MID$(P$(R%,K%),A%,1%)
620 ; G$; : N$=N$+G$ : GOTO 590
630 IF LEN(N$)<=G1% THEN 640 : N$=LEFT$(N$,G1%) : ; CHR$(7%)"F\R L]NG TEXT !"
640 ; : RETURN