10 REM Manipulation av sk{rmen
20 DIM A%(0%),X$(23%)=0%,X0$=40%
30 DEFFNP2%(X%)=PEEK(X%)+SWAP%(PEEK(X%+1%))
40 A%=FNP2%(65065%)+2%
50 POKE A%+2%,116%,3%,23%,0%
60 A%=FNP2%(FNP2%(A%)+4%)
70 FOR X%=0% TO 23%
80 POKE A%+X%*6%,40%,0%,A%(X%),SWAP%(A%(X%)),40%,0%
90 NEXT X%
94 K1%=39%
95 Y%=-(K2%>K1%) : Z%=1%-Y%
96 IF K2%R2%)*2%+1%
170 FOR X%=R1% TO R2%-Y% STEP Y%
180 X$(X%)=LEFT$(X$(X%),K1%)+MID$(X$(X%+Y%),K1%+1%,Z%)+RIGHT$(X$(X%),K2%+2%)
190 NEXT X%
195 X$(R2%)=LEFT$(X$(X%),K1%)+X0$+RIGHT$(X$(X%),K2%+2%)
197 RETURN
200 REM Correct R1%,R2%,K1%,K2%,X0$
210 IF R1%<0% R1%=0%
220 IF R2%>23% R2%=23%
230 IF K1%<0% K1%=0%
240 IF K2%>39% K2%=39%
250 Z%=K2%-K1%+1%
260 IF LEN(X0$)>Z% X0$=LEFT$(X0$,Z%)
280 X0$=X0$+SPACE$(Z%-LEN(X0$))
290 RETURN
300 REM Shift
310 FOR X%=R1% TO R2% STEP (R1%>R2%)*2%+1%
320 X$(X%)=LEFT$(X$(X%),K1%)+SPACE$(Y%)+MID$(X$(X%),K1%+Z%+1%,K2%-K1%)+SPACE$(Z%)+RIGHT$(X$(X%),K2%+2%)
330 NEXT X%
340 RETURN