10 REM CRDCNVT - CARD CONVERSION PROGRAM
20 REM TO STRIP LEADING <CR> AND TRAILING <LF>
30 DIM L$[124]V,I$[40]V,O$[40]V
40 PRINT "FILENAME: ";
50 INPUT I$
60 O$=I$+"/WR/LN:80"
70 I$=I$+"/RO/LN:124/EN:500"
80 OPEN #3,I$
90 OPEN #4,O$
100 I=0:O=0
110 INPUT LINE #3,L$
120 I=I+1
130 C1=1:C2=LEN(L$)
140 IF ASC(L$)=13 THEN C1=2:!IF LEADING CR THEN SKIP
150 IF ASC(SBS$(L$,C2,1))=10 THEN C2=C2-1:!SKIP TRAILING LF
160 L$=TRM$(SEG$(L$,C1,C2))
170 IF LEN(L$) <= 0 THEN 110
180 IF LEN(L$) > 80 THEN 300
190 PRINT #4,L$
200 O=O+1
210 GOTO 110
300 PRINT
310 PRINT SBS$(L$,1,70);"!"
320 PRINT SBS$(L$,71);"!"
330 GOTO 110
500 PRINT I;"RECORDS IN,";O;"RECORDS OUT"
510 STOP