|
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: 9984 (0x2700)
Types: TextFile
Notes: Mikados_K
Names: »OHOVSA.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »OHOVSA.K«
PROGRAM HOVSA;
CONST LNGTH=20;
TYPE PROCSTAT=RECORD
NP:INTEGER;
NROSTART:INTEGER
END;
NPFILE = FILE OF PROCSTAT;
PARMARRAY=PACKED ARRAY (1..40) OF CHAR;
DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;
CLOCKRECORD = RECORD
DATE:PACKED ARRAY (1..10) OF CHAR;
TIME:PACKED ARRAY (1..8) OF CHAR
END;
VAR PARM:^PARMARRAY;
CLOCK:^CLOCKRECORD;
SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;
HOWL,ALARM,STOPWATCH:BOOLEAN;
ALARMTIME:PACKED ARRAY (1..8) OF CHAR;
DBUF:DIRECTBUF;
C,CH :CHAR;
F:STRING(11);
NRPF,CF:NPFILE;
QUQ:^INTEGER;
I,SKIFT:INTEGER;
FIL:STRING(20);
PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);
EXTERNAL;
FUNCTION AVAIL:BOOLEAN;
EXTERNAL;
FUNCTION NEXT:CHAR;
EXTERNAL;
PROCEDURE FINIS;
EXTERNAL;
PROCEDURE UR;
BEGIN
SETUP(DBUF,LNGTH);
C:=' ';
GOTOXY(62,1);WRITE('Alarm');
IF ALARM THEN BEGIN GOTOXY(72,1);WRITE(ALARMTIME) END;
GOTOXY(62,2);WRITE('Time');
SV:=-1;
REPEAT
IF C<>CLOCK^.TIME(8) THEN
BEGIN
GOTOXY(67,2);
WRITE(CLOCK^.TIME);
C:=CLOCK^.TIME(8);
OFFSET:=TIME;
END;
GOTOXY(76,2);
WRITE((TIME-OFFSET) MOD 100:4);
IF STOPWATCH THEN
BEGIN
IF (TIME<0) AND (TT>0) THEN
SEC100:=SEC100+(32767-TT)+(32767+TIME+2)
ELSE
SEC100:=SEC100+TIME-TT;
TT:=TIME;
SEC:=SEC+SEC100 DIV 100;SEC100:=SEC100 MOD 100;
MIN:=MIN+SEC DIV 60; SEC:=SEC MOD 60;
GOTOXY(60,3);
WRITE(MIN:4,SEC:3,SEC100:3);
END;
IF ALARM THEN IF ALARMTIME<=CLOCK^.TIME THEN HOWL:=TRUE;
IF HOWL THEN WRITE(CHR(7));
IF AVAIL THEN
BEGIN
CH:=NEXT;
CASE CH OF
'S':BEGIN
STOPWATCH:=NOT(STOPWATCH);
IF STOPWATCH THEN BEGIN MIN:=0;SEC:=0;SEC100:=0;TT:=TIME END;
END;
'U':BEGIN GOTOXY(67,2);FOR I:=1 TO 8 DO CLOCK^.TIME(I):=NEXT END;
'C':BEGIN STOPWATCH:=TRUE;TT:=TIME END;
'0','1','2','3','4','5','6','7','8','9':BEGIN FINIS;SV:=ORD(CH)-48 END;
'M':BEGIN
GOTOXY(70,3);
IF STOPWATCH THEN
WRITE(MIN:4,SEC:3,SEC100:3);
END;
'A':BEGIN
HOWL:=FALSE;
ALARM:=NOT(ALARM);
CLOCK^.DATE(9):='0';
IF ALARM THEN
BEGIN
CLOCK^.DATE(9):='1';
GOTOXY(72,1);
FOR I:=1 TO 8 DO BEGIN CLOCK^.DATE(I):=NEXT;
ALARMTIME(I):=CLOCK^.DATE(I)
END;
GOTOXY(72,1);WRITE(ALARMTIME)
END;
END;
END;
END;
UNTIL SV>-1
END;
PROCEDURE LIST;
BEGIN
WRITELN(' ':20,'1 Messeoversigt');
WRITELN;
WRITELN(' ':20,'2 Disponeringsliste');
WRITELN;
WRITELN(' ':20,'3 Varelister');
WRITELN(' ':20,'4 Prismærkater');
WRITELN;
WRITELN(' ':20,'5 Kundeliste');
WRITELN(' ':20,'6 Alfabetisk kundeliste');
WRITELN(' ':20,'7 Labels');
WRITELN(' ':20,'8 Saldoliste');
WRITELN;
WRITELN(' ':20,'9 Restordreoversigt');
WRITELN(' ':20,'10 Kunders restordrer');
GOTOXY(1,20);WRITELN('Vælg 1-10');
REPEAT
GOTOXY(11,20);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>-1) AND (I<11);
IF I>0 THEN
SKIFT:=1;
CASE I OF
1: F:='MESSEKIK:P1';
2: F:='DISPLIST:P1';
3: F:='LISTKOMP:P1';
4: F:='VARLAB:P1';
5: F:='DUMPKUND:P1';
6: F:='ALFAKUND:P1';
7: F:='KNUDELBO:P1';
8: F:='SALDOLIS:P1';
9: F:='RESTOVER:P1';
10: F:='KUNDREST:P1';
END;
END;
PROCEDURE SPØRG;
BEGIN
WRITELN(' ':20,'1 Vareregister');
WRITELN(' ':20,'2 Kunderegister');
WRITELN(' ':20,'3 Ordreregister');
WRITELN(' ':20,'4 Restordreregister');
WRITELN(' ':20,'5 Leverandørregister');
WRITELN(' ':20,'6 Landeregister');
WRITELN(' ':20,'7 Systemregister');
WRITELN(' ':20,'8 Tekstregister');
WRITELN(' ':20,'9 Betalingsadresseregister');
WRITELN(' ':20,'10 Toldpositionsregister');
WRITELN;
WRITELN(' ':20,'Kontospørgeprogrammer');
WRITELN(' ':20,'11 Saldostatistik');
WRITELN(' ':20,'12 Kontoudtog');
GOTOXY(1,20);WRITELN('Vælg 1-12');
REPEAT
GOTOXY(11,20);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>-1) AND (I<13);
CASE I OF
1: F:='VAREVEDL:P1';
2: F:='KUNDVEDL:P1';
3: F:='ORDREVED:P1';
4: F:='RESTVEDL:P1';
5: F:='LEVVEDL:P1';
6: F:='LANDVEDL:P1';
7: F:='SYSVEDL:P1';
8: BEGIN F:='TEKSTVED:P1'; SKIFT:=1 END;
9: F:='BTAVEDL:P1';
10:F:='TOLDVEDL:P1';
11: F:='SALDSTAT:P1';
12: F:='KONTUDT:P1';
END
END;
PROCEDURE DOIT;
BEGIN
WRITELN(' ':20,'0 Stop');
WRITELN;
WRITELN(' ':20,'1 Ordreindtastning');
WRITELN(' ':20,'2 Pakkelisteudskrivning');
WRITELN(' ':20,'3 Fakturering');
WRITELN;
WRITELN(' ':20,'4 Indbetalinger');
WRITELN(' ':20,'5 Kreditnotaer');
WRITELN;
WRITELN(' ':20,'6 Periodeafslutninger');
WRITELN;
WRITELN(' ':20,'7 Spørgeprogrammer og kartoteksvedligeholdelse');
WRITELN;
WRITELN(' ':20,'8 Listeprogrammer');
WRITELN;
WRITELN(' ':20,'9 Indkøb');
GOTOXY(1,20);WRITELN('Vælg 0-9 ');
UR;
I:=SV;
CLEARSCREEN;
CASE I OF
1: F:='INDORDRE:P1';
2: F:='PAKLISTE:P1';
3: F:='FAKTURA:P1';
4: F:='KASSERAP:P1';
5: F:='KREDNOTA:P1';
6: BEGIN
WRITELN(' ':20,'1 Faktureringsjournal');
WRITELN(' ':20,'2 Bogholderijournal');
WRITELN(' ':20,'3 Månedsafslutning');
WRITELN(' ':20,'4 Renteberegning');
WRITELN(' ':20,'5 Rente-postering');
WRITELN(' ':20,'6 Årsafslutning');
GOTOXY(1,20);WRITELN('Vælg 1-6');
REPEAT
GOTOXY(11,20);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>-1) AND (I<7);
IF I>2 THEN SKIFT:=1;
CASE I OF
1: F:='TESTJOU:P1';
2: F:='BOGJOU:P1';
3: F:='MAFSLUT:P1';
4: F:='RENTEBER:P1';
5: F:='RENTEBEK:P1';
6: F:=' ';
END
END;
7: SPØRG;
8:LIST;
9:BEGIN
WRITELN(' ':20,'1 Varebestilling');
WRITELN(' ':20,'2 Varehjemkomst');
GOTOXY(1,20);WRITELN('Vælg 1-2');
REPEAT
GOTOXY(11,20);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>-1) AND (I<3);
CASE I OF
1: F:='BESTVARE:P1';
2: F:='HJEMVARE:P1';
END
END;
0: F:='STOP';
END;
END;
BEGIN
ALARM:=CLOCK^.DATE(9)='1';
IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);
HOWL:=FALSE;STOPWATCH:=FALSE;
FIL:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FIL);
SEEK(NRPF,1);
UNTIL IORESULT=0;
(*$C+*)
GET(NRPF);
IF NRPF^.NP=0 THEN NRPF^.NP:=1;
IF NRPF^.NP=-1 THEN
BEGIN
F:='OPSTART:P1';
CLOSE(NRPF)
END
ELSE
BEGIN
NRPF^.NP:=NRPF^.NP-1;
SEEK(NRPF,1);
PUT(NRPF);
CLOSE(NRPF);
REPEAT
F:=' ';
SKIFT:=2;
CLEARSCREEN;
DOIT;
IF F<>' ' THEN
REPEAT
(*$C-*)
REPEAT
REWRITE(NRPF,FIL);
SEEK(NRPF,1);
UNTIL IORESULT=0;
(*$C+*)
GET(NRPF);
CASE NRPF^.NP OF
0:IF SKIFT=1 THEN
BEGIN
REPEAT
GOTOXY(1,20);
WRITELN('Sæt plade 3 i drev 1 og tryk RETURN');
SKIFT:=0;
READLN;
NRPF^.NP:=3;
(*$C-*)
REWRITE(CF,'C3:P1:0:J');
SEEK(CF,1)
(*$C+*)
UNTIL IORESULT=0;
CLOSE(CF)
END
ELSE
BEGIN
IF F='STOP' THEN NRPF^.NP:=-1 ELSE NRPF^.NP:=1;
SKIFT:=0
END;
1:IF (SKIFT=1) OR (F='STOP') THEN
BEGIN
CLOSE(NRPF);
GOTOXY(1,20);
WRITELN('Vil du vente til anden bruger er færdig ? (J/N) ');
REPEAT
GOTOXY(50,20);READLN;READ(CH)
UNTIL (CH='J') OR (CH='N') OR (CH='n') OR (CH='j');
IF (CH='N') OR (CH='n') THEN
BEGIN
SKIFT:=0;F:=' '
END
ELSE
BEGIN
GOTOXY(1,20);WRITELN('Tryk RETURN når klar');READLN
END;
END
ELSE
BEGIN
NRPF^.NP:=2;SKIFT:=0
END;
3:BEGIN
CLOSE(NRPF);
GOTOXY(1,20);
WRITELN('Vil du vente til anden bruger er færdig ? (J/N) ');
REPEAT
GOTOXY(50,20);READLN;READ(CH)
UNTIL (CH='J') OR (CH='N') OR (CH='n') OR (CH='j');
IF (CH='N') OR (CH='n') THEN
BEGIN
SKIFT:=0;F:=' '
END
ELSE
BEGIN
GOTOXY(1,20);WRITELN('Tryk RETURN når klar');READLN
END;
END;
-1:BEGIN
SKIFT:=0;
IF F<>'STOP' THEN NRPF^.NP:=1
END
END;
UNTIL SKIFT=0;
UNTIL F<>' ';
REPEAT
(*$C-*)
SEEK(NRPF,1);
I:=IORESULT;
IF I<>0 THEN WRITELN('Plade 2 må ikke røres, sæt den nu i drev 2');
(*$C+*)
UNTIL I=0;
PUT(NRPF);
CLOSE(NRPF);
END;
IF F<>'STOP' THEN
CHAIN('INTRE *1',F,QUQ)
END.
0x0000…0010 Line {l1=0x0e, l2=»PROGRAM HOVSA;«, l3=0x0e}
0x0010…0021 Line {l1=0x0f, l2=»CONST LNGTH=20;«, l3=0x0f}
0x0021…0039 Line {l1=0x16, l2=»TYPE PROCSTAT=RECORD«, l3=0x16}
0x0039…004d Line {l1=0x12, l2=» NP:INTEGER;«, l3=0x12}
0x004d…0066 Line {l1=0x17, l2=» NROSTART:INTEGER«, l3=0x17}
0x0066…0073 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0073…008f Line {l1=0x1a, l2=»NPFILE = FILE OF PROCSTAT;«, l3=0x1a}
0x008f…00b8 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..40) OF CHAR;«, l3=0x27}
0x00b8…00e4 Line {l1=0x2a, l2=»DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;«, l3=0x2a}
0x00e4…00fa Line {l1=0x14, l2=»CLOCKRECORD = RECORD«, l3=0x14}
0x00fa…012d Line {l1=0x31, l2=» DATE:PACKED ARRAY (1..10) OF CHAR;«, l3=0x31}
0x012d…015e Line {l1=0x2f, l2=» TIME:PACKED ARRAY (1..8) OF CHAR«, l3=0x2f}
0x015e…0172 Line {l1=0x12, l2=» END;«, l3=0x12}
0x0172…018b Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x018b…01a7 Line {l1=0x1a, l2=» CLOCK:^CLOCKRECORD;«, l3=0x1a}
0x01a7…01d4 Line {l1=0x2b, l2=» SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;«, l3=0x2b}
0x01d4…01fa Line {l1=0x24, l2=» HOWL,ALARM,STOPWATCH:BOOLEAN;«, l3=0x24}
0x01fa…0229 Line {l1=0x2d, l2=» ALARMTIME:PACKED ARRAY (1..8) OF CHAR;«, l3=0x2d}
0x0229…0241 Line {l1=0x16, l2=» DBUF:DIRECTBUF;«, l3=0x16}
0x0241…0255 Line {l1=0x12, l2=» C,CH :CHAR;«, l3=0x12}
0x0255…026b Line {l1=0x14, l2=» F:STRING(11);«, l3=0x14}
0x026b…0283 Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x0283…0299 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0299…02b2 Line {l1=0x17, l2=» I,SKIFT:INTEGER;«, l3=0x17}
0x02b2…02ca Line {l1=0x16, l2=» FIL:STRING(20);«, l3=0x16}
0x02ca…0301 Line {l1=0x35, l2=»PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);«, l3=0x35}
0x0301…030c Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x030c…0325 Line {l1=0x17, l2=»FUNCTION AVAIL:BOOLEAN;«, l3=0x17}
0x0325…0330 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0330…0345 Line {l1=0x13, l2=»FUNCTION NEXT:CHAR;«, l3=0x13}
0x0345…0350 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0350…0362 Line {l1=0x10, l2=»PROCEDURE FINIS;«, l3=0x10}
0x0362…036d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x036d…037c Line {l1=0x0d, l2=»PROCEDURE UR;«, l3=0x0d}
0x037c…0383 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0383…0399 Line {l1=0x14, l2=» SETUP(DBUF,LNGTH);«, l3=0x14}
0x0399…03a4 Line {l1=0x09, l2=» C:=' ';«, l3=0x09}
0x03a4…03c4 Line {l1=0x1e, l2=» GOTOXY(62,1);WRITE('Alarm');«, l3=0x1e}
0x03c4…03fe Line {l1=0x38, l2=» IF ALARM THEN BEGIN GOTOXY(72,1);WRITE(ALARMTIME) END;«, l3=0x38}
0x03fe…041d Line {l1=0x1d, l2=» GOTOXY(62,2);WRITE('Time');«, l3=0x1d}
0x041d…0428 Line {l1=0x09, l2=» SV:=-1;«, l3=0x09}
0x0428…0432 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0432…044f Line {l1=0x1b, l2=» IF C<>CLOCK^.TIME(8) THEN«, l3=0x1b}
0x044f…0458 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0458…046b Line {l1=0x11, l2=» GOTOXY(67,2);«, l3=0x11}
0x046b…0484 Line {l1=0x17, l2=» WRITE(CLOCK^.TIME);«, l3=0x17}
0x0484…049c Line {l1=0x16, l2=» C:=CLOCK^.TIME(8);«, l3=0x16}
0x049c…04af Line {l1=0x11, l2=» OFFSET:=TIME;«, l3=0x11}
0x04af…04b7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x04b7…04c8 Line {l1=0x0f, l2=» GOTOXY(76,2);«, l3=0x0f}
0x04c8…04eb Line {l1=0x21, l2=» WRITE((TIME-OFFSET) MOD 100:4);«, l3=0x21}
0x04eb…0500 Line {l1=0x13, l2=» IF STOPWATCH THEN«, l3=0x13}
0x0500…0509 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0509…052a Line {l1=0x1f, l2=» IF (TIME<0) AND (TT>0) THEN«, l3=0x1f}
0x052a…055a Line {l1=0x2e, l2=» SEC100:=SEC100+(32767-TT)+(32767+TIME+2)«, l3=0x2e}
0x055a…0564 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0564…0583 Line {l1=0x1d, l2=» SEC100:=SEC100+TIME-TT;«, l3=0x1d}
0x0583…0592 Line {l1=0x0d, l2=» TT:=TIME;«, l3=0x0d}
0x0592…05c7 Line {l1=0x33, l2=» SEC:=SEC+SEC100 DIV 100;SEC100:=SEC100 MOD 100;«, l3=0x33}
0x05c7…05f5 Line {l1=0x2c, l2=» MIN:=MIN+SEC DIV 60; SEC:=SEC MOD 60;«, l3=0x2c}
0x05f5…0608 Line {l1=0x11, l2=» GOTOXY(60,3);«, l3=0x11}
0x0608…062a Line {l1=0x20, l2=» WRITE(MIN:4,SEC:3,SEC100:3);«, l3=0x20}
0x062a…0632 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0632…066e Line {l1=0x3a, l2=» IF ALARM THEN IF ALARMTIME<=CLOCK^.TIME THEN HOWL:=TRUE;«, l3=0x3a}
0x066e…068d Line {l1=0x1d, l2=» IF HOWL THEN WRITE(CHR(7));«, l3=0x1d}
0x068d…069e Line {l1=0x0f, l2=» IF AVAIL THEN«, l3=0x0f}
0x069e…06a7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x06a7…06b6 Line {l1=0x0d, l2=» CH:=NEXT;«, l3=0x0d}
0x06b6…06c6 Line {l1=0x0e, l2=» CASE CH OF«, l3=0x0e}
0x06c6…06d5 Line {l1=0x0d, l2=» 'S':BEGIN«, l3=0x0d}
0x06d5…06fb Line {l1=0x24, l2=» STOPWATCH:=NOT(STOPWATCH);«, l3=0x24}
0x06fb…0744 Line {l1=0x47, l2=» IF STOPWATCH THEN BEGIN MIN:=0;SEC:=0;SEC100:=0;TT:=TIME END;«, l3=0x47}
0x0744…0752 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0752…0799 Line {l1=0x45, l2=» 'U':BEGIN GOTOXY(67,2);FOR I:=1 TO 8 DO CLOCK^.TIME(I):=NEXT END;«, l3=0x45}
0x0799…07c6 Line {l1=0x2b, l2=» 'C':BEGIN STOPWATCH:=TRUE;TT:=TIME END;«, l3=0x2b}
0x07c6…080f Line {l1=0x47, l2=»'0','1','2','3','4','5','6','7','8','9':BEGIN FINIS;SV:=ORD(CH)-48 END;«, l3=0x47}
0x080f…081e Line {l1=0x0d, l2=» 'M':BEGIN«, l3=0x0d}
0x081e…0837 Line {l1=0x17, l2=» GOTOXY(70,3);«, l3=0x17}
0x0837…0854 Line {l1=0x1b, l2=» IF STOPWATCH THEN«, l3=0x1b}
0x0854…087f Line {l1=0x29, l2=» WRITE(MIN:4,SEC:3,SEC100:3);«, l3=0x29}
0x087f…088d Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x088d…089c Line {l1=0x0d, l2=» 'A':BEGIN«, l3=0x0d}
0x089c…08b4 Line {l1=0x16, l2=» HOWL:=FALSE;«, l3=0x16}
0x08b4…08d2 Line {l1=0x1c, l2=» ALARM:=NOT(ALARM);«, l3=0x1c}
0x08d2…08f2 Line {l1=0x1e, l2=» CLOCK^.DATE(9):='0';«, l3=0x1e}
0x08f2…090b Line {l1=0x17, l2=» IF ALARM THEN«, l3=0x17}
0x090b…091c Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x091c…093e Line {l1=0x20, l2=» CLOCK^.DATE(9):='1';«, l3=0x20}
0x093e…0959 Line {l1=0x19, l2=» GOTOXY(72,1);«, l3=0x19}
0x0959…0993 Line {l1=0x38, l2=» FOR I:=1 TO 8 DO BEGIN CLOCK^.DATE(I):=NEXT;«, l3=0x38}
0x0993…09d4 Line {l1=0x3f, l2=» ALARMTIME(I):=CLOCK^.DATE(I)«, l3=0x3f}
0x09d4…09f7 Line {l1=0x21, l2=» END;«, l3=0x21}
0x09f7…0a22 Line {l1=0x29, l2=» GOTOXY(72,1);WRITE(ALARMTIME)«, l3=0x29}
0x0a22…0a32 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0a32…0a40 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0a40…0a4a Line {l1=0x08, l2=» END;«, l3=0x08}
0x0a4a…0a52 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0a52…0a61 Line {l1=0x0d, l2=» UNTIL SV>-1«, l3=0x0d}
0x0a61…0a67 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a67…0a78 Line {l1=0x0f, l2=»PROCEDURE LIST;«, l3=0x0f}
0x0a78…0a85 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0a85…0ab1 Line {l1=0x2a, l2=» WRITELN(' ':20,'1 Messeoversigt');«, l3=0x2a}
0x0ab1…0ac3 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0ac3…0af3 Line {l1=0x2e, l2=» WRITELN(' ':20,'2 Disponeringsliste');«, l3=0x2e}
0x0af3…0b05 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0b05…0b2e Line {l1=0x27, l2=» WRITELN(' ':20,'3 Varelister');«, l3=0x27}
0x0b2e…0b59 Line {l1=0x29, l2=» WRITELN(' ':20,'4 Prismærkater');«, l3=0x29}
0x0b59…0b6b Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0b6b…0b94 Line {l1=0x27, l2=» WRITELN(' ':20,'5 Kundeliste');«, l3=0x27}
0x0b94…0bc8 Line {l1=0x32, l2=» WRITELN(' ':20,'6 Alfabetisk kundeliste');«, l3=0x32}
0x0bc8…0bed Line {l1=0x23, l2=» WRITELN(' ':20,'7 Labels');«, l3=0x23}
0x0bed…0c16 Line {l1=0x27, l2=» WRITELN(' ':20,'8 Saldoliste');«, l3=0x27}
0x0c16…0c28 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0c28…0c58 Line {l1=0x2e, l2=» WRITELN(' ':20,'9 Restordreoversigt');«, l3=0x2e}
0x0c58…0c8a Line {l1=0x30, l2=» WRITELN(' ':20,'10 Kunders restordrer');«, l3=0x30}
0x0c8a…0cb6 Line {l1=0x2a, l2=» GOTOXY(1,20);WRITELN('Vælg 1-10');«, l3=0x2a}
0x0cb6…0cc6 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0cc6…0cef Line {l1=0x27, l2=» GOTOXY(11,20);READLN;READ(I)«, l3=0x27}
0x0cef…0d22 Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (I>-1) AND (I<11);«, l3=0x31}
0x0d22…0d37 Line {l1=0x13, l2=» IF I>0 THEN«, l3=0x13}
0x0d37…0d4c Line {l1=0x13, l2=» SKIFT:=1;«, l3=0x13}
0x0d4c…0d5f Line {l1=0x11, l2=» CASE I OF«, l3=0x11}
0x0d5f…0d7d Line {l1=0x1c, l2=» 1: F:='MESSEKIK:P1';«, l3=0x1c}
0x0d7d…0d9b Line {l1=0x1c, l2=» 2: F:='DISPLIST:P1';«, l3=0x1c}
0x0d9b…0db9 Line {l1=0x1c, l2=» 3: F:='LISTKOMP:P1';«, l3=0x1c}
0x0db9…0dd5 Line {l1=0x1a, l2=» 4: F:='VARLAB:P1';«, l3=0x1a}
0x0dd5…0df3 Line {l1=0x1c, l2=» 5: F:='DUMPKUND:P1';«, l3=0x1c}
0x0df3…0e11 Line {l1=0x1c, l2=» 6: F:='ALFAKUND:P1';«, l3=0x1c}
0x0e11…0e2f Line {l1=0x1c, l2=» 7: F:='KNUDELBO:P1';«, l3=0x1c}
0x0e2f…0e4d Line {l1=0x1c, l2=» 8: F:='SALDOLIS:P1';«, l3=0x1c}
0x0e4d…0e6b Line {l1=0x1c, l2=» 9: F:='RESTOVER:P1';«, l3=0x1c}
0x0e6b…0e8a Line {l1=0x1d, l2=» 10: F:='KUNDREST:P1';«, l3=0x1d}
0x0e8a…0e98 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0e98…0ea4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0ea4…0eb6 Line {l1=0x10, l2=»PROCEDURE SPØRG;«, l3=0x10}
0x0eb6…0ec4 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0ec4…0eef Line {l1=0x29, l2=» WRITELN(' ':20,'1 Vareregister');«, l3=0x29}
0x0eef…0f1b Line {l1=0x2a, l2=» WRITELN(' ':20,'2 Kunderegister');«, l3=0x2a}
0x0f1b…0f47 Line {l1=0x2a, l2=» WRITELN(' ':20,'3 Ordreregister');«, l3=0x2a}
0x0f47…0f77 Line {l1=0x2e, l2=» WRITELN(' ':20,'4 Restordreregister');«, l3=0x2e}
0x0f77…0fa8 Line {l1=0x2f, l2=» WRITELN(' ':20,'5 Leverandørregister');«, l3=0x2f}
0x0fa8…0fd4 Line {l1=0x2a, l2=» WRITELN(' ':20,'6 Landeregister');«, l3=0x2a}
0x0fd4…1001 Line {l1=0x2b, l2=» WRITELN(' ':20,'7 Systemregister');«, l3=0x2b}
0x1001…102d Line {l1=0x2a, l2=» WRITELN(' ':20,'8 Tekstregister');«, l3=0x2a}
0x102d…1064 Line {l1=0x35, l2=» WRITELN(' ':20,'9 Betalingsadresseregister');«, l3=0x35}
0x1064…1099 Line {l1=0x33, l2=» WRITELN(' ':20,'10 Toldpositionsregister');«, l3=0x33}
0x1099…10ab Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x10ab…10dd Line {l1=0x30, l2=» WRITELN(' ':20,'Kontospørgeprogrammer');«, l3=0x30}
0x10dd…110b Line {l1=0x2c, l2=» WRITELN(' ':20,'11 Saldostatistik');«, l3=0x2c}
0x110b…1135 Line {l1=0x28, l2=» WRITELN(' ':20,'12 Kontoudtog');«, l3=0x28}
0x1135…1161 Line {l1=0x2a, l2=» GOTOXY(1,20);WRITELN('Vælg 1-12');«, l3=0x2a}
0x1161…1171 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1171…119a Line {l1=0x27, l2=» GOTOXY(11,20);READLN;READ(I)«, l3=0x27}
0x119a…11cd Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (I>-1) AND (I<13);«, l3=0x31}
0x11cd…11e0 Line {l1=0x11, l2=» CASE I OF«, l3=0x11}
0x11e0…11fe Line {l1=0x1c, l2=» 1: F:='VAREVEDL:P1';«, l3=0x1c}
0x11fe…121c Line {l1=0x1c, l2=» 2: F:='KUNDVEDL:P1';«, l3=0x1c}
0x121c…123a Line {l1=0x1c, l2=» 3: F:='ORDREVED:P1';«, l3=0x1c}
0x123a…1258 Line {l1=0x1c, l2=» 4: F:='RESTVEDL:P1';«, l3=0x1c}
0x1258…1275 Line {l1=0x1b, l2=» 5: F:='LEVVEDL:P1';«, l3=0x1b}
0x1275…1293 Line {l1=0x1c, l2=» 6: F:='LANDVEDL:P1';«, l3=0x1c}
0x1293…12b0 Line {l1=0x1b, l2=» 7: F:='SYSVEDL:P1';«, l3=0x1b}
0x12b0…12e2 Line {l1=0x30, l2=» 8: BEGIN F:='TEKSTVED:P1'; SKIFT:=1 END;«, l3=0x30}
0x12e2…12ff Line {l1=0x1b, l2=» 9: F:='BTAVEDL:P1';«, l3=0x1b}
0x12ff…131d Line {l1=0x1c, l2=» 10:F:='TOLDVEDL:P1';«, l3=0x1c}
0x131d…133c Line {l1=0x1d, l2=» 11: F:='SALDSTAT:P1';«, l3=0x1d}
0x133c…135a Line {l1=0x1c, l2=» 12: F:='KONTUDT:P1';«, l3=0x1c}
0x135a…1367 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1367…1373 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1373…1384 Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x1384…138b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x138b…13aa Line {l1=0x1d, l2=» WRITELN(' ':20,'0 Stop');«, l3=0x1d}
0x13aa…13b8 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x13b8…13e3 Line {l1=0x29, l2=» WRITELN(' ':20,'1 Ordreindtastning');«, l3=0x29}
0x13e3…1413 Line {l1=0x2e, l2=» WRITELN(' ':20,'2 Pakkelisteudskrivning');«, l3=0x2e}
0x1413…1439 Line {l1=0x24, l2=» WRITELN(' ':20,'3 Fakturering');«, l3=0x24}
0x1439…1447 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x1447…146f Line {l1=0x26, l2=» WRITELN(' ':20,'4 Indbetalinger');«, l3=0x26}
0x146f…1496 Line {l1=0x25, l2=» WRITELN(' ':20,'5 Kreditnotaer');«, l3=0x25}
0x1496…14a4 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x14a4…14d2 Line {l1=0x2c, l2=» WRITELN(' ':20,'6 Periodeafslutninger');«, l3=0x2c}
0x14d2…14e0 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x14e0…1527 Line {l1=0x45, l2=» WRITELN(' ':20,'7 Spørgeprogrammer og kartoteksvedligeholdelse');«, l3=0x45}
0x1527…1535 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x1535…155f Line {l1=0x28, l2=» WRITELN(' ':20,'8 Listeprogrammer');«, l3=0x28}
0x155f…156d Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x156d…158e Line {l1=0x1f, l2=» WRITELN(' ':20,'9 Indkøb');«, l3=0x1f}
0x158e…15b6 Line {l1=0x26, l2=» GOTOXY(1,20);WRITELN('Vælg 0-9 ');«, l3=0x26}
0x15b6…15bf Line {l1=0x07, l2=» UR;«, l3=0x07}
0x15bf…15cb Line {l1=0x0a, l2=» I:=SV;«, l3=0x0a}
0x15cb…15dd Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x15dd…15ec Line {l1=0x0d, l2=» CASE I OF«, l3=0x0d}
0x15ec…1606 Line {l1=0x18, l2=» 1: F:='INDORDRE:P1';«, l3=0x18}
0x1606…1620 Line {l1=0x18, l2=» 2: F:='PAKLISTE:P1';«, l3=0x18}
0x1620…1639 Line {l1=0x17, l2=» 3: F:='FAKTURA:P1';«, l3=0x17}
0x1639…1653 Line {l1=0x18, l2=» 4: F:='KASSERAP:P1';«, l3=0x18}
0x1653…166d Line {l1=0x18, l2=» 5: F:='KREDNOTA:P1';«, l3=0x18}
0x166d…167b Line {l1=0x0c, l2=» 6: BEGIN«, l3=0x0c}
0x167b…16ae Line {l1=0x31, l2=» WRITELN(' ':20,'1 Faktureringsjournal');«, l3=0x31}
0x16ae…16df Line {l1=0x2f, l2=» WRITELN(' ':20,'2 Bogholderijournal');«, l3=0x2f}
0x16df…170f Line {l1=0x2e, l2=» WRITELN(' ':20,'3 Månedsafslutning');«, l3=0x2e}
0x170f…173d Line {l1=0x2c, l2=» WRITELN(' ':20,'4 Renteberegning');«, l3=0x2c}
0x173d…176c Line {l1=0x2d, l2=» WRITELN(' ':20,'5 Rente-postering');«, l3=0x2d}
0x176c…1799 Line {l1=0x2b, l2=» WRITELN(' ':20,'6 Årsafslutning');«, l3=0x2b}
0x1799…17c5 Line {l1=0x2a, l2=» GOTOXY(1,20);WRITELN('Vælg 1-6');«, l3=0x2a}
0x17c5…17d6 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x17d6…17ff Line {l1=0x27, l2=» GOTOXY(11,20);READLN;READ(I)«, l3=0x27}
0x17ff…1832 Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (I>-1) AND (I<7);«, l3=0x31}
0x1832…1852 Line {l1=0x1e, l2=» IF I>2 THEN SKIFT:=1;«, l3=0x1e}
0x1852…1866 Line {l1=0x12, l2=» CASE I OF«, l3=0x12}
0x1866…1884 Line {l1=0x1c, l2=» 1: F:='TESTJOU:P1';«, l3=0x1c}
0x1884…18a1 Line {l1=0x1b, l2=» 2: F:='BOGJOU:P1';«, l3=0x1b}
0x18a1…18bf Line {l1=0x1c, l2=» 3: F:='MAFSLUT:P1';«, l3=0x1c}
0x18bf…18de Line {l1=0x1d, l2=» 4: F:='RENTEBER:P1';«, l3=0x1d}
0x18de…18fd Line {l1=0x1d, l2=» 5: F:='RENTEBEK:P1';«, l3=0x1d}
0x18fd…1912 Line {l1=0x13, l2=» 6: F:=' ';«, l3=0x13}
0x1912…1920 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x1920…192d Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x192d…193c Line {l1=0x0d, l2=» 7: SPØRG;«, l3=0x0d}
0x193c…1949 Line {l1=0x0b, l2=» 8:LIST;«, l3=0x0b}
0x1949…1956 Line {l1=0x0b, l2=» 9:BEGIN«, l3=0x0b}
0x1956…1983 Line {l1=0x2b, l2=» WRITELN(' ':20,'1 Varebestilling');«, l3=0x2b}
0x1983…19af Line {l1=0x2a, l2=» WRITELN(' ':20,'2 Varehjemkomst');«, l3=0x2a}
0x19af…19da Line {l1=0x29, l2=» GOTOXY(1,20);WRITELN('Vælg 1-2');«, l3=0x29}
0x19da…19ea Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x19ea…1a13 Line {l1=0x27, l2=» GOTOXY(11,20);READLN;READ(I)«, l3=0x27}
0x1a13…1a45 Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (I>-1) AND (I<3);«, l3=0x30}
0x1a45…1a58 Line {l1=0x11, l2=» CASE I OF«, l3=0x11}
0x1a58…1a76 Line {l1=0x1c, l2=» 1: F:='BESTVARE:P1';«, l3=0x1c}
0x1a76…1a94 Line {l1=0x1c, l2=» 2: F:='HJEMVARE:P1';«, l3=0x1c}
0x1a94…1aa1 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1aa1…1aad Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1aad…1ac0 Line {l1=0x11, l2=» 0: F:='STOP';«, l3=0x11}
0x1ac0…1aca Line {l1=0x08, l2=» END;«, l3=0x08}
0x1aca…1ad0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ad0…1ad7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ad7…1af5 Line {l1=0x1c, l2=» ALARM:=CLOCK^.DATE(9)='1';«, l3=0x1c}
0x1af5…1b35 Line {l1=0x3e, l2=» IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);«, l3=0x3e}
0x1b35…1b56 Line {l1=0x1f, l2=» HOWL:=FALSE;STOPWATCH:=FALSE;«, l3=0x1f}
0x1b56…1b71 Line {l1=0x19, l2=» FIL:='PROCSTAT:P2:0:I';«, l3=0x19}
0x1b71…1b7c Line {l1=0x09, l2=» (*$C-*)«, l3=0x09}
0x1b7c…1b86 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1b86…1b9c Line {l1=0x14, l2=» REWRITE(NRPF,FIL);«, l3=0x14}
0x1b9c…1bad Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x1bad…1bc2 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x1bc2…1bcd Line {l1=0x09, l2=» (*$C+*)«, l3=0x09}
0x1bcd…1bdb Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x1bdb…1bfe Line {l1=0x21, l2=» IF NRPF^.NP=0 THEN NRPF^.NP:=1;«, l3=0x21}
0x1bfe…1c15 Line {l1=0x15, l2=» IF NRPF^.NP=-1 THEN«, l3=0x15}
0x1c15…1c1e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1c1e…1c34 Line {l1=0x14, l2=» F:='OPSTART:P1';«, l3=0x14}
0x1c34…1c45 Line {l1=0x0f, l2=» CLOSE(NRPF)«, l3=0x0f}
0x1c45…1c4c Line {l1=0x05, l2=» END«, l3=0x05}
0x1c4c…1c54 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1c54…1c5d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1c5d…1c78 Line {l1=0x19, l2=» NRPF^.NP:=NRPF^.NP-1;«, l3=0x19}
0x1c78…1c8b Line {l1=0x11, l2=» SEEK(NRPF,1);«, l3=0x11}
0x1c8b…1c9b Line {l1=0x0e, l2=» PUT(NRPF);«, l3=0x0e}
0x1c9b…1cad Line {l1=0x10, l2=» CLOSE(NRPF);«, l3=0x10}
0x1cad…1cb9 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1cb9…1cc8 Line {l1=0x0d, l2=» F:=' ';«, l3=0x0d}
0x1cc8…1cd9 Line {l1=0x0f, l2=» SKIFT:=2;«, l3=0x0f}
0x1cd9…1ced Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x1ced…1cfa Line {l1=0x0b, l2=» DOIT;«, l3=0x0b}
0x1cfa…1d11 Line {l1=0x15, l2=» IF F<>' ' THEN«, l3=0x15}
0x1d11…1d1f Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x1d1f…1d30 Line {l1=0x0f, l2=» (*$C-*)«, l3=0x0f}
0x1d30…1d40 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1d40…1d5e Line {l1=0x1c, l2=» REWRITE(NRPF,FIL);«, l3=0x1c}
0x1d5e…1d77 Line {l1=0x17, l2=» SEEK(NRPF,1);«, l3=0x17}
0x1d77…1d92 Line {l1=0x19, l2=» UNTIL IORESULT=0;«, l3=0x19}
0x1d92…1da3 Line {l1=0x0f, l2=» (*$C+*)«, l3=0x0f}
0x1da3…1db7 Line {l1=0x12, l2=» GET(NRPF);«, l3=0x12}
0x1db7…1dd1 Line {l1=0x18, l2=» CASE NRPF^.NP OF«, l3=0x18}
0x1dd1…1dec Line {l1=0x19, l2=» 0:IF SKIFT=1 THEN«, l3=0x19}
0x1dec…1dfd Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1dfd…1e11 Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x1e11…1e2c Line {l1=0x19, l2=» GOTOXY(1,20);«, l3=0x19}
0x1e2c…1e69 Line {l1=0x3b, l2=» WRITELN('Sæt plade 3 i drev 1 og tryk RETURN');«, l3=0x3b}
0x1e69…1e80 Line {l1=0x15, l2=» SKIFT:=0;«, l3=0x15}
0x1e80…1e95 Line {l1=0x13, l2=» READLN;«, l3=0x13}
0x1e95…1eaf Line {l1=0x18, l2=» NRPF^.NP:=3;«, l3=0x18}
0x1eaf…1eb8 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x1eb8…1ede Line {l1=0x24, l2=» REWRITE(CF,'C3:P1:0:J');«, l3=0x24}
0x1ede…1ef6 Line {l1=0x16, l2=» SEEK(CF,1)«, l3=0x16}
0x1ef6…1eff Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x1eff…1f1e Line {l1=0x1d, l2=» UNTIL IORESULT=0;«, l3=0x1d}
0x1f1e…1f35 Line {l1=0x15, l2=» CLOSE(CF)«, l3=0x15}
0x1f35…1f44 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1f44…1f54 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x1f54…1f65 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1f65…1fa2 Line {l1=0x3b, l2=» IF F='STOP' THEN NRPF^.NP:=-1 ELSE NRPF^.NP:=1;«, l3=0x3b}
0x1fa2…1fb8 Line {l1=0x14, l2=» SKIFT:=0«, l3=0x14}
0x1fb8…1fc8 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1fc8…1ff3 Line {l1=0x29, l2=» 1:IF (SKIFT=1) OR (F='STOP') THEN«, l3=0x29}
0x1ff3…2004 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2004…201e Line {l1=0x18, l2=» CLOSE(NRPF);«, l3=0x18}
0x201e…2039 Line {l1=0x19, l2=» GOTOXY(1,20);«, l3=0x19}
0x2039…2083 Line {l1=0x48, l2=» WRITELN('Vil du vente til anden bruger er færdig ? (J/N) ');«, l3=0x48}
0x2083…2097 Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x2097…20c4 Line {l1=0x2b, l2=» GOTOXY(50,20);READLN;READ(CH)«, l3=0x2b}
0x20c4…2105 Line {l1=0x3f, l2=» UNTIL (CH='J') OR (CH='N') OR (CH='n') OR (CH='j');«, l3=0x3f}
0x2105…212f Line {l1=0x28, l2=» IF (CH='N') OR (CH='n') THEN«, l3=0x28}
0x212f…2142 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2142…2161 Line {l1=0x1d, l2=» SKIFT:=0;F:=' '«, l3=0x1d}
0x2161…2172 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2172…2184 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2184…2197 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2197…21da Line {l1=0x41, l2=» GOTOXY(1,20);WRITELN('Tryk RETURN når klar');READLN«, l3=0x41}
0x21da…21ec Line {l1=0x10, l2=» END;«, l3=0x10}
0x21ec…21fb Line {l1=0x0d, l2=» END«, l3=0x0d}
0x21fb…220b Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x220b…221c Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x221c…223e Line {l1=0x20, l2=» NRPF^.NP:=2;SKIFT:=0«, l3=0x20}
0x223e…224e Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x224e…225f Line {l1=0x0f, l2=» 3:BEGIN«, l3=0x0f}
0x225f…2279 Line {l1=0x18, l2=» CLOSE(NRPF);«, l3=0x18}
0x2279…2294 Line {l1=0x19, l2=» GOTOXY(1,20);«, l3=0x19}
0x2294…22de Line {l1=0x48, l2=» WRITELN('Vil du vente til anden bruger er færdig ? (J/N) ');«, l3=0x48}
0x22de…22f2 Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x22f2…231f Line {l1=0x2b, l2=» GOTOXY(50,20);READLN;READ(CH)«, l3=0x2b}
0x231f…2360 Line {l1=0x3f, l2=» UNTIL (CH='J') OR (CH='N') OR (CH='n') OR (CH='j');«, l3=0x3f}
0x2360…238a Line {l1=0x28, l2=» IF (CH='N') OR (CH='n') THEN«, l3=0x28}
0x238a…239d Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x239d…23bc Line {l1=0x1d, l2=» SKIFT:=0;F:=' '«, l3=0x1d}
0x23bc…23cd Line {l1=0x0f, l2=» END«, l3=0x0f}
0x23cd…23df Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x23df…23f2 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x23f2…2435 Line {l1=0x41, l2=» GOTOXY(1,20);WRITELN('Tryk RETURN når klar');READLN«, l3=0x41}
0x2435…2447 Line {l1=0x10, l2=» END;«, l3=0x10}
0x2447…2457 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2457…2468 Line {l1=0x0f, l2=» -1:BEGIN«, l3=0x0f}
0x2468…247f Line {l1=0x15, l2=» SKIFT:=0;«, l3=0x15}
0x247f…24aa Line {l1=0x29, l2=» IF F<>'STOP' THEN NRPF^.NP:=1«, l3=0x29}
0x24aa…24b9 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x24b9…24c7 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x24c7…24dd Line {l1=0x14, l2=» UNTIL SKIFT=0;«, l3=0x14}
0x24dd…24f0 Line {l1=0x11, l2=» UNTIL F<>' ';«, l3=0x11}
0x24f0…24f8 Line {l1=0x06, l2=»REPEAT«, l3=0x06}
0x24f8…2501 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x2501…2514 Line {l1=0x11, l2=» SEEK(NRPF,1);«, l3=0x11}
0x2514…2526 Line {l1=0x10, l2=» I:=IORESULT;«, l3=0x10}
0x2526…256f Line {l1=0x47, l2=» IF I<>0 THEN WRITELN('Plade 2 må ikke røres, sæt den nu i drev 2');«, l3=0x47}
0x256f…2578 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x2578…2584 Line {l1=0x0a, l2=»UNTIL I=0;«, l3=0x0a}
0x2584…2594 Line {l1=0x0e, l2=» PUT(NRPF);«, l3=0x0e}
0x2594…25a6 Line {l1=0x10, l2=» CLOSE(NRPF);«, l3=0x10}
0x25a6…25ae Line {l1=0x06, l2=» END;«, l3=0x06}
0x25ae…25c3 Line {l1=0x13, l2=» IF F<>'STOP' THEN«, l3=0x13}
0x25c3…25e0 Line {l1=0x1b, l2=» CHAIN('INTRE *1',F,QUQ)«, l3=0x1b}
0x25e0…25e6 Line {l1=0x04, l2=»END.«, l3=0x04}
0x25e6…2600 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccc┆
0x2600…2620 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x26e0…2700 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆