@ DRAWV1.0 4-NOV-2021 10:12
VSI C V7.4-002
$READONLY$ i ! $CODE$
$LITERAL$ ( $LINK$ $DATA$ 0 J p DRAWADHOC 0 J P
DRAWCHARABOVE 0 J
DRAWCHARBELOW 0 J DRAWREADFILE 0 J DRAWDIAGRAM 0 J DRAWSTYLE 0 J 0 DRAWTHIS
@ 6 =
= P40#4G ~ ^ ^ ~ 2B ( 0 8 [@ q. GGGb qJoB 3B=B . JUB 5B 5B @Zk"0 BP B"G8 bG "G @Zk .G¤ J JI / / //F f E#= e. .@ .G .eJTJJWJtFF2OJ5JUF3 @ / %/Y:K'KY ;C 9 G /
$ / / %,B4G bA H'H / @Zk ' %" F
.PJJP B J / / e.B4G "bStJgJ / @Zk %, %H? e. .@ .G .eJB GGTG""bGTJJWJtFF2OJ5JUF@ / @Zk BGTG"b / 4G / / @Zk 㰡@@G $. D." . .B@ G$JRDJJUJ2FF0J3gJF / L B/b/BK[bK[G /; / / / $. D. D $JRDJ2F9D9 d. . dJPJpFF1 D/ d/ DK[dK[GF) , $. HQ$J D D! . $, JA$HF9D . . JPJFF @ /_@ ` / $. /$JXK8F9F @ @DDB@7 & &@@ uF) ` / . D JXF+ d/ dKXF& / KX!F / , H XD D. DJXAF @ . JXaF / ` @ /@
@ / . JXF / @ /@ @@% D. BGbY@JR DJ D> 'K4G=B / @Zk"0 B` B"G8 bG "4G @ZkBGGTGb / @Zk ,aH@ H D < 㳱@ G* / BBG4Gb R=@B /
@ @Zk"0 BGB"8 bG "tG @Zk1@Gb# @BGGGTGb @Zkp BG4Gx b / @Zk4 G$@ G ] ] } ( 0 ݤ8 @ P # /k / / /# ~ ^ ^ ~ ( 0 8 @ GG# H{#@ . .G "` b.c .` JQ
JbJT
JFtF C C2D /3
.VJJV B ֢J
* / / #/b C#Y:KB'K4G / @Zk 0 BP "" "TG8 b / @Zk "@ B "TGH b ! / @Zk BTGTG b / @Zk0BG4G8b @Zk+ / #, .TG B. b.0 B8 b#HPJBJSbJ 0D "SF H1'J DP "" / @Zk" TG@ BH b " @Zk0BG4G8b @Zk / ,G c `⤈¤ H /% / / / f C" / #.Q2J'JQ 3B 1!F /
/ / .B4G "bTJJ / @Zk #, #HX!D #. c #J? c. cJUaB s@ / KKt #/@b/G,Y#KbK@H `G HG7J Fh X",_B."HRBJ2DG , #. `D HQ#JDD( c. c cJ$ ` / #/KY#KGF / C/ c CK @ , ,HEH D D / . c J #. .#JTJ4FD / , c H c. cJCCcB #/ #K /$ / / /XF `D / C/ c CKCU@F / , c HCU@ F / #. c #JCU!BD / . c J , HC f@%d@ #/G #K8 B..BJPJPF0J . :. @G JQ:J F H F( . Z# J$ / ,KFHG&HF z. Z# zJ ` Z. .ZJWJWF2OJF @ :. Z# :J , .HVJ D H F :, Z# :H? ,F H <1CCGhb#' @0 BGGh ""TG8 b b @Zk BGG PBGG b " @Zk0BG4G8b @Zk G ] ] } ( 0 ݤ8 @ P #k / / /#4G ~ ^X [ ^ ~ ( 0 8 @ H >P ^X ~` h GGGG ` b / @ZkG #.GG d@G " #J #J: B%B/Bu%B'B'B+Bu$BU'B%BU%B+Bu/BtFFF:G `GFuFF D/BwF J D " `F
@ .TJJT B FC @ / /4G@ b H#XK8 BK / @ZkC @ 0@ (, ! (H?B$@D@4GGTGb @Zk G
G @ b@ / / &, &H%@/@u%@'@'@+@u$@U'@%@U%@+@u/@2FtFFF:G `G3FF G/@5F k D " F& / F.RTJGJR SB RAF / @ / / .8 B4G #@ bVJJ / @Zk / / / &, J. &HR JJ @s*H J!SFJ> /@ / /H . JXF P ! /xF"
= @ @ / / / f/DA F" fK@ DF / &. 2J/B @ f. .W J fJ @xjJ J!F>?@ @ L + " /# @ f/[pKgKA B !!D /% / / / &,DA &HF F. FJCyJJ F /
/X
KG J!
?G / / / ,8 B4G F"@ b@HH / @Zk H ! F @! F `! XF ! F X! F ( x ! / / /F ( P ! / / /F `( ( !w / / /xF ( p XF !l xF@GG_ @ F/ZFKGK@ &, "A0H'HGGG @GGGG@ӡ%CB@U@ :D2FCUC u@ "b# FtFuC !DxFH" `FuFD= /%C@U@C9DQFUCh" u@Fb" FuC"x !DFF FD& / /@U@u@ b#!GCUCb" DQFuC "D8FBx";F FWGD G
/!
/ /DAyJ .W J J!F> (, (H? / / /DA / . E @E KU J !t
K J! F> . J DA /? J.a
JR JJ ! J!AFJ> h. hJDA? .ujJ !T J J!F> / KDA *,pJA *H ! J!0D*< H. HJy_DAw
,sJJ !@
H J! D
< . J@o G ] G ] } ( 0 ݤ8 @ H =P ]X }` h p #k / /h BGp b / @ZkB 4Gb @Zk / /PB G p#BrC3 tF /' ` / / / . D JXF' . JXaF" `. JXF / `. `JXaF `. JXF @@ / / / / . JXaF / ` @ /@ / / Gk / p"@B`B3 uG /' / / / . D JXF' `/ `KXF" . JXF / . JXF . JXF @@ / ` / / / . JXaF / ` @ / B @ p"GBrB F0 & / / 4, F 4HX!D' t/" tKXF" 4," 4HX!D / ." JXF 4," 4HX!D "BB / ` / / / 4, 4HX!D / "B /B BB` ` / / / p.B pJx/D / / p/ pKoBUaBkFF " / ` p/ uKB B "BB / /< ` p/ pKB BB9 .@ JxoF ` / / . JBUBFF
" `/ uKB @ @ /@ / / ` .B JB @ +D "B B / / "kF4GT`F @ . JX!D B / / `. `JXaF ` Gk / Gk / / . TJJk / / /QBGq#[B8 qC D /+ / / / a. D aJXaF+ ` . ! J XD& a. ! aJXaF / ` , ! H XD a. ! aJXaF ` , ! H XD / ! ;@ /1@
/ , H XD / ! 1@ /1@ 4@1@ ` Gk /PBG p"B4 `rB D /' / / / t/ F tKXF' t/" tK XD" ." JXF / ," H XD ." JXF "B B / ` / / / . J XD / "B /B BBd ` / / / .B JxD ` / / p/ pKBUBFtF " / ` p/ tKB B "BB / /B p/ pKB BB= a.1@ aJxoF ` / / . JBUBFF
" a/ tKB 4@ ! 1@ /1@B / ` . JB 4@ / D "B B / / "kF ` ! 1@ 5@ / ! 1@
, H XD B . JXF G k / Gk / / a/ ! [aKgKk / / / k / /p#TGH ;"P ^ ~X [X ^` ~h p x GG` b @Zk( BGG
4G0 b / @Zk8 BG ="TG@ b @ZkBGb @Zk h B4Gp b /; @ZkxBGG4Gb / @ZkB@4GTGb @ZkG . @"4Gb "Q J > .GwD ` T JG > .V J > @/ @"Z RK @?xB@ = @Zk B@ =G CH tG b @ZkH `@ .P J > GM / / /$ =B4GTGb$B$B / @ZkGG /U / / /
= tl @'@ / /x BGGGtG b @Zk /' %, %H /? / / / %. D %J? . J . J / K E/ EK_ , H %, %H? / BG4G b @Zk G GP ]X ]` }h p x ݤ #k / / /BGb / @ZkB 4Gb @ZkBGb @ZkB 4Gb @Zk , 8 G DBUGMAX , P b# 0 DBUGMAX , @ DBUGMAX 4 G DBUGTHIS 4 b# 0 DBUGTHIS 4 @ DBUGTHIS 4
T G t DECC$ISDIGIT 4 ` b# 0 DECC$ISDIGIT 4
p @ t DECC$ISDIGIT 4 G DECC$ISALPHA 4 b# 0 DECC$ISALPHA 4 @ DECC$ISALPHA 4 G D
WASDOCASIS 4 b# 0
WASDOCASIS 4 @ @ D
WASDOCASIS 4 H G t
WASDOCASIS 4 X b# 0
WASDOCASIS 4 p @ t
WASDOCASIS , G D DBUGMAX , b# 0 DBUGMAX , @ @ D DBUGMAX 4 H G h DBUGTHIS 4 T b# 0 DBUGTHIS 4 d @ h DBUGTHIS 4 h G
WASDOCASIS 4 x b# 0
WASDOCASIS 4 @
WASDOCASIS , G DBUGMAX , b# 0 DBUGMAX , @ DBUGMAX 4 G DBUGTHIS 4 b# 0 DBUGTHIS 4 @ DBUGTHIS 4 G ,
WASDOCASIS 4 $ b# 0
WASDOCASIS 4 ( @ ,
WASDOCASIS 4 , G D DECC$FREE 4 8 b# 0 DECC$FREE 4 @ @ D DECC$FREE 4 T b# p DECC$ISALPHA 4 ` G t DECC$ISALPHA 4 p @ t DECC$ISALPHA < % x G CGILIBRESPONSEHEADER < & b# p CGILIBRESPONSEHEADER < % @ CGILIBRESPONSEHEADER 4 ' G
DECC$FPUTS 4 ( b# p
DECC$FPUTS 4 ' @
DECC$FPUTS 4 + G
DECC$FPUTC 4 , b# p
DECC$FPUTC 4 + @
DECC$FPUTC 4 G DECC$FREE 4 b# p DECC$FREE 4 @ DECC$FREE < % G D CGILIBRESPONSEHEADER < & b# p CGILIBRESPONSEHEADER < % @ @ D CGILIBRESPONSEHEADER 4 ' P G d
DECC$FPUTS 4 ( T b# p
DECC$FPUTS 4 ' ` @ d
DECC$FPUTS 4 d G x DECC$FREE 4 p b# p DECC$FREE 4 t @ x DECC$FREE 4 G DECC$ISSPACE 4 b# p DECC$ISSPACE 4 @ DECC$ISSPACE < % 4 G T CGILIBRESPONSEHEADER < & H b# p CGILIBRESPONSEHEADER < % P @ T CGILIBRESPONSEHEADER 4 ) X G DECC$TXFPRINTF 4 * x b# p DECC$TXFPRINTF
4 ) @ DECC$TXFPRINTF 4 G DECC$FREE 4 b# p DECC$FREE 4 @ DECC$FREE 4 G 4
DECC$STRLEN 4 (
b# DECC$STRLEN 4 0
@ 4
DECC$STRLEN 4 b# DECC$ISSPACE 4 G $ DECC$ISSPACE 4 @ $ DECC$ISSPACE 4 D G d DECC$CALLOC 4 \ b# DECC$CALLOC 4 ` @ d DECC$CALLOC 4 D G d DECC$ISSPACE 4 P b# DECC$ISSPACE 4 ` @ d DECC$ISSPACE 4 G $ DECC$ISSPACE 4 b# DECC$ISSPACE 4 @ $ DECC$ISSPACE D G 4 CMA$TIS_VMSERRNO_GET_ADDR D
( b# CMA$TIS_VMSERRNO_GET_ADDR D 0 @ 4 CMA$TIS_VMSERRNO_GET_ADDR 4 4 G H DECC$EXIT 4 @ b# DECC$EXIT 4 D @ H DECC$EXIT 4 G $
DECC$FOPEN 4 b#
DECC$FOPEN 4 @ $
DECC$FOPEN 4 $ G D DECC$FILENO 4 8 b# DECC$FILENO 4 @ @ D DECC$FILENO < D G \ DECC$__LONG_GID_FSTAT < T b# DECC$__LONG_GID_FSTAT < X @ \ DECC$__LONG_GID_FSTAT D \ G l CMA$TIS_VMSERRNO_GET_ADDR D
d b# CMA$TIS_VMSERRNO_GET_ADDR D h @ l CMA$TIS_VMSERRNO_GET_ADDR 4 p G
DECC$STRERROR 4 x b#
DECC$STRERROR 4 @
DECC$STRERROR 4 G DECC$STRLEN 4 b# DECC$STRLEN 4 @ DECC$STRLEN 4 G DECC$CALLOC 4 b# DECC$CALLOC 4 @ DECC$CALLOC 4 b# DECC$STRLEN 4 G ( DECC$STRLEN 4 $ @ ( DECC$STRLEN 4 # ( G H DECC$MEMCPY 4 $ @ b# DECC$MEMCPY 4 # D @ H DECC$MEMCPY 4 t G DECC$CALLOC 4 b# DECC$CALLOC 4 @ DECC$CALLOC 4 G
DECC$FGETS 4 b#
DECC$FGETS 4 @
DECC$FGETS 4 ! G DECC$FCLOSE 4 " b# DECC$FCLOSE 4 ! @ DECC$FCLOSE D G CMA$TIS_VMSERRNO_GET_ADDR D
b# CMA$TIS_VMSERRNO_GET_ADDR D @ CMA$TIS_VMSERRNO_GET_ADDR 4 G DECC$EXIT 4 b# DECC$EXIT 4 @ DECC$EXIT D G ! CMA$TIS_VMSERRNO_GET_ADDR D
! b# CMA$TIS_VMSERRNO_GET_ADDR D ! @ ! CMA$TIS_VMSERRNO_GET_ADDR 4 ! G ! DECC$EXIT 4 ! b# DECC$EXIT 4 ! @ ! DECC$EXIT
= 0 & ▲ ( = 0 ' ▲ P = 0 & ◄ x = 0 ' ◄ = X M WASD_ROOT:[src.wasdoc]DRAW.C;1 %s%*.*s%s
= % cannot draw from this file
< = 0 ; = 0 P ; =
┼ 0 =
╌ @ =
┐ P =
├ ` =
┘ p =
╎ DECC$EXIT DECC$CALLOC =
─ =
│ =
⸮ 7 DECC$$GL___CTYPEA = 0 2 ; = p H 7 DECC$$GA___CTYPET ; DECC$ISSPACE =
0 DECC$STRLEN ( CMA$TIS_VMSERRNO_GET_ADDR =
┤ ` =
┌ p =
└ =
● =
┬ =
┴ = 0 ; ; =
=
= diagram %s DECC$ISALPHA
DECC$ISDIGIT DBUGMAX
WASDOCASIS = 0 2 ; = P H 7 DBUG ` DBUGTHIS = |!draw| = drawThis() %s =
prologue %s DECC$FREE =
: = * " ! DRAWVSI C V7.4-002
=
4 0 4 = drawThis 4 = 3+ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 4 ? ? ? & ? ? ? <
=
=
4 p 4 = drawAdHoc 4 = ? ? ? ? ? ? ? ? ? @ # @ @ 8
= @
=
4 4 = drawDiagram 4 = ZR @ @ @ &@ &@ )@ )@ )@ b -@ /@ 1@ 1@ 1@ ?@ ?@ ?@ ?@ ?@ M@ O@ G@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ D @ @ @ ( /@ @ @ ,@ 0
=
.=
P 4 4 =
drawCharAbove P 4 = @ 4 @ @ @ @ @ @ @ @ @ @ ; @ @ ) A A
=
*=
4 4 =
drawCharBelow 4 = )A 1 -A 2A 5A 5A 5A 0A =A @A @A 0A 0A 6 0A * YA \A
=
w =
4 4 = drawStyle 4 =
sA
=
=
4 4 = drawReadFile 4 = l d c }A }A }A A A A A 8 A $
= <
=
DECC$FREE DECC$EXIT DECC$CALLOC DECC$GA_STDOUT DECC$FCLOSE DECC$TXFPRINTF
DECC$FPUTS
DECC$FPUTC
DECC$FOPEN
DECC$FGETS DECC$FILENO DECC$ISALPHA DECC$ISDIGIT DECC$ISSPACE DECC$$GA___CTYPET DECC$$GL___CTYPEA ( CMA$TIS_VMSERRNO_GET_ADDR DECC$MEMCPY DECC$STRLEN
DECC$STRERROR DECC$__LONG_GID_FSTAT
WASDOCASIS DBUGMAX DBUGTHIS CGILIBRESPONSEHEADER DBUG
0 C$FR