;*************************** AMUS Program Label ******************************
; Filename: WRTREC.SBR Date: 06/12/89
; Category: DISK Hash Code: 653-521-226-042 Version: 1.0(1)
; Initials: AMI Name: AMI BAR-YADIN
; Company: UNITED FASHIONS OF TEXAS Telephone #: 5126312277
; Related Files: (there is also a WRTREC.SBR)
; Min. Op. Sys.: NA Expertise Level: BEG
; Special:
; Description: Write to a sequential file from any size/type variable with
; control over the number of bytes to be written.
;
;*****************************************************************************
;* Updated on 12-Jun-89 at 9:03 PM by ; edit time: 0:03:47 *;
; WRTREC Write record to a sequetial file from a buffer
;
; Syntax:
; XCALL WRTREC,FILE,BUFFER{,COUNT}
;
;
; (C)1988,89 By Ami Bar-Yadin.
; AMUS ID: AMI/AM
;
;-All commercial rights reserved, etc.
;-No warranties and/or guarranties of any kind, etc.
;-Not responsible for damages resulting from the use of this program, etc.
;-My employer (United Fashions) has nothing to do with this program and
; should not be blamed for it.
;
; I can be reached at:
; United Fashions of Texas, Inc.
; 200 Ash Ave.
; McAllen, TX 78501
; (512) 631-2277
; 8am-6pm
;
SYM
MAYCREF
OBJNAM .SBR
SEARCH SYS
SEARCH SYSSYM
RADIX 16.
DEFAULT VEDIT,1
DEFAULT $$MFLG,PV$RSM
DEFAULT $$SFLG,PH$REE!PH$REU
PHDR -1,$$MFLG,$$SFLG