100 ! CONVERTS DV80 TEST     INTO A USER DV80 FILE       THAT HAS CHR$(13) ENTER KEY AT END OF LINES
110 ON ERROR 180
120 OPEN #1:"DSK1.USERDEMO",INPUT
130 OPEN #2:"DSK1.BATCH",OUTPUT
140 LINPUT #1:Z$
150 IF LEN(Z$)=80 THEN X$=X$&Z$ :: GOTO 140
160 IF LEN(Z$)<80 THEN PRINT #2:X$&Z$&CHR$(13)
170 X$,Z$="" :: GOTO 140
180 CALL CLSALL
190 END