100 REM +++++++++++++++++++++++++++ 110 REM ! Program .... FILTORAM.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 l{ser en fil och 180 REM sparar den i RAM. 190 REM 200 ; "Fil att spara i RAM "; 210 INPUT F$ 220 ONERRORGOTO 300 230 OPEN F$ ASFILE 1% 240 PREPARE "RAM:" ASFILE 2% 250 ONERRORGOTO 320 260 INPUTLINE #1%,R$ : R%=R%+1% 270 ; #2%,LEFT$(R$,LEN(R$)-2%) 280 ; R%" rader inl{sta"CHR$(13%); 290 GOTO 260 300 ; "Fel"ERRCODE" (se fellista)" 310 ; CHR$(7%) : GOTO 200 320 ; 330 IF ERRCODE=34% ; "Filen inl{st" 340 IF ERRCODE=41% ; "Minnet fullt" 350 CLOSE 1% : CLOSE 2%