05 ! PROGRAM LOGCREATE.SYS
10 ! PROGRAM TO COPY SAMPLE.LOG TO FILE TO BE XXXXXX.LOG FILE
20 ! OUTPUT SHOUDL BE FIXED LENGTH RECORDS TO MAKE IT EASIER TO
30 ! WORK THROUGH IT
40 DIM A$[30]V,B$[56]
44 PRINT
45 PRINT "WILL NOW CREATE NEW USER LOG FILE"
50 PRINT "USER NAME";
60 INPUT A$
70 OPEN #3,"SAMPLE.LOG/RO"
80 OPEN #4,A$+".LOG/FX/LN:56/WR"
90 INPUT LINE #3,B$
100 PRINT #4,B$
110 IF END #3 THEN 200
120 GOTO 90
200 CLOSE 
210 B=0
220 CALL "SPAWNB"("PIP "+A$+".LOG/PR/SY:RWE/GR:R/OW:RWED/WO:R",B)
240 RUN "USERSMENU.SYS"