DataMuseum.dk

top - download

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »LANDVEDL.K«

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

Mikados K File

PROGRAM LANDVEDL;
TYPE LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;
VAR LANDFIL:LANDFILE;
    FNAVN:STRING(20);
    STRENG:STRING;
  J,I:INTEGER;
  QUQ:^INTEGER;
BEGIN
  FNAVN:='LANDEREG:P2:0:I';
  REWRITE(LANDFIL,FNAVN);
  REPEAT
  REPEAT
       CLEARSCREEN;
       WRITELN('LANDENUMMER, 0 FOR STOP');
       GOTOXY(30,1);READLN;READ(I)
  UNTIL (IORESULT=0) AND (I>=0) AND (I<1000);
  IF I>0 THEN
  BEGIN
       SEEK(LANDFIL,I);
       GET(LANDFIL);
       GOTOXY(1,5);WRITELN(LANDFIL^);
       REPEAT
         GOTOXY(1,7);WRITELN('NYT NAVN ? ');
         GOTOXY(12,7);READLN;READ(STRENG)
       UNTIL LENGTH(STRENG)<31;
       FILLCHAR(LANDFIL^,30,' ');
       FOR J:=1 TO LENGTH(STRENG) DO LANDFIL^(J):=STRENG(J);
       SEEK(LANDFIL,I);
       PUT(LANDFIL)
  END
  UNTIL I=0;
  CLOSE(LANDFIL);
  CHAIN('INTRE   *1','HOVSA:P1',QUQ)
END.