1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   SHORT
3 REM ! Utg}va  1.01   84.04.03
4 REM ! av (c) Victor Falkteg
7 REM ! Minne 16 Kbytes f|r flexskiva
8 REM ! Ins{nt av 4068
9 REM +++++++++++++++++++++++++++++++++
10 REM Programmet tar bort o|nskade rader
11 REM ur en ASCII-fil.
12 REM T ex bra n{r man f}r program med
13 REM en massa REM-rader.
100 DIM I$=128%
110 ; "** SHORT **"
120 ONERRORGOTO 120 : ; "Infile:  "; : INPUT I$ : OPEN I$ ASFILE 1
130 ONERRORGOTO 130 : ; "Outfile: "; : INPUT O$ : PREPARE O$ ASFILE 2
140 ONERRORGOTO 190 : INPUTLINE #1,I$ : ; I$;
150 ; "Want it ? <Y/N> "; : GET Q$ : ; Q$
160 IF Q$="N" OR Q$="n" THEN 140
170 IF Q$="Y" OR Q$="y" THEN ; #2;I$; ELSE 150
180 GOTO 140
190 IF ERRCODE=34 ; "E N D   O F  F I L E" : GOTO 210
200 ; "E R R O R "ERRCODE
210 END