1 REM Ins{nd av: Kristoffer Eriksson <5357>    1987-06-19 00.58.00 (WRITE)
2 ! **********************************************************************
3 ! Program          SPACEREM.BAS     Utg}va  1.01     1987-06-19
4 ! av Bo Kullmar, {ndrad av Bo Kullmar
5 ! Ins{nd av Bo Kullmar
6 ! [ndrad av Kristoffer Eriksson <5357>, tar nu l{ngre rader {n 80 tecken.
7 ! F|r ABC800M ABC800C ABC802 ABC806 D-BASIC V
8 ! Testad p} ABC806 D-BASIC V
9 ! Programmet tar bort on|diga spacetexten i en textfil. S}dana space kan
10 ! uppkomma om man skriver ut en lista fr}n REG till fil. Felhanterigen {r
11 ! mycket enkel.
12 ! **********************************************************************
1000 INTEGER : EXTEND 
1010 DIM Rad$=1000
1020 IF Argv$(1)="" THEN Eofilecode=34 : Nofile=21 ELSE Eofilecode=50 : Nofile=2 ! ABC/UNIX
1030 ON ERROR GOTO 1090
1040 INPUT 'Ange infil: 'Infil$
1050 INPUT 'Ange utfil: 'Utfil$
1060 OPEN Infil$ AS FILE 1
1070 PREPARE Utfil$ AS FILE 2
1080 GOTO 1100
1090 IF ERRCODE=Nofile ; 'Filen ' Infil$ ' finns ej!' : GOTO 1030 ELSE ; 'Fel nr' ERRCODE : GOTO 1170
1100 ON ERROR GOTO 1160
1110 INPUT LINE #1,Rad$
1120 WHILE -1
1130   ; #2,FNSpacekom$(Rad$)
1140   INPUT LINE #1,Rad$
1150 WEND 
1160 IF ERRCODE<>Eofilecode ; 'Fel nr ' ERRCODE
1170 END 
1180 ! 
1190 DEF FNSpacekom$(Par$) LOCAL I
1200   I=LEN(Par$)-2
1210   WHILE I>0
1220     IF MID$(Par$,I,1)<>' ' THEN RETURN LEFT$(Par$,I)
1230     I=I-1
1240   WEND 
1250   RETURN ''
1260 FNEND