100 REM +++++++++++++++++++++++++++
110 REM ! Program .... RAMTOFIL.BAS
120 REM ! Utg}va  1.0  86-01-25
130 REM ! av Anders Franz`n <5258>
140 REM ! Minne 16 Kbytes
150 REM +++++++++++++++++++++++++++
160 REM
170 REM Programmet visar fil p} RAM
180 REM p} bildsk{rm eller sparar p}
190 REM fil.
200 REM
210 ; "Namn p} utfil "; : F%=0%
220 INPUT F$ : IF LEN(F$) LET F%=2%
230 ONERRORGOTO 320
240 OPEN "ram:" ASFILE 1%
250 PREPARE F$ ASFILE F%
260 ONERRORGOTO 340
270 INPUTLINE #1%,R$ : R%=R%+1%
280 ; #F%,LEFT$(R$,LEN(R$)-2%)
290 IF F%=0% GET R$
300 IF F% ; R%" rader sparade"CHR$(13%);
310 GOTO 270
320 ; "Fel"ERRCODE" (se fellista)"
330 ; CHR$(7%) : GOTO 210
340 ; : IF ERRCODE=34% GOTO 360
350 ; "Fel"ERRCODE" (se fellista)"
360 CLOSE 1% : CLOSE 2%
370 IF F%=0% ; R%" rader sparade"