10 REM +------------------------------+
20 REM ! CASCRUT ( CAssettSCReensUT ) !
30 REM ! Version 1.0 1982-11-09       !
40 REM ! Av Gunnar Tidner             !
50 REM ! Program f|r att |verf|ra     !
60 REM ! Screens till textfil         !
70 REM ! ]terl{ses med CASCREEN       !
80 REM ! F|r kassett, Minne  16       !
90 REM +------------------------------+
100 DIM B$=0
110 IF PEEK(32768)=255% THEN N%=5 ELSE N%=26
120 B0%=53018% : B%=773%
130 DIM B%(N%) : FOR I%=1% TO N% : B%(I%)=B0%-B%*(N%+1%-I%) : NEXT I% : I%=1%
140 P%=65065%
150 P%=PEEK(P%)+SWAP%(PEEK(P%+1%))
160 POKE P%+4%,B%,SWAP%(B%) : REM DIM A$=B%
170 P%=P%+6% : REM P% skall inneh}ller pekare till bufferten
180 ; "Utfil:"; : INPUT F$
190 IF LEN(F$) THEN PREPARE F$ ASFILE 1 : L%=1
200 FOR I%=1% TO N%
210 POKE P%,B%(I%),SWAP%(B%(I%)),B%,SWAP%(B%) : REM fixa pekare och l{ngd
220 S%=ASC(B$)+256*(ASC(RIGHT$(B$,2%)) AND 127%)
230 IF S%=0% THEN 320
240 ; #L%,'#';S% : IF L% ; '#';S%
250 FOR J%=0% TO 20%
260 A$=MID$(B$,3%+J%*36%,36%)
270 IF ASC(RIGHT$(A$,LEN(A$)))=32% THEN A$=LEFT$(A$,LEN(A$)-1%) : IF LEN(A$) 270 : REM Strip
280 ; #L%,A$
290 IF L%=0% THEN GET C$
300 NEXT J%
310 NEXT I%
320 END