1000 REM "Consts"
 1010osfile_save = 0
 1020osfile_load = &FF
 1021osfile_enquire = 5
 1030illegal_error = 157
 1040channel_error = 222
 1050Channel_error=channel_error
 1060Bad_comm_error = 254
 1070not_imp_error = 123
 1080Not_imp_error = not_imp_error
 1090Option_error = &CB
 1100our_fs_no = 8
 1110swstartFS = &12
 1120input_handle = 14
 1130Input_handle = input_handle
 1140output_handle = 15
 1150Output_handle = output_handle
 1160low_handle = 14
 1170high_handle = 15
 1180 
 1190dirbit = 1
 1200filebit = dirbit*2
 1210textbit = filebit*2
 1220fromtobit = textbit*2
 1230 
 1231bytev = &20A
 1240RETURN