1 REM Ins{nd av Bo Kullmar <1789>    1985-04-29 22.23.14

2 ! **********************************************************************

3 ! Program          INIUSERS.BAS     Utg}va  1.0      1985-04-29

4 ! av Bo Kullmar

5 ! Ins{nd av Bo Kullmar

6 ! F|r ABC800M ABC800C ABC802 ABC806

8 ! Testad p} ABC806

9 ! **********************************************************************

10 EXTEND : INTEGER 

15 ; 'INIUSERS.BAS' : ; : ; 'Filen USERS.SYS skapas' : ; : ; 

20 ! Programmet skapar en tom fil USERS.SYS som m}ste finnas med ett

30 ! viss filslutsmarkering f|r att man skall kunna k|ra CRERUSER.

40 PREPARE 'USERS.SYS' AS FILE 1

50 ON ERROR GOTO 100

60 ; #1,'#*#'

70 ; #1,'#*#'

80 CLOSE 

85 ; 'Klart!'

90 END 

100 ; 'Det blev fel nr:' ERRCODE

110 END