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$)";N% 120 GOTO 80 130 ; #1,B$; 140 NEXT I% 150 CLOSE 1 160 ; : ; "Antal rader=";I%-1,F$ 170 END