DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »ISFVAR.K«

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »ISFVAR.K« 

Mikados K File

PROGRAM OPRETVAR;
LABEL 1000;
(*$G+*)
(*$IISFHEAD*)
VPOST=RECORD
       A       :AR;
       VARENR1 :INTEGER;
       VARENAVN,LEVNAVN:PACKED ARRAY(1..30) OF CHAR;
       PRIS    :REAL;
       KOSTPRIS:REAL;
       LVRNDØR :INTEGER;
       OPRLAND:INTEGER;
       TOLDPNR :REAL;
       PAKENHED:INTEGER;
       FYSLAGER:REAL;
       PRIMOLAG:REAL;
       MINLAGER:REAL;
       RESAFLAG:REAL;
       IORDRE  :REAL;
       RAIORDRE:REAL;
       FORVLEVU:INTEGER;
       STASBEST:REAL;
       DATSBES1,DATSBES2:INTEGER;
       DATSORD1,DATSORD2:INTEGER;
       ASOLGTIÅ,ASOLGTSÅ:REAL;
       OMSIÅR,OMSSÅR:REAL;
       DÆKBIDTD:REAL;
       DÆKGRASÅ:INTEGER;
       ANAFTILG:INTEGER
 END;
ZONE= RECORD
       H:ISFHEAD;
       T:ARRAY(1..1000) OF INTEGER
 END;
INFILE=FILE OF CHAR;
VAR    F:ISF;
       VZ:ZONE;
       INDFIL:INFILE;
       INDPOST:STRING(80);
       FILNAVN1,FILNAVN2:STRING(20);
   AV,IER,I:INTEGER;
       R:REAL;
       VARE:VPOST;
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IINITIATE*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IREPORT*)
(*$R+*)
FUNCTION UNPACK(FBYTE1,FBYTE2:INTEGER):REAL;
VAR RES:REAL;
BEGIN
  RES:=0;
  REPEAT
    RES:=RES*100+ORD(INDPOST(FBYTE1))-32;
    FBYTE1:=FBYTE1+1
  UNTIL FBYTE1>FBYTE2;
  UNPACK:=RES
END;
PROCEDURE PRVAROPL;
BEGIN
  CLEARSCREEN;
WITH VARE DO
BEGIN
GOTOXY(1,1);WRITE('1 VARENR');GOTOXY(30,1);WRITELN(VARENR1:10);
GOTOXY(1,2);WRITE('2 VARENAVN');GOTOXY(30,2);WRITELN(VARENAVN);
GOTOXY(1,3);WRITE('3 NAVN HOS LEVERANDØR');GOTOXY(30,3);WRITELN(LEVNAVN);
GOTOXY(1,4);WRITE('4 PRIS');GOTOXY(30,4);WRITELN(PRIS/100:10:2);
GOTOXY(1,5);WRITE('5 KOSTPRIS');GOTOXY(30,5);WRITELN(KOSTPRIS/100:10:2);
GOTOXY(1,6);WRITE('6 LEVERANDØRNR');GOTOXY(30,6);WRITELN(LVRNDØR:10);
GOTOXY(1,7);WRITE('7 OPRINDELSESLAND');GOTOXY(30,7);WRITELN(OPRLAND:10);
GOTOXY(1,8);WRITE('8 TOLDPOSITIONSNR');GOTOXY(30,8);
WRITELN(TOLDPNR/1000:10:3);
GOTOXY(1,9);WRITE('9 PAKNINGSENHED');GOTOXY(30,9);WRITELN(PAKENHED:10);
GOTOXY(1,10);WRITE('10 FYSISK LAGER');GOTOXY(30,10);
WRITE(TRUNC(FYSLAGER):10);
GOTOXY(50,10);WRITE('   PRIMOLAGER');GOTOXY(67,10);
WRITELN(TRUNC(PRIMOLAG):10);
GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(
                                                      TRUNC(RESAFLAG):10);
GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);