|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
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«
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.
0x000…013 Line {l1=0x11, l2=»PROGRAM LANDVEDL;«, l3=0x11}
0x013…048 Line {l1=0x33, l2=»TYPE LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x33}
0x048…05f Line {l1=0x15, l2=»VAR LANDFIL:LANDFILE;«, l3=0x15}
0x05f…076 Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x076…08a Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x08a…09a Line {l1=0x0e, l2=» J,I:INTEGER;«, l3=0x0e}
0x09a…0ab Line {l1=0x0f, l2=» QUQ:^INTEGER;«, l3=0x0f}
0x0ab…0b2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b2…0cf Line {l1=0x1b, l2=» FNAVN:='LANDEREG:P2:0:I';«, l3=0x1b}
0x0cf…0ea Line {l1=0x19, l2=» REWRITE(LANDFIL,FNAVN);«, l3=0x19}
0x0ea…0f4 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x0fe…113 Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x113…13f Line {l1=0x2a, l2=» WRITELN('LANDENUMMER, 0 FOR STOP');«, l3=0x2a}
0x13f…163 Line {l1=0x22, l2=» GOTOXY(30,1);READLN;READ(I)«, l3=0x22}
0x163…192 Line {l1=0x2d, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<1000);«, l3=0x2d}
0x192…1a1 Line {l1=0x0d, l2=» IF I>0 THEN«, l3=0x0d}
0x1a1…1aa Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1aa…1c3 Line {l1=0x17, l2=» SEEK(LANDFIL,I);«, l3=0x17}
0x1c3…1d9 Line {l1=0x14, l2=» GET(LANDFIL);«, l3=0x14}
0x1d9…200 Line {l1=0x25, l2=» GOTOXY(1,5);WRITELN(LANDFIL^);«, l3=0x25}
0x200…20f Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x20f…23d Line {l1=0x2c, l2=» GOTOXY(1,7);WRITELN('NYT NAVN ? ');«, l3=0x2c}
0x23d…268 Line {l1=0x29, l2=» GOTOXY(12,7);READLN;READ(STRENG)«, l3=0x29}
0x268…289 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x289…2ac Line {l1=0x21, l2=» FILLCHAR(LANDFIL^,30,' ');«, l3=0x21}
0x2ac…2ea Line {l1=0x3c, l2=» FOR J:=1 TO LENGTH(STRENG) DO LANDFIL^(J):=STRENG(J);«, l3=0x3c}
0x2ea…303 Line {l1=0x17, l2=» SEEK(LANDFIL,I);«, l3=0x17}
0x303…318 Line {l1=0x13, l2=» PUT(LANDFIL)«, l3=0x13}
0x318…31f Line {l1=0x05, l2=» END«, l3=0x05}
0x31f…32d Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x32d…340 Line {l1=0x11, l2=» CLOSE(LANDFIL);«, l3=0x11}
0x340…366 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x366…36c Line {l1=0x04, l2=»END.«, l3=0x04}
0x36c…380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x380…3a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xa…]