compile/com typere.sai(h),newlin.sai(h),inteof.sai(h),realeo.sai(h),streof.sai(h)↔
compile/com strin.sai(h),tinit.sai(h),iopkg.sai(h),defau.sai(h)↔
compile/com split.sai(h),fileex.sai(h),filscn.sai(h),eoftru.fai(h)↔
compile/com lowerc.sai(h),upperc.sai(h),trim.sai(h),relall.sai(h)↔
compile/com ceil.sai(h),getppn.sai(h),dates.sai(h),readca.sai(h)↔
; compile/com devchr.sai(h),magutl.sai(h)↔
r fudge2↔
'A=typere,readca,newlin,inteof,realeo,streof,strin,tinit,iopkg/a≠
'A='A,defau,split,fileex,filscn,heoftru,lowerc,upperc,trim,relall/a≠
'A='A,ceil,getppn,dates/a≠
TTY:='A/l↔
λ
; magutl,devchr/a↔
delete newlin.rel,inteof.rel,realeo.rel,streof.rel↔
delete strin.rel,tinit.rel,iopkg.rel,defau.rel,split.rel,fileex.rel↔
delete filscn.rel,heoftru.rel↔
delete lowerc.rel,upperc.rel,trim.rel,relall.rel↔
delete ceil.rel,getppn.rel,dates.rel,readca.rel,typere.rel↔
; delete devchr.rel,magutl.rel↔
compile/com typere.sai,newlin.sai,inteof.sai,realeo.sai,streof.sai↔
compile/com strin.sai,tinit.sai,iopkg.sai,defau.sai↔
compile/com split.sai,fileex.sai,filscn.sai,eoftru.fai↔
compile/com lowerc.sai,upperc.sai,trim.sai,relall.sai↔
compile/com ceil.sai,getppn.sai,dates.sai,readca.sai↔
; compile/com devchr.sai,magutl.sai↔
r fudge2↔
'A=typere,readca,newlin,inteof,realeo,streof,strin,tinit,iopkg/a≠
'A='A,defau,split,fileex,dates,filscn,eoftru,lowerc,upperc/a≠
'A='A,trim,relall,ceil,getppn
TTY:='A/l↔
λ
; magutl,devchr/a↔
delete typere.rel,readca.rel,newlin.rel,inteof.rel,realeo.rel,streof.rel↔
delete strin.rel,tinit.rel,iopkg.rel,defau.rel,split.rel,fileex.rel↔
delete dates.rel,filscn.rel,eoftru.rel,lowerc.rel,upperc.rel↔
delete trim.rel,relall.rel,ceil.rel,getppn.rel↔
;delete devchr.rel,magutl.rel↔
ru cs:ftp
*sa'a
*'b
q
.compile tstmag.sai,magutl.sai,devchr.sai
r link
*sys:raid
*/locals tstmag
*/locals magutl
*/locals devchr
*/go
.save tstmag