DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T s ┃

⟦dbbcab1e2⟧ TextFile

    Length: 580 (0x244)
    Types: TextFile
    Names: »subs3.f«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/utep/subs3.f«

TextFile

*********************************************************************************
* subroutine drawp does the following:
*      + decrement (icnt)
*      + output (jpage) with the proper delays
*
********************************************************************************
       subroutine drawp
       common/page/jpage(6000)
	common/contr/icnt
	character*1 jpage
	character*1 ers,esc
c
c output device is AED terminal .
c
	iesc=27
	iers=126
	esc=char(iesc)
	ers=char(iers)
c
c decrement the counter icnt.
c
	do 200 j=1,icnt-1
	call prnt(jpage(j))
200	continue
	return
	end