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

⟦9177ccadc⟧ TextFile

    Length: 507 (0x1fb)
    Types: TextFile
    Names: »OPG1.PAS«

Derivation

└─⟦b301b5c1d⟧ Bits:30003931/GEM_Develop_disk_2_CDOS.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »OPG1.PAS«

TextFile

program opg1;
(*$i gempcon.i*)
(*$i gemptype.i*)
(*$i gempvar.i*)
(*$i vdibnd.pas*)

var     retur,handler,data,i:integer;
        intptsout:array_57;
        
begin
        intin(.0.):=21;
        retur:=v_opnwk(intin,handler,intptsout);
        if handler<>0 then begin
           retur:=v_clswk(handler);
           for i:=0 to 57 do begin
               data:=intptsout(.i.);
               writeln(lst,'intpstout (',i,') =  ',data);
               end;
           end;
end.