1000 ! CREPASS    (c) LID@N DATA

1010 ! 

1020 ! - Utvecklat

1030 ! - av:  LID@N DATA

1040 ! -

1050 ! - Projekt:     REMOTE ABC800:serien

1060 ! - Konstrukt|r: Mikael Lid`n

1070 ! - Vers:        1.0

1080 ! - P}b|rjat:    850319

1090 ! - [ndring:     850419

1100 ! 

1110 ! 

1115 EXTEND : INTEGER 

1120 INPUT 'LOGIN:     'L$

1130 INPUT 'BAUD RATE: 'H$

1140 INPUT 'FILNAMN:   'F$

1150 PREPARE 'PASSWORD.SYS' AS FILE 1

1160 PUT #1,H$+CHR$(LEN(L$))+L$

1170 POSIT #1,64

1180 PUT #1,CHR$(LEN(F$))+F$

1190 CLOSE