DataMuseum.dk

top - download

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »DETERMI1.K«

└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
    └─⟦this⟧ »DETERMI1.K« 
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
    └─⟦this⟧ »DETERMI1.K« 

Mikados K File

(*$P*)
PROCEDURE DETERMIN;
VAR BANK:INTEGER;
(*FASTLÆGGER VÆRDIEN AF ALLE CURRENTVARIABLE, UDSKRIVER/INDLÆSER RELEVANT
  ZONE*)
BEGIN
  (*$R-*)
  FUSK(2):=FUSK(2)+20;
  BANK:=AFSENDER^ DIV 256;
  CURRUSER:=1;
  WHILE BANK MOD 2=0 DO
  BEGIN
    CURRUSER:=CURRUSER+1;
    BANK:=BANK DIV 2
  END;
  (*$XT*) WRITELN('CURRUSER ',CURRUSER:5); (*$X-*)
  FUSK(2):=FUSK(2)-20;
  (*$R+*)
  CURRFUNC:=BESKED.KOMMANDO;
  CFILE:=CURRFILE;
  IF CURRFUNC IN (.ÅBEN..INITIER,RETURNHEAD,RETURNSTAT.) THEN
  BEGIN
    IF CURRFUNC IN (.ÅBEN,LUK,INITIER.) THEN                     
      CFILE:=BESKED.INFO                                  
    ELSE                                                         
    BEGIN                                                        
      (*$R-*)                                                    
      FUSK(1):=BESKED.INFO;                                      
      (*$R+*)                                                    
      IF CURRFUNC=RETURNSTAT THEN STATUSER:=REC^(0) ELSE CFILE:=REC^(0)
    END;                                                         
    IF (CFILE<>CURRFILE) AND (CURRFUNC<>LUK) THEN
    BEGIN
      IF CURRFILE<>0 THEN SKRIVZONE;
      CURRFILE:=CFILE;
      LÆSZONE 
    END
  END
END;