01 ! PROGRAM TO CREATE DAMMIT.MSG FILE FROM DAMMIT.DAT FILE
05 DIM A$[64]V,B$[64]
10 OPEN #3,"DAMMIT.DAT/RO"
20 OPEN #4,"[1,2]DAMMIT.MSG/WR/LN:64/FX"
30 INPUT LINE #3,A$
40 IF END #3 THEN 1000
50 B$=SBS$(A$,1,LEN(A$))
60 B$=LJS$(B$,64)
70 PRINT B$
80 PRINT #4,B$
90 GOTO 30
1000 CLOSE
1010 STOP
1020 END