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%<K1% X%=K2% : K2%=K1% : K1%=X%
97 X0$=SPACE$(40%) : FOR K%=0% TO 39% : X0$=''
100 R1%=23% : R2%=0% : GOSUB 300
105 NEXT K% : STOP 
110 REM  Scroll 
120 REM  R1%,R1% - Radintervall      
130 REM  K1%,K2% - Kolumnintervall   
140 REM  X0$     - Utskrift          
150 REM 
155 REM GOSUB 200
157 IF K2%<K1% X%=K2% : K2%=K1% : K1%=X%
160 Y%=(R1%>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