/ PROGRAM testu dump: .word 0 done: .word 30 auto i,stat,mk[4],x[4],y[4],z[4],count extern lun3,lun4,dump,done function main[argc,argv] ; close[stdin] ; close[stdout] ; if argc le ; printf "Usage: testu file1 file2" ; ret ; fi ; if bopen[stdin,.argv[1],"read","rsx"] ne 1 ; ret 4 ; fi ; if bopen[stdout,.argv[2],"write","rsx"] ne 1 ; ret 4 ; fi ; do forever ; r4 := getc[stdin] ; break if r4 lt 0 ; putc[stdout,r4] ; od printf["Test %s this %s","one","two"] printf[" test %s this %s","three","four"] printf["_<12>_"] printf["Test %s this %s","one","two"] printf[" test %s this %s","three","four"] printf["_<12>_"] ret .end