10 DIM A$[64]V,B$[64],C$[64]V
20 OPEN #5,"BASIC.DAT/EN:100"
30 OPEN #6,"BASIC.MSG/WR/FX/RN/LN:64"
40 LET I=0
50 INPUT LINE #5,A$
60 LET I=I+1
65 LET J=LEN(A$):K=64-J:C$=""
66 FOR L=1 TO K
67 LET C$=C$+CHR$(0)
68 NEXT L
69 B$=A$+C$
70 PRINT #6'I,B$
90 GOTO 50
100 CLOSE 5,6
110 STOP
120 END