DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦8c89d6cda⟧ TextFile

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

Derivation

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

Mikados K File

PROGRAM TEKSTVEDL;
TYPE
PROCSTAT=RECORD
       NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR    LINE:ARRAY(1..22) OF STRING(72);
       NRPF,CF:NPFILE;
       FIL:TEXT;
       FNAVN:STRING(20);
       I:INTEGER;
       QUQ:^INTEGER;
BEGIN
  FNAVN:='BREV:P1:8:K';
  CLEARSCREEN;
  GOTOXY(1,1);
  WRITELN('Oprettelse ell. ændring (1/2)');
  REPEAT
    GOTOXY(35,1);READLN;READ(I)
  UNTIL (IORESULT=0) AND (I>0) AND (I<3);
  CLEARSCREEN;
  IF I=1 THEN
  BEGIN
    FOR I:=1 TO 22 DO
    BEGIN
      LINE(I):=
 '                                                                        ';
      GOTOXY(1,I);WRITELN(I:2);GOTOXY(4,I);
      EDIT(LINE(I))
    END
  END
  ELSE
  BEGIN
    REWRITE(FIL,FNAVN);
    READLN(FIL);
    FOR I:=1 TO 22 DO
    BEGIN
      READLN(FIL,LINE(I));
      GOTOXY(1,I);WRITELN(I:2);GOTOXY(4,I);
      WRITELN(LINE(I))
    END;
    CLOSE(FIL);
  END;
  REPEAT
    GOTOXY(1,23);
    WRITELN('Ændring i linie     0 for færdig');
    REPEAT
      GOTOXY(17,23);READLN;READ(I)
    UNTIL (IORESULT=0) AND (I>-1) AND (I<23);
    IF I>0 THEN
    BEGIN
      GOTOXY(4,I);
      EDIT(LINE(I))
    END
  UNTIL I=0;
  REWRITE(FIL,FNAVN);
  FOR I:=1 TO 22 DO WRITELN(FIL,LINE(I));
  CLOSE(FIL);
  CLEARSCREEN;
  FNAVN:='PROCSTAT:P2:0:I';
(*$C-*)
  REPEAT
    REWRITE(NRPF,FNAVN);
    SEEK(NRPF,1)
  UNTIL IORESULT=0;
(*$C+*)
  GET(NRPF);
  NRPF^.NP:=1;
  SEEK(NRPF,1);
  PUT(NRPF);
  REPEAT
    GOTOXY(1,20);
    WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
    READLN;
(*$C-*)
    REWRITE(CF,'C1:P1:0:J');
    SEEK(CF,1)
(*$C+*)
  UNTIL IORESULT=0;
  CLOSE(CF);
  CLOSE(NRPF);
  CHAIN('INTRE   *1','HOVSA:P1',QUQ)
END.

Mikados K File

0x000…014 Line {l1=0x12, l2=»PROGRAM TEKSTVEDL;«, l3=0x12}
0x014…01a Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x01a…02b Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x02b…047 Line {l1=0x1a, l2=»       NP,NROSTART:INTEGER«, l3=0x1a}
0x047…04d Line {l1=0x04, l2=»END;«, l3=0x04}
0x04d…067 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x067…090 Line {l1=0x27, l2=»VAR    LINE:ARRAY(1..22) OF STRING(72);«, l3=0x27}
0x090…0a8 Line {l1=0x16, l2=»       NRPF,CF:NPFILE;«, l3=0x16}
0x0a8…0ba Line {l1=0x10, l2=»       FIL:TEXT;«, l3=0x10}
0x0ba…0d4 Line {l1=0x18, l2=»       FNAVN:STRING(20);«, l3=0x18}
0x0d4…0e7 Line {l1=0x11, l2=»       I:INTEGER;«, l3=0x11}
0x0e7…0fd Line {l1=0x14, l2=»       QUQ:^INTEGER;«, l3=0x14}
0x0fd…104 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x104…11d Line {l1=0x17, l2=»  FNAVN:='BREV:P1:8:K';«, l3=0x17}
0x11d…12d Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x12d…13d Line {l1=0x0e, l2=»  GOTOXY(1,1);«, l3=0x0e}
0x13d…16a Line {l1=0x2b, l2=»  WRITELN('Oprettelse ell. ændring (1/2)');«, l3=0x2b}
0x16a…174 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x174…195 Line {l1=0x1f, l2=»    GOTOXY(35,1);READLN;READ(I)«, l3=0x1f}
0x195…1c0 Line {l1=0x29, l2=»  UNTIL (IORESULT=0) AND (I>0) AND (I<3);«, l3=0x29}
0x1c0…1d0 Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x1d0…1df Line {l1=0x0d, l2=»  IF I=1 THEN«, l3=0x0d}
0x1df…1e8 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1e8…1ff Line {l1=0x15, l2=»    FOR I:=1 TO 22 DO«, l3=0x15}
0x1ff…20a Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x20a…21b Line {l1=0x0f, l2=»      LINE(I):=«, l3=0x0f}
0x21b…269 Line {l1=0x4c, l2=» '                                                                        ';«, l3=0x4c}
0x269…296 Line {l1=0x2b, l2=»      GOTOXY(1,I);WRITELN(I:2);GOTOXY(4,I);«, l3=0x2b}
0x296…2ab Line {l1=0x13, l2=»      EDIT(LINE(I))«, l3=0x13}
0x2ab…2b4 Line {l1=0x07, l2=»    END«, l3=0x07}
0x2b4…2bb Line {l1=0x05, l2=»  END«, l3=0x05}
0x2bb…2c3 Line {l1=0x06, l2=»  ELSE«, l3=0x06}
0x2c3…2cc Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x2cc…2e5 Line {l1=0x17, l2=»    REWRITE(FIL,FNAVN);«, l3=0x17}
0x2e5…2f7 Line {l1=0x10, l2=»    READLN(FIL);«, l3=0x10}
0x2f7…30e Line {l1=0x15, l2=»    FOR I:=1 TO 22 DO«, l3=0x15}
0x30e…319 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x319…335 Line {l1=0x1a, l2=»      READLN(FIL,LINE(I));«, l3=0x1a}
0x335…362 Line {l1=0x2b, l2=»      GOTOXY(1,I);WRITELN(I:2);GOTOXY(4,I);«, l3=0x2b}
0x362…37a Line {l1=0x16, l2=»      WRITELN(LINE(I))«, l3=0x16}
0x37a…384 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x384…395 Line {l1=0x0f, l2=»    CLOSE(FIL);«, l3=0x0f}
0x395…39d Line {l1=0x06, l2=»  END;«, l3=0x06}
0x39d…3a7 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x3a7…3ba Line {l1=0x11, l2=»    GOTOXY(1,23);«, l3=0x11}
0x3ba…3ec Line {l1=0x30, l2=»    WRITELN('Ændring i linie     0 for færdig');«, l3=0x30}
0x3ec…3f8 Line {l1=0x0a, l2=»    REPEAT«, l3=0x0a}
0x3f8…41c Line {l1=0x22, l2=»      GOTOXY(17,23);READLN;READ(I)«, l3=0x22}
0x41c…44b Line {l1=0x2d, l2=»    UNTIL (IORESULT=0) AND (I>-1) AND (I<23);«, l3=0x2d}
0x44b…45c Line {l1=0x0f, l2=»    IF I>0 THEN«, l3=0x0f}
0x45c…467 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x467…47b Line {l1=0x12, l2=»      GOTOXY(4,I);«, l3=0x12}
0x47b…490 Line {l1=0x13, l2=»      EDIT(LINE(I))«, l3=0x13}
0x490…499 Line {l1=0x07, l2=»    END«, l3=0x07}
0x499…4a7 Line {l1=0x0c, l2=»  UNTIL I=0;«, l3=0x0c}
0x4a7…4be Line {l1=0x15, l2=»  REWRITE(FIL,FNAVN);«, l3=0x15}
0x4be…4e9 Line {l1=0x29, l2=»  FOR I:=1 TO 22 DO WRITELN(FIL,LINE(I));«, l3=0x29}
0x4e9…4f8 Line {l1=0x0d, l2=»  CLOSE(FIL);«, l3=0x0d}
0x4f8…508 Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x508…525 Line {l1=0x1b, l2=»  FNAVN:='PROCSTAT:P2:0:I';«, l3=0x1b}
0x525…52e Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x52e…538 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x538…552 Line {l1=0x18, l2=»    REWRITE(NRPF,FNAVN);«, l3=0x18}
0x552…564 Line {l1=0x10, l2=»    SEEK(NRPF,1)«, l3=0x10}
0x564…579 Line {l1=0x13, l2=»  UNTIL IORESULT=0;«, l3=0x13}
0x579…582 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x582…590 Line {l1=0x0c, l2=»  GET(NRPF);«, l3=0x0c}
0x590…5a0 Line {l1=0x0e, l2=»  NRPF^.NP:=1;«, l3=0x0e}
0x5a0…5b1 Line {l1=0x0f, l2=»  SEEK(NRPF,1);«, l3=0x0f}
0x5b1…5bf Line {l1=0x0c, l2=»  PUT(NRPF);«, l3=0x0c}
0x5bf…5c9 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x5c9…5dc Line {l1=0x11, l2=»    GOTOXY(1,20);«, l3=0x11}
0x5dc…611 Line {l1=0x33, l2=»    WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x611…61e Line {l1=0x0b, l2=»    READLN;«, l3=0x0b}
0x61e…627 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x627…645 Line {l1=0x1c, l2=»    REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x645…655 Line {l1=0x0e, l2=»    SEEK(CF,1)«, l3=0x0e}
0x655…65e Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x65e…673 Line {l1=0x13, l2=»  UNTIL IORESULT=0;«, l3=0x13}
0x673…681 Line {l1=0x0c, l2=»  CLOSE(CF);«, l3=0x0c}
0x681…691 Line {l1=0x0e, l2=»  CLOSE(NRPF);«, l3=0x0e}
0x691…6b7 Line {l1=0x24, l2=»  CHAIN('INTRE   *1','HOVSA:P1',QUQ)«, l3=0x24}
0x6b7…6bd Line {l1=0x04, l2=»END.«, l3=0x04}
0x6bd…6c0 00 00 63                                                                                          ┆  c┆
0x6c0…6e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x16…]
0x9a0…9c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00   ┆ccccccccccccccccccccccccccccccc ┆

Reduced view