Weaver Consulting Services Inc. - A litle trip down memory lane with Datatrieve's Wombat

Here is a video of Datatrieve plotting a wombat. After the plot the help commands_statements_clauses wombat and help commands_statements_clauses wombat advanced are shown.

If you have Datatrieve available and a terminal that can display ReGIS code then the commands to display the wombat are;

$ dtr:==$dtr32
$ dtr
set plots sys$common:[dtr.dtr$lib.plots]
plot wombat

If you have a terminal that can display ReGIS then the ReGIS code generated to draw the wombat is below. Remember that you have to replce the text <esc> with an actual escape character.

wombat-dtr.regis

<esc>P1p
L(A1)
L"X"FFFFFFFFFFFFFFFF
L"Y"FFFFFFFFFFFFFFFF
L"Z"FFFFFFFFFFFFFFFF
S(M 0(L0)1(L33)2(L67)3(L100))
T(A1)s(m 1(ah160l30s100) 2(ah160l45s66) 3(ah120l45s100) 0(al0))
s(e,a[0,0][1050,900])
w(ri2s'Y'[,0]) p[600,600]v[660,615][600,600]v(w(e))[660,585]
p[225,560]v[280,575][225,560]v(w(e))[280,545]p[1000,370]
w(i1s'Z'[,0])c(c,a-90)[750,370]v[670,620]c(c,a-90)[670,595]c(c,a-90w(e))[670,595]
p(b)v(w(e,s0))[790,520]p(e)p[+1]v[475,540]p(b)v(w(e,s0))[500,510]
p(e)c(s)[][450,560][400,582][350,585][300,580][](e)
c(c,a-90)[300,550]w(e)c(c,a-90)[300,550]
c(s)[][320,510][325,500][330,484][340,470][](e)
w(ri1)c(s)[][240,510][200,520][170,528][150,530][120,530][100,528][](e)
c(c,a-90)[100,470]w(e)c(s)[][30,420][50,390][78,300][100,250][](e)
c(c,a-80)[290,325]c(s)[][390,100][](e)c(c,a-50)[485,345]
c(s)[][610,110][650,115][700,118][750,120][](e)c(c,a-90)[750,370]
p[90,450]v(w(e,s0))[230,470][90,450][250,435][90,450][230,410]
p[190,365]w(e,s1)c[205,365]p[210,330]w(ri1,s'Z')c[210,360]p[220,210]
w(i2,s'Y')v[305,75]c(s)[][310,100][320,150][](e)w(i1)
c(s)[][300,200][220,210][](e)p[265,185]w(e,s1)v[300,120]v(w(i2))[290,185]
p[300,700]w(s0ri3)t(A0i0s3)'WOMBAT't(s1)s(a[0,0][767,479])p[,500]
@:B W(I0S1)P[,-130]V[+250]W(I3S0)V[,+130][-250][,-130][+250]P(B)
[-161,+10]T[12,0]"Legend"P(E)[-240,+38]P(B)[,+20]T(A1)W(I1S[,-20]"Z")
V[+40]W(S0)V[,-20][-40][,+20][+40]P[+10,-20]W(I3)T(A0)[12,0]"Bulk"
P(E)P(B)[,+50]T(A1)W(I2S[,-20]"Y")V[+40]W(S0)V[,-20][-40][,+20][+40]
P[+10,-20]W(I3)T(A0)[12,0]"Ears and Toes"P(E)P(B)[,+80]
T(A1)W(I3S[,-20]"A")V[+40]W(S0)V[,-20][-40][,+20][+40]P[+10,-20]
W(I3)T(A0)[12,0]"WOMBAT"P(E)@;
<esc>\

Jump to 0:25 to see the wombat itself.