Msg Id: [46451.5632858.EISNER ] Date: Tue 21-JAN-1986 15:38 From: Dan L. Eisner TO: Glenn Everhart (EVERHART) Return-Receipt requested Subject: RUNOFF corrections Glenn, Included are the runoff corrections along with a command file to correct them. I have not talked to John Clement yet but will try to today or tommorow. Dan .;******** Correct.cmd .enable substitution .sets mcr .if mcr ne "MCR" set mcr .ifnins ...slp ins $slp slp @fmtcm.slp slp @init.slp .ask well Do you want to default to a LN03 .ift well slp @rnpre.slp .if mcr ne "MCR" dcl set 'mcr' ;********** fmtcm.slp fmtcm.mac/au:72.:7/-bf=fmtcm.mac;1 -3,,/;DLE001/ ; DLE001 9-Jan-1986 ; Corrected problem in List processor. If literal define with .list ; i.e .list "o", then the next time .list was called without the "o" ; the literal field would not be cleared out. ; Dan L. Eisner, Perkin-Elmer Corp., Garden Grove, CA ; -483,,/;DLE001/ mov lstkp,r0 ; Set pointer clrb ls.chr(r0) ; clear out to make null literal / ;************** init.slp init.mac/au:72.:7/-bf=init.mac;1 -14,,/;DLE001/ ; 9-Jan-1986 ; Added LN03 conditional and set up escape tables for a LN03 ; Corrected a posible bug in the default table for Variable spacing ; Table. ; Dan L. Eisner, Perkin-Elmer Corp, Garden Grove, CA -137,,/;DLE001/ ; --- LN03 default --- .IF DF $LN03 .ASCII <6>/^>/<-1>/L/ ; 1/2 UP SHIFT .ASCII <6>/^<1>/K/ ; 1/2 DOWN SHIFT .ASCII <8.>/^(/<-2>/[1k/ ; Shift up by 1 .ASCII <5>/^)/<2> ; Shift down by 1 .ASCII <8.>/^*/<0>/[1m/ ; Begin bolding print .ASCII <9.>/\*/<^o200>/[22m/ ; End bold/shadow print .ascii <8.>/^~/<0>/[2m/ ; Start faint print .ascii <9.>/\~/<^o200>/[22m/ ; End bold/shadow print .ascii <8.>/^nŻ4ES.CHR!ES.LCK><0>/[4m/ ; Underlining .ascii <9.>/\&/<^o200>/[24m/ ; Stop underlining .byte 0 .ENDC -141,146,/;DLE001/ .ASCII <6>/^>/<-1>/D/ ; 1/2 UP SHIFT .ASCII <6>/^<1>/U/ ; 1/2 DOWN SHIFT .ASCII <6>/^(/<-2> ; Shift up by 1 .ASCII <5>/^)/<2> ; Shift down by 1 .ASCII <6>/^!/><0>/3/ ; START GRAPHICS MODE .ASCII <6>/\!/<^o200>/4/ ; STOP GRAPHICS MODE .ASCII <6>/^*/<0>/W/ ; BEGIN SHADOW PRINT .ASCII <6>/\*/<^o200>/&/ ; END SHADOW/BOLD PRINT -242,242,/;DLE001/ .if df $LA50 ! $LN03 -249,249,/;DLE001/ .if df $LA50 ! $LN03 -256,260,/;DLE001/ .iff .BYTE ^o5,^o33,^o37,^o3,^o40,^o33,^o37,10.,0 ; Variable sp Diablo 12 pitch .endc ; $12pt .iff .byte 0 ; Make sure there is a table .endc ; $diabl / ;********* rnpre.slp rnpre.mac/au:72.:7/-bf=rnpre.mac;1 -12,,/;DLE001/ ; DLE001 9-JAN-1986 ; Added $LN03 conditional ; Dan L. Eisner, Perkin-Elmer Corp, Garden Grove, CA -21,21,/;DLE001/ $LN03 =0 ; add (;) to remove LN03 print escape defs ;$FLORD =1 ; remove (;) to remove escape seq for FLORIDA DATA / ******* Thai't it