DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC759 "Piccoline"

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

See our Wiki for more about RegneCentralen RC759 "Piccoline"

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦4922585b4⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »EXAMPLE.PAS«

Derivation

└─⟦456974178⟧ Bits:30002875 Pascal-bibliotek til tegning af streg-grafik på Piccoline
    └─⟦this⟧ »EXAMPLE.PAS«

TextFile

PROGRAM EXAMPLE;

(*$I PUFGSX.PAS *)
(*$I PUFDISPL.LIB *)

var
 ch:char;

begin
 write(@27'0'); (* Enable linje 25 *) 
 DISPLAY('JYLLAND');
 gotoxy(14,24);write('TRYK EN TAST ');
 read(kbd,ch);
 CLEARWS;
 DISPLAY('PUF');
 gotoxy(14,24);write('TRYK EN TAST ');
 read(kbd,ch);
 CLOSEWS;
 write(@27'1'); (* Disable linje 25 *)
end.«eof»