|
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: 15328 (0x3be0)
Types: TextFile
Notes: Mikados_K
Names: »LPBPLOT.K«
└─⟦8e9939517⟧ Bits:30005293 LPBPLOT/SPANALYS/MONST80 - Gymnasieelevdiskette
└─⟦this⟧ »LPBPLOT.K«
PROGRAM LPBPLOT; (*BR-06.12.82*)
TYPE PARMARRAY=PACKED ARRAY(1..39) OF CHAR;
VAR PARAM:^PARMARRAY;
TPFIL:FILE OF REAL;
TMIN,TMAX,SMIN,SMAX,SKALAX,SKALAY,X1CM,Y1CM:REAL;
AFSTAND,HØJDE,ACC,V0:REAL;
XMIN,XMAX,XNUL,YMIN,YMAX,YNUL,I,X,Y:INTEGER;
ANTAL,DATASTART,J,ØVNR:INTEGER;
FILID,POINT,TEXTX,TEXTY,KODENAVN,DELTAGER:STRING;
NAVN:STRING(5);
FILNAVN:STRING(8);
DISK,TEGN:STRING(1);
RUNDATO:STRING(10);
RUNTID:STRING(8);
FUNCTION GETPR(PRINTER:INTEGER):BOOLEAN; EXTERNAL;
PROCEDURE FREEPR; EXTERNAL; (*$P*)
PROCEDURE SCALE(DATAMIN,DATAMAX:REAL;VAR SKALAFORHOLD:REAL;
VAR AKSELÆNGDE,ORIGO:INTEGER);
VAR DIFFERENS,FACT:REAL;
BEGIN (*SCALE*)
IF (DATAMAX>=0) AND (DATAMIN<=0) THEN DIFFERENS:=DATAMAX-DATAMIN;
IF (DATAMAX>0) AND (DATAMIN>=0) THEN
BEGIN
DIFFERENS:=DATAMAX; DATAMIN:=0;
END;
IF (DATAMAX<=0) AND (DATAMIN<0) THEN
BEGIN
DIFFERENS:=-DATAMIN; DATAMAX:=0;
END;
SKALAFORHOLD:=AKSELÆNGDE/DIFFERENS;
FACT:=1;
IF SKALAFORHOLD >= 10 THEN
BEGIN
REPEAT
SKALAFORHOLD:=SKALAFORHOLD/10;
FACT:=FACT*10;
UNTIL SKALAFORHOLD <= 10
END;
IF SKALAFORHOLD < 1 THEN
BEGIN
REPEAT
SKALAFORHOLD:=SKALAFORHOLD*10;
FACT:=FACT/10;
UNTIL SKALAFORHOLD >= 1
END;
IF (SKALAFORHOLD >= 1) AND (SKALAFORHOLD < 2) THEN
SKALAFORHOLD:=1;
IF (SKALAFORHOLD >= 2) AND (SKALAFORHOLD < 5) THEN
SKALAFORHOLD:=2;
IF (SKALAFORHOLD >= 5) AND (SKALAFORHOLD < 10) THEN
SKALAFORHOLD:=5;
SKALAFORHOLD:=SKALAFORHOLD*FACT;
IF DATAMIN=0 THEN ORIGO:=0
ELSE ORIGO:=100*(1+TRUNC(-SKALAFORHOLD*DATAMIN/100));
AKSELÆNGDE:=100*(1+TRUNC(SKALAFORHOLD*DIFFERENS/100));
IF (DATAMIN<0) AND (DATAMAX>0) THEN AKSELÆNGDE:=AKSELÆNGDE+100;
END; (*SCALE*) (*$P*)
PROCEDURE LÆSFILTOP;
BEGIN (*LÆSFILTOP*)
NAVN:='DDMMA';
WRITE('INDTAST FILNAVN : LPB'); EDIT(NAVN);
FILNAVN:=CONCAT('LPB',NAVN);
DISK:='3';
(* WRITE('INDTAST PLADE NO.: LPB',NAVN,':P'); EDIT(DISK); *)
FILID:=CONCAT(FILNAVN,':P',DISK);
RESET(TPFIL,FILID);
GET(TPFIL); ANTAL:=ROUND(TPFIL^);
GET(TPFIL); DATASTART:=ROUND(TPFIL^);
SEEK(TPFIL,3);
RUNDATO:=''; TEGN:=' '; (*LÆS DATO FOR KØRSEL*)
FOR I:=1 TO 10 DO
BEGIN
GET(TPFIL); TEGN(1):=CHR(ROUND(TPFIL^));
RUNDATO:=CONCAT(RUNDATO,TEGN);
END;
SEEK(TPFIL,13);
RUNTID:=''; TEGN:=' '; (*LÆS TID FOR KØRSEL*)
FOR I:=1 TO 8 DO
BEGIN
GET(TPFIL); TEGN(1):=CHR(ROUND(TPFIL^));
RUNTID:=CONCAT(RUNTID,TEGN);
END;
SEEK(TPFIL,21);
GET(TPFIL); ØVNR:=ROUND(TPFIL^);
GET(TPFIL); AFSTAND:=TPFIL^;
GET(TPFIL); HØJDE:=TPFIL^;
SEEK(TPFIL,24);
GET(TPFIL); TMIN:=TPFIL^;
GET(TPFIL); TMAX:=TPFIL^;
GET(TPFIL); SMIN:=TPFIL^;
GET(TPFIL); SMAX:=TPFIL^;
WRITELN('DATO FOR KØRSEL : ',RUNDATO);
WRITELN('TID FOR KØRSEL : ',RUNTID);
(* WRITELN('ANTAL SAMPLES = ',ANTAL:5); *)
(* WRITELN('TID-MIN = ',TMIN:9:3,' SEK.'); *)
(* WRITELN('TID-MAX = ',TMAX:9:3,' SEK.'); *)
(* WRITELN('STED-MIN = ',SMIN:9:3,' M'); *)
(* WRITELN('STED-MAX = ',SMAX:9:3,' M'); *)
CLOSE(TPFIL);
END; (*LÆSFILTOP*) (*$P*)
PROCEDURE PLOTHEAD;
BEGIN (*PLOTHEAD*)
WRITELN(LIST,';:HOA 205,112 O '); (*DEF. ORIGIN*)
WRITELN(LIST,'250,1810 ');
WRITELN(LIST,'S12,DATO ',RUNDATO,' TID: ',RUNTID,' FILNAVN: _ ');
WRITELN(LIST,'S12,',FILNAVN:8,' DELTAGERE: ',PARAM^:35,'_ ');
WRITELN(LIST,'2650,1500 ');
WRITELN(LIST,'S22,FORS0G PAA SKRAA LUFTPUDEBANE 0V. NR. ',ØVNR,'_ ');
END; (*PLOTHEAD*) (*$P*)
PROCEDURE PLOTAKSE;
BEGIN (*PLOTAKSE*)
WRITELN(LIST,XNUL,',',YMIN,' D ',XNUL,',',YMAX,' U '); (*Y-AKSE*)
TEXTY:='STED /m';
WRITELN(LIST,XNUL-50,',',YMAX+50,' S12,',TEXTY,'_ ');
WRITELN(LIST,XMIN,',',YNUL,' D ',XMAX,',',YNUL,' U '); (*X-AKSE*)
TEXTX:='TID /s';
X:=XMAX-100*(1+TRUNC(LENGTH(TEXTX)/4));
WRITELN(LIST,X,',',YNUL+30,' S12,',TEXTX,'_ ');
WRITELN(LIST,XNUL,',',YNUL,' O '); (*NYT ORIGIN*)
DELAY(800);
Y:=YMIN-100; J:=YMAX DIV 100;
FOR I:=0 TO J DO
BEGIN
Y:=Y+100;
WRITELN(LIST,XNUL-10,',',Y,' D ',XNUL+10,',',Y,' U ');
END;
DELAY(800);
WRITELN(LIST,XNUL-160,',',YNUL+85,' S12,',Y1CM:5:2,'_ ');
IF (YMAX-YNUL)>=500 THEN
BEGIN
J:=(YMAX-YNUL) DIV 500;
FOR I:=1 TO J DO
BEGIN
Y:=YNUL+500*I-15;
WRITELN(LIST,XNUL-160,',',Y,' S12,',5*I*Y1CM:5:2,'_ ');
END;
END;
DELAY(800);
X:=XMIN-100; J:=XMAX DIV 100;
FOR I:=0 TO J DO
BEGIN
X:=X+100;
WRITELN(LIST,X,',',YNUL+10,' D ',X,',',YNUL-10,' U ');
END;
DELAY(800);
WRITELN(LIST,XNUL+40,',',YNUL-60,' S12,',X1CM:5:2,'_ ');
IF (XMAX-XNUL)>=500 THEN
BEGIN
J:=(XMAX-XNUL) DIV 500;
FOR I:=1 TO J DO
BEGIN
X:=XNUL+500*I-60;
WRITELN(LIST,X,',',YNUL-60,' S12,',5*I*X1CM:5:2,'_ ');
END;
END;
DELAY(800);
END; (*PLOTAKSE*) (*$P*)
PROCEDURE PLOTDATA;
BEGIN (*PLOTDATA*)
RESET(TPFIL,FILID);
SEEK(TPFIL,DATASTART);
FOR I:=1 TO ANTAL DO
BEGIN
GET(TPFIL); X:=ROUND(SKALAX*TPFIL^);
GET(TPFIL); Y:=ROUND(SKALAY*TPFIL^);
WRITELN(LIST,' ',X,',',Y,' M21');
END;
CLOSE(TPFIL);
END; (*PLOTDATA*) (*$P*)
PROCEDURE REGRESSION(VAR A,B:REAL);
VAR T,S,SX2,SX3,SX4,SXY,SX2Y,NÆVNER,TÆLLERA,TÆLLERB:REAL;
BEGIN
SX2:=0; SX3:=0; SX4:=0; SXY:=0; SX2Y:=0;
RESET(TPFIL,FILID);
SEEK(TPFIL,DATASTART);
FOR I:=1 TO ANTAL DO
BEGIN
GET(TPFIL); T:=TPFIL^;
GET(TPFIL); S:=TPFIL^;
SX2:=SX2+T*T;
SX3:=SX3+T*T*T;
SX4:=SX4+T*T*T*T;
SXY:=SXY+T*S;
SX2Y:=SX2Y+T*T*S;
END;
CLOSE(TPFIL);
NÆVNER:=SX2*SX4-SX3*SX3;
TÆLLERA:=SX2*SX2Y-SX3*SXY;
TÆLLERB:=-SX3*SX2Y+SX4*SXY;
A:=2*TÆLLERA/NÆVNER;
B:=TÆLLERB/NÆVNER;
END; (*REGRESSION*) (*$P*)
PROCEDURE PLOTREGR;
VAR T,S,DELTAT:REAL;
YMIN1,YMAX1:INTEGER;
BEGIN (*PLOTREGR*)
YMIN1:=-50; YMAX1:=1800;
T:=TMIN;
S:=0.5*ACC*T*T+V0*T;
X:=ROUND(SKALAX*T);
Y:=ROUND(SKALAY*S);
IF Y<YMIN1 THEN WRITELN(LIST,'U ',X,',',YMIN1,' ');
IF Y>YMAX1 THEN WRITELN(LIST,'U ',X,',',YMAX1,' ');
IF (Y>=YMIN1) AND (Y<=YMAX1) THEN WRITELN(LIST,'U ',X,',',Y,' ');
DELTAT:=(TMAX-TMIN)/100;
T:=TMIN-DELTAT;
DELAY(800);
FOR I:=0 TO 100 DO
BEGIN
T:=T+DELTAT;
S:=0.5*ACC*T*T+V0*T;
X:=ROUND(SKALAX*T);
Y:=ROUND(SKALAY*S);
IF Y<YMIN1 THEN WRITELN(LIST,'U ',X,',',YMIN1,' ');
IF Y>YMAX1 THEN WRITELN(LIST,'U ',X,',',YMAX1,' ');
IF (Y>=YMIN1) AND (Y<=YMAX1) THEN WRITELN(LIST,'D ',X,',',Y,' ');
END;
WRITELN(LIST,'U 250,1650 S12,BEDSTE FIT:_ ');
WRITELN(LIST,'U 250,1550 S12, S = 0.5_ ');
WRITELN(LIST,'R 5,12 S12,._ -5,-12 S12,A_ 5,12 S12,._ -5,-12 ');
WRITELN(LIST,'S12,T_ 0,30 S11,2_ 0,-30 ');
WRITELN(LIST,'S12,+Vo_ 5,12 S12,._ -5,-12 S12,T_ A ');
WRITELN(LIST,'U 250,1450 S12, A = ',ACC:6:3,' m/s_ ');
WRITELN(LIST,'R 0,20 S11,2_ 0,-20 A ');
WRITELN(LIST,'U 250,1350 S12,Vo = ',V0:6:3,' m/s_ ');
END; (*PLOTREGR*) (*$P*)
PROCEDURE SLUT;
BEGIN
CLEARSCREEN;
FREEPR;
WRITELN(' *** SLUT ***');
EXIT(PROGRAM);
END; (*SLUT*) (*$P*)
PROCEDURE PRINTRESERV(N:INTEGER);
VAR READY:BOOLEAN;
BEGIN
REPEAT
READY:=GETPR(N);
IF NOT READY THEN
BEGIN
WRITELN(CHR(7),'PRINTER ',N,' ER IKKE PARAT !');
DELAY(500); WRITE(CHR(11));
END;
UNTIL READY OR EOF(OUTPUT);
IF EOF(OUTPUT) THEN SLUT;
WRITELN;
WRITELN('PRINTER ',N,' ER RESERVERET DENNE KØRSEL');
END; (*PRINTRESERV*) (*$P*)
PROCEDURE PRINTHEAD;
VAR BLANK:STRING;
BEGIN (*PRINTFILTOP*)
RESET(TPFIL,FILID);
GET(TPFIL); ANTAL:=ROUND(TPFIL^); (*LÆS ANTAL SÆT DATA REC.*)
GET(TPFIL); DATASTART:=ROUND(TPFIL^);(*REC. NO. FOR FØRSTE DATA REC.*)
SEEK(TPFIL,3);
RUNDATO:=''; TEGN:=' '; (*LÆS DATO FOR KØRSEL*)
FOR I:=1 TO 10 DO
BEGIN
GET(TPFIL); TEGN(1):=CHR(ROUND(TPFIL^));
RUNDATO:=CONCAT(RUNDATO,TEGN);
END;
SEEK(TPFIL,13);
RUNTID:=''; TEGN:=' '; (*LÆS TID FOR KØRSEL*)
FOR I:=1 TO 8 DO
BEGIN
GET(TPFIL); TEGN(1):=CHR(ROUND(TPFIL^));
RUNTID:=CONCAT(RUNTID,TEGN);
END;
SEEK(TPFIL,21);
GET(TPFIL); ØVNR:=ROUND(TPFIL^);
GET(TPFIL); AFSTAND:=TPFIL^;
GET(TPFIL); HØJDE:=TPFIL^;
BLANK:=''; TEGN:=' ';
FOR I:=1 TO 20 DO BLANK:=CONCAT(BLANK,TEGN);
WRITELN(LIST,BLANK,'FORSØG PÅ SKRÅ LUFTPUDEBANE ØV.NR.: ',ØVNR);
WRITELN(LIST,BLANK,'***************************');
WRITELN(LIST); WRITELN(LIST);
FOR I:=21 TO 32 DO BLANK:=CONCAT(BLANK,TEGN);
WRITELN(LIST,' DELTAGERE:',BLANK,'FORSØGET UDFØRT');
WRITELN(LIST,' ',PARAM^,' ','DATO : ',RUNDATO);
FOR I:=33 TO 50 DO BLANK:=CONCAT(BLANK,TEGN);
WRITELN(LIST,BLANK,'TID : ',RUNTID); WRITELN(LIST);
WRITELN(LIST,BLANK,'DATA LAGRET PÅ');
WRITELN(LIST,BLANK,'FILNAVN: ',FILNAVN);
WRITELN(LIST); WRITELN(LIST);
WRITE(LIST,' KLODSENS HØJDE: h = ');
WRITELN(LIST,HØJDE*100:7:2,' cm');
WRITELN(LIST);
WRITE(LIST,' AFST. MELLEM LPB"s BEN: L = ');
WRITELN(LIST,AFSTAND*100:6:1,' cm');
CLOSE(TPFIL);
END; (*PRINTHEAD*) (*$P*)
PROCEDURE PRINTDATA;
VAR T,S,V,G:REAL;
LINIE:STRING;
BEGIN
RESET(TPFIL,FILID);
WRITELN(LIST); WRITELN(LIST);
LINIE:= ' I-------------I-------------I-------------I';
WRITELN(LIST,LINIE);
WRITELN(LIST,' I TID T I STED S I HAST. V I');
WRITELN(LIST,' I (s) I (m) I (m/s) I');
WRITELN(LIST,LINIE);
I:=23; (*LINIE NUMMER PÅ SKRIVER UDSKRIFT*)
SEEK(TPFIL,DATASTART);
FOR J:=1 TO ANTAL DO
BEGIN
GET(TPFIL); T:=TPFIL^;
GET(TPFIL); S:=TPFIL^;
V:=ACC*T+V0;
WRITELN(LIST,' I',T:9:3,' I',S:9:3,' I',V:9:3,' I');
WRITELN(LIST,LINIE);
I:=I+2;
IF I>=65 THEN
BEGIN (*DER SKIFTES SIDE FOR HVER 65 LINIER*)
PAGE(LIST);
I:=0;
END;
END;
WRITELN(LIST); WRITELN(LIST);
WRITELN(LIST,' BEDSTE FIT: V = A*T+Vo; S = 0.5*A*T^2+Vo*T');
WRITELN(LIST);
WRITELN(LIST,' A = ',ACC:7:3,' m/s^2');
WRITELN(LIST);
WRITELN(LIST,' Vo = ',V0:7:3,' m/s');
WRITELN(LIST);
IF HØJDE>0.001 THEN
BEGIN
G:=ACC*AFSTAND/HØJDE;
WRITELN(LIST,' TYNGDEACC.: g = A*L/h = ',G:6:2,' m/s^2');
END;
CLOSE(TPFIL);
PAGE(LIST);
END; (*PRINTDATA*) (*$P*)
BEGIN (*LPBPLOT*)
CLEARSCREEN;
GOTOXY(30,5); WRITELN('*** LPBPLOT ***');
WRITELN;
LÆSFILTOP;
XMAX:=2700; XMIN:=0;
YMAX:=1800; YMIN:=0;
SCALE(TMIN,TMAX,SKALAX,XMAX,XNUL);
SCALE(SMIN,SMAX,SKALAY,YMAX,YNUL);
X1CM:=100/SKALAX;
Y1CM:=100/SKALAY;
WRITELN('1CM-X = ',X1CM:9:3,' SEK.');
WRITELN('1CM-Y = ',Y1CM:9:3,' M');
WRITELN('LÆNGDE AF X-AKSE = ',XMAX DIV 100:9,' CM');
WRITELN('LÆNGDE AF Y-AKSE = ',YMAX DIV 100:9,' CM');
WRITELN('ORIGOS PLACERING :');
WRITELN('X-ORIGO = ',XNUL DIV 100:9,' CM');
WRITELN('Y-ORIGO = ',YNUL DIV 100:9,' CM');
PRINTRESERV(2);
WRITELN; WRITELN('PLOTTEREN STARTER, NÅR DU TRYKKER PÅ "RETURN"');
READLN;
PLOTHEAD;
PLOTAKSE;
PLOTDATA;
KODENAVN:='BJØRN';
DELTAGER:='';
FOR I:=1 TO LENGTH(KODENAVN) DO DELTAGER:=CONCAT(DELTAGER,'X');
MOVELEFT(PARAM^,DELTAGER(1),LENGTH(KODENAVN));
IF DELTAGER=KODENAVN THEN
BEGIN
REGRESSION(ACC,V0);
PLOTREGR;
WRITELN(LIST,' H @');
FREEPR; WRITELN('PRINTER 2 ER FRIGJORT');
PRINTRESERV(1);
PRINTHEAD;
PRINTDATA;
FREEPR; WRITELN('PRINTER 1 ER FRIGJORT');
END
ELSE
BEGIN
WRITELN(LIST,' H @');
FREEPR; WRITELN('PRINTER 2 ER FRIGJORT');
END;
WRITELN;
WRITELN(' *** END LPBPLOT ***');
END. (*LPBPLOT*)
0x0000…0026 Line {l1=0x24, l2=» PROGRAM LPBPLOT; (*BR-06.12.82*)«, l3=0x24}
0x0026…0029 Line {l1=0x01, l2=» «, l3=0x01}
0x0029…005b Line {l1=0x30, l2=» TYPE PARMARRAY=PACKED ARRAY(1..39) OF CHAR;«, l3=0x30}
0x005b…005e Line {l1=0x01, l2=» «, l3=0x01}
0x005e…007b Line {l1=0x1b, l2=» VAR PARAM:^PARMARRAY;«, l3=0x1b}
0x007b…009a Line {l1=0x1d, l2=» TPFIL:FILE OF REAL;«, l3=0x1d}
0x009a…00d7 Line {l1=0x3b, l2=» TMIN,TMAX,SMIN,SMAX,SKALAX,SKALAY,X1CM,Y1CM:REAL;«, l3=0x3b}
0x00d7…00fd Line {l1=0x24, l2=» AFSTAND,HØJDE,ACC,V0:REAL;«, l3=0x24}
0x00fd…0135 Line {l1=0x36, l2=» XMIN,XMAX,XNUL,YMIN,YMAX,YNUL,I,X,Y:INTEGER;«, l3=0x36}
0x0135…0160 Line {l1=0x29, l2=» ANTAL,DATASTART,J,ØVNR:INTEGER;«, l3=0x29}
0x0160…019d Line {l1=0x3b, l2=» FILID,POINT,TEXTX,TEXTY,KODENAVN,DELTAGER:STRING;«, l3=0x3b}
0x019d…01b8 Line {l1=0x19, l2=» NAVN:STRING(5);«, l3=0x19}
0x01b8…01d6 Line {l1=0x1c, l2=» FILNAVN:STRING(8);«, l3=0x1c}
0x01d6…01f6 Line {l1=0x1e, l2=» DISK,TEGN:STRING(1);«, l3=0x1e}
0x01f6…0215 Line {l1=0x1d, l2=» RUNDATO:STRING(10);«, l3=0x1d}
0x0215…0232 Line {l1=0x1b, l2=» RUNTID:STRING(8);«, l3=0x1b}
0x0232…0235 Line {l1=0x01, l2=» «, l3=0x01}
0x0235…026d Line {l1=0x36, l2=» FUNCTION GETPR(PRINTER:INTEGER):BOOLEAN; EXTERNAL;«, l3=0x36}
0x026d…0270 Line {l1=0x01, l2=» «, l3=0x01}
0x0270…0299 Line {l1=0x27, l2=» PROCEDURE FREEPR; EXTERNAL; (*$P*)«, l3=0x27}
0x0299…029c Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x02a2…02e3 Line {l1=0x3f, l2=» PROCEDURE SCALE(DATAMIN,DATAMAX:REAL;VAR SKALAFORHOLD:REAL;«, l3=0x3f}
0x02e3…0317 Line {l1=0x32, l2=» VAR AKSELÆNGDE,ORIGO:INTEGER);«, l3=0x32}
0x0317…031a Line {l1=0x01, l2=» «, l3=0x01}
0x031a…033a Line {l1=0x1e, l2=» VAR DIFFERENS,FACT:REAL;«, l3=0x1e}
0x033a…033d Line {l1=0x01, l2=» «, l3=0x01}
0x033d…0353 Line {l1=0x14, l2=» BEGIN (*SCALE*)«, l3=0x14}
0x0353…039c Line {l1=0x47, l2=» IF (DATAMAX>=0) AND (DATAMIN<=0) THEN DIFFERENS:=DATAMAX-DATAMIN;«, l3=0x47}
0x039c…03c8 Line {l1=0x2a, l2=» IF (DATAMAX>0) AND (DATAMIN>=0) THEN«, l3=0x2a}
0x03c8…03d5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x03d5…03fe Line {l1=0x27, l2=» DIFFERENS:=DATAMAX; DATAMIN:=0;«, l3=0x27}
0x03fe…040a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x040a…0436 Line {l1=0x2a, l2=» IF (DATAMAX<=0) AND (DATAMIN<0) THEN«, l3=0x2a}
0x0436…0443 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0443…046d Line {l1=0x28, l2=» DIFFERENS:=-DATAMIN; DATAMAX:=0;«, l3=0x28}
0x046d…0479 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0479…04a4 Line {l1=0x29, l2=» SKALAFORHOLD:=AKSELÆNGDE/DIFFERENS;«, l3=0x29}
0x04a4…04b4 Line {l1=0x0e, l2=» FACT:=1;«, l3=0x0e}
0x04b4…04d6 Line {l1=0x20, l2=» IF SKALAFORHOLD >= 10 THEN«, l3=0x20}
0x04d6…04e5 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x04e5…04f7 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x04f7…0523 Line {l1=0x2a, l2=» SKALAFORHOLD:=SKALAFORHOLD/10;«, l3=0x2a}
0x0523…053f Line {l1=0x1a, l2=» FACT:=FACT*10;«, l3=0x1a}
0x053f…0563 Line {l1=0x22, l2=» UNTIL SKALAFORHOLD <= 10«, l3=0x22}
0x0563…0571 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0571…0591 Line {l1=0x1e, l2=» IF SKALAFORHOLD < 1 THEN«, l3=0x1e}
0x0591…05a0 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x05a0…05b2 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x05b2…05de Line {l1=0x2a, l2=» SKALAFORHOLD:=SKALAFORHOLD*10;«, l3=0x2a}
0x05de…05fa Line {l1=0x1a, l2=» FACT:=FACT/10;«, l3=0x1a}
0x05fa…061d Line {l1=0x21, l2=» UNTIL SKALAFORHOLD >= 1«, l3=0x21}
0x061d…062b Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x062b…0672 Line {l1=0x45, l2=» IF (SKALAFORHOLD >= 1) AND (SKALAFORHOLD < 2) THEN «, l3=0x45}
0x0672…068c Line {l1=0x18, l2=» SKALAFORHOLD:=1;«, l3=0x18}
0x068c…06cd Line {l1=0x3f, l2=» IF (SKALAFORHOLD >= 2) AND (SKALAFORHOLD < 5) THEN «, l3=0x3f}
0x06cd…06e7 Line {l1=0x18, l2=» SKALAFORHOLD:=2;«, l3=0x18}
0x06e7…072a Line {l1=0x41, l2=» IF (SKALAFORHOLD >= 5) AND (SKALAFORHOLD < 10) THEN «, l3=0x41}
0x072a…0744 Line {l1=0x18, l2=» SKALAFORHOLD:=5;«, l3=0x18}
0x0744…076c Line {l1=0x26, l2=» SKALAFORHOLD:=SKALAFORHOLD*FACT;«, l3=0x26}
0x076c…076f Line {l1=0x01, l2=» «, l3=0x01}
0x076f…0792 Line {l1=0x21, l2=» IF DATAMIN=0 THEN ORIGO:=0 «, l3=0x21}
0x0792…07cf Line {l1=0x3b, l2=» ELSE ORIGO:=100*(1+TRUNC(-SKALAFORHOLD*DATAMIN/100));«, l3=0x3b}
0x07cf…080d Line {l1=0x3c, l2=» AKSELÆNGDE:=100*(1+TRUNC(SKALAFORHOLD*DIFFERENS/100));«, l3=0x3c}
0x080d…0854 Line {l1=0x45, l2=» IF (DATAMIN<0) AND (DATAMAX>0) THEN AKSELÆNGDE:=AKSELÆNGDE+100;«, l3=0x45}
0x0854…0874 Line {l1=0x1e, l2=» END; (*SCALE*) (*$P*)«, l3=0x1e}
0x0874…0877 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x087d…0897 Line {l1=0x18, l2=» PROCEDURE LÆSFILTOP;«, l3=0x18}
0x0897…089a Line {l1=0x01, l2=» «, l3=0x01}
0x089a…08b4 Line {l1=0x18, l2=» BEGIN (*LÆSFILTOP*)«, l3=0x18}
0x08b4…08ca Line {l1=0x14, l2=» NAVN:='DDMMA';«, l3=0x14}
0x08ca…08ff Line {l1=0x33, l2=» WRITE('INDTAST FILNAVN : LPB'); EDIT(NAVN);«, l3=0x33}
0x08ff…0923 Line {l1=0x22, l2=» FILNAVN:=CONCAT('LPB',NAVN);«, l3=0x22}
0x0923…0939 Line {l1=0x14, l2=» DISK:='3'; «, l3=0x14}
0x0939…097b Line {l1=0x40, l2=»(* WRITE('INDTAST PLADE NO.: LPB',NAVN,':P'); EDIT(DISK); *)«, l3=0x40}
0x097b…09ac Line {l1=0x2f, l2=» FILID:=CONCAT(FILNAVN,':P',DISK); «, l3=0x2f}
0x09ac…09af Line {l1=0x01, l2=» «, l3=0x01}
0x09af…09ca Line {l1=0x19, l2=» RESET(TPFIL,FILID);«, l3=0x19}
0x09ca…09cd Line {l1=0x01, l2=» «, l3=0x01}
0x09cd…09f6 Line {l1=0x27, l2=» GET(TPFIL); ANTAL:=ROUND(TPFIL^);«, l3=0x27}
0x09f6…0a23 Line {l1=0x2b, l2=» GET(TPFIL); DATASTART:=ROUND(TPFIL^);«, l3=0x2b}
0x0a23…0a26 Line {l1=0x01, l2=» «, l3=0x01}
0x0a26…0a3c Line {l1=0x14, l2=» SEEK(TPFIL,3);«, l3=0x14}
0x0a3c…0a88 Line {l1=0x4a, l2=» RUNDATO:=''; TEGN:=' '; (*LÆS DATO FOR KØRSEL*)«, l3=0x4a}
0x0a88…0aab Line {l1=0x21, l2=» FOR I:=1 TO 10 DO «, l3=0x21}
0x0aab…0ab8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0ab8…0aee Line {l1=0x34, l2=» GET(TPFIL); TEGN(1):=CHR(ROUND(TPFIL^)); «, l3=0x34}
0x0aee…0b16 Line {l1=0x26, l2=» RUNDATO:=CONCAT(RUNDATO,TEGN);«, l3=0x26}
0x0b16…0b22 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0b22…0b25 Line {l1=0x01, l2=» «, l3=0x01}
0x0b25…0b3c Line {l1=0x15, l2=» SEEK(TPFIL,13);«, l3=0x15}
0x0b3c…0b88 Line {l1=0x4a, l2=» RUNTID:=''; TEGN:=' '; (*LÆS TID FOR KØRSEL*)«, l3=0x4a}
0x0b88…0baa Line {l1=0x20, l2=» FOR I:=1 TO 8 DO «, l3=0x20}
0x0baa…0bb7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0bb7…0bed Line {l1=0x34, l2=» GET(TPFIL); TEGN(1):=CHR(ROUND(TPFIL^)); «, l3=0x34}
0x0bed…0c13 Line {l1=0x24, l2=» RUNTID:=CONCAT(RUNTID,TEGN);«, l3=0x24}
0x0c13…0c1f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0c1f…0c22 Line {l1=0x01, l2=» «, l3=0x01}
0x0c22…0c39 Line {l1=0x15, l2=» SEEK(TPFIL,21);«, l3=0x15}
0x0c39…0c61 Line {l1=0x26, l2=» GET(TPFIL); ØVNR:=ROUND(TPFIL^);«, l3=0x26}
0x0c61…0c85 Line {l1=0x22, l2=» GET(TPFIL); AFSTAND:=TPFIL^;«, l3=0x22}
0x0c85…0ca7 Line {l1=0x20, l2=» GET(TPFIL); HØJDE:=TPFIL^;«, l3=0x20}
0x0ca7…0caa Line {l1=0x01, l2=» «, l3=0x01}
0x0caa…0cc1 Line {l1=0x15, l2=» SEEK(TPFIL,24);«, l3=0x15}
0x0cc1…0ce2 Line {l1=0x1f, l2=» GET(TPFIL); TMIN:=TPFIL^;«, l3=0x1f}
0x0ce2…0d03 Line {l1=0x1f, l2=» GET(TPFIL); TMAX:=TPFIL^;«, l3=0x1f}
0x0d03…0d24 Line {l1=0x1f, l2=» GET(TPFIL); SMIN:=TPFIL^;«, l3=0x1f}
0x0d24…0d45 Line {l1=0x1f, l2=» GET(TPFIL); SMAX:=TPFIL^;«, l3=0x1f}
0x0d45…0d48 Line {l1=0x01, l2=» «, l3=0x01}
0x0d48…0d77 Line {l1=0x2d, l2=» WRITELN('DATO FOR KØRSEL : ',RUNDATO);«, l3=0x2d}
0x0d77…0da5 Line {l1=0x2c, l2=» WRITELN('TID FOR KØRSEL : ',RUNTID);«, l3=0x2c}
0x0da5…0de1 Line {l1=0x3a, l2=»(* WRITELN('ANTAL SAMPLES = ',ANTAL:5); *)«, l3=0x3a}
0x0de1…0e1d Line {l1=0x3a, l2=»(* WRITELN('TID-MIN = ',TMIN:9:3,' SEK.'); *)«, l3=0x3a}
0x0e1d…0e59 Line {l1=0x3a, l2=»(* WRITELN('TID-MAX = ',TMAX:9:3,' SEK.'); *)«, l3=0x3a}
0x0e59…0e95 Line {l1=0x3a, l2=»(* WRITELN('STED-MIN = ',SMIN:9:3,' M'); *)«, l3=0x3a}
0x0e95…0ed1 Line {l1=0x3a, l2=»(* WRITELN('STED-MAX = ',SMAX:9:3,' M'); *)«, l3=0x3a}
0x0ed1…0ed4 Line {l1=0x01, l2=» «, l3=0x01}
0x0ed4…0ee9 Line {l1=0x13, l2=» CLOSE(TPFIL);«, l3=0x13}
0x0ee9…0eec Line {l1=0x01, l2=» «, l3=0x01}
0x0eec…0f0e Line {l1=0x20, l2=» END; (*LÆSFILTOP*) (*$P*)«, l3=0x20}
0x0f0e…0f11 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x0f17…0f30 Line {l1=0x17, l2=» PROCEDURE PLOTHEAD;«, l3=0x17}
0x0f30…0f33 Line {l1=0x01, l2=» «, l3=0x01}
0x0f33…0f4c Line {l1=0x17, l2=» BEGIN (*PLOTHEAD*)«, l3=0x17}
0x0f4c…0f96 Line {l1=0x48, l2=» WRITELN(LIST,';:HOA 205,112 O '); (*DEF. ORIGIN*)«, l3=0x48}
0x0f96…0fb8 Line {l1=0x20, l2=» WRITELN(LIST,'250,1810 ');«, l3=0x20}
0x0fb8…1005 Line {l1=0x4b, l2=» WRITELN(LIST,'S12,DATO ',RUNDATO,' TID: ',RUNTID,' FILNAVN: _ ');«, l3=0x4b}
0x1005…1053 Line {l1=0x4c, l2=» WRITELN(LIST,'S12,',FILNAVN:8,' DELTAGERE: ',PARAM^:35,'_ '); «, l3=0x4c}
0x1053…1076 Line {l1=0x21, l2=» WRITELN(LIST,'2650,1500 ');«, l3=0x21}
0x1076…10c6 Line {l1=0x4e, l2=» WRITELN(LIST,'S22,FORS0G PAA SKRAA LUFTPUDEBANE 0V. NR. ',ØVNR,'_ ');«, l3=0x4e}
0x10c6…10c9 Line {l1=0x01, l2=» «, l3=0x01}
0x10c9…10e7 Line {l1=0x1c, l2=» END; (*PLOTHEAD*) (*$P*)«, l3=0x1c}
0x10e7…10ea Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x10f0…1109 Line {l1=0x17, l2=» PROCEDURE PLOTAKSE;«, l3=0x17}
0x1109…110c Line {l1=0x01, l2=» «, l3=0x01}
0x110c…1124 Line {l1=0x16, l2=» BEGIN (*PLOTAKSE*)«, l3=0x16}
0x1124…116e Line {l1=0x48, l2=» WRITELN(LIST,XNUL,',',YMIN,' D ',XNUL,',',YMAX,' U '); (*Y-AKSE*) «, l3=0x48}
0x116e…118b Line {l1=0x1b, l2=» TEXTY:='STED /m'; «, l3=0x1b}
0x118b…11c8 Line {l1=0x3b, l2=» WRITELN(LIST,XNUL-50,',',YMAX+50,' S12,',TEXTY,'_ ');«, l3=0x3b}
0x11c8…11cb Line {l1=0x01, l2=» «, l3=0x01}
0x11cb…1214 Line {l1=0x47, l2=» WRITELN(LIST,XMIN,',',YNUL,' D ',XMAX,',',YNUL,' U '); (*X-AKSE*)«, l3=0x47}
0x1214…1255 Line {l1=0x3f, l2=» TEXTX:='TID /s'; «, l3=0x3f}
0x1255…1285 Line {l1=0x2e, l2=» X:=XMAX-100*(1+TRUNC(LENGTH(TEXTX)/4)); «, l3=0x2e}
0x1285…12bc Line {l1=0x35, l2=» WRITELN(LIST,X,',',YNUL+30,' S12,',TEXTX,'_ ');«, l3=0x35}
0x12bc…12bf Line {l1=0x01, l2=» «, l3=0x01}
0x12bf…130b Line {l1=0x4a, l2=» WRITELN(LIST,XNUL,',',YNUL,' O '); (*NYT ORIGIN*) «, l3=0x4a}
0x130b…130e Line {l1=0x01, l2=» «, l3=0x01}
0x130e…131c Line {l1=0x0c, l2=» DELAY(800);«, l3=0x0c}
0x131c…1341 Line {l1=0x23, l2=» Y:=YMIN-100; J:=YMAX DIV 100;«, l3=0x23}
0x1341…1359 Line {l1=0x16, l2=» FOR I:=0 TO J DO«, l3=0x16}
0x1359…1366 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1366…1379 Line {l1=0x11, l2=» Y:=Y+100;«, l3=0x11}
0x1379…13b9 Line {l1=0x3e, l2=» WRITELN(LIST,XNUL-10,',',Y,' D ',XNUL+10,',',Y,' U ');«, l3=0x3e}
0x13b9…13c5 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x13c5…13d2 Line {l1=0x0b, l2=»DELAY(800);«, l3=0x0b}
0x13d2…1413 Line {l1=0x3f, l2=» WRITELN(LIST,XNUL-160,',',YNUL+85,' S12,',Y1CM:5:2,'_ ');«, l3=0x3f}
0x1413…1433 Line {l1=0x1e, l2=» IF (YMAX-YNUL)>=500 THEN«, l3=0x1e}
0x1433…1440 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1440…1461 Line {l1=0x1f, l2=» J:=(YMAX-YNUL) DIV 500;«, l3=0x1f}
0x1461…147b Line {l1=0x18, l2=» FOR I:=1 TO J DO«, l3=0x18}
0x147b…148a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x148a…14a7 Line {l1=0x1b, l2=» Y:=YNUL+500*I-15;«, l3=0x1b}
0x14a7…14ea Line {l1=0x41, l2=» WRITELN(LIST,XNUL-160,',',Y,' S12,',5*I*Y1CM:5:2,'_ ');«, l3=0x41}
0x14ea…14f8 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x14f8…1504 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1504…1511 Line {l1=0x0b, l2=»DELAY(800);«, l3=0x0b}
0x1511…1536 Line {l1=0x23, l2=» X:=XMIN-100; J:=XMAX DIV 100;«, l3=0x23}
0x1536…1556 Line {l1=0x1e, l2=» FOR I:=0 TO J DO «, l3=0x1e}
0x1556…1563 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1563…1576 Line {l1=0x11, l2=» X:=X+100;«, l3=0x11}
0x1576…15b6 Line {l1=0x3e, l2=» WRITELN(LIST,X,',',YNUL+10,' D ',X,',',YNUL-10,' U ');«, l3=0x3e}
0x15b6…15c2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x15c2…15cf Line {l1=0x0b, l2=»DELAY(800);«, l3=0x0b}
0x15cf…160f Line {l1=0x3e, l2=» WRITELN(LIST,XNUL+40,',',YNUL-60,' S12,',X1CM:5:2,'_ ');«, l3=0x3e}
0x160f…162f Line {l1=0x1e, l2=» IF (XMAX-XNUL)>=500 THEN«, l3=0x1e}
0x162f…163c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x163c…165d Line {l1=0x1f, l2=» J:=(XMAX-XNUL) DIV 500;«, l3=0x1f}
0x165d…1677 Line {l1=0x18, l2=» FOR I:=1 TO J DO«, l3=0x18}
0x1677…1686 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1686…16a3 Line {l1=0x1b, l2=» X:=XNUL+500*I-60;«, l3=0x1b}
0x16a3…16e5 Line {l1=0x40, l2=» WRITELN(LIST,X,',',YNUL-60,' S12,',5*I*X1CM:5:2,'_ ');«, l3=0x40}
0x16e5…16f3 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x16f3…16ff Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x16ff…170c Line {l1=0x0b, l2=»DELAY(800);«, l3=0x0b}
0x170c…172a Line {l1=0x1c, l2=» END; (*PLOTAKSE*) (*$P*)«, l3=0x1c}
0x172a…172d Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x1733…174c Line {l1=0x17, l2=» PROCEDURE PLOTDATA;«, l3=0x17}
0x174c…174f Line {l1=0x01, l2=» «, l3=0x01}
0x174f…1767 Line {l1=0x16, l2=» BEGIN (*PLOTDATA*)«, l3=0x16}
0x1767…1782 Line {l1=0x19, l2=» RESET(TPFIL,FILID);«, l3=0x19}
0x1782…17a0 Line {l1=0x1c, l2=» SEEK(TPFIL,DATASTART);«, l3=0x1c}
0x17a0…17bc Line {l1=0x1a, l2=» FOR I:=1 TO ANTAL DO«, l3=0x1a}
0x17bc…17c9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x17c9…17f7 Line {l1=0x2c, l2=» GET(TPFIL); X:=ROUND(SKALAX*TPFIL^);«, l3=0x2c}
0x17f7…1825 Line {l1=0x2c, l2=» GET(TPFIL); Y:=ROUND(SKALAY*TPFIL^);«, l3=0x2c}
0x1825…1850 Line {l1=0x29, l2=» WRITELN(LIST,' ',X,',',Y,' M21');«, l3=0x29}
0x1850…185c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x185c…1871 Line {l1=0x13, l2=» CLOSE(TPFIL);«, l3=0x13}
0x1871…188f Line {l1=0x1c, l2=» END; (*PLOTDATA*) (*$P*)«, l3=0x1c}
0x188f…1892 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x1898…18bd Line {l1=0x23, l2=»PROCEDURE REGRESSION(VAR A,B:REAL);«, l3=0x23}
0x18bd…18c0 Line {l1=0x01, l2=» «, l3=0x01}
0x18c0…1901 Line {l1=0x3f, l2=» VAR T,S,SX2,SX3,SX4,SXY,SX2Y,NÆVNER,TÆLLERA,TÆLLERB:REAL;«, l3=0x3f}
0x1901…1904 Line {l1=0x01, l2=» «, l3=0x01}
0x1904…190b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x190b…1937 Line {l1=0x2a, l2=» SX2:=0; SX3:=0; SX4:=0; SXY:=0; SX2Y:=0;«, l3=0x2a}
0x1937…193a Line {l1=0x01, l2=» «, l3=0x01}
0x193a…1951 Line {l1=0x15, l2=» RESET(TPFIL,FILID);«, l3=0x15}
0x1951…196b Line {l1=0x18, l2=» SEEK(TPFIL,DATASTART);«, l3=0x18}
0x196b…1983 Line {l1=0x16, l2=» FOR I:=1 TO ANTAL DO«, l3=0x16}
0x1983…198c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x198c…19a8 Line {l1=0x1a, l2=» GET(TPFIL); T:=TPFIL^;«, l3=0x1a}
0x19a8…19c4 Line {l1=0x1a, l2=» GET(TPFIL); S:=TPFIL^;«, l3=0x1a}
0x19c4…19d7 Line {l1=0x11, l2=» SX2:=SX2+T*T;«, l3=0x11}
0x19d7…19ec Line {l1=0x13, l2=» SX3:=SX3+T*T*T;«, l3=0x13}
0x19ec…1a03 Line {l1=0x15, l2=» SX4:=SX4+T*T*T*T;«, l3=0x15}
0x1a03…1a16 Line {l1=0x11, l2=» SXY:=SXY+T*S;«, l3=0x11}
0x1a16…1a2d Line {l1=0x15, l2=» SX2Y:=SX2Y+T*T*S;«, l3=0x15}
0x1a2d…1a35 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1a35…1a46 Line {l1=0x0f, l2=» CLOSE(TPFIL);«, l3=0x0f}
0x1a46…1a49 Line {l1=0x01, l2=» «, l3=0x01}
0x1a49…1a65 Line {l1=0x1a, l2=» NÆVNER:=SX2*SX4-SX3*SX3;«, l3=0x1a}
0x1a65…1a83 Line {l1=0x1c, l2=» TÆLLERA:=SX2*SX2Y-SX3*SXY;«, l3=0x1c}
0x1a83…1aa2 Line {l1=0x1d, l2=» TÆLLERB:=-SX3*SX2Y+SX4*SXY;«, l3=0x1d}
0x1aa2…1aba Line {l1=0x16, l2=» A:=2*TÆLLERA/NÆVNER;«, l3=0x16}
0x1aba…1ad0 Line {l1=0x14, l2=» B:=TÆLLERB/NÆVNER;«, l3=0x14}
0x1ad0…1aed Line {l1=0x1b, l2=»END; (*REGRESSION*) (*$P*)«, l3=0x1b}
0x1aed…1af0 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x1af6…1b0b Line {l1=0x13, l2=»PROCEDURE PLOTREGR;«, l3=0x13}
0x1b0b…1b0e Line {l1=0x01, l2=» «, l3=0x01}
0x1b0e…1b4b Line {l1=0x3b, l2=» VAR T,S,DELTAT:REAL; «, l3=0x3b}
0x1b4b…1b6b Line {l1=0x1e, l2=» YMIN1,YMAX1:INTEGER;«, l3=0x1e}
0x1b6b…1b6e Line {l1=0x01, l2=» «, l3=0x01}
0x1b6e…1b84 Line {l1=0x14, l2=»BEGIN (*PLOTREGR*)«, l3=0x14}
0x1b84…1ba0 Line {l1=0x1a, l2=» YMIN1:=-50; YMAX1:=1800;«, l3=0x1a}
0x1ba0…1bac Line {l1=0x0a, l2=» T:=TMIN;«, l3=0x0a}
0x1bac…1bc4 Line {l1=0x16, l2=» S:=0.5*ACC*T*T+V0*T;«, l3=0x16}
0x1bc4…1bdb Line {l1=0x15, l2=» X:=ROUND(SKALAX*T);«, l3=0x15}
0x1bdb…1bf2 Line {l1=0x15, l2=» Y:=ROUND(SKALAY*S);«, l3=0x15}
0x1bf2…1c29 Line {l1=0x35, l2=» IF Y<YMIN1 THEN WRITELN(LIST,'U ',X,',',YMIN1,' ');«, l3=0x35}
0x1c29…1c60 Line {l1=0x35, l2=» IF Y>YMAX1 THEN WRITELN(LIST,'U ',X,',',YMAX1,' ');«, l3=0x35}
0x1c60…1ca5 Line {l1=0x43, l2=» IF (Y>=YMIN1) AND (Y<=YMAX1) THEN WRITELN(LIST,'U ',X,',',Y,' ');«, l3=0x43}
0x1ca5…1cc1 Line {l1=0x1a, l2=» DELTAT:=(TMAX-TMIN)/100;«, l3=0x1a}
0x1cc1…1cd4 Line {l1=0x11, l2=» T:=TMIN-DELTAT;«, l3=0x11}
0x1cd4…1ce1 Line {l1=0x0b, l2=»DELAY(800);«, l3=0x0b}
0x1ce1…1cf7 Line {l1=0x14, l2=» FOR I:=0 TO 100 DO«, l3=0x14}
0x1cf7…1d00 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1d00…1d12 Line {l1=0x10, l2=» T:=T+DELTAT;«, l3=0x10}
0x1d12…1d2c Line {l1=0x18, l2=» S:=0.5*ACC*T*T+V0*T;«, l3=0x18}
0x1d2c…1d45 Line {l1=0x17, l2=» X:=ROUND(SKALAX*T);«, l3=0x17}
0x1d45…1d5e Line {l1=0x17, l2=» Y:=ROUND(SKALAY*S);«, l3=0x17}
0x1d5e…1d97 Line {l1=0x37, l2=» IF Y<YMIN1 THEN WRITELN(LIST,'U ',X,',',YMIN1,' ');«, l3=0x37}
0x1d97…1dd0 Line {l1=0x37, l2=» IF Y>YMAX1 THEN WRITELN(LIST,'U ',X,',',YMAX1,' ');«, l3=0x37}
0x1dd0…1e17 Line {l1=0x45, l2=» IF (Y>=YMIN1) AND (Y<=YMAX1) THEN WRITELN(LIST,'D ',X,',',Y,' ');«, l3=0x45}
0x1e17…1e1f Line {l1=0x06, l2=» END;«, l3=0x06}
0x1e1f…1e22 Line {l1=0x01, l2=» «, l3=0x01}
0x1e22…1e69 Line {l1=0x45, l2=» WRITELN(LIST,'U 250,1650 S12,BEDSTE FIT:_ '); «, l3=0x45}
0x1e69…1e97 Line {l1=0x2c, l2=» WRITELN(LIST,'U 250,1550 S12, S = 0.5_ ');«, l3=0x2c}
0x1e97…1edb Line {l1=0x42, l2=» WRITELN(LIST,'R 5,12 S12,._ -5,-12 S12,A_ 5,12 S12,._ -5,-12 ');«, l3=0x42}
0x1edb…1f09 Line {l1=0x2c, l2=» WRITELN(LIST,'S12,T_ 0,30 S11,2_ 0,-30 ');«, l3=0x2c}
0x1f09…1f43 Line {l1=0x38, l2=» WRITELN(LIST,'S12,+Vo_ 5,12 S12,._ -5,-12 S12,T_ A ');«, l3=0x38}
0x1f43…1f80 Line {l1=0x3b, l2=» WRITELN(LIST,'U 250,1450 S12, A = ',ACC:6:3,' m/s_ '); «, l3=0x3b}
0x1f80…1fab Line {l1=0x29, l2=» WRITELN(LIST,'R 0,20 S11,2_ 0,-20 A ');«, l3=0x29}
0x1fab…1fe4 Line {l1=0x37, l2=» WRITELN(LIST,'U 250,1350 S12,Vo = ',V0:6:3,' m/s_ ');«, l3=0x37}
0x1fe4…1fe7 Line {l1=0x01, l2=» «, l3=0x01}
0x1fe7…2002 Line {l1=0x19, l2=»END; (*PLOTREGR*) (*$P*)«, l3=0x19}
0x2002…2005 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x200b…201c Line {l1=0x0f, l2=»PROCEDURE SLUT;«, l3=0x0f}
0x201c…201f Line {l1=0x01, l2=» «, l3=0x01}
0x201f…2026 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2026…2036 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2036…2041 Line {l1=0x09, l2=» FREEPR;«, l3=0x09}
0x2041…2079 Line {l1=0x36, l2=» WRITELN(' *** SLUT ***');«, l3=0x36}
0x2079…208b Line {l1=0x10, l2=» EXIT(PROGRAM);«, l3=0x10}
0x208b…20a2 Line {l1=0x15, l2=»END; (*SLUT*) (*$P*)«, l3=0x15}
0x20a2…20a5 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x20ab…20ce Line {l1=0x21, l2=»PROCEDURE PRINTRESERV(N:INTEGER);«, l3=0x21}
0x20ce…20d1 Line {l1=0x01, l2=» «, l3=0x01}
0x20d1…20eb Line {l1=0x18, l2=» VAR READY:BOOLEAN;«, l3=0x18}
0x20eb…20ee Line {l1=0x01, l2=» «, l3=0x01}
0x20ee…20f5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20f5…20ff Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x20ff…2115 Line {l1=0x14, l2=» READY:=GETPR(N);«, l3=0x14}
0x2115…2130 Line {l1=0x19, l2=» IF NOT READY THEN «, l3=0x19}
0x2130…213b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x213b…2173 Line {l1=0x36, l2=» WRITELN(CHR(7),'PRINTER ',N,' ER IKKE PARAT !');«, l3=0x36}
0x2173…2196 Line {l1=0x21, l2=» DELAY(500); WRITE(CHR(11));«, l3=0x21}
0x2196…21a0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x21a0…21bf Line {l1=0x1d, l2=» UNTIL READY OR EOF(OUTPUT);«, l3=0x1d}
0x21bf…21dc Line {l1=0x1b, l2=» IF EOF(OUTPUT) THEN SLUT;«, l3=0x1b}
0x21dc…21e8 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x21e8…2220 Line {l1=0x36, l2=» WRITELN('PRINTER ',N,' ER RESERVERET DENNE KØRSEL');«, l3=0x36}
0x2220…223f Line {l1=0x1d, l2=»END; (*PRINTRESERV*) (*$P*)«, l3=0x1d}
0x223f…2242 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x2248…225e Line {l1=0x14, l2=»PROCEDURE PRINTHEAD;«, l3=0x14}
0x225e…2261 Line {l1=0x01, l2=» «, l3=0x01}
0x2261…2276 Line {l1=0x13, l2=» VAR BLANK:STRING;«, l3=0x13}
0x2276…2279 Line {l1=0x01, l2=» «, l3=0x01}
0x2279…2290 Line {l1=0x15, l2=»BEGIN (*PRINTFILTOP*)«, l3=0x15}
0x2290…2293 Line {l1=0x01, l2=» «, l3=0x01}
0x2293…22aa Line {l1=0x15, l2=» RESET(TPFIL,FILID);«, l3=0x15}
0x22aa…22ad Line {l1=0x01, l2=» «, l3=0x01}
0x22ad…22f6 Line {l1=0x47, l2=» GET(TPFIL); ANTAL:=ROUND(TPFIL^); (*LÆS ANTAL SÆT DATA REC.*)«, l3=0x47}
0x22f6…2340 Line {l1=0x48, l2=» GET(TPFIL); DATASTART:=ROUND(TPFIL^);(*REC. NO. FOR FØRSTE DATA REC.*)«, l3=0x48}
0x2340…2343 Line {l1=0x01, l2=» «, l3=0x01}
0x2343…2355 Line {l1=0x10, l2=» SEEK(TPFIL,3);«, l3=0x10}
0x2355…239d Line {l1=0x46, l2=» RUNDATO:=''; TEGN:=' '; (*LÆS DATO FOR KØRSEL*)«, l3=0x46}
0x239d…23bc Line {l1=0x1d, l2=» FOR I:=1 TO 10 DO «, l3=0x1d}
0x23bc…23c5 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x23c5…23f7 Line {l1=0x30, l2=» GET(TPFIL); TEGN(1):=CHR(ROUND(TPFIL^)); «, l3=0x30}
0x23f7…241b Line {l1=0x22, l2=» RUNDATO:=CONCAT(RUNDATO,TEGN);«, l3=0x22}
0x241b…2423 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2423…2426 Line {l1=0x01, l2=» «, l3=0x01}
0x2426…2439 Line {l1=0x11, l2=» SEEK(TPFIL,13);«, l3=0x11}
0x2439…2481 Line {l1=0x46, l2=» RUNTID:=''; TEGN:=' '; (*LÆS TID FOR KØRSEL*)«, l3=0x46}
0x2481…249f Line {l1=0x1c, l2=» FOR I:=1 TO 8 DO «, l3=0x1c}
0x249f…24a8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x24a8…24da Line {l1=0x30, l2=» GET(TPFIL); TEGN(1):=CHR(ROUND(TPFIL^)); «, l3=0x30}
0x24da…24fc Line {l1=0x20, l2=» RUNTID:=CONCAT(RUNTID,TEGN);«, l3=0x20}
0x24fc…2504 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2504…2507 Line {l1=0x01, l2=» «, l3=0x01}
0x2507…251a Line {l1=0x11, l2=» SEEK(TPFIL,21);«, l3=0x11}
0x251a…253e Line {l1=0x22, l2=» GET(TPFIL); ØVNR:=ROUND(TPFIL^);«, l3=0x22}
0x253e…255e Line {l1=0x1e, l2=» GET(TPFIL); AFSTAND:=TPFIL^;«, l3=0x1e}
0x255e…257c Line {l1=0x1c, l2=» GET(TPFIL); HØJDE:=TPFIL^;«, l3=0x1c}
0x257c…257f Line {l1=0x01, l2=» «, l3=0x01}
0x257f…2598 Line {l1=0x17, l2=» BLANK:=''; TEGN:=' ';«, l3=0x17}
0x2598…25c8 Line {l1=0x2e, l2=» FOR I:=1 TO 20 DO BLANK:=CONCAT(BLANK,TEGN);«, l3=0x2e}
0x25c8…2614 Line {l1=0x4a, l2=» WRITELN(LIST,BLANK,'FORSØG PÅ SKRÅ LUFTPUDEBANE ØV.NR.: ',ØVNR);«, l3=0x4a}
0x2614…264a Line {l1=0x34, l2=» WRITELN(LIST,BLANK,'***************************');«, l3=0x34}
0x264a…266b Line {l1=0x1f, l2=» WRITELN(LIST); WRITELN(LIST);«, l3=0x1f}
0x266b…269c Line {l1=0x2f, l2=» FOR I:=21 TO 32 DO BLANK:=CONCAT(BLANK,TEGN);«, l3=0x2f}
0x269c…26db Line {l1=0x3d, l2=» WRITELN(LIST,' DELTAGERE:',BLANK,'FORSØGET UDFØRT');«, l3=0x3d}
0x26db…2719 Line {l1=0x3c, l2=» WRITELN(LIST,' ',PARAM^,' ','DATO : ',RUNDATO);«, l3=0x3c}
0x2719…274a Line {l1=0x2f, l2=» FOR I:=33 TO 50 DO BLANK:=CONCAT(BLANK,TEGN);«, l3=0x2f}
0x274a…2784 Line {l1=0x38, l2=» WRITELN(LIST,BLANK,'TID : ',RUNTID); WRITELN(LIST);«, l3=0x38}
0x2784…27ad Line {l1=0x27, l2=» WRITELN(LIST,BLANK,'DATA LAGRET PÅ');«, l3=0x27}
0x27ad…27d9 Line {l1=0x2a, l2=» WRITELN(LIST,BLANK,'FILNAVN: ',FILNAVN);«, l3=0x2a}
0x27d9…27fa Line {l1=0x1f, l2=» WRITELN(LIST); WRITELN(LIST);«, l3=0x1f}
0x27fa…2844 Line {l1=0x48, l2=» WRITE(LIST,' KLODSENS HØJDE: h = '); «, l3=0x48}
0x2844…286a Line {l1=0x24, l2=» WRITELN(LIST,HØJDE*100:7:2,' cm');«, l3=0x24}
0x286a…287c Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x287c…28c8 Line {l1=0x4a, l2=» WRITE(LIST,' AFST. MELLEM LPB"s BEN: L = '); «, l3=0x4a}
0x28c8…28f1 Line {l1=0x27, l2=» WRITELN(LIST,AFSTAND*100:6:1,' cm');«, l3=0x27}
0x28f1…2902 Line {l1=0x0f, l2=» CLOSE(TPFIL);«, l3=0x0f}
0x2902…291e Line {l1=0x1a, l2=»END; (*PRINTHEAD*) (*$P*)«, l3=0x1a}
0x291e…2921 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x2927…293d Line {l1=0x14, l2=»PROCEDURE PRINTDATA;«, l3=0x14}
0x293d…2940 Line {l1=0x01, l2=» «, l3=0x01}
0x2940…2955 Line {l1=0x13, l2=» VAR T,S,V,G:REAL;«, l3=0x13}
0x2955…2980 Line {l1=0x29, l2=» LINIE:STRING; «, l3=0x29}
0x2980…2983 Line {l1=0x01, l2=» «, l3=0x01}
0x2983…298a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x298a…29a1 Line {l1=0x15, l2=» RESET(TPFIL,FILID);«, l3=0x15}
0x29a1…29c2 Line {l1=0x1f, l2=» WRITELN(LIST); WRITELN(LIST);«, l3=0x1f}
0x29c2…2a0d Line {l1=0x49, l2=» LINIE:= ' I-------------I-------------I-------------I';«, l3=0x49}
0x2a0d…2a25 Line {l1=0x16, l2=» WRITELN(LIST,LINIE);«, l3=0x16}
0x2a25…2a71 Line {l1=0x4a, l2=» WRITELN(LIST,' I TID T I STED S I HAST. V I');«, l3=0x4a}
0x2a71…2abd Line {l1=0x4a, l2=» WRITELN(LIST,' I (s) I (m) I (m/s) I');«, l3=0x4a}
0x2abd…2ad5 Line {l1=0x16, l2=» WRITELN(LIST,LINIE);«, l3=0x16}
0x2ad5…2ad8 Line {l1=0x01, l2=» «, l3=0x01}
0x2ad8…2b23 Line {l1=0x49, l2=» I:=23; (*LINIE NUMMER PÅ SKRIVER UDSKRIFT*)«, l3=0x49}
0x2b23…2b26 Line {l1=0x01, l2=» «, l3=0x01}
0x2b26…2b40 Line {l1=0x18, l2=» SEEK(TPFIL,DATASTART);«, l3=0x18}
0x2b40…2b58 Line {l1=0x16, l2=» FOR J:=1 TO ANTAL DO«, l3=0x16}
0x2b58…2b61 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2b61…2b7d Line {l1=0x1a, l2=» GET(TPFIL); T:=TPFIL^;«, l3=0x1a}
0x2b7d…2b99 Line {l1=0x1a, l2=» GET(TPFIL); S:=TPFIL^;«, l3=0x1a}
0x2b99…2bab Line {l1=0x10, l2=» V:=ACC*T+V0;«, l3=0x10}
0x2bab…2bf9 Line {l1=0x4c, l2=» WRITELN(LIST,' I',T:9:3,' I',S:9:3,' I',V:9:3,' I');«, l3=0x4c}
0x2bf9…2c13 Line {l1=0x18, l2=» WRITELN(LIST,LINIE);«, l3=0x18}
0x2c13…2c2a Line {l1=0x15, l2=» I:=I+2; «, l3=0x15}
0x2c2a…2c3d Line {l1=0x11, l2=» IF I>=65 THEN«, l3=0x11}
0x2c3d…2c88 Line {l1=0x49, l2=» BEGIN (*DER SKIFTES SIDE FOR HVER 65 LINIER*)«, l3=0x49}
0x2c88…2c9b Line {l1=0x11, l2=» PAGE(LIST);«, l3=0x11}
0x2c9b…2ca8 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x2ca8…2cb2 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2cb2…2cc9 Line {l1=0x15, l2=» END; «, l3=0x15}
0x2cc9…2ccc Line {l1=0x01, l2=» «, l3=0x01}
0x2ccc…2ced Line {l1=0x1f, l2=» WRITELN(LIST); WRITELN(LIST);«, l3=0x1f}
0x2ced…2d38 Line {l1=0x49, l2=» WRITELN(LIST,' BEDSTE FIT: V = A*T+Vo; S = 0.5*A*T^2+Vo*T');«, l3=0x49}
0x2d38…2d4a Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2d4a…2d91 Line {l1=0x45, l2=» WRITELN(LIST,' A = ',ACC:7:3,' m/s^2');«, l3=0x45}
0x2d91…2da3 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2da3…2de7 Line {l1=0x42, l2=» WRITELN(LIST,' Vo = ',V0:7:3,' m/s');«, l3=0x42}
0x2de7…2df9 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2df9…2e10 Line {l1=0x15, l2=» IF HØJDE>0.001 THEN«, l3=0x15}
0x2e10…2e19 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2e19…2e34 Line {l1=0x19, l2=» G:=ACC*AFSTAND/HØJDE;«, l3=0x19}
0x2e34…2e7c Line {l1=0x46, l2=» WRITELN(LIST,' TYNGDEACC.: g = A*L/h = ',G:6:2,' m/s^2');«, l3=0x46}
0x2e7c…2e84 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2e84…2e87 Line {l1=0x01, l2=» «, l3=0x01}
0x2e87…2e98 Line {l1=0x0f, l2=» CLOSE(TPFIL);«, l3=0x0f}
0x2e98…2ea7 Line {l1=0x0d, l2=» PAGE(LIST);«, l3=0x0d}
0x2ea7…2eaa Line {l1=0x01, l2=» «, l3=0x01}
0x2eaa…2ec9 Line {l1=0x1d, l2=»END; (*PRINTDATA*) (*$P*)«, l3=0x1d}
0x2ec9…2ecc Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x2ed2…2eea Line {l1=0x16, l2=» BEGIN (*LPBPLOT*)«, l3=0x16}
0x2eea…2efe Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x2efe…2f2f Line {l1=0x2f, l2=» GOTOXY(30,5); WRITELN('*** LPBPLOT ***');«, l3=0x2f}
0x2f2f…2f3f Line {l1=0x0e, l2=» WRITELN;«, l3=0x0e}
0x2f3f…2f42 Line {l1=0x01, l2=» «, l3=0x01}
0x2f42…2f54 Line {l1=0x10, l2=» LÆSFILTOP;«, l3=0x10}
0x2f54…2f57 Line {l1=0x01, l2=» «, l3=0x01}
0x2f57…2f73 Line {l1=0x1a, l2=» XMAX:=2700; XMIN:=0;«, l3=0x1a}
0x2f73…2f8f Line {l1=0x1a, l2=» YMAX:=1800; YMIN:=0;«, l3=0x1a}
0x2f8f…2fb9 Line {l1=0x28, l2=» SCALE(TMIN,TMAX,SKALAX,XMAX,XNUL);«, l3=0x28}
0x2fb9…2fe3 Line {l1=0x28, l2=» SCALE(SMIN,SMAX,SKALAY,YMAX,YNUL);«, l3=0x28}
0x2fe3…2fe6 Line {l1=0x01, l2=» «, l3=0x01}
0x2fe6…3026 Line {l1=0x3e, l2=» X1CM:=100/SKALAX; «, l3=0x3e}
0x3026…3064 Line {l1=0x3c, l2=» Y1CM:=100/SKALAY; «, l3=0x3c}
0x3064…309c Line {l1=0x36, l2=» WRITELN('1CM-X = ',X1CM:9:3,' SEK.');«, l3=0x36}
0x309c…30d1 Line {l1=0x33, l2=» WRITELN('1CM-Y = ',Y1CM:9:3,' M');«, l3=0x33}
0x30d1…310d Line {l1=0x3a, l2=» WRITELN('LÆNGDE AF X-AKSE = ',XMAX DIV 100:9,' CM');«, l3=0x3a}
0x310d…3149 Line {l1=0x3a, l2=» WRITELN('LÆNGDE AF Y-AKSE = ',YMAX DIV 100:9,' CM');«, l3=0x3a}
0x3149…316f Line {l1=0x24, l2=» WRITELN('ORIGOS PLACERING :');«, l3=0x24}
0x316f…31ab Line {l1=0x3a, l2=» WRITELN('X-ORIGO = ',XNUL DIV 100:9,' CM');«, l3=0x3a}
0x31ab…31e7 Line {l1=0x3a, l2=» WRITELN('Y-ORIGO = ',YNUL DIV 100:9,' CM');«, l3=0x3a}
0x31e7…31ea Line {l1=0x01, l2=» «, l3=0x01}
0x31ea…3201 Line {l1=0x15, l2=» PRINTRESERV(2);«, l3=0x15}
0x3201…324b Line {l1=0x48, l2=» WRITELN; WRITELN('PLOTTEREN STARTER, NÅR DU TRYKKER PÅ "RETURN"');«, l3=0x48}
0x324b…325a Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x325a…325d Line {l1=0x01, l2=» «, l3=0x01}
0x325d…326e Line {l1=0x0f, l2=» PLOTHEAD;«, l3=0x0f}
0x326e…3271 Line {l1=0x01, l2=» «, l3=0x01}
0x3271…3282 Line {l1=0x0f, l2=» PLOTAKSE;«, l3=0x0f}
0x3282…3285 Line {l1=0x01, l2=» «, l3=0x01}
0x3285…3296 Line {l1=0x0f, l2=» PLOTDATA;«, l3=0x0f}
0x3296…3299 Line {l1=0x01, l2=» «, l3=0x01}
0x3299…32b3 Line {l1=0x18, l2=» KODENAVN:='BJØRN';«, l3=0x18}
0x32b3…32b6 Line {l1=0x01, l2=» «, l3=0x01}
0x32b6…32cb Line {l1=0x13, l2=» DELTAGER:='';«, l3=0x13}
0x32cb…3312 Line {l1=0x45, l2=» FOR I:=1 TO LENGTH(KODENAVN) DO DELTAGER:=CONCAT(DELTAGER,'X');«, l3=0x45}
0x3312…3348 Line {l1=0x34, l2=» MOVELEFT(PARAM^,DELTAGER(1),LENGTH(KODENAVN));«, l3=0x34}
0x3348…334b Line {l1=0x01, l2=» «, l3=0x01}
0x334b…3378 Line {l1=0x2b, l2=» IF DELTAGER=KODENAVN THEN «, l3=0x2b}
0x3378…3385 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3385…33a2 Line {l1=0x1b, l2=» REGRESSION(ACC,V0);«, l3=0x1b}
0x33a2…33b5 Line {l1=0x11, l2=» PLOTREGR;«, l3=0x11}
0x33b5…33d4 Line {l1=0x1d, l2=» WRITELN(LIST,' H @');«, l3=0x1d}
0x33d4…3407 Line {l1=0x31, l2=» FREEPR; WRITELN('PRINTER 2 ER FRIGJORT');«, l3=0x31}
0x3407…3420 Line {l1=0x17, l2=» PRINTRESERV(1);«, l3=0x17}
0x3420…3434 Line {l1=0x12, l2=» PRINTHEAD;«, l3=0x12}
0x3434…3448 Line {l1=0x12, l2=» PRINTDATA;«, l3=0x12}
0x3448…347b Line {l1=0x31, l2=» FREEPR; WRITELN('PRINTER 1 ER FRIGJORT');«, l3=0x31}
0x347b…3487 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x3487…3493 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x3493…34a0 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x34a0…34bf Line {l1=0x1d, l2=» WRITELN(LIST,' H @');«, l3=0x1d}
0x34bf…34f2 Line {l1=0x31, l2=» FREEPR; WRITELN('PRINTER 2 ER FRIGJORT');«, l3=0x31}
0x34f2…34fe Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x34fe…350e Line {l1=0x0e, l2=» WRITELN;«, l3=0x0e}
0x350e…354e Line {l1=0x3e, l2=» WRITELN(' *** END LPBPLOT ***');«, l3=0x3e}
0x354e…3564 Line {l1=0x14, l2=» END. (*LPBPLOT*)«, l3=0x14}
0x3564…3568 Line {l1=0x02, l2=» «, l3=0x02}
0x3568…3580 00 00 45 52 20 46 52 49 47 4a 4f 52 54 27 29 3b 31 0a 20 20 20 20 20 20 ┆ ER FRIGJORT');1 ┆
0x3580…35a0 45 4e 44 3b 0a 0e 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0e 3e 20 20 20 20 20 20 57 52 49 54 ┆END; WRITELN; > WRIT┆
0x35a0…35c0 45 4c 4e 28 27 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 2a 2a ┆ELN(' **┆
0x35c0…35e0 2a 20 45 4e 44 20 4c 50 42 50 4c 4f 54 20 2a 2a 2a 27 29 3b 3e 14 20 20 20 20 45 4e 44 2e 20 28 ┆* END LPBPLOT ***');> END. (┆
0x35e0…3600 2a 4c 50 42 50 4c 4f 54 2a 29 14 02 20 20 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆*LPBPLOT*) ┆
0x3600…3620 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 ┆ ┆
[…0x2e…]