1 REM Ins{nd av Lars Davidsson <7020>    1986-09-28 20.01.47 (SEND)
10 ! Program FILPREP.BAC av Tomas Enblom
30 ! 
40 DIM P$=255%
50 P$=SPACE$(254%)
60 ; CHR$(12)
70 ; '****************************************'
80 ; '*            Fil preparering           *'
90 ; '****************************************'
100 ; : ; ' OBS! Gamla anv{ndare raderas! OBS! '
110 ; : ; : INPUT '   Hur m}nga anv{ndare:';A%
120 PREPARE 'USER' AS FILE 1%
130 PUT #1%,CHR$(0%)
140 PUT #1%,SPACE$(A%*20)
150 CLOSE 1