10 REM MAKETEXT g|r en textfil
15 REM Program av Gunnar Tidner
20 ; "Utfilnamn: "; : INPUT F$
30 ; "Radl{ngd max= "; : INPUT N%
40 ; "St{ng filen genom att skriva";CHR$(13,10);"tecknet & i pos 1 p} ny rad!"
50 PREPARE F$ ASFILE 1
60 DIM B$=160
70 FOR I%=1 TO 1000
80 ; : ; ">"; : INPUTLINE B$
90 IF ASC(B$)=38 THEN 150
100 IF LEN(B$)