DataMuseum.dk

top - metrics - download

    Length: 1024 (0x400)
    Types: TextFile
    Names: »NN.PAS«

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

TextFile

(*$Igempcon.i*)
(*$Igemptype.i*)
(*$Igempvar.i*)
(*$Ivdibnd.pas*)
(*$Igempatyp.i*)
(*$Igempavar.i*)
(*$Iaesbnd.pas*)
VAR
work_in : intin_ARRAY;
work_out : ARRAY_57;
handle : integer;
pxyarray : ptsin_ARRAY;
max_length : integer;
echo_mode : integer;
str,echo_xy: Charstring;
i:integer;
Begin
  for i:=0 to 10 do work_in(.i.):=0;
  work_in(.0.):=1;
  work_in(.1.):=1;
  work_in(.2.):=1;
  i:=v_opnwk(work_in,handle,work_out);
  writeln;
  pxyarray(.0.):=12000;
  pxyarray(.1.):=12000;
  pxyarray(.2.):=12000;
  pxyarray(.3.):=20000;
  pxyarray(.4.):=14000;
  pxyarray(.5.):=24000;
  pxyarray(.6.):=16000;
  pxyarray(.7.):=20000;
  pxyarray(.8.):=16000;
  pxyarray(.9.):=12000;
  pxyarray(.10.):=12000;
  pxyarray(.11.):=12000;
  i:=v_pline(handle,6,pxyarray);
  max_length := 2;
  echo_mode:=0;
  i:=vrq_string(handle,max_length,echo_mode,12000,12000,str);
  i:=v_clswk(handle);
  
end.