|
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: 20224 (0x4f00)
Types: TextFile
Notes: Mikados_K
Names: »TIME.K«
└─⟦73057b25a⟧ Bits:30003619 MIKADOS start diskette (flerbruger)
└─⟦this⟧ »TIME.K«
PROGRAM MCCOPY(RBCFILE);
(***********************************************************
UDVÆLGER DE(N) "RBCFILE(S)" SOM SKAL KONVERTERES OG PRINTES
DANNER/ÆNDRER FILES: RBCFILE
WORKFILE
KOMFILE
201186 / BS - Fjernet overflødigt check af LEGO-headers.
Indlagt kald af "START"-programmet, hvor
SPC1'erens dato og klokkeslet kan ændres.
*************************************************************)
(*$P*)
CONST
TXT1 = '** ERROR ** NO FILE !';
TXT2 = '** ERROR ** END-RECORD NOT FOUND !';
TYPE
PARAMETER = ARRAY (1..39) OF CHAR;
KLOKKEN = RECORD
QDATE : PACKED ARRAY (1..10) OF CHAR;
QTIME : PACKED ARRAY (1..8) OF CHAR;
END;
DIRECTBUF = PACKED ARRAY (1..10) OF CHAR;
VAR
PARM :^PARAMETER;
UR : ^KLOKKEN;
PCB : ^INTEGER;
RBCFILE : TEXT;
KOMFILE : TEXT;
HEADERTAB : ARRAY (1..200) OF STRING(73);
RESULTTAB : ARRAY (1..200) OF STRING(69);
REC : STRING(77);
RECBACK : STRING(77);
FILDREV : STRING(11);
INVERS : STRING(2);
ENDINVERS : STRING(2);
IOVÆRDI : INTEGER;
X : INTEGER;
Y : INTEGER;
CURSORY : INTEGER;
RECNUMBER : INTEGER;
RECNO : INTEGER;
FILENUMBER : INTEGER;
NIVEAU : INTEGER;
TIMEOK : BOOLEAN;
DOCHECK : BOOLEAN;
ERRORSWITCH : BOOLEAN;
ANSWER : STRING(1);
PROCEDURE SETUP(VAR BUFFER: DIRECTBUF; LENGTH: INTEGER);EXTERNAL;
FUNCTION AVAIL: BOOLEAN;EXTERNAL;
FUNCTION NEXT: CHAR;EXTERNAL;
PROCEDURE FINIS;EXTERNAL;
(*$P*)
SEGMENT PROCEDURE SETTIME;
BEGIN
CLEARSCREEN;
BEGIN
GOTOXY(1,5);
WRITE(' ');
WRITELN('******************************');
WRITE(' ');
WRITELN('* *');
WRITE(' ');
WRITELN('* Spc1-clock: *');
WRITE(' ');
WRITE('* ',UR^.QDATE,' - ');
WRITE(LIST,UR^.QTIME(1));
WRITE(LIST,UR^.QTIME(2));
WRITE('.');
WRITE(LIST,UR^.QTIME(4));
WRITE(LIST,UR^.QTIME(5));
WRITELN(' *');
WRITE(' ');
WRITELN('* *');
WRITE(' ');
WRITELN('******************************');
END;
ANSWER:='N';
REPEAT
GOTOXY(24,20);
WRITE('Is the date and time ok (Y/N) ? ');
EDIT(ANSWER:1);
UNTIL ANSWER(1) IN (.'Y','y','n','N'.);
CLEARSCREEN;
IF ANSWER(1) IN (.'Y','y'.) THEN TIMEOK:=TRUE;
END;
SEGMENT PROCEDURE CHOSEFILES;
PROCEDURE WRITEHEAD;
BEGIN
CLEARSCREEN;
GOTOXY(8,1);
WRITELN('$$ $$ $$$$ $$$$ $$$$ $$$$$ $ $');
GOTOXY(8,2);
WRITELN('$ $ $ $ $ $ $ $ $ $ $');
GOTOXY(8,3);
WRITELN('$ $ $ $ $ $ $$$$$ $');
GOTOXY(8,4);
WRITELN('$ $ $$$$ $$$$ $$$$ $ $');
END;
PROCEDURE WRITEFILES(FNO: INTEGER);
VAR
TABNO : INTEGER;
CURSORY : INTEGER;
CURSORX : INTEGER;
BEGIN
TABNO:=(FNO*2)-1;
CURSORY:=7;
REPEAT
IF HEADERTAB(TABNO,1)=' ' THEN
CURSORX:=7
ELSE
CURSORX:=8;
GOTOXY(1,CURSORY);
WRITE('<Z>',FNO:4);
GOTOXY(CURSORX,CURSORY);
WRITELN(HEADERTAB(TABNO));
GOTOXY(CURSORX,CURSORY+1);
WRITELN('<Z>',HEADERTAB(TABNO+1));
CURSORY:=CURSORY+3;
TABNO:=TABNO+2;
FNO:=FNO+1;
UNTIL CURSORY>19;
END;
PROCEDURE INDEXERROR;
VAR
CHECKSTR : STRING(5);
BACKCHECKSTR : STRING(5);
BEGIN
GOTOXY(11,13);
WRITELN('INDEX ERROR IN TABLE ''HEADERTAB'' - ABORTED');
GOTOXY(1,23);
EXIT(MCCOPY);
END;
PROCEDURE FINDHEADER;
VAR
CHECKSTR : STRING(5);
BACKCHECKSTR : STRING(5);
BEGIN
GOTOXY(11,12);
WRITE(CHR(27),'^WAIT ! - SEARCHING FOR RBC-FILES',CHR(27),'q');
FILDREV:='RBCFILE:P3';
RESET(RBCFILE,FILDREV);
IF IORESULT<>0 THEN
BEGIN
FILDREV:='RBCFILE:P4';
RESET(RBCFILE,FILDREV);
END;
IF IORESULT<>0 THEN
BEGIN
IOVÆRDI:=IORESULT;
GOTOXY(11,13);
WRITELN('ERROR NO.',IOVÆRDI:3,' IN FILE ''RBCFILE'' - ABORTED');
GOTOXY(1,23);
EXIT(MCCOPY);
END;
READLN(RBCFILE);READ(RBCFILE,REC);
IF EOF(RBCFILE) THEN
BEGIN
GOTOXY(11,13);
WRITE('NO RECORDS IN ''RBCFILE'' - ABORTED');
GOTOXY(1,23);
EXIT(MCCOPY);
END;
HEADERTAB(1):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);
RECBACK :=REC;
READLN(RBCFILE);READ(RBCFILE,REC);
X:=2;
WHILE NOT EOF(RBCFILE) DO
BEGIN
CHECKSTR:=COPY(REC,10,5);
BACKCHECKSTR:=COPY(RECBACK,10,5);
IF (CHECKSTR='START') AND
(BACKCHECKSTR<>'STOP ') THEN
BEGIN
HEADERTAB(X):=CONCAT(' ',COPY(RECBACK,1,69),ENDINVERS);
X:=X+1;
HEADERTAB(X):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);
X:=X+1;
IF ((X DIV 2) * 2) <> X THEN INDEXERROR;
END;
IF (BACKCHECKSTR='STOP ') AND
(CHECKSTR<>'START') THEN
BEGIN
HEADERTAB(X):=CONCAT(' ',COPY(RECBACK,1,69),ENDINVERS);
X:=X+1;
HEADERTAB(X):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);
X:=X+1;
IF ((X DIV 2) * 2) <> X THEN INDEXERROR;
END;
IF (COPY(REC,2,7)='BC LEGO') AND
(COPY(RECBACK,2,7)='BC LEGO') THEN
BEGIN
HEADERTAB(X):=CONCAT(' ',COPY(RECBACK,1,69),ENDINVERS);
X:=X+1;
HEADERTAB(X):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);
X:=X+1;
IF (CHECKSTR='START')
AND (((X DIV 2) * 2) <> X) THEN INDEXERROR;
IF (CHECKSTR='STOP ')
AND (((X DIV 2) * 2) = X) THEN INDEXERROR;
END;
RECBACK:=REC;
READLN(RBCFILE);READ(RBCFILE,REC);
END;
HEADERTAB(X):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);
CLOSE(RBCFILE);
(* FJERNER ALLE HEADERS - STARTENDE MED STJENE *)
X:=1;NIVEAU:=0;
REPEAT
IF HEADERTAB(X,3)='*' THEN
NIVEAU:=NIVEAU-1
ELSE
HEADERTAB(X+NIVEAU):=HEADERTAB(X);
X:=X+1;
UNTIL (X>200) OR (HEADERTAB(X)=' ');
FOR Y:=X+NIVEAU TO 200 DO HEADERTAB(Y):=' ';
END;
PROCEDURE FINDFILES;
VAR
DATBUF : DIRECTBUF;
XCHAR : CHAR;
NCHAR : INTEGER;
FILENO : INTEGER;
TABNO : INTEGER;
CURSORY : INTEGER;
BEGIN
FILENO:=1;
CURSORY:=7;
GOTOXY(1,5);
WRITELN(CHR(27),'Y');
WRITEFILES(FILENO);
GOTOXY(1,21);
WRITELN('USE FOLLOWING KEYS : ^ v (arrows up/down)');
GOTOXY(23,22);
WRITELN('S (select)');
GOTOXY(23,23);
WRITELN('C (continue)');
GOTOXY(23,24);
WRITE ('Q (quit)');
GOTOXY(4,CURSORY);
ERRORSWITCH:=FALSE;
SETUP(DATBUF,8);
REPEAT
WHILE NOT AVAIL DO;
XCHAR:=NEXT;
IF ERRORSWITCH THEN
BEGIN
GOTOXY(51,21);
WRITELN('<Z>');
ERRORSWITCH:=FALSE;
END;
NCHAR:=ORD(XCHAR);
CASE NCHAR OF
11 : BEGIN
FILENO:=FILENO-1;
CURSORY:=CURSORY-3;
IF FILENO < 1 THEN
BEGIN
FILENO:=1;
CURSORY:=7;
END
ELSE
IF CURSORY<7 THEN
BEGIN
CURSORY:=7;
WRITEFILES(FILENO);
END;
GOTOXY(4,CURSORY);
END;
10 : BEGIN
CURSORY:=CURSORY+3;
FILENO:=FILENO+1;
IF FILENO > 100 THEN
BEGIN
FILENO:=100;
CURSORY:=19;
END
ELSE
IF CURSORY>19 THEN
BEGIN
CURSORY:=19;
WRITEFILES(FILENO-4);
END;
GOTOXY(4,CURSORY);
END;
83,115 : BEGIN
TABNO:=(FILENO-1)+FILENO;
IF HEADERTAB(TABNO)=' ' THEN
BEGIN
GOTOXY(51,21);
WRITELN(CHR(7),CHR(27),'^',TXT1,CHR(27),'q');
GOTOXY(4,CURSORY);
ERRORSWITCH:=TRUE;
END
ELSE
BEGIN
INVERS:=' ';
IF HEADERTAB(TABNO,2)=' ' THEN
BEGIN
INVERS(1):=CHR(27);
INVERS(2):='j';
END;
HEADERTAB(TABNO,1):=INVERS(1);
HEADERTAB(TABNO,2):=INVERS(2);
HEADERTAB(TABNO+1,1):=INVERS(1);
HEADERTAB(TABNO+1,2):=INVERS(2);
X:=(CURSORY-7) DIV 3;
WRITEFILES(FILENO-X);
GOTOXY(4,CURSORY);
END;
END;
27,81,113 : BEGIN
FINIS;
GOTOXY(1,5);
WRITELN(CHR(27),'Y');
GOTOXY(1,22);
WRITELN('NO CHANGE IS MADE');
WRITELN('END OF MCCOPY');
EXIT(PROGRAM);
END;
END;
UNTIL (XCHAR='C') OR (XCHAR='c');
GOTOXY(1,5);
WRITELN(CHR(27),'Y');
FINIS;
END;
BEGIN
ENDINVERS :=' ';
ENDINVERS(1):=CHR(27);
ENDINVERS(2):='k';
FOR IOVÆRDI:=1 TO 200 DO HEADERTAB(IOVÆRDI):=' ';
WRITEHEAD;
FINDHEADER;
FINDFILES;
END;
(*$P*)
SEGMENT PROCEDURE FILECOPY;
VAR
DATBUF : DIRECTBUF;
XCHAR : CHAR;
PROCEDURE CHECKHEADER(STR : STRING);
VAR
TALSTR : STRING(8);
TAL1 : REAL;
TAL2 : REAL;
EXP : REAL;
ERROR1 : BOOLEAN;
ERROR2 : BOOLEAN;
ERROR3 : BOOLEAN;
BEGIN
ERROR1:=FALSE;
ERROR2:=FALSE;
ERROR3:=FALSE;
IF COPY(REC,10,5) <> STR THEN ERROR1:=TRUE;
IF COPY(REC,16,21) <> 'TO SPC/1 FROM NCR ' THEN ERROR2:=TRUE;
IF STR='STOP ' THEN
BEGIN
TALSTR:=COPY(REC,70,8);
TAL1 :=0;
TAL2 :=0;
EXP :=1;
FOR Y:=8 DOWNTO 1 DO
BEGIN
TAL1:=TAL1+((ORD(TALSTR(Y))-48)*EXP);
EXP :=EXP*10;
END;
TAL2:=RECNO;
IF TAL1<>TAL2 THEN ERROR3:=TRUE;
END;
IF ERROR1 THEN WRITELN
('** ERROR ** THIS IS NOT A ',STR,'-HEADER');
IF ERROR2 THEN WRITELN
('** ERROR ** THIS FILE IS NOT ''TO SPC/1 FROM NCR''');
IF ERROR3 THEN WRITELN
('** ERROR ** NUMBER OF RECORDS DOESN''T FIT');
IF ERROR1 OR ERROR2 OR ERROR3 THEN
BEGIN
WRITELN(REC);
GOTOXY(1,23);
WRITELN('PROGRAM ABORTED');
EXIT(MCCOPY);
END;
END;
PROCEDURE FILECOP1;
BEGIN
IF DOCHECK THEN CHECKHEADER('START');
RECNO:=1;
WRITELN(KOMFILE,REC);
REPEAT
READLN(RBCFILE);READ(RBCFILE,REC);
WRITELN(KOMFILE,REC);
RECNO:=RECNO+1;
UNTIL (COPY(REC,1,69)=RESULTTAB(X+1)) OR (EOF(RBCFILE));
IF EOF(RBCFILE) THEN
BEGIN
GOTOXY(11,12);
WRITELN(CHR(27),'^',TXT2,CHR(27),'q');
GOTOXY(1,23);
EXIT(MCCOPY);
END;
IF DOCHECK THEN CHECKHEADER('STOP ');
RECNUMBER:=RECNUMBER+RECNO;
END;
BEGIN
GOTOXY(1,5);
WRITELN(CHR(27),'Y');
RECNUMBER:=0;
FILENUMBER:=0;
RESET(RBCFILE,FILDREV);
IF IORESULT<>0 THEN
BEGIN
IOVÆRDI:=IORESULT;
GOTOXY(11,12);
WRITELN('ERROR NO.',IOVÆRDI:3,' IN FILE ''RBC-FILE'' - ABORTED');
GOTOXY(1,23);
EXIT(MCCOPY);
END;
REWRITE(KOMFILE,'KOMFILE:P2:5:K');
IF IORESULT<>0 THEN
BEGIN
IOVÆRDI:=IORESULT;
GOTOXY(11,13);
WRITELN('ERROR NO.',IOVÆRDI:3,' IN FILE ''RBCFILE'' - ABORTED');
GOTOXY(1,23);
EXIT(MCCOPY);
END;
(* Overflødigt check fjernet nov 86 /bs
SETUP(DATBUF,8);
GOTOXY(1,7);
WRITE('CHECK OF LEGO-HEADERS ? (Y/N) ');
REPEAT
WHILE NOT AVAIL DO ;
XCHAR:=NEXT;
UNTIL XCHAR IN (.'Y','y','n','N'.);
GOTOXY(33,7);
IF XCHAR IN (.'Y','y'.) THEN
WRITELN('Yes')
ELSE
WRITELN('No ');
FINIS;
IF XCHAR IN (.'Y','y'.) THEN
DOCHECK:=TRUE
ELSE
DOCHECK:=FALSE;
*)
DOCHECK:=FALSE;
GOTOXY(1,10);
WRITELN('COPYING FILES FROM ''RBCFILE'' TO ''KOMFILE''');
FOR X:=1 TO 200 DO
RESULTTAB(X):=' ';
X:=1;Y:=1;
WHILE HEADERTAB(X)<>' ' DO
BEGIN
IF HEADERTAB(X,1)=CHR(27) THEN
BEGIN
RESULTTAB(Y):=COPY(HEADERTAB(X),3,69);
Y:=Y+1;
END;
X:=X+1;
END;
X:=1;
READLN(RBCFILE);READ(RBCFILE,REC);
REPEAT
IF COPY(REC,1,69)=RESULTTAB(X) THEN
BEGIN
FILENUMBER:=FILENUMBER+1;
RECNO:=1;
FILECOP1;
X:=X+2;
END;
READLN(RBCFILE);READ(RBCFILE,REC);
UNTIL EOF(RBCFILE) OR (RESULTTAB(X)=' ');
GOTOXY(1,12);
WRITELN('NUMBER OF RECORDS COPIED ',RECNUMBER:4);
WRITELN('NUMBER OF FILES COPIED ',FILENUMBER:4);
CLOSE(RBCFILE);
CLOSE(KOMFILE);
END;
(*$P*)
SEGMENT PROCEDURE COMPRBCFILE;
VAR
WORKFILE : TEXT;
BEGIN
RESET(RBCFILE,FILDREV);
IF IORESULT<>0 THEN
BEGIN
IOVÆRDI:=IORESULT;
GOTOXY(1,16);
WRITELN('ERROR NO.',IOVÆRDI,' IN ''RBCFILE'' - ABORTED');
GOTOXY(1,23);
EXIT(MCCOPY);
END;
REWRITE(WORKFILE,'WORKFIL:P2:10:K');
IF IORESULT<>0 THEN
BEGIN
IOVÆRDI:=IORESULT;
GOTOXY(1,16);
WRITELN('ERROR NO.',IOVÆRDI:3,' IN FILE ''W-FILE'' - ABORTED');
GOTOXY(1,23);
EXIT(MCCOPY);
END;
(* FILERNE ER ÅBNE *)
X:=1;Y:=1;
REPEAT
IF HEADERTAB(X,1)=CHR(27) THEN
BEGIN
RESULTTAB(X):=COPY(HEADERTAB(X),3,69);
Y:=Y+1;
END;
X:=X+1;
UNTIL (X>200) OR (HEADERTAB(X)=' ');
(* --RESULTATTAB-- INDEHOLDER DE FILES, SOM SKAL MARKERES *)
X:=1;
READLN(RBCFILE);READ(RBCFILE,REC);
REPEAT
IF COPY(REC,1,69)=RESULTTAB(X) THEN
BEGIN
REC(1):='*';
X:=X+1;
END;
WRITELN(WORKFILE,REC);
READLN(RBCFILE);READ(RBCFILE,REC);
UNTIL EOF(RBCFILE);
CLOSE(RBCFILE);
CLOSE(WORKFILE);
(* --WORKFILE-- INDEHOLDER DEN KORREKTE RBCFILE *)
RESET(WORKFILE,'WORKFIL:P2');
IF IORESULT<>0 THEN
BEGIN
IOVÆRDI:=IORESULT;
GOTOXY(1,16);
WRITELN('ERROR NO.',IOVÆRDI,' IN ''WORKFILE'' - ABORRTED');
GOTOXY(1,23);
EXIT(PROGRAM);
END;
REWRITE(RBCFILE,FILDREV);
IF IORESULT<>0 THEN
BEGIN
IOVÆRDI:=IORESULT;
GOTOXY(1,16);
WRITELN('ERROR NO.',IOVÆRDI,' IN ''RBCFILE'' - ABORRTED');
GOTOXY(1,23);
EXIT(PROGRAM);
END;
READLN(WORKFILE);READ(WORKFILE,REC);
REPEAT
WRITELN(RBCFILE,REC);
READLN(WORKFILE);READ(WORKFILE,REC);
UNTIL EOF(WORKFILE);
CLOSE(RBCFILE);
CLOSE(WORKFILE);
(* MARKERING AF FILE-HEADERS I RBCFILE OK *)
END;
(*$P*)
(*$P*)
BEGIN
TIMEOK:=FALSE;
SETTIME;
(* "TIMEOK" kan sættes til true i proceduren "SETTIME" *)
IF TIMEOK THEN
BEGIN
CHOSEFILES;
FILECOPY;
COMPRBCFILE;
GOTOXY(1,23);
WRITELN('END OF MCCOPY');
END;
IF NOT TIMEOK THEN
BEGIN
CHAIN('START *1',' ',PCB);
CHAIN('MCCOPY *1',' ',PCB);
END;
END.
0x0000…001a Line {l1=0x18, l2=»PROGRAM MCCOPY(RBCFILE);«, l3=0x18}
0x001a…0058 Line {l1=0x3c, l2=»(***********************************************************«, l3=0x3c}
0x0058…005b Line {l1=0x01, l2=» «, l3=0x01}
0x005b…009b Line {l1=0x3e, l2=» UDVÆLGER DE(N) "RBCFILE(S)" SOM SKAL KONVERTERES OG PRINTES«, l3=0x3e}
0x009b…009e Line {l1=0x01, l2=» «, l3=0x01}
0x009e…00c6 Line {l1=0x26, l2=» DANNER/ÆNDRER FILES: RBCFILE«, l3=0x26}
0x00c6…00ef Line {l1=0x27, l2=» WORKFILE«, l3=0x27}
0x00ef…0117 Line {l1=0x26, l2=» KOMFILE«, l3=0x26}
0x0117…011a Line {l1=0x01, l2=» «, l3=0x01}
0x011a…015a Line {l1=0x3e, l2=» 201186 / BS - Fjernet overflødigt check af LEGO-headers.«, l3=0x3e}
0x015a…019e Line {l1=0x42, l2=» Indlagt kald af "START"-programmet, hvor «, l3=0x42}
0x019e…01dd Line {l1=0x3d, l2=» SPC1'erens dato og klokkeslet kan ændres.«, l3=0x3d}
0x01dd…01e0 Line {l1=0x01, l2=» «, l3=0x01}
0x01e0…0220 Line {l1=0x3e, l2=»*************************************************************)«, l3=0x3e}
0x0220…0260 Line {l1=0x3e, l2=» (*$P*)«, l3=0x3e}
0x0260…0263 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0266…026d Line {l1=0x05, l2=»CONST«, l3=0x05}
0x026d…02a1 Line {l1=0x32, l2=» TXT1 = '** ERROR ** NO FILE !';«, l3=0x32}
0x02a1…02ea Line {l1=0x47, l2=» TXT2 = '** ERROR ** END-RECORD NOT FOUND !'; «, l3=0x47}
0x02ea…02f0 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x02f0…0322 Line {l1=0x30, l2=» PARAMETER = ARRAY (1..39) OF CHAR;«, l3=0x30}
0x0322…0344 Line {l1=0x20, l2=» KLOKKEN = RECORD«, l3=0x20}
0x0344…038d Line {l1=0x47, l2=» QDATE : PACKED ARRAY (1..10) OF CHAR;«, l3=0x47}
0x038d…03d5 Line {l1=0x46, l2=» QTIME : PACKED ARRAY (1..8) OF CHAR;«, l3=0x46}
0x03d5…03f5 Line {l1=0x1e, l2=» END;«, l3=0x1e}
0x03f5…0436 Line {l1=0x3f, l2=» DIRECTBUF = PACKED ARRAY (1..10) OF CHAR;«, l3=0x3f}
0x0436…0439 Line {l1=0x01, l2=» «, l3=0x01}
0x0439…043e Line {l1=0x03, l2=»VAR«, l3=0x03}
0x043e…046c Line {l1=0x2c, l2=» PARM :^PARAMETER;«, l3=0x2c}
0x046c…0499 Line {l1=0x2b, l2=» UR : ^KLOKKEN;«, l3=0x2b}
0x0499…04c6 Line {l1=0x2b, l2=» PCB : ^INTEGER;«, l3=0x2b}
0x04c6…04ef Line {l1=0x27, l2=» RBCFILE : TEXT;«, l3=0x27}
0x04ef…0518 Line {l1=0x27, l2=» KOMFILE : TEXT;«, l3=0x27}
0x0518…0559 Line {l1=0x3f, l2=» HEADERTAB : ARRAY (1..200) OF STRING(73);«, l3=0x3f}
0x0559…059a Line {l1=0x3f, l2=» RESULTTAB : ARRAY (1..200) OF STRING(69);«, l3=0x3f}
0x059a…05c9 Line {l1=0x2d, l2=» REC : STRING(77);«, l3=0x2d}
0x05c9…05f8 Line {l1=0x2d, l2=» RECBACK : STRING(77);«, l3=0x2d}
0x05f8…0627 Line {l1=0x2d, l2=» FILDREV : STRING(11);«, l3=0x2d}
0x0627…0655 Line {l1=0x2c, l2=» INVERS : STRING(2);«, l3=0x2c}
0x0655…0683 Line {l1=0x2c, l2=» ENDINVERS : STRING(2);«, l3=0x2c}
0x0683…06af Line {l1=0x2a, l2=» IOVÆRDI : INTEGER;«, l3=0x2a}
0x06af…06db Line {l1=0x2a, l2=» X : INTEGER;«, l3=0x2a}
0x06db…0707 Line {l1=0x2a, l2=» Y : INTEGER;«, l3=0x2a}
0x0707…0733 Line {l1=0x2a, l2=» CURSORY : INTEGER;«, l3=0x2a}
0x0733…075f Line {l1=0x2a, l2=» RECNUMBER : INTEGER;«, l3=0x2a}
0x075f…078b Line {l1=0x2a, l2=» RECNO : INTEGER;«, l3=0x2a}
0x078b…07b7 Line {l1=0x2a, l2=» FILENUMBER : INTEGER;«, l3=0x2a}
0x07b7…07e3 Line {l1=0x2a, l2=» NIVEAU : INTEGER;«, l3=0x2a}
0x07e3…080f Line {l1=0x2a, l2=» TIMEOK : BOOLEAN;«, l3=0x2a}
0x080f…083b Line {l1=0x2a, l2=» DOCHECK : BOOLEAN;«, l3=0x2a}
0x083b…0867 Line {l1=0x2a, l2=» ERRORSWITCH : BOOLEAN;«, l3=0x2a}
0x0867…0895 Line {l1=0x2c, l2=» ANSWER : STRING(1);«, l3=0x2c}
0x0895…08d7 Line {l1=0x40, l2=» «, l3=0x40}
0x08d7…091a Line {l1=0x41, l2=»PROCEDURE SETUP(VAR BUFFER: DIRECTBUF; LENGTH: INTEGER);EXTERNAL;«, l3=0x41}
0x091a…093d Line {l1=0x21, l2=»FUNCTION AVAIL: BOOLEAN;EXTERNAL;«, l3=0x21}
0x093d…095c Line {l1=0x1d, l2=»FUNCTION NEXT: CHAR;EXTERNAL;«, l3=0x1d}
0x095c…0977 Line {l1=0x19, l2=»PROCEDURE FINIS;EXTERNAL;«, l3=0x19}
0x0977…097f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x097f…09b4 Line {l1=0x33, l2=»SEGMENT PROCEDURE SETTIME; «, l3=0x33}
0x09b4…09bb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09bb…09cb Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x09cb…09dc Line {l1=0x0f, l2=» BEGIN «, l3=0x0f}
0x09dc…09ee Line {l1=0x10, l2=» GOTOXY(1,5);«, l3=0x10}
0x09ee…0a2a Line {l1=0x3a, l2=» WRITE(' '); «, l3=0x3a}
0x0a2a…0a6e Line {l1=0x42, l2=» WRITELN('******************************'); «, l3=0x42}
0x0a6e…0aaa Line {l1=0x3a, l2=» WRITE(' '); «, l3=0x3a}
0x0aaa…0aee Line {l1=0x42, l2=» WRITELN('* *'); «, l3=0x42}
0x0aee…0b2a Line {l1=0x3a, l2=» WRITE(' '); «, l3=0x3a}
0x0b2a…0b6e Line {l1=0x42, l2=» WRITELN('* Spc1-clock: *'); «, l3=0x42}
0x0b6e…0baa Line {l1=0x3a, l2=» WRITE(' '); «, l3=0x3a}
0x0baa…0bd0 Line {l1=0x24, l2=» WRITE('* ',UR^.QDATE,' - ');«, l3=0x24}
0x0bd0…0bef Line {l1=0x1d, l2=» WRITE(LIST,UR^.QTIME(1));«, l3=0x1d}
0x0bef…0c0e Line {l1=0x1d, l2=» WRITE(LIST,UR^.QTIME(2));«, l3=0x1d}
0x0c0e…0c1f Line {l1=0x0f, l2=» WRITE('.');«, l3=0x0f}
0x0c1f…0c3e Line {l1=0x1d, l2=» WRITE(LIST,UR^.QTIME(4));«, l3=0x1d}
0x0c3e…0c5d Line {l1=0x1d, l2=» WRITE(LIST,UR^.QTIME(5));«, l3=0x1d}
0x0c5d…0c75 Line {l1=0x16, l2=» WRITELN(' *');«, l3=0x16}
0x0c75…0cb1 Line {l1=0x3a, l2=» WRITE(' '); «, l3=0x3a}
0x0cb1…0cf5 Line {l1=0x42, l2=» WRITELN('* *'); «, l3=0x42}
0x0cf5…0d31 Line {l1=0x3a, l2=» WRITE(' '); «, l3=0x3a}
0x0d31…0d75 Line {l1=0x42, l2=» WRITELN('******************************'); «, l3=0x42}
0x0d75…0d7d Line {l1=0x06, l2=» END;«, l3=0x06}
0x0d7d…0d80 Line {l1=0x01, l2=» «, l3=0x01}
0x0d80…0d90 Line {l1=0x0e, l2=» ANSWER:='N';«, l3=0x0e}
0x0d90…0dba Line {l1=0x28, l2=» REPEAT «, l3=0x28}
0x0dba…0dd6 Line {l1=0x1a, l2=» GOTOXY(24,20); «, l3=0x1a}
0x0dd6…0e06 Line {l1=0x2e, l2=» WRITE('Is the date and time ok (Y/N) ? ');«, l3=0x2e}
0x0e06…0e1b Line {l1=0x13, l2=» EDIT(ANSWER:1);«, l3=0x13}
0x0e1b…0e48 Line {l1=0x2b, l2=» UNTIL ANSWER(1) IN (.'Y','y','n','N'.); «, l3=0x2b}
0x0e48…0e58 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0e58…0e5b Line {l1=0x01, l2=» «, l3=0x01}
0x0e5b…0e8f Line {l1=0x32, l2=» IF ANSWER(1) IN (.'Y','y'.) THEN TIMEOK:=TRUE; «, l3=0x32}
0x0e8f…0e92 Line {l1=0x01, l2=» «, l3=0x01}
0x0e92…0e98 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e98…0e9b Line {l1=0x01, l2=» «, l3=0x01}
0x0e9b…0eba Line {l1=0x1d, l2=»SEGMENT PROCEDURE CHOSEFILES;«, l3=0x1d}
0x0eba…0ebd Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0ec0…0ed6 Line {l1=0x14, l2=»PROCEDURE WRITEHEAD;«, l3=0x14}
0x0ed6…0edd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0edd…0eed Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0eed…0efd Line {l1=0x0e, l2=» GOTOXY(8,1);«, l3=0x0e}
0x0efd…0f49 Line {l1=0x4a, l2=» WRITELN('$$ $$ $$$$ $$$$ $$$$ $$$$$ $ $');«, l3=0x4a}
0x0f49…0f59 Line {l1=0x0e, l2=» GOTOXY(8,2);«, l3=0x0e}
0x0f59…0fa4 Line {l1=0x49, l2=» WRITELN('$ $ $ $ $ $ $ $ $ $ $');«, l3=0x49}
0x0fa4…0fb4 Line {l1=0x0e, l2=» GOTOXY(8,3);«, l3=0x0e}
0x0fb4…0ffe Line {l1=0x48, l2=» WRITELN('$ $ $ $ $ $ $$$$$ $');«, l3=0x48}
0x0ffe…100e Line {l1=0x0e, l2=» GOTOXY(8,4);«, l3=0x0e}
0x100e…1058 Line {l1=0x48, l2=» WRITELN('$ $ $$$$ $$$$ $$$$ $ $');«, l3=0x48}
0x1058…105e Line {l1=0x04, l2=»END;«, l3=0x04}
0x105e…1061 Line {l1=0x01, l2=» «, l3=0x01}
0x1061…1086 Line {l1=0x23, l2=»PROCEDURE WRITEFILES(FNO: INTEGER);«, l3=0x23}
0x1086…108b Line {l1=0x03, l2=»VAR«, l3=0x03}
0x108b…10af Line {l1=0x22, l2=» TABNO : INTEGER;«, l3=0x22}
0x10af…10d3 Line {l1=0x22, l2=» CURSORY : INTEGER;«, l3=0x22}
0x10d3…10f7 Line {l1=0x22, l2=» CURSORX : INTEGER;«, l3=0x22}
0x10f7…10fe Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x10fe…1113 Line {l1=0x13, l2=» TABNO:=(FNO*2)-1;«, l3=0x13}
0x1113…1122 Line {l1=0x0d, l2=» CURSORY:=7;«, l3=0x0d}
0x1122…112c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x112c…1150 Line {l1=0x22, l2=» IF HEADERTAB(TABNO,1)=' ' THEN«, l3=0x22}
0x1150…1162 Line {l1=0x10, l2=» CURSORX:=7«, l3=0x10}
0x1162…116c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x116c…117f Line {l1=0x11, l2=» CURSORX:=8;«, l3=0x11}
0x117f…1197 Line {l1=0x16, l2=» GOTOXY(1,CURSORY);«, l3=0x16}
0x1197…11b0 Line {l1=0x17, l2=» WRITE('<Z>',FNO:4);«, l3=0x17}
0x11b0…11ce Line {l1=0x1c, l2=» GOTOXY(CURSORX,CURSORY);«, l3=0x1c}
0x11ce…11ee Line {l1=0x1e, l2=» WRITELN(HEADERTAB(TABNO));«, l3=0x1e}
0x11ee…120e Line {l1=0x1e, l2=» GOTOXY(CURSORX,CURSORY+1);«, l3=0x1e}
0x120e…1236 Line {l1=0x26, l2=» WRITELN('<Z>',HEADERTAB(TABNO+1));«, l3=0x26}
0x1236…124f Line {l1=0x17, l2=» CURSORY:=CURSORY+3;«, l3=0x17}
0x124f…1264 Line {l1=0x13, l2=» TABNO:=TABNO+2;«, l3=0x13}
0x1264…1275 Line {l1=0x0f, l2=» FNO:=FNO+1;«, l3=0x0f}
0x1275…128a Line {l1=0x13, l2=» UNTIL CURSORY>19;«, l3=0x13}
0x128a…1290 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1290…1293 Line {l1=0x01, l2=» «, l3=0x01}
0x1293…12aa Line {l1=0x15, l2=»PROCEDURE INDEXERROR;«, l3=0x15}
0x12aa…12af Line {l1=0x03, l2=»VAR«, l3=0x03}
0x12af…12d5 Line {l1=0x24, l2=» CHECKSTR : STRING(5);«, l3=0x24}
0x12d5…12fb Line {l1=0x24, l2=» BACKCHECKSTR : STRING(5);«, l3=0x24}
0x12fb…1302 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1302…1314 Line {l1=0x10, l2=» GOTOXY(11,13);«, l3=0x10}
0x1314…1352 Line {l1=0x3c, l2=» WRITELN('INDEX ERROR IN TABLE ''HEADERTAB'' - ABORTED');«, l3=0x3c}
0x1352…1363 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x1363…1374 Line {l1=0x0f, l2=» EXIT(MCCOPY);«, l3=0x0f}
0x1374…137a Line {l1=0x04, l2=»END;«, l3=0x04}
0x137a…137d Line {l1=0x01, l2=» «, l3=0x01}
0x137d…1394 Line {l1=0x15, l2=»PROCEDURE FINDHEADER;«, l3=0x15}
0x1394…1399 Line {l1=0x03, l2=»VAR«, l3=0x03}
0x1399…13c7 Line {l1=0x2c, l2=» CHECKSTR : STRING(5);«, l3=0x2c}
0x13c7…13f5 Line {l1=0x2c, l2=» BACKCHECKSTR : STRING(5);«, l3=0x2c}
0x13f5…13fc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x13fc…140e Line {l1=0x10, l2=» GOTOXY(11,12);«, l3=0x10}
0x140e…1451 Line {l1=0x41, l2=» WRITE(CHR(27),'^WAIT ! - SEARCHING FOR RBC-FILES',CHR(27),'q');«, l3=0x41}
0x1451…146b Line {l1=0x18, l2=» FILDREV:='RBCFILE:P3';«, l3=0x18}
0x146b…1486 Line {l1=0x19, l2=» RESET(RBCFILE,FILDREV);«, l3=0x19}
0x1486…149e Line {l1=0x16, l2=» IF IORESULT<>0 THEN «, l3=0x16}
0x149e…14aa Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x14aa…14c9 Line {l1=0x1d, l2=» FILDREV:='RBCFILE:P4';«, l3=0x1d}
0x14c9…14e9 Line {l1=0x1e, l2=» RESET(RBCFILE,FILDREV);«, l3=0x1e}
0x14e9…14f4 Line {l1=0x09, l2=» END;«, l3=0x09}
0x14f4…150b Line {l1=0x15, l2=» IF IORESULT<>0 THEN«, l3=0x15}
0x150b…1516 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1516…1530 Line {l1=0x18, l2=» IOVÆRDI:=IORESULT;«, l3=0x18}
0x1530…1546 Line {l1=0x14, l2=» GOTOXY(11,13);«, l3=0x14}
0x1546…1591 Line {l1=0x49, l2=» WRITELN('ERROR NO.',IOVÆRDI:3,' IN FILE ''RBCFILE'' - ABORTED');«, l3=0x49}
0x1591…15a6 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x15a6…15bb Line {l1=0x13, l2=» EXIT(MCCOPY);«, l3=0x13}
0x15bb…15c5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x15c5…15eb Line {l1=0x24, l2=» READLN(RBCFILE);READ(RBCFILE,REC);«, l3=0x24}
0x15eb…1604 Line {l1=0x17, l2=» IF EOF(RBCFILE) THEN «, l3=0x17}
0x1604…160f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x160f…1625 Line {l1=0x14, l2=» GOTOXY(11,13);«, l3=0x14}
0x1625…165c Line {l1=0x35, l2=» WRITE('NO RECORDS IN ''RBCFILE'' - ABORTED');«, l3=0x35}
0x165c…1671 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x1671…1686 Line {l1=0x13, l2=» EXIT(MCCOPY);«, l3=0x13}
0x1686…1690 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1690…16c8 Line {l1=0x36, l2=» HEADERTAB(1):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);«, l3=0x36}
0x16c8…16de Line {l1=0x14, l2=» RECBACK :=REC;«, l3=0x14}
0x16de…1704 Line {l1=0x24, l2=» READLN(RBCFILE);READ(RBCFILE,REC);«, l3=0x24}
0x1704…170d Line {l1=0x07, l2=» X:=2;«, l3=0x07}
0x170d…1710 Line {l1=0x01, l2=» «, l3=0x01}
0x1710…172d Line {l1=0x1b, l2=» WHILE NOT EOF(RBCFILE) DO«, l3=0x1b}
0x172d…1738 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1738…175d Line {l1=0x23, l2=» CHECKSTR:=COPY(REC,10,5);«, l3=0x23}
0x175d…1786 Line {l1=0x27, l2=» BACKCHECKSTR:=COPY(RECBACK,10,5);«, l3=0x27}
0x1786…17a7 Line {l1=0x1f, l2=» IF (CHECKSTR='START') AND«, l3=0x1f}
0x17a7…17cb Line {l1=0x22, l2=» (BACKCHECKSTR<>'STOP ') THEN«, l3=0x22}
0x17cb…17da Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x17da…181e Line {l1=0x42, l2=» HEADERTAB(X):=CONCAT(' ',COPY(RECBACK,1,69),ENDINVERS);«, l3=0x42}
0x181e…1831 Line {l1=0x11, l2=» X:=X+1;«, l3=0x11}
0x1831…1871 Line {l1=0x3e, l2=» HEADERTAB(X):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);«, l3=0x3e}
0x1871…1884 Line {l1=0x11, l2=» X:=X+1;«, l3=0x11}
0x1884…18b8 Line {l1=0x32, l2=» IF ((X DIV 2) * 2) <> X THEN INDEXERROR;«, l3=0x32}
0x18b8…18c6 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x18c6…18eb Line {l1=0x23, l2=» IF (BACKCHECKSTR='STOP ') AND«, l3=0x23}
0x18eb…190b Line {l1=0x1e, l2=» (CHECKSTR<>'START') THEN«, l3=0x1e}
0x190b…191a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x191a…195e Line {l1=0x42, l2=» HEADERTAB(X):=CONCAT(' ',COPY(RECBACK,1,69),ENDINVERS);«, l3=0x42}
0x195e…1971 Line {l1=0x11, l2=» X:=X+1;«, l3=0x11}
0x1971…19b1 Line {l1=0x3e, l2=» HEADERTAB(X):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);«, l3=0x3e}
0x19b1…19c4 Line {l1=0x11, l2=» X:=X+1;«, l3=0x11}
0x19c4…19f8 Line {l1=0x32, l2=» IF ((X DIV 2) * 2) <> X THEN INDEXERROR;«, l3=0x32}
0x19f8…1a06 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1a06…1a2e Line {l1=0x26, l2=» IF (COPY(REC,2,7)='BC LEGO') AND«, l3=0x26}
0x1a2e…1a58 Line {l1=0x28, l2=» (COPY(RECBACK,2,7)='BC LEGO') THEN«, l3=0x28}
0x1a58…1a68 Line {l1=0x0e, l2=» BEGIN «, l3=0x0e}
0x1a68…1aac Line {l1=0x42, l2=» HEADERTAB(X):=CONCAT(' ',COPY(RECBACK,1,69),ENDINVERS);«, l3=0x42}
0x1aac…1abf Line {l1=0x11, l2=» X:=X+1;«, l3=0x11}
0x1abf…1aff Line {l1=0x3e, l2=» HEADERTAB(X):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);«, l3=0x3e}
0x1aff…1b12 Line {l1=0x11, l2=» X:=X+1;«, l3=0x11}
0x1b12…1b33 Line {l1=0x1f, l2=» IF (CHECKSTR='START')«, l3=0x1f}
0x1b33…1b6a Line {l1=0x35, l2=» AND (((X DIV 2) * 2) <> X) THEN INDEXERROR;«, l3=0x35}
0x1b6a…1b8b Line {l1=0x1f, l2=» IF (CHECKSTR='STOP ')«, l3=0x1f}
0x1b8b…1bc2 Line {l1=0x35, l2=» AND (((X DIV 2) * 2) = X) THEN INDEXERROR;«, l3=0x35}
0x1bc2…1bd0 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1bd0…1be5 Line {l1=0x13, l2=» RECBACK:=REC;«, l3=0x13}
0x1be5…1c0f Line {l1=0x28, l2=» READLN(RBCFILE);READ(RBCFILE,REC);«, l3=0x28}
0x1c0f…1c19 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1c19…1c51 Line {l1=0x36, l2=» HEADERTAB(X):=CONCAT(' ',COPY(REC,1,69),ENDINVERS);«, l3=0x36}
0x1c51…1c64 Line {l1=0x11, l2=» CLOSE(RBCFILE);«, l3=0x11}
0x1c64…1c98 Line {l1=0x32, l2=»(* FJERNER ALLE HEADERS - STARTENDE MED STJENE *)«, l3=0x32}
0x1c98…1cab Line {l1=0x11, l2=» X:=1;NIVEAU:=0;«, l3=0x11}
0x1cab…1cb6 Line {l1=0x09, l2=» REPEAT «, l3=0x09}
0x1cb6…1cd6 Line {l1=0x1e, l2=» IF HEADERTAB(X,3)='*' THEN«, l3=0x1e}
0x1cd6…1cee Line {l1=0x16, l2=» NIVEAU:=NIVEAU-1«, l3=0x16}
0x1cee…1cf8 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1cf8…1d22 Line {l1=0x28, l2=» HEADERTAB(X+NIVEAU):=HEADERTAB(X);«, l3=0x28}
0x1d22…1d2f Line {l1=0x0b, l2=» X:=X+1;«, l3=0x0b}
0x1d2f…1d57 Line {l1=0x26, l2=» UNTIL (X>200) OR (HEADERTAB(X)=' ');«, l3=0x26}
0x1d57…1d87 Line {l1=0x2e, l2=» FOR Y:=X+NIVEAU TO 200 DO HEADERTAB(Y):=' ';«, l3=0x2e}
0x1d87…1d8d Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d8d…1d90 Line {l1=0x01, l2=» «, l3=0x01}
0x1d90…1da6 Line {l1=0x14, l2=»PROCEDURE FINDFILES;«, l3=0x14}
0x1da6…1dab Line {l1=0x03, l2=»VAR«, l3=0x03}
0x1dab…1ddc Line {l1=0x2f, l2=» DATBUF : DIRECTBUF; «, l3=0x2f}
0x1ddc…1e05 Line {l1=0x27, l2=» XCHAR : CHAR;«, l3=0x27}
0x1e05…1e31 Line {l1=0x2a, l2=» NCHAR : INTEGER;«, l3=0x2a}
0x1e31…1e5d Line {l1=0x2a, l2=» FILENO : INTEGER;«, l3=0x2a}
0x1e5d…1e89 Line {l1=0x2a, l2=» TABNO : INTEGER;«, l3=0x2a}
0x1e89…1eb5 Line {l1=0x2a, l2=» CURSORY : INTEGER;«, l3=0x2a}
0x1eb5…1ebc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ebc…1eca Line {l1=0x0c, l2=» FILENO:=1;«, l3=0x0c}
0x1eca…1ed9 Line {l1=0x0d, l2=» CURSORY:=7;«, l3=0x0d}
0x1ed9…1ee9 Line {l1=0x0e, l2=» GOTOXY(1,5);«, l3=0x0e}
0x1ee9…1f02 Line {l1=0x17, l2=» WRITELN(CHR(27),'Y');«, l3=0x17}
0x1f02…1f19 Line {l1=0x15, l2=» WRITEFILES(FILENO);«, l3=0x15}
0x1f19…1f2a Line {l1=0x0f, l2=» GOTOXY(1,21);«, l3=0x0f}
0x1f2a…1f66 Line {l1=0x3a, l2=» WRITELN('USE FOLLOWING KEYS : ^ v (arrows up/down)');«, l3=0x3a}
0x1f66…1f78 Line {l1=0x10, l2=» GOTOXY(23,22);«, l3=0x10}
0x1f78…1f97 Line {l1=0x1d, l2=» WRITELN('S (select)');«, l3=0x1d}
0x1f97…1fa9 Line {l1=0x10, l2=» GOTOXY(23,23);«, l3=0x10}
0x1fa9…1fca Line {l1=0x1f, l2=» WRITELN('C (continue)');«, l3=0x1f}
0x1fca…1fdc Line {l1=0x10, l2=» GOTOXY(23,24);«, l3=0x10}
0x1fdc…1ff9 Line {l1=0x1b, l2=» WRITE ('Q (quit)');«, l3=0x1b}
0x1ff9…200f Line {l1=0x14, l2=» GOTOXY(4,CURSORY);«, l3=0x14}
0x200f…2026 Line {l1=0x15, l2=» ERRORSWITCH:=FALSE;«, l3=0x15}
0x2026…203a Line {l1=0x12, l2=» SETUP(DATBUF,8);«, l3=0x12}
0x203a…203d Line {l1=0x01, l2=» «, l3=0x01}
0x203d…2048 Line {l1=0x09, l2=» REPEAT «, l3=0x09}
0x2048…2061 Line {l1=0x17, l2=» WHILE NOT AVAIL DO;«, l3=0x17}
0x2061…2073 Line {l1=0x10, l2=» XCHAR:=NEXT;«, l3=0x10}
0x2073…208c Line {l1=0x17, l2=» IF ERRORSWITCH THEN«, l3=0x17}
0x208c…2097 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2097…20ad Line {l1=0x14, l2=» GOTOXY(51,21);«, l3=0x14}
0x20ad…20c4 Line {l1=0x15, l2=» WRITELN('<Z>');«, l3=0x15}
0x20c4…20df Line {l1=0x19, l2=» ERRORSWITCH:=FALSE;«, l3=0x19}
0x20df…20e9 Line {l1=0x08, l2=» END;«, l3=0x08}
0x20e9…2101 Line {l1=0x16, l2=» NCHAR:=ORD(XCHAR);«, l3=0x16}
0x2101…2114 Line {l1=0x11, l2=» CASE NCHAR OF«, l3=0x11}
0x2114…212d Line {l1=0x17, l2=» 11 : BEGIN«, l3=0x17}
0x212d…2154 Line {l1=0x25, l2=» FILENO:=FILENO-1;«, l3=0x25}
0x2154…217d Line {l1=0x27, l2=» CURSORY:=CURSORY-3;«, l3=0x27}
0x217d…21a5 Line {l1=0x26, l2=» IF FILENO < 1 THEN«, l3=0x26}
0x21a5…21c2 Line {l1=0x1b, l2=» BEGIN«, l3=0x1b}
0x21c2…21e6 Line {l1=0x22, l2=» FILENO:=1;«, l3=0x22}
0x21e6…220b Line {l1=0x23, l2=» CURSORY:=7;«, l3=0x23}
0x220b…2227 Line {l1=0x1a, l2=» END «, l3=0x1a}
0x2227…2241 Line {l1=0x18, l2=» ELSE«, l3=0x18}
0x2241…226a Line {l1=0x27, l2=» IF CURSORY<7 THEN«, l3=0x27}
0x226a…2289 Line {l1=0x1d, l2=» BEGIN«, l3=0x1d}
0x2289…22b0 Line {l1=0x25, l2=» CURSORY:=7;«, l3=0x25}
0x22b0…22df Line {l1=0x2d, l2=» WRITEFILES(FILENO);«, l3=0x2d}
0x22df…22fd Line {l1=0x1c, l2=» END;«, l3=0x1c}
0x22fd…2325 Line {l1=0x26, l2=» GOTOXY(4,CURSORY);«, l3=0x26}
0x2325…233d Line {l1=0x16, l2=» END;«, l3=0x16}
0x233d…2356 Line {l1=0x17, l2=» 10 : BEGIN«, l3=0x17}
0x2356…237f Line {l1=0x27, l2=» CURSORY:=CURSORY+3;«, l3=0x27}
0x237f…23a6 Line {l1=0x25, l2=» FILENO:=FILENO+1;«, l3=0x25}
0x23a6…23d0 Line {l1=0x28, l2=» IF FILENO > 100 THEN«, l3=0x28}
0x23d0…23ed Line {l1=0x1b, l2=» BEGIN«, l3=0x1b}
0x23ed…2413 Line {l1=0x24, l2=» FILENO:=100;«, l3=0x24}
0x2413…243e Line {l1=0x29, l2=» CURSORY:=19; «, l3=0x29}
0x243e…2459 Line {l1=0x19, l2=» END«, l3=0x19}
0x2459…2473 Line {l1=0x18, l2=» ELSE«, l3=0x18}
0x2473…249d Line {l1=0x28, l2=» IF CURSORY>19 THEN«, l3=0x28}
0x249d…24bc Line {l1=0x1d, l2=» BEGIN«, l3=0x1d}
0x24bc…24e4 Line {l1=0x26, l2=» CURSORY:=19;«, l3=0x26}
0x24e4…2515 Line {l1=0x2f, l2=» WRITEFILES(FILENO-4);«, l3=0x2f}
0x2515…2533 Line {l1=0x1c, l2=» END;«, l3=0x1c}
0x2533…255b Line {l1=0x26, l2=» GOTOXY(4,CURSORY);«, l3=0x26}
0x255b…2573 Line {l1=0x16, l2=» END;«, l3=0x16}
0x2573…258c Line {l1=0x17, l2=» 83,115 : BEGIN«, l3=0x17}
0x258c…25bb Line {l1=0x2d, l2=» TABNO:=(FILENO-1)+FILENO;«, l3=0x2d}
0x25bb…25ee Line {l1=0x31, l2=» IF HEADERTAB(TABNO)=' ' THEN «, l3=0x31}
0x25ee…260c Line {l1=0x1c, l2=» BEGIN «, l3=0x1c}
0x260c…2634 Line {l1=0x26, l2=» GOTOXY(51,21);«, l3=0x26}
0x2634…267b Line {l1=0x45, l2=» WRITELN(CHR(7),CHR(27),'^',TXT1,CHR(27),'q');«, l3=0x45}
0x267b…26a7 Line {l1=0x2a, l2=» GOTOXY(4,CURSORY);«, l3=0x2a}
0x26a7…26d3 Line {l1=0x2a, l2=» ERRORSWITCH:=TRUE;«, l3=0x2a}
0x26d3…26ef Line {l1=0x1a, l2=» END «, l3=0x1a}
0x26ef…2709 Line {l1=0x18, l2=» ELSE«, l3=0x18}
0x2709…2726 Line {l1=0x1b, l2=» BEGIN«, l3=0x1b}
0x2726…274d Line {l1=0x25, l2=» INVERS:=' ';«, l3=0x25}
0x274d…2785 Line {l1=0x36, l2=» IF HEADERTAB(TABNO,2)=' ' THEN«, l3=0x36}
0x2785…27a6 Line {l1=0x1f, l2=» BEGIN«, l3=0x1f}
0x27a6…27d7 Line {l1=0x2f, l2=» INVERS(1):=CHR(27);«, l3=0x2f}
0x27d7…2804 Line {l1=0x2b, l2=» INVERS(2):='j';«, l3=0x2b}
0x2804…2824 Line {l1=0x1e, l2=» END;«, l3=0x1e}
0x2824…285c Line {l1=0x36, l2=» HEADERTAB(TABNO,1):=INVERS(1);«, l3=0x36}
0x285c…2894 Line {l1=0x36, l2=» HEADERTAB(TABNO,2):=INVERS(2);«, l3=0x36}
0x2894…28ce Line {l1=0x38, l2=» HEADERTAB(TABNO+1,1):=INVERS(1);«, l3=0x38}
0x28ce…2908 Line {l1=0x38, l2=» HEADERTAB(TABNO+1,2):=INVERS(2);«, l3=0x38}
0x2908…2937 Line {l1=0x2d, l2=» X:=(CURSORY-7) DIV 3;«, l3=0x2d}
0x2937…2966 Line {l1=0x2d, l2=» WRITEFILES(FILENO-X);«, l3=0x2d}
0x2966…2992 Line {l1=0x2a, l2=» GOTOXY(4,CURSORY);«, l3=0x2a}
0x2992…29ae Line {l1=0x1a, l2=» END;«, l3=0x1a}
0x29ae…29c6 Line {l1=0x16, l2=» END;«, l3=0x16}
0x29c6…29df Line {l1=0x17, l2=» 27,81,113 : BEGIN«, l3=0x17}
0x29df…29fb Line {l1=0x1a, l2=» FINIS;«, l3=0x1a}
0x29fb…2a1d Line {l1=0x20, l2=» GOTOXY(1,5);«, l3=0x20}
0x2a1d…2a48 Line {l1=0x29, l2=» WRITELN(CHR(27),'Y');«, l3=0x29}
0x2a48…2a6b Line {l1=0x21, l2=» GOTOXY(1,22);«, l3=0x21}
0x2a6b…2a9e Line {l1=0x31, l2=» WRITELN('NO CHANGE IS MADE');«, l3=0x31}
0x2a9e…2acd Line {l1=0x2d, l2=» WRITELN('END OF MCCOPY');«, l3=0x2d}
0x2acd…2af1 Line {l1=0x22, l2=» EXIT(PROGRAM);«, l3=0x22}
0x2af1…2b09 Line {l1=0x16, l2=» END;«, l3=0x16}
0x2b09…2b13 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2b13…2b38 Line {l1=0x23, l2=» UNTIL (XCHAR='C') OR (XCHAR='c');«, l3=0x23}
0x2b38…2b48 Line {l1=0x0e, l2=» GOTOXY(1,5);«, l3=0x0e}
0x2b48…2b61 Line {l1=0x17, l2=» WRITELN(CHR(27),'Y');«, l3=0x17}
0x2b61…2b6b Line {l1=0x08, l2=» FINIS;«, l3=0x08}
0x2b6b…2b71 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2b71…2b74 Line {l1=0x01, l2=» «, l3=0x01}
0x2b74…2b7b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2b7b…2b92 Line {l1=0x15, l2=» ENDINVERS :=' ';«, l3=0x15}
0x2b92…2bac Line {l1=0x18, l2=» ENDINVERS(1):=CHR(27);«, l3=0x18}
0x2bac…2bc2 Line {l1=0x14, l2=» ENDINVERS(2):='k';«, l3=0x14}
0x2bc2…2bf7 Line {l1=0x33, l2=» FOR IOVÆRDI:=1 TO 200 DO HEADERTAB(IOVÆRDI):=' ';«, l3=0x33}
0x2bf7…2c05 Line {l1=0x0c, l2=» WRITEHEAD;«, l3=0x0c}
0x2c05…2c14 Line {l1=0x0d, l2=» FINDHEADER;«, l3=0x0d}
0x2c14…2c22 Line {l1=0x0c, l2=» FINDFILES;«, l3=0x0c}
0x2c22…2c28 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2c28…2c30 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2c30…2c4f Line {l1=0x1d, l2=»SEGMENT PROCEDURE FILECOPY; «, l3=0x1d}
0x2c4f…2c54 Line {l1=0x03, l2=»VAR«, l3=0x03}
0x2c54…2c7a Line {l1=0x24, l2=» DATBUF : DIRECTBUF;«, l3=0x24}
0x2c7a…2c9b Line {l1=0x1f, l2=» XCHAR : CHAR;«, l3=0x1f}
0x2c9b…2cc1 Line {l1=0x24, l2=»PROCEDURE CHECKHEADER(STR : STRING);«, l3=0x24}
0x2cc1…2cc6 Line {l1=0x03, l2=»VAR«, l3=0x03}
0x2cc6…2cec Line {l1=0x24, l2=» TALSTR : STRING(8);«, l3=0x24}
0x2cec…2d0e Line {l1=0x20, l2=» TAL1 : REAL; «, l3=0x20}
0x2d0e…2d2f Line {l1=0x1f, l2=» TAL2 : REAL;«, l3=0x1f}
0x2d2f…2d50 Line {l1=0x1f, l2=» EXP : REAL;«, l3=0x1f}
0x2d50…2d74 Line {l1=0x22, l2=» ERROR1 : BOOLEAN;«, l3=0x22}
0x2d74…2d98 Line {l1=0x22, l2=» ERROR2 : BOOLEAN;«, l3=0x22}
0x2d98…2dbc Line {l1=0x22, l2=» ERROR3 : BOOLEAN;«, l3=0x22}
0x2dbc…2dc3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2dc3…2dd5 Line {l1=0x10, l2=» ERROR1:=FALSE;«, l3=0x10}
0x2dd5…2de7 Line {l1=0x10, l2=» ERROR2:=FALSE;«, l3=0x10}
0x2de7…2df9 Line {l1=0x10, l2=» ERROR3:=FALSE;«, l3=0x10}
0x2df9…2e29 Line {l1=0x2e, l2=» IF COPY(REC,10,5) <> STR THEN ERROR1:=TRUE;«, l3=0x2e}
0x2e29…2e6d Line {l1=0x42, l2=» IF COPY(REC,16,21) <> 'TO SPC/1 FROM NCR ' THEN ERROR2:=TRUE;«, l3=0x42}
0x2e6d…2e85 Line {l1=0x16, l2=» IF STR='STOP ' THEN «, l3=0x16}
0x2e85…2e90 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2e90…2eaf Line {l1=0x1d, l2=» TALSTR:=COPY(REC,70,8);«, l3=0x1d}
0x2eaf…2ec1 Line {l1=0x10, l2=» TAL1 :=0;«, l3=0x10}
0x2ec1…2ed3 Line {l1=0x10, l2=» TAL2 :=0;«, l3=0x10}
0x2ed3…2ef0 Line {l1=0x1b, l2=» EXP :=1; «, l3=0x1b}
0x2ef0…2f0c Line {l1=0x1a, l2=» FOR Y:=8 DOWNTO 1 DO«, l3=0x1a}
0x2f0c…2f1b Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2f1b…2f4c Line {l1=0x2f, l2=» TAL1:=TAL1+((ORD(TALSTR(Y))-48)*EXP);«, l3=0x2f}
0x2f4c…2f65 Line {l1=0x17, l2=» EXP :=EXP*10;«, l3=0x17}
0x2f65…2f73 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x2f73…2f87 Line {l1=0x12, l2=» TAL2:=RECNO;«, l3=0x12}
0x2f87…2faf Line {l1=0x26, l2=» IF TAL1<>TAL2 THEN ERROR3:=TRUE;«, l3=0x26}
0x2faf…2fb9 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2fb9…2fd4 Line {l1=0x19, l2=» IF ERROR1 THEN WRITELN «, l3=0x19}
0x2fd4…3006 Line {l1=0x30, l2=» ('** ERROR ** THIS IS NOT A ',STR,'-HEADER');«, l3=0x30}
0x3006…3020 Line {l1=0x18, l2=» IF ERROR2 THEN WRITELN«, l3=0x18}
0x3020…305d Line {l1=0x3b, l2=» ('** ERROR ** THIS FILE IS NOT ''TO SPC/1 FROM NCR''');«, l3=0x3b}
0x305d…3077 Line {l1=0x18, l2=» IF ERROR3 THEN WRITELN«, l3=0x18}
0x3077…30ab Line {l1=0x32, l2=» ('** ERROR ** NUMBER OF RECORDS DOESN''T FIT');«, l3=0x32}
0x30ab…30d2 Line {l1=0x25, l2=» IF ERROR1 OR ERROR2 OR ERROR3 THEN «, l3=0x25}
0x30d2…30dd Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x30dd…30f2 Line {l1=0x13, l2=» WRITELN(REC);«, l3=0x13}
0x30f2…3107 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x3107…312a Line {l1=0x21, l2=» WRITELN('PROGRAM ABORTED');«, l3=0x21}
0x312a…313f Line {l1=0x13, l2=» EXIT(MCCOPY);«, l3=0x13}
0x313f…3149 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3149…314f Line {l1=0x04, l2=»END;«, l3=0x04}
0x314f…3152 Line {l1=0x01, l2=» «, l3=0x01}
0x3152…3167 Line {l1=0x13, l2=»PROCEDURE FILECOP1;«, l3=0x13}
0x3167…316e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x316e…3197 Line {l1=0x27, l2=» IF DOCHECK THEN CHECKHEADER('START');«, l3=0x27}
0x3197…31a4 Line {l1=0x0b, l2=» RECNO:=1;«, l3=0x0b}
0x31a4…31bd Line {l1=0x17, l2=» WRITELN(KOMFILE,REC);«, l3=0x17}
0x31bd…31c7 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x31c7…31ef Line {l1=0x26, l2=» READLN(RBCFILE);READ(RBCFILE,REC);«, l3=0x26}
0x31ef…320a Line {l1=0x19, l2=» WRITELN(KOMFILE,REC);«, l3=0x19}
0x320a…321f Line {l1=0x13, l2=» RECNO:=RECNO+1;«, l3=0x13}
0x321f…325b Line {l1=0x3a, l2=» UNTIL (COPY(REC,1,69)=RESULTTAB(X+1)) OR (EOF(RBCFILE));«, l3=0x3a}
0x325b…3273 Line {l1=0x16, l2=» IF EOF(RBCFILE) THEN«, l3=0x16}
0x3273…327e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x327e…3294 Line {l1=0x14, l2=» GOTOXY(11,12);«, l3=0x14}
0x3294…32c2 Line {l1=0x2c, l2=» WRITELN(CHR(27),'^',TXT2,CHR(27),'q');«, l3=0x2c}
0x32c2…32d7 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x32d7…32ec Line {l1=0x13, l2=» EXIT(MCCOPY);«, l3=0x13}
0x32ec…32f6 Line {l1=0x08, l2=» END;«, l3=0x08}
0x32f6…331f Line {l1=0x27, l2=» IF DOCHECK THEN CHECKHEADER('STOP ');«, l3=0x27}
0x331f…333e Line {l1=0x1d, l2=» RECNUMBER:=RECNUMBER+RECNO;«, l3=0x1d}
0x333e…3344 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3344…3347 Line {l1=0x01, l2=» «, l3=0x01}
0x3347…334e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x334e…335e Line {l1=0x0e, l2=» GOTOXY(1,5);«, l3=0x0e}
0x335e…3377 Line {l1=0x17, l2=» WRITELN(CHR(27),'Y');«, l3=0x17}
0x3377…3389 Line {l1=0x10, l2=» RECNUMBER:=0;«, l3=0x10}
0x3389…339b Line {l1=0x10, l2=» FILENUMBER:=0;«, l3=0x10}
0x339b…33b6 Line {l1=0x19, l2=» RESET(RBCFILE,FILDREV);«, l3=0x19}
0x33b6…33cd Line {l1=0x15, l2=» IF IORESULT<>0 THEN«, l3=0x15}
0x33cd…33d8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x33d8…33f2 Line {l1=0x18, l2=» IOVÆRDI:=IORESULT;«, l3=0x18}
0x33f2…3408 Line {l1=0x14, l2=» GOTOXY(11,12);«, l3=0x14}
0x3408…3453 Line {l1=0x49, l2=» WRITELN('ERROR NO.',IOVÆRDI:3,' IN FILE ''RBC-FILE'' - ABORTED');«, l3=0x49}
0x3453…3468 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x3468…347d Line {l1=0x13, l2=» EXIT(MCCOPY);«, l3=0x13}
0x347d…3487 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3487…34ad Line {l1=0x24, l2=» REWRITE(KOMFILE,'KOMFILE:P2:5:K');«, l3=0x24}
0x34ad…34c5 Line {l1=0x16, l2=» IF IORESULT<>0 THEN «, l3=0x16}
0x34c5…34d0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x34d0…34ea Line {l1=0x18, l2=» IOVÆRDI:=IORESULT;«, l3=0x18}
0x34ea…3500 Line {l1=0x14, l2=» GOTOXY(11,13);«, l3=0x14}
0x3500…354b Line {l1=0x49, l2=» WRITELN('ERROR NO.',IOVÆRDI:3,' IN FILE ''RBCFILE'' - ABORTED');«, l3=0x49}
0x354b…3560 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x3560…3575 Line {l1=0x13, l2=» EXIT(MCCOPY);«, l3=0x13}
0x3575…357f Line {l1=0x08, l2=» END;«, l3=0x08}
0x357f…35c7 Line {l1=0x46, l2=» (* Overflødigt check fjernet nov 86 /bs«, l3=0x46}
0x35c7…35db Line {l1=0x12, l2=» SETUP(DATBUF,8);«, l3=0x12}
0x35db…35eb Line {l1=0x0e, l2=» GOTOXY(1,7);«, l3=0x0e}
0x35eb…3619 Line {l1=0x2c, l2=» WRITE('CHECK OF LEGO-HEADERS ? (Y/N) ');«, l3=0x2c}
0x3619…3624 Line {l1=0x09, l2=» REPEAT «, l3=0x09}
0x3624…363e Line {l1=0x18, l2=» WHILE NOT AVAIL DO ;«, l3=0x18}
0x363e…3650 Line {l1=0x10, l2=» XCHAR:=NEXT;«, l3=0x10}
0x3650…3677 Line {l1=0x25, l2=» UNTIL XCHAR IN (.'Y','y','n','N'.);«, l3=0x25}
0x3677…3688 Line {l1=0x0f, l2=» GOTOXY(33,7);«, l3=0x0f}
0x3688…36a8 Line {l1=0x1e, l2=» IF XCHAR IN (.'Y','y'.) THEN«, l3=0x1e}
0x36a8…36bc Line {l1=0x12, l2=» WRITELN('Yes')«, l3=0x12}
0x36bc…36c4 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x36c4…36d9 Line {l1=0x13, l2=» WRITELN('No ');«, l3=0x13}
0x36d9…36e3 Line {l1=0x08, l2=» FINIS;«, l3=0x08}
0x36e3…3704 Line {l1=0x1f, l2=» IF XCHAR IN (.'Y','y'.) THEN «, l3=0x1f}
0x3704…3717 Line {l1=0x11, l2=» DOCHECK:=TRUE«, l3=0x11}
0x3717…371f Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x371f…3734 Line {l1=0x13, l2=» DOCHECK:=FALSE;«, l3=0x13}
0x3734…3773 Line {l1=0x3d, l2=» *)«, l3=0x3d}
0x3773…3786 Line {l1=0x11, l2=» DOCHECK:=FALSE;«, l3=0x11}
0x3786…3789 Line {l1=0x01, l2=» «, l3=0x01}
0x3789…379a Line {l1=0x0f, l2=» GOTOXY(1,10);«, l3=0x0f}
0x379a…37d7 Line {l1=0x3b, l2=» WRITELN('COPYING FILES FROM ''RBCFILE'' TO ''KOMFILE''');«, l3=0x3b}
0x37d7…37ef Line {l1=0x16, l2=» FOR X:=1 TO 200 DO «, l3=0x16}
0x37ef…3807 Line {l1=0x16, l2=» RESULTTAB(X):=' ';«, l3=0x16}
0x3807…3815 Line {l1=0x0c, l2=» X:=1;Y:=1;«, l3=0x0c}
0x3815…3833 Line {l1=0x1c, l2=» WHILE HEADERTAB(X)<>' ' DO«, l3=0x1c}
0x3833…383e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x383e…3864 Line {l1=0x24, l2=» IF HEADERTAB(X,1)=CHR(27) THEN«, l3=0x24}
0x3864…3873 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3873…38a5 Line {l1=0x30, l2=» RESULTTAB(Y):=COPY(HEADERTAB(X),3,69);«, l3=0x30}
0x38a5…38b8 Line {l1=0x11, l2=» Y:=Y+1;«, l3=0x11}
0x38b8…38c6 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x38c6…38d5 Line {l1=0x0d, l2=» X:=X+1;«, l3=0x0d}
0x38d5…38df Line {l1=0x08, l2=» END;«, l3=0x08}
0x38df…38e8 Line {l1=0x07, l2=» X:=1;«, l3=0x07}
0x38e8…390e Line {l1=0x24, l2=» READLN(RBCFILE);READ(RBCFILE,REC);«, l3=0x24}
0x390e…3918 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3918…3941 Line {l1=0x27, l2=» IF COPY(REC,1,69)=RESULTTAB(X) THEN«, l3=0x27}
0x3941…394e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x394e…3971 Line {l1=0x21, l2=» FILENUMBER:=FILENUMBER+1;«, l3=0x21}
0x3971…3984 Line {l1=0x11, l2=» RECNO:=1;«, l3=0x11}
0x3984…3997 Line {l1=0x11, l2=» FILECOP1;«, l3=0x11}
0x3997…39a8 Line {l1=0x0f, l2=» X:=X+2;«, l3=0x0f}
0x39a8…39b4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x39b4…39dc Line {l1=0x26, l2=» READLN(RBCFILE);READ(RBCFILE,REC);«, l3=0x26}
0x39dc…3a09 Line {l1=0x2b, l2=» UNTIL EOF(RBCFILE) OR (RESULTTAB(X)=' ');«, l3=0x2b}
0x3a09…3a1a Line {l1=0x0f, l2=» GOTOXY(1,12);«, l3=0x0f}
0x3a1a…3a50 Line {l1=0x34, l2=» WRITELN('NUMBER OF RECORDS COPIED ',RECNUMBER:4);«, l3=0x34}
0x3a50…3a87 Line {l1=0x35, l2=» WRITELN('NUMBER OF FILES COPIED ',FILENUMBER:4);«, l3=0x35}
0x3a87…3a9a Line {l1=0x11, l2=» CLOSE(RBCFILE);«, l3=0x11}
0x3a9a…3aad Line {l1=0x11, l2=» CLOSE(KOMFILE);«, l3=0x11}
0x3aad…3ab3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3ab3…3abb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3abb…3adb Line {l1=0x1e, l2=»SEGMENT PROCEDURE COMPRBCFILE;«, l3=0x1e}
0x3adb…3ae0 Line {l1=0x03, l2=»VAR«, l3=0x03}
0x3ae0…3b01 Line {l1=0x1f, l2=» WORKFILE : TEXT;«, l3=0x1f}
0x3b01…3b04 Line {l1=0x01, l2=» «, l3=0x01}
0x3b04…3b0b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3b0b…3b26 Line {l1=0x19, l2=» RESET(RBCFILE,FILDREV);«, l3=0x19}
0x3b26…3b3e Line {l1=0x16, l2=» IF IORESULT<>0 THEN «, l3=0x16}
0x3b3e…3b49 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3b49…3b63 Line {l1=0x18, l2=» IOVÆRDI:=IORESULT;«, l3=0x18}
0x3b63…3b78 Line {l1=0x13, l2=» GOTOXY(1,16);«, l3=0x13}
0x3b78…3bc1 Line {l1=0x47, l2=» WRITELN('ERROR NO.',IOVÆRDI,' IN ''RBCFILE'' - ABORTED');«, l3=0x47}
0x3bc1…3bd6 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x3bd6…3beb Line {l1=0x13, l2=» EXIT(MCCOPY);«, l3=0x13}
0x3beb…3bf5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3bf5…3c1d Line {l1=0x26, l2=» REWRITE(WORKFILE,'WORKFIL:P2:10:K');«, l3=0x26}
0x3c1d…3c35 Line {l1=0x16, l2=» IF IORESULT<>0 THEN «, l3=0x16}
0x3c35…3c40 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3c40…3c5a Line {l1=0x18, l2=» IOVÆRDI:=IORESULT;«, l3=0x18}
0x3c5a…3c6f Line {l1=0x13, l2=» GOTOXY(1,16);«, l3=0x13}
0x3c6f…3cbd Line {l1=0x4c, l2=» WRITELN('ERROR NO.',IOVÆRDI:3,' IN FILE ''W-FILE'' - ABORTED');«, l3=0x4c}
0x3cbd…3cd2 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x3cd2…3ce7 Line {l1=0x13, l2=» EXIT(MCCOPY);«, l3=0x13}
0x3ce7…3cf1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3cf1…3d08 Line {l1=0x15, l2=»(* FILERNE ER ÅBNE *)«, l3=0x15}
0x3d08…3d0b Line {l1=0x01, l2=» «, l3=0x01}
0x3d0b…3d19 Line {l1=0x0c, l2=» X:=1;Y:=1;«, l3=0x0c}
0x3d19…3d24 Line {l1=0x09, l2=» REPEAT «, l3=0x09}
0x3d24…3d49 Line {l1=0x23, l2=» IF HEADERTAB(X,1)=CHR(27) THEN «, l3=0x23}
0x3d49…3d56 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3d56…3d86 Line {l1=0x2e, l2=» RESULTTAB(X):=COPY(HEADERTAB(X),3,69);«, l3=0x2e}
0x3d86…3d97 Line {l1=0x0f, l2=» Y:=Y+1;«, l3=0x0f}
0x3d97…3da3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3da3…3db0 Line {l1=0x0b, l2=» X:=X+1;«, l3=0x0b}
0x3db0…3dd8 Line {l1=0x26, l2=» UNTIL (X>200) OR (HEADERTAB(X)=' ');«, l3=0x26}
0x3dd8…3e16 Line {l1=0x3c, l2=»(* --RESULTATTAB-- INDEHOLDER DE FILES, SOM SKAL MARKERES *)«, l3=0x3c}
0x3e16…3e19 Line {l1=0x01, l2=» «, l3=0x01}
0x3e19…3e22 Line {l1=0x07, l2=» X:=1;«, l3=0x07}
0x3e22…3e48 Line {l1=0x24, l2=» READLN(RBCFILE);READ(RBCFILE,REC);«, l3=0x24}
0x3e48…3e52 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3e52…3e7b Line {l1=0x27, l2=» IF COPY(REC,1,69)=RESULTTAB(X) THEN«, l3=0x27}
0x3e7b…3e88 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3e88…3e9e Line {l1=0x14, l2=» REC(1):='*';«, l3=0x14}
0x3e9e…3eaf Line {l1=0x0f, l2=» X:=X+1;«, l3=0x0f}
0x3eaf…3ebb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3ebb…3ed7 Line {l1=0x1a, l2=» WRITELN(WORKFILE,REC);«, l3=0x1a}
0x3ed7…3eff Line {l1=0x26, l2=» READLN(RBCFILE);READ(RBCFILE,REC);«, l3=0x26}
0x3eff…3f16 Line {l1=0x15, l2=» UNTIL EOF(RBCFILE);«, l3=0x15}
0x3f16…3f29 Line {l1=0x11, l2=» CLOSE(RBCFILE);«, l3=0x11}
0x3f29…3f3d Line {l1=0x12, l2=» CLOSE(WORKFILE);«, l3=0x12}
0x3f3d…3f72 Line {l1=0x33, l2=»(* --WORKFILE-- INDEHOLDER DEN KORREKTE RBCFILE *)«, l3=0x33}
0x3f72…3f75 Line {l1=0x01, l2=» «, l3=0x01}
0x3f75…3f96 Line {l1=0x1f, l2=» RESET(WORKFILE,'WORKFIL:P2');«, l3=0x1f}
0x3f96…3fae Line {l1=0x16, l2=» IF IORESULT<>0 THEN «, l3=0x16}
0x3fae…3fb9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3fb9…3fd3 Line {l1=0x18, l2=» IOVÆRDI:=IORESULT;«, l3=0x18}
0x3fd3…3fe8 Line {l1=0x13, l2=» GOTOXY(1,16);«, l3=0x13}
0x3fe8…4030 Line {l1=0x46, l2=» WRITELN('ERROR NO.',IOVÆRDI,' IN ''WORKFILE'' - ABORRTED');«, l3=0x46}
0x4030…4045 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x4045…405b Line {l1=0x14, l2=» EXIT(PROGRAM);«, l3=0x14}
0x405b…4065 Line {l1=0x08, l2=» END;«, l3=0x08}
0x4065…4082 Line {l1=0x1b, l2=» REWRITE(RBCFILE,FILDREV);«, l3=0x1b}
0x4082…409a Line {l1=0x16, l2=» IF IORESULT<>0 THEN «, l3=0x16}
0x409a…40a5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x40a5…40bf Line {l1=0x18, l2=» IOVÆRDI:=IORESULT;«, l3=0x18}
0x40bf…40d4 Line {l1=0x13, l2=» GOTOXY(1,16);«, l3=0x13}
0x40d4…411b Line {l1=0x45, l2=» WRITELN('ERROR NO.',IOVÆRDI,' IN ''RBCFILE'' - ABORRTED');«, l3=0x45}
0x411b…4130 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x4130…4146 Line {l1=0x14, l2=» EXIT(PROGRAM);«, l3=0x14}
0x4146…4150 Line {l1=0x08, l2=» END;«, l3=0x08}
0x4150…4178 Line {l1=0x26, l2=» READLN(WORKFILE);READ(WORKFILE,REC);«, l3=0x26}
0x4178…4183 Line {l1=0x09, l2=» REPEAT «, l3=0x09}
0x4183…419e Line {l1=0x19, l2=» WRITELN(RBCFILE,REC);«, l3=0x19}
0x419e…41c8 Line {l1=0x28, l2=» READLN(WORKFILE);READ(WORKFILE,REC);«, l3=0x28}
0x41c8…41e0 Line {l1=0x16, l2=» UNTIL EOF(WORKFILE);«, l3=0x16}
0x41e0…41f3 Line {l1=0x11, l2=» CLOSE(RBCFILE);«, l3=0x11}
0x41f3…4207 Line {l1=0x12, l2=» CLOSE(WORKFILE);«, l3=0x12}
0x4207…4235 Line {l1=0x2c, l2=»(* MARKERING AF FILE-HEADERS I RBCFILE OK *)«, l3=0x2c}
0x4235…423b Line {l1=0x04, l2=»END;«, l3=0x04}
0x423b…4243 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4243…4246 Line {l1=0x01, l2=» «, l3=0x01}
0x4246…428f Line {l1=0x47, l2=» (*$P*)«, l3=0x47}
0x428f…4296 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4296…42a8 Line {l1=0x10, l2=» TIMEOK:=FALSE;«, l3=0x10}
0x42a8…42b4 Line {l1=0x0a, l2=» SETTIME;«, l3=0x0a}
0x42b4…42fe Line {l1=0x48, l2=» (* "TIMEOK" kan sættes til true i proceduren "SETTIME" *) «, l3=0x48}
0x42fe…4319 Line {l1=0x19, l2=» IF TIMEOK THEN «, l3=0x19}
0x4319…4322 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4322…4333 Line {l1=0x0f, l2=» CHOSEFILES;«, l3=0x0f}
0x4333…4342 Line {l1=0x0d, l2=» FILECOPY;«, l3=0x0d}
0x4342…4354 Line {l1=0x10, l2=» COMPRBCFILE;«, l3=0x10}
0x4354…4367 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x4367…4386 Line {l1=0x1d, l2=» WRITELN('END OF MCCOPY');«, l3=0x1d}
0x4386…438e Line {l1=0x06, l2=» END;«, l3=0x06}
0x438e…4391 Line {l1=0x01, l2=» «, l3=0x01}
0x4391…43a7 Line {l1=0x14, l2=» IF NOT TIMEOK THEN«, l3=0x14}
0x43a7…43b0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x43b0…43d2 Line {l1=0x20, l2=» CHAIN('START *1',' ',PCB);«, l3=0x20}
0x43d2…43fa Line {l1=0x26, l2=» CHAIN('MCCOPY *1',' ',PCB); «, l3=0x26}
0x43fa…4402 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4402…4409 Line {l1=0x05, l2=»END. «, l3=0x05}
0x4409…4420 00 00 50 59 27 29 3b 1d 06 20 20 45 4e 44 3b 06 01 20 01 14 20 20 49 ┆ PY'); END; I┆
0x4420…4440 46 20 4e 4f 54 20 54 49 4d 45 4f 4b 20 54 48 45 4e 14 07 20 20 42 45 47 49 4e 07 20 20 20 20 20 ┆F NOT TIMEOK THEN BEGIN ┆
0x4440…4460 43 48 41 49 4e 28 27 53 54 41 52 54 20 20 20 2a 31 27 2c 27 20 27 2c 50 43 42 29 3b 20 26 20 20 ┆CHAIN('START *1',' ',PCB); & ┆
0x4460…4480 20 20 43 48 41 49 4e 28 27 4d 43 43 4f 50 59 20 20 2a 31 27 2c 27 20 27 2c 50 43 42 29 3b 20 20 ┆ CHAIN('MCCOPY *1',' ',PCB); ┆
0x4480…44a0 20 20 20 20 26 06 20 20 45 4e 44 3b 06 05 45 4e 44 2e 20 05 00 00 59 28 31 2c 32 33 29 3b 13 14 ┆ & END; END. Y(1,23); ┆
0x44a0…44c0 20 20 20 20 20 20 45 58 49 54 28 50 52 4f 47 52 41 4d 29 3b 14 08 20 20 20 20 45 4e 44 3b 08 26 ┆ EXIT(PROGRAM); END; &┆
0x44c0…44e0 20 20 52 45 41 44 4c 4e 28 57 4f 52 4b 46 49 4c 45 29 3b 52 45 41 44 28 57 4f 52 4b 46 49 4c 45 ┆ READLN(WORKFILE);READ(WORKFILE┆
0x44e0…4500 2c 52 45 43 29 3b 26 09 20 20 52 45 50 45 41 54 20 09 19 20 20 20 20 57 52 49 54 45 4c 4e 28 52 ┆,REC);& REPEAT WRITELN(R┆
0x4500…4520 42 43 46 49 4c 45 2c 52 45 43 29 3b 19 28 20 20 20 20 52 45 41 44 4c 4e 28 57 4f 52 4b 46 49 4c ┆BCFILE,REC); ( READLN(WORKFIL┆
0x4520…4540 45 29 3b 52 45 41 44 28 57 4f 52 4b 46 49 4c 45 2c 52 45 43 29 3b 28 16 20 20 55 4e 54 49 4c 20 ┆E);READ(WORKFILE,REC);( UNTIL ┆
0x4540…4560 45 4f 46 28 57 4f 52 4b 46 49 4c 45 29 3b 16 11 20 20 43 4c 4f 53 45 28 52 42 43 46 49 4c 45 29 ┆EOF(WORKFILE); CLOSE(RBCFILE)┆
0x4560…4580 3b 11 12 20 20 43 4c 4f 53 45 28 57 4f 52 4b 46 49 4c 45 29 3b 12 2c 28 2a 20 4d 41 52 4b 45 52 ┆; CLOSE(WORKFILE); ,(* MARKER┆
0x4580…45a0 49 4e 47 20 41 46 20 46 49 4c 45 2d 48 45 41 44 45 52 53 20 49 20 52 42 43 46 49 4c 45 20 4f 4b ┆ING AF FILE-HEADERS I RBCFILE OK┆
0x45a0…45c0 20 2a 29 2c 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 01 20 01 47 20 20 20 20 20 20 20 20 20 20 ┆ *), END; (*$P*) G ┆
0x45c0…45e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x45e0…4600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 50 2a 29 47 05 42 ┆ (*$P*)G B┆
0x4600…4620 45 47 49 4e 05 10 20 20 54 49 4d 45 4f 4b 3a 3d 46 41 4c 53 45 3b 10 0a 20 20 53 45 54 54 49 4d ┆EGIN TIMEOK:=FALSE; SETTIM┆
0x4620…4640 45 3b 0a 48 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 22 54 49 4d 45 4f 4b 22 20 6b 61 6e ┆E; H (* "TIMEOK" kan┆
0x4640…4660 20 73 7b 74 74 65 73 20 74 69 6c 20 74 72 75 65 20 69 20 70 72 6f 63 65 64 75 72 65 6e 20 22 53 ┆ sættes til true i proceduren "S┆
0x4660…4680 45 54 54 49 4d 45 22 20 2a 29 20 20 48 19 20 20 49 46 20 54 49 4d 45 4f 4b 20 54 48 45 4e 20 20 ┆ETTIME" *) H IF TIMEOK THEN ┆
0x4680…46a0 20 20 20 20 20 20 20 19 07 20 20 42 45 47 49 4e 07 0f 20 20 20 20 43 48 4f 53 45 46 49 4c 45 53 ┆ BEGIN CHOSEFILES┆
0x46a0…46c0 3b 0f 0d 20 20 20 20 46 49 4c 45 43 4f 50 59 3b 0d 10 20 20 20 20 43 4f 4d 50 52 42 43 46 49 4c ┆; FILECOPY; COMPRBCFIL┆
0x46c0…46e0 45 3b 10 11 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 11 1d 20 20 20 20 57 52 49 54 45 ┆E; GOTOXY(1,23); WRITE┆
0x46e0…4700 4c 4e 28 27 45 4e 44 20 4f 46 20 4d 43 43 4f 50 59 27 29 3b 1d 06 20 20 45 4e 44 3b 06 01 20 01 ┆LN('END OF MCCOPY'); END; ┆
0x4700…4720 14 20 20 49 46 20 4e 4f 54 20 54 49 4d 45 4f 4b 20 54 48 45 4e 14 07 20 20 42 45 47 49 4e 07 20 ┆ IF NOT TIMEOK THEN BEGIN ┆
0x4720…4740 20 20 20 20 43 48 41 49 4e 28 27 53 54 41 52 54 20 20 20 2a 31 27 2c 27 20 27 2c 50 43 42 29 3b ┆ CHAIN('START *1',' ',PCB);┆
0x4740…4760 20 26 20 20 20 20 43 48 41 49 4e 28 27 4d 43 43 4f 50 59 20 20 2a 31 27 2c 27 20 27 2c 50 43 42 ┆ & CHAIN('MCCOPY *1',' ',PCB┆
0x4760…4780 29 3b 20 20 20 20 20 20 26 06 20 20 45 4e 44 3b 06 05 45 4e 44 2e 20 05 00 00 a7 46 cb 8d a1 f4 ┆); & END; END. F ┆
0x4780…47a0 f5 ab 1a a7 46 ab 1b a7 1d 01 82 ab 1d a7 27 93 a7 46 00 c5 84 a1 3f e9 d2 16 e9 ee f5 d2 44 01 ┆ F ' F ? D ┆
0x47a0…47c0 d5 80 93 d8 01 c3 a1 f4 d5 80 94 d5 80 95 d5 80 96 ea a6 03 50 31 20 00 d2 13 9e 00 ea a5 86 9c ┆ P1 ┆
0x47c0…47e0 00 d2 13 9e 00 ea 2d 00 d2 11 9e 00 ea a5 86 a0 00 d2 13 9e 00 ea d2 16 9e 00 d5 80 97 01 cc 02 ┆ - ┆
0x47e0…4800 d5 80 98 a5 86 da d9 01 c7 c8 00 88 01 95 a4 01 f8 00 cb d9 c7 c8 00 c9 84 a1 49 d5 80 99 d5 80 ┆ I ┆
0x4800…4820 9a ea a5 86 da d9 01 c7 c8 00 88 01 95 a4 01 f8 00 d2 0d 9e 00 ea 2d 00 d2 11 9e 00 ea a5 86 da ┆ - ┆
0x4820…4840 d9 01 82 01 c7 c8 00 88 01 95 a4 01 f8 00 d2 0d 9e 00 ea d2 16 9e 00 d5 80 9b d9 02 82 cc 02 d5 ┆ ┆
0x4840…4860 80 9c b9 f6 d5 80 9d d5 80 9e d8 02 c3 a1 f0 d5 80 9f d5 80 a0 d5 80 a1 ea a6 03 50 32 20 00 d2 ┆ P2 ┆
0x4860…4880 13 9e 00 ea a5 87 a2 00 d2 13 9e 00 ea 2d 00 d2 11 9e 00 ea a5 87 a6 00 d2 13 9e 00 ea d2 16 9e ┆ - ┆
0x4880…48a0 00 d5 80 a2 01 cc 02 d5 80 a3 a5 87 e0 d9 01 c7 c8 00 88 01 95 a4 01 f8 00 cb d9 c7 c8 00 c9 84 ┆ ┆
0x48a0…48c0 a1 49 d5 80 a4 d5 80 a5 ea a5 87 e0 d9 01 c7 c8 00 88 01 95 a4 01 f8 00 d2 0d 9e 00 ea 2d 00 d2 ┆ I - ┆
0x48c0…48e0 11 9e 00 ea a5 87 e0 d9 01 82 01 c7 c8 00 88 01 95 a4 01 f8 00 d2 0d 9e 00 ea d2 16 9e 00 d5 80 ┆ ┆
0x48e0…4900 a6 d9 02 82 cc 02 d5 80 a7 b9 f2 d5 80 a8 d5 80 a9 ad 00 9a 06 00 6c 00 b1 00 17 01 02 00 02 00 ┆ l ┆
0x4900…4920 0f 00 62 01 02 01 c6 02 d8 aa 50 d5 80 ad c6 02 a6 07 56 45 4e 53 54 52 45 af 04 a1 3d d5 80 ae ┆ b P VENSTRE = ┆
0x4920…4940 ea a6 2b 5e 4d 30 31 30 31 53 49 47 4e 2c 20 44 41 54 45 20 41 4e 44 20 54 49 4d 45 2e 20 20 20 ┆ +^M0101SIGN, DATE AND TIME. ┆
0x4940…4960 20 20 20 20 20 50 52 49 4e 54 45 44 3a 20 00 d2 13 9e 00 ea d2 04 9e 00 b9 41 d5 80 b0 ea a6 31 ┆ PRINTED: A 1┆
0x4960…4980 5e 4d 30 31 30 31 5e 54 30 35 37 30 53 49 47 4e 2c 20 44 41 54 45 20 41 4e 44 20 54 49 4d 45 2e ┆^M0101^T0570SIGN, DATE AND TIME.┆
0x4980…49a0 20 20 20 20 20 20 20 20 50 52 49 4e 54 45 44 3a 20 00 d2 13 9e 00 ea d2 04 9e 00 d5 80 b2 ec a6 ┆ PRINTED: ┆
0x49a0…49c0 0a 30 31 2e 30 33 2e 31 39 38 34 d0 af 0a 0a a1 26 d5 80 b3 ea a6 06 5e 4d 30 31 30 31 00 d2 13 ┆ 01.03.1984 & ^M0101 ┆
0x49c0…49e0 9e 00 ea a6 06 3f 3f 3f 3f 3f 3f 00 d2 13 9e 00 ea d2 04 9e 00 b9 f6 d5 80 b5 d5 80 b6 ea ec 01 ┆ ?????? ┆
0x49e0…4a00 01 0a 88 01 95 82 be 00 d2 11 9e 00 ea d2 04 9e 00 d5 80 b7 ea ec 02 01 0a 88 01 95 82 be 00 d2 ┆ ┆
0x4a00…4a20 11 9e 00 ea d2 04 9e 00 d5 80 b8 ea ec 04 01 0a 88 01 95 82 be 00 d2 11 9e 00 ea d2 04 9e 00 d5 ┆ ┆
0x4a20…4a40 80 b9 ea ec 05 01 0a 88 01 95 82 be 00 d2 11 9e 00 ea d2 04 9e 00 d5 80 ba ea ec 09 01 0a 88 01 ┆ ┆
0x4a40…4a60 95 82 be 00 d2 11 9e 00 ea d2 04 9e 00 d5 80 bb ea ec 0a 01 0a 88 01 95 82 be 00 d2 11 9e 00 ea ┆ ┆
0x4a60…4a80 d2 04 9e 00 d5 80 bc d5 80 bd ea 2d 00 d2 11 9e 00 ea d2 04 9e 00 d5 80 be ea ec a2 0a 01 01 08 ┆ - ┆
0x4a80…4aa0 88 01 95 82 be 00 d2 11 9e 00 ea d2 04 9e 00 d5 80 bf ea ec a2 0a 02 01 08 88 01 95 82 be 00 d2 ┆ ┆
0x4aa0…4ac0 11 9e 00 ea d2 04 9e 00 d5 80 c0 ea ec a2 0a 04 01 08 88 01 95 82 be 00 d2 11 9e 00 ea d2 04 9e ┆ ┆
0x4ac0…4ae0 00 d5 80 c1 ea ec a2 0a 05 01 08 88 01 95 82 be 00 d2 11 9e 00 ea d2 04 9e 00 d5 80 c2 ea 2d 00 ┆ - ┆
0x4ae0…4b00 d2 11 9e 00 ea d2 04 9e 00 d5 80 c3 ea 50 00 d2 11 9e 00 ea d2 04 9e 00 d5 80 c4 ea eb 01 01 27 ┆ P '┆
0x4b00…4b20 88 01 95 a4 01 f8 00 d2 11 9e 00 ea d2 04 9e 00 d5 80 c5 ad 00 32 af 00 52 00 02 00 09 00 18 02 ┆ 2 R ┆
0x4b20…4b40 03 01 d5 80 c9 9e 27 d5 80 ca e9 d2 16 9e 00 d5 80 cb 01 03 d2 1d d5 80 cc e9 a6 14 20 20 2a 2a ┆ ' **┆
0x4b40…4b60 2a 2a 20 20 20 53 79 73 74 65 6d 20 35 37 32 2d 00 d2 13 9e 00 e9 d2 04 9e 00 d5 80 cd e9 a6 23 ┆** System 572- #┆
0x4b60…4b80 62 6f 78 74 69 63 6b 65 74 73 20 61 72 65 20 70 72 69 6e 74 69 6e 67 20 6f 6e 20 70 72 69 6e 74 ┆boxtickets are printing on print┆
0x4b80…4ba0 65 72 20 00 d2 13 9e 00 e9 d2 04 9e 00 d5 80 ce e9 eb 01 01 27 88 01 95 a4 01 f8 00 d2 11 9e 00 ┆er ' ┆
0x4ba0…4bc0 e9 d2 04 9e 00 d5 80 cf e9 a6 17 20 20 2d 20 20 76 65 72 73 69 6f 6e 20 32 2e 30 20 20 20 2a 2a ┆ - version 2.0 **┆
0x4bc0…4be0 2a 2a 00 d2 13 9e 00 e9 d2 16 9e 00 d5 80 d0 0b 06 d2 1d d5 80 d1 e9 a6 08 50 61 72 74 20 2d 20 ┆** Part - ┆
0x4be0…4c00 31 00 d2 13 9e 00 e9 d2 04 9e 00 d5 80 d2 33 06 d2 1d d5 80 d3 e9 a6 08 50 61 72 74 20 2d 20 32 ┆1 3 Part - 2┆
0x4c00…4c20 00 d2 13 9e 00 e9 d2 16 9e 00 d5 80 d4 0b 09 d2 1d d5 80 d5 e9 a6 13 20 49 74 65 6d 20 6e 6f 20 ┆ Item no ┆
0x4c20…4c40 20 20 4f 72 64 65 72 20 6e 6f 00 d2 13 9e 00 e9 d2 04 9e 00 d5 80 d6 33 09 d2 1d d5 80 d7 e9 a6 ┆ Order no 3 ┆
0x4c40…4c60 13 20 49 74 65 6d 20 6e 6f 20 20 20 4f 72 64 65 72 20 6e 6f 00 d2 13 9e 00 e9 d2 16 9e 00 d5 80 ┆ Item no Order no ┆
0x4c60…4c80 d8 0b 11 d2 1d d5 80 d9 e9 a6 26 50 72 6f 67 72 61 6d 20 73 74 6f 70 73 20 77 68 65 6e 20 66 6f ┆ &Program stops when fo┆
0x4c80…4ca0 6c 6c 6f 77 69 6e 67 20 73 65 71 75 65 6e 63 65 3a 00 d2 13 9e 00 e9 d2 16 9e 00 d5 80 da 0b 13 ┆llowing sequence: ┆
0x4ca0…4cc0 d2 1d d5 80 db e9 a6 18 3e 65 73 63 3c 20 20 20 20 2e 62 72 20 20 20 20 3e 72 65 74 75 72 6e 3c ┆ >esc< .br >return<┆
0x4cc0…4ce0 00 d2 13 9e 00 e9 d2 16 9e 00 d5 80 dc ad 00 01 00 00 00 00 07 00 b4 01 04 01 d5 80 e0 d5 80 e1 ┆ ┆
0x4ce0…4d00 d5 80 e2 a5 86 9c a6 06 39 39 39 39 39 39 aa 06 d5 80 e3 a5 86 a0 a6 02 20 20 aa 02 d5 80 e4 a5 ┆ 999999 ┆
0x4d00…4d20 86 a2 a6 04 20 20 20 20 aa 06 d5 80 e5 a5 86 a6 01 01 03 88 01 95 a4 02 a6 02 39 39 aa 02 d5 80 ┆ 99 ┆
0x4d20…4d40 e6 a5 86 ac 01 01 03 88 01 95 a4 06 a6 0b 39 39 2d 39 39 2d 39 39 39 2f 39 aa 0b d5 80 e7 02 ab ┆ 99-99-999/9 ┆
0x4d40…4d60 89 12 03 cc 01 a7 89 12 d8 c8 a1 45 d5 80 e8 d5 80 e9 a5 86 a6 a7 89 12 01 03 88 01 95 a4 02 a6 ┆ E ┆
0x4d60…4d80 02 20 20 aa 02 d5 80 ea a5 86 ac a7 89 12 01 03 88 01 95 a4 06 a6 0b 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d80…4da0 20 20 aa 0b d5 80 eb a7 89 12 01 82 ab 89 12 b9 f6 d5 80 ec a5 86 be a6 08 20 20 20 20 20 20 20 ┆ ┆
0x4da0…4dc0 20 aa 08 d5 80 ed a5 86 c3 a6 04 20 20 20 20 aa 04 d5 80 ee a5 86 c6 a6 0c 20 20 20 20 20 20 20 ┆ ┆
0x4dc0…4de0 20 20 20 20 20 aa 0c d5 80 ef a5 86 cd a6 0c 54 45 53 54 50 41 54 54 45 52 4e 53 aa 18 d5 80 f0 ┆ TESTPATTERNS ┆
0x4de0…4e00 d5 80 f1 00 ab 89 17 d5 80 f2 00 ab 89 18 d5 80 f3 00 ab 89 15 d5 80 f4 00 ab 89 16 d5 80 f5 c7 ┆ ┆
0x4e00…4e20 0f 27 ab 89 0c d5 80 f6 c7 0f 27 ab 89 0d d5 80 f7 ad 00 16 cf 00 02 00 00 00 09 00 42 01 05 01 ┆ ' ' B ┆
0x4e20…4e40 d5 80 fb d5 80 fc d5 80 fd a5 87 a2 a6 06 39 39 39 39 39 39 aa 06 d5 80 fe a5 87 a6 a6 02 20 20 ┆ 999999 ┆
0x4e40…4e60 aa 02 d5 80 ff a5 87 a8 a6 04 20 20 20 20 aa 06 d5 81 00 a5 87 ac 01 01 03 88 01 95 a4 02 a6 02 ┆ ┆
0x4e60…4e80 39 39 aa 02 d5 81 01 a5 87 b2 01 01 03 88 01 95 a4 06 a6 0b 39 39 2d 39 39 2d 39 39 39 2f 39 aa ┆99 99-99-999/9 ┆
0x4e80…4ea0 0b d5 81 02 02 ab 89 12 03 cc 01 a7 89 12 d8 c8 a1 45 d5 81 03 d5 81 04 a5 87 ac a7 89 12 01 03 ┆ E ┆
0x4ea0…4ec0 88 01 95 a4 02 a6 02 20 20 aa 02 d5 81 05 a5 87 b2 a7 89 12 01 03 88 01 95 a4 06 a6 0b 20 20 20 ┆ ┆
0x4ec0…4ee0 20 20 20 20 20 20 20 20 aa 0b d5 81 06 a7 89 12 01 82 ab 89 12 b9 f6 d5 81 07 a5 87 c4 a6 08 20 ┆ ┆
0x4ee0…4f00 20 20 20 20 20 20 20 aa 08 d5 81 08 a5 87 c9 a6 04 20 20 20 20 aa 04 d5 81 09 a5 87 cc a6 0c 63 ┆ c┆