DataMuseum.dk

Presents historical artifacts from the history of:

Jet Computer Jet80

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

See our Wiki for more about Jet Computer Jet80

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦a4dde0d22⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »WNC.SRC«

Derivation

└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
    └─⟦this⟧ »WNC.SRC«

TextFile

MODULE WRNXCH;

(*$M @WNC*)
(*$M **)

(*$I FIBDEF.LIB*)

VAR
  @LFB:		EXTERNAL ^FIB;

EXTERNAL PROCEDURE PUT(VAR F:FIB; SZ:INTEGER);

PROCEDURE @WNC(CH:CHAR);
BEGIN
  @LFB^.FBUFFERÆ0Å := CH;		(* F^ := CH *)
  PUT(@LFB^,@LFB^.BUFLEN)		(* PUT(F)   *)
END;

MODEND.

«eof»