|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T s
Length: 1282 (0x502)
Types: TextFile
Names: »subs4.f«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─⟦this⟧ »EUUGD11/euug-87hel/sec1/utep/subs4.f«
*********************************************************************************
* subroutine init does the following
* + set the counter (icnt) to one.
* + RESET RESET (code 48)
* + enters INT mode (code 27)
* + set the encoding G1MMMN.
* + erase screen (code 126).
* + move to (wxmin,wymin)
* + set (numitms) to zero.
* + set (ifree) to one
* + initialize segment table
* + initialize color table
* + initialize overlapping table
* + initialize (ucps) list
********************************************************************************
subroutine init
common/windo/wxmin,wxmax,wymin,wymax
common/contr/icnt
common/space/ifree
common/num/numitms
common/prec/ipgrec,icflag
common/gc/igcflg
common/aucp/iaucp
character*1 rst,esc,g,one,m,n,ers
c
ig=71
ione=49
im=77
in=78
iesc=27
iers=126
irst=48
icnt=1
numitms=0
ifree=1
ipgrec=0
icflag=0
igcflg=0
iaucp=0
c
rst=char(irst)
esc=char(iesc)
g=char(ig)
one=char(ione)
m=char(im)
n=char(in)
ers=char(iers)
c
call store(rst)
call store(esc)
call store(g)
call store(one)
call store(m)
call store(m)
call store(m)
call store(n)
call store(ers)
c
call move(wxmin,wymin)
call rstable
call sctable
call rstotbl
call rstplst
return
end