|
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 o
Length: 704 (0x2c0)
Types: TextFile
Names: »output.clu«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─⟦526ad3590⟧ »EUUGD11/gnu-31mar87/X.V10.R4.tar.Z«
└─⟦2109abc41⟧
└─⟦this⟧ »./X.V10R4/xted/output.clu«
output = cluster is outc, % output a character
outs, % output a string
bell, % output a ding
flush, % flush buffered output
speed, % get output speed
set_speed, % set default output speed
reset
rep = null
own lspeed: int
outc = proc (c: char)
_chan$putc(_chan$primary_output(), c, false)
end outc
outs = proc (s: string)
_chan$puts(_chan$primary_output(), s, false)
end outs
bell = proc ()
screen$bell()
end bell
flush = proc ()
end flush
speed = proc () returns (int)
return(lspeed)
end speed
set_speed = proc (i: int)
lspeed := i
end set_speed
reset = proc ()
lspeed := 38400
end reset
end output