|
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: 8736 (0x2220)
Types: TextFile
Notes: Mikados_K
Names: »SYSVEDL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »SYSVEDL.K«
PROGRAM SYSVEDL;
TYPE
SYSPOST=RECORD
(*DATO1,DATO2,
UGENR,
MAXEXC,
ORDRENR1-2,
FAKTNR1-2,
KREDNTNR1-2,
BILAGSNR1-2,JOURFILNR,MOMS,
KASSFILNR,KASSJOURFILNR,KASSSID,
FAKJOURNR,POSTJOURNR,LA1-5*)
HELTAL: ARRAY (1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
VAR I,J:INTEGER;
R:REAL;
FILNAVN:STRING(20);
TEKST:STRING(13);
F:SYSFILE;
QUQ:^INTEGER;
PROCEDURE PRSYSOPL;
BEGIN
WITH F^ DO
BEGIN
CLEARSCREEN;
GOTOXY(1,1);
WRITELN('1 DATO',' ':26,HELTAL(1)*10000.0+HELTAL(2):10:-2);
WRITELN('2 UGENR',' ':25,HELTAL(3):10);
WRITELN('3 MAXEXCESS-KUNDEREG',' ':12,HELTAL(4):10);
WRITELN('4 ORDRENR',' ':23,HELTAL(5)*10000.0+HELTAL(6):10:-2);
WRITELN('5 FAKTURANR',' ':21,HELTAL(7)*10000.0+HELTAL(8):10:-2);
WRITELN('6 KREDITNOTANR',' ':18,HELTAL(9)*10000.0+HELTAL(10):10:-2);
WRITELN('7 BILAGSNR',' ':22,HELTAL(11)*10000.0+HELTAL(12):10:-2);
WRITELN('8 JOURNALFILNR',' ':18,HELTAL(13):10);
WRITELN('9 MOMS',' ':26,HELTAL(14)/100:10:2);
WRITELN('10 KASSRAPFILNR',' ':18,HELTAL(15):10);
WRITELN('11 KASJOURFILNR',' ':18,HELTAL(16):10);
WRITELN('12 KASSRAPSIDNR',' ':18,HELTAL(17):10);
WRITELN('13 FAKJOURSIDNR',' ':18,HELTAL(18):10);
WRITELN('14 KASJOURSIDNR',' ':18,HELTAL(19):10);
WRITELN('15 KASSE',' ':25,KGB(1)/100:10:2);
WRITELN('16 BANK',' ':26,KGB(2)/100:10:2);
WRITELN('17 GIRO',' ':26,KGB(3)/100:10:2);
WRITELN('18 RABAT',' ':25,KGB(4)/100:10:2);
WRITELN('19 RENTE',' ':25,KGB(5)/100:10:2);
WRITELN('20 BETALINGSDATO',' ':17,BETADAT);
WRITE('21 KIKKEKODE',' ':21);
IF FILNAVN='KLAUS-KLUDDER' THEN WRITELN(KODE(1)) ELSE WRITELN;
WRITE('22 PILLEKODE',' ':21);
IF FILNAVN='KLAUS-KLUDDER' THEN WRITELN(KODE(2)) ELSE WRITELN
END
END;
PROCEDURE ININT(I,J,INDEX,MIN,MAX:INTEGER);
VAR K:INTEGER;
BEGIN
REPEAT
GOTOXY(I,J);READLN;READ(K)
UNTIL (IORESULT=0) AND (K>=MIN) AND (K<=MAX);
F^.HELTAL(INDEX):=K
END;
PROCEDURE INREAL(I,J,INDEX1,INDEX2:INTEGER;MIN,MAX:REAL);
VAR R:REAL;
BEGIN
REPEAT
GOTOXY(I,J);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=MIN) AND (R<=MAX);
F^.HELTAL(INDEX1):=TRUNC(R/10000.0);
F^.HELTAL(INDEX2):=TRUNC(R-F^.HELTAL(INDEX1)*10000.0)
END;
PROCEDURE SYSOPL(O:INTEGER);
BEGIN
WITH F^ DO
BEGIN
CASE O OF
1: BEGIN
GOTOXY(1,1);
WRITELN('1 DATO');
INREAL(30,1,1,2,800000.0,990000.0)
END;
2: BEGIN
GOTOXY(1,2);
WRITELN('2 UGENR');
ININT(30,2,3,1,53)
END;
3: BEGIN
GOTOXY(1,3);
WRITELN('3 MAXEXCESS-KUNDEREG');
ININT(30,3,4,0,1000)
END;
4: BEGIN
GOTOXY(1,4);
WRITELN('4 ORDRENUMMER');
INREAL(30,4,5,6,0.0,10000000.0)
END;
5: BEGIN
GOTOXY(1,5);
WRITELN('5 FAKTURANR');
INREAL(30,5,7,8,0.0,10000000.0)
END;
6: BEGIN
GOTOXY(1,6);
WRITELN('6 KREDITNOTANR');
INREAL(30,6,9,10,0.0,10000000.0)
END;
7: BEGIN
GOTOXY(1,7);
WRITELN('7 BILAGSNR');
INREAL(30,7,11,12,0.0,10000000.0)
END;
8: BEGIN
GOTOXY(1,8);
WRITELN('8 JOURNALFILNR');
ININT(30,8,13,1,1000)
END;
20: BEGIN
GOTOXY(1,20);
WRITELN('20 BETALINGSDATO');
REPEAT
GOTOXY(30,20);
READLN;READ(TEKST)
UNTIL IORESULT=0;
FOR I:=1 TO 13 DO BETADAT(I):=' ';
FOR I:=1 TO LENGTH(TEKST) DO BETADAT(I):=TEKST(I)
END;
9: BEGIN
GOTOXY(1,9);
WRITELN('9 MOMS');
REPEAT
GOTOXY(30,9);
READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=0) AND (R<=100);
HELTAL(14):=TRUNC(R*100)
END;
21: BEGIN
GOTOXY(1,21);
WRITELN('21 KIKKEKODE');
REPEAT
GOTOXY(30,21);
READLN;READ(TEKST)
UNTIL (IORESULT=0) AND (LENGTH(TEKST)<11);
FOR I:=1 TO 10 DO KODE(1,I):=' ';
FOR I:=1 TO LENGTH(TEKST) DO KODE(1,I):=TEKST(I)
END;
22: BEGIN
GOTOXY(1,22);
WRITELN('22 PILLEKODE');
REPEAT
GOTOXY(30,22);
READLN;READ(TEKST)
UNTIL (IORESULT=0) AND (LENGTH(TEKST)<11);
FOR I:=1 TO 10 DO KODE(2,I):=' ';
FOR I:=1 TO LENGTH(TEKST) DO KODE(2,I):=TEKST(I)
END;
10: BEGIN
GOTOXY(1,10);
WRITELN('10 KASSRAPFILNR');
ININT(30,10,15,1,1000)
END;
11: BEGIN
GOTOXY(1,11);
WRITELN('11 KASJOURFILNR');
ININT(30,11,16,1,1000)
END;
12: BEGIN
GOTOXY(1,12);
WRITELN('12 KASSRAPSIDNR');
ININT(30,12,17,1,10000)
END;
13: BEGIN
GOTOXY(1,13);
WRITELN('13 FAKJOURSIDNR');
ININT(30,13,18,1,10000)
END;
14: BEGIN
GOTOXY(1,14);
WRITELN('14 KASJOURSIDNR');
ININT(30,14,19,1,10000)
END;
15: BEGIN
GOTOXY(1,15);
WRITELN('15 KASSE');
REPEAT
GOTOXY(30,15);READLN;READ(KGB(1))
UNTIL IORESULT=0;
KGB(1):=100*KGB(1)
END;
16: BEGIN
GOTOXY(1,16);
WRITELN('16 BANK');
REPEAT
GOTOXY(30,16);READLN;READ(KGB(2))
UNTIL IORESULT=0;
KGB(2):=100*KGB(2)
END;
17: BEGIN
GOTOXY(1,17);
WRITELN('17 GIRO');
REPEAT
GOTOXY(30,17);READLN;READ(KGB(3))
UNTIL IORESULT=0;
KGB(3):=100*KGB(3)
END;
18: BEGIN
GOTOXY(1,18);
WRITELN('18 RABAT');
REPEAT
GOTOXY(30,18);READLN;READ(KGB(4))
UNTIL IORESULT=0;
KGB(4):=100*KGB(4)
END;
19: BEGIN
GOTOXY(1,19);
WRITELN('19 RENTE');
REPEAT
GOTOXY(30,19);READLN;READ(KGB(5))
UNTIL IORESULT=0;
KGB(5):=100*KGB(5)
END;
END
END;
END;
BEGIN
FILNAVN:='SYSREG:P2:1:I';
REWRITE(F,FILNAVN);
SEEK(F,1);
GET(F);
CLEARSCREEN;
REPEAT
GOTOXY(1,1);
WRITELN('OPRETTE, KIKKE ELL. ÆNDRE (1/2/3)');
GOTOXY(40,1);
READLN;READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<4);
CASE I OF
1:BEGIN
CLEARSCREEN;
FOR J:=1 TO 22 DO SYSOPL(J);
SEEK(F,1);
PUT(F)
END;
2:BEGIN
REPEAT
GOTOXY(1,2);
WRITELN('ADGANGSKODE');
GOTOXY(20,2);READLN;READ(FILNAVN)
UNTIL IORESULT=0;
PRSYSOPL
END;
3:BEGIN
REPEAT
GOTOXY(1,2);
WRITELN('ADGANGSKODE');
GOTOXY(20,2);READLN;READ(FILNAVN)
UNTIL IORESULT=0;
PRSYSOPL;
REPEAT
REPEAT
GOTOXY(1,23);
WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT');
GOTOXY(40,23);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>=0) AND (I<23);
CASE I OF
1,2,20: SYSOPL(I);
9,21,22: IF FILNAVN='KLAUS-KLUDDER' THEN SYSOPL(I);
3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19:BEGIN
GOTOXY(1,23);
WRITELN('ÆNDRING IKKE TILLADT, TRYK RETURN NÅR FORSTÅET');
GOTOXY(40,23);
READLN;READ(J);
IF J=4711 THEN SYSOPL(I)
END;
END;
UNTIL I=0;
SEEK(F,1);
PUT(F)
END
END;
CLOSE(F);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0012 Line {l1=0x10, l2=»PROGRAM SYSVEDL;«, l3=0x10}
0x0012…0018 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0018…0028 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0028…0038 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x0038…0042 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x0042…004d Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x004d…005c Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x005c…006a Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x006a…007a Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x007a…0099 Line {l1=0x1d, l2=» BILAGSNR1-2,JOURFILNR,MOMS,«, l3=0x1d}
0x0099…00bd Line {l1=0x22, l2=» KASSFILNR,KASSJOURFILNR,KASSSID,«, l3=0x22}
0x00bd…00dd Line {l1=0x1e, l2=» FAKJOURNR,POSTJOURNR,LA1-5*)«, l3=0x1e}
0x00dd…0123 Line {l1=0x44, l2=» HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x44}
0x0123…0140 Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x0140…0169 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x0169…01b0 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x01b0…01b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01b6…01d0 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x01d0…01e2 Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x01e2…01f2 Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x01f2…020e Line {l1=0x1a, l2=» FILNAVN:STRING(20);«, l3=0x1a}
0x020e…0228 Line {l1=0x18, l2=» TEKST:STRING(13);«, l3=0x18}
0x0228…023b Line {l1=0x11, l2=» F:SYSFILE;«, l3=0x11}
0x023b…0251 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0251…0266 Line {l1=0x13, l2=»PROCEDURE PRSYSOPL;«, l3=0x13}
0x0266…026d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x026d…0279 Line {l1=0x0a, l2=»WITH F^ DO«, l3=0x0a}
0x0279…0280 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0280…0290 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0290…02a0 Line {l1=0x0e, l2=» GOTOXY(1,1);«, l3=0x0e}
0x02a0…02e0 Line {l1=0x3e, l2=» WRITELN('1 DATO',' ':26,HELTAL(1)*10000.0+HELTAL(2):10:-2);«, l3=0x3e}
0x02e0…030c Line {l1=0x2a, l2=» WRITELN('2 UGENR',' ':25,HELTAL(3):10);«, l3=0x2a}
0x030c…0345 Line {l1=0x37, l2=» WRITELN('3 MAXEXCESS-KUNDEREG',' ':12,HELTAL(4):10);«, l3=0x37}
0x0345…0388 Line {l1=0x41, l2=» WRITELN('4 ORDRENR',' ':23,HELTAL(5)*10000.0+HELTAL(6):10:-2);«, l3=0x41}
0x0388…03cd Line {l1=0x43, l2=» WRITELN('5 FAKTURANR',' ':21,HELTAL(7)*10000.0+HELTAL(8):10:-2);«, l3=0x43}
0x03cd…0416 Line {l1=0x47, l2=» WRITELN('6 KREDITNOTANR',' ':18,HELTAL(9)*10000.0+HELTAL(10):10:-2);«, l3=0x47}
0x0416…045c Line {l1=0x44, l2=» WRITELN('7 BILAGSNR',' ':22,HELTAL(11)*10000.0+HELTAL(12):10:-2);«, l3=0x44}
0x045c…0490 Line {l1=0x32, l2=» WRITELN('8 JOURNALFILNR',' ':18,HELTAL(13):10);«, l3=0x32}
0x0490…04c2 Line {l1=0x30, l2=» WRITELN('9 MOMS',' ':26,HELTAL(14)/100:10:2);«, l3=0x30}
0x04c2…04f6 Line {l1=0x32, l2=» WRITELN('10 KASSRAPFILNR',' ':18,HELTAL(15):10);«, l3=0x32}
0x04f6…052a Line {l1=0x32, l2=» WRITELN('11 KASJOURFILNR',' ':18,HELTAL(16):10);«, l3=0x32}
0x052a…055e Line {l1=0x32, l2=» WRITELN('12 KASSRAPSIDNR',' ':18,HELTAL(17):10);«, l3=0x32}
0x055e…0592 Line {l1=0x32, l2=» WRITELN('13 FAKJOURSIDNR',' ':18,HELTAL(18):10);«, l3=0x32}
0x0592…05c6 Line {l1=0x32, l2=» WRITELN('14 KASJOURSIDNR',' ':18,HELTAL(19):10);«, l3=0x32}
0x05c6…05f5 Line {l1=0x2d, l2=» WRITELN('15 KASSE',' ':25,KGB(1)/100:10:2);«, l3=0x2d}
0x05f5…0623 Line {l1=0x2c, l2=» WRITELN('16 BANK',' ':26,KGB(2)/100:10:2);«, l3=0x2c}
0x0623…0651 Line {l1=0x2c, l2=» WRITELN('17 GIRO',' ':26,KGB(3)/100:10:2);«, l3=0x2c}
0x0651…0680 Line {l1=0x2d, l2=» WRITELN('18 RABAT',' ':25,KGB(4)/100:10:2);«, l3=0x2d}
0x0680…06af Line {l1=0x2d, l2=» WRITELN('19 RENTE',' ':25,KGB(5)/100:10:2);«, l3=0x2d}
0x06af…06de Line {l1=0x2d, l2=» WRITELN('20 BETALINGSDATO',' ':17,BETADAT);«, l3=0x2d}
0x06de…06ff Line {l1=0x1f, l2=» WRITE('21 KIKKEKODE',' ':21);«, l3=0x1f}
0x06ff…0741 Line {l1=0x40, l2=» IF FILNAVN='KLAUS-KLUDDER' THEN WRITELN(KODE(1)) ELSE WRITELN;«, l3=0x40}
0x0741…0762 Line {l1=0x1f, l2=» WRITE('22 PILLEKODE',' ':21);«, l3=0x1f}
0x0762…07a3 Line {l1=0x3f, l2=» IF FILNAVN='KLAUS-KLUDDER' THEN WRITELN(KODE(2)) ELSE WRITELN«, l3=0x3f}
0x07a3…07a8 Line {l1=0x03, l2=»END«, l3=0x03}
0x07a8…07ae Line {l1=0x04, l2=»END;«, l3=0x04}
0x07ae…07db Line {l1=0x2b, l2=»PROCEDURE ININT(I,J,INDEX,MIN,MAX:INTEGER);«, l3=0x2b}
0x07db…07eb Line {l1=0x0e, l2=»VAR K:INTEGER;«, l3=0x0e}
0x07eb…07f2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07f2…07fc Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x07fc…081f Line {l1=0x21, l2=» GOTOXY(I,J);READLN;READ(K)«, l3=0x21}
0x081f…0850 Line {l1=0x2f, l2=» UNTIL (IORESULT=0) AND (K>=MIN) AND (K<=MAX);«, l3=0x2f}
0x0850…0867 Line {l1=0x15, l2=» F^.HELTAL(INDEX):=K«, l3=0x15}
0x0867…086d Line {l1=0x04, l2=»END;«, l3=0x04}
0x086d…08a8 Line {l1=0x39, l2=»PROCEDURE INREAL(I,J,INDEX1,INDEX2:INTEGER;MIN,MAX:REAL);«, l3=0x39}
0x08a8…08b5 Line {l1=0x0b, l2=»VAR R:REAL;«, l3=0x0b}
0x08b5…08bc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08bc…08c6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x08c6…08e9 Line {l1=0x21, l2=» GOTOXY(I,J);READLN;READ(R)«, l3=0x21}
0x08e9…091a Line {l1=0x2f, l2=» UNTIL (IORESULT=0) AND (R>=MIN) AND (R<=MAX);«, l3=0x2f}
0x091a…0942 Line {l1=0x26, l2=» F^.HELTAL(INDEX1):=TRUNC(R/10000.0);«, l3=0x26}
0x0942…097b Line {l1=0x37, l2=» F^.HELTAL(INDEX2):=TRUNC(R-F^.HELTAL(INDEX1)*10000.0)«, l3=0x37}
0x097b…0981 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0981…099f Line {l1=0x1c, l2=»PROCEDURE SYSOPL(O:INTEGER);«, l3=0x1c}
0x099f…09a6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09a6…09b2 Line {l1=0x0a, l2=»WITH F^ DO«, l3=0x0a}
0x09b2…09b9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09b9…09c6 Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x09c6…09d0 Line {l1=0x08, l2=»1: BEGIN«, l3=0x08}
0x09d0…09e5 Line {l1=0x13, l2=» GOTOXY(1,1);«, l3=0x13}
0x09e5…0a01 Line {l1=0x1a, l2=» WRITELN('1 DATO');«, l3=0x1a}
0x0a01…0a2c Line {l1=0x29, l2=» INREAL(30,1,1,2,800000.0,990000.0)«, l3=0x29}
0x0a2c…0a35 Line {l1=0x07, l2=» END;«, l3=0x07}
0x0a35…0a3f Line {l1=0x08, l2=»2: BEGIN«, l3=0x08}
0x0a3f…0a54 Line {l1=0x13, l2=» GOTOXY(1,2);«, l3=0x13}
0x0a54…0a71 Line {l1=0x1b, l2=» WRITELN('2 UGENR');«, l3=0x1b}
0x0a71…0a8c Line {l1=0x19, l2=» ININT(30,2,3,1,53)«, l3=0x19}
0x0a8c…0a95 Line {l1=0x07, l2=» END;«, l3=0x07}
0x0a95…0a9f Line {l1=0x08, l2=»3: BEGIN«, l3=0x08}
0x0a9f…0ab4 Line {l1=0x13, l2=» GOTOXY(1,3);«, l3=0x13}
0x0ab4…0ade Line {l1=0x28, l2=» WRITELN('3 MAXEXCESS-KUNDEREG');«, l3=0x28}
0x0ade…0afb Line {l1=0x1b, l2=» ININT(30,3,4,0,1000)«, l3=0x1b}
0x0afb…0b04 Line {l1=0x07, l2=» END;«, l3=0x07}
0x0b04…0b0e Line {l1=0x08, l2=»4: BEGIN«, l3=0x08}
0x0b0e…0b23 Line {l1=0x13, l2=» GOTOXY(1,4);«, l3=0x13}
0x0b23…0b46 Line {l1=0x21, l2=» WRITELN('4 ORDRENUMMER');«, l3=0x21}
0x0b46…0b6e Line {l1=0x26, l2=» INREAL(30,4,5,6,0.0,10000000.0)«, l3=0x26}
0x0b6e…0b77 Line {l1=0x07, l2=» END;«, l3=0x07}
0x0b77…0b81 Line {l1=0x08, l2=»5: BEGIN«, l3=0x08}
0x0b81…0b96 Line {l1=0x13, l2=» GOTOXY(1,5);«, l3=0x13}
0x0b96…0bb7 Line {l1=0x1f, l2=» WRITELN('5 FAKTURANR');«, l3=0x1f}
0x0bb7…0bdf Line {l1=0x26, l2=» INREAL(30,5,7,8,0.0,10000000.0)«, l3=0x26}
0x0bdf…0be8 Line {l1=0x07, l2=» END;«, l3=0x07}
0x0be8…0bf2 Line {l1=0x08, l2=»6: BEGIN«, l3=0x08}
0x0bf2…0c07 Line {l1=0x13, l2=» GOTOXY(1,6);«, l3=0x13}
0x0c07…0c2b Line {l1=0x22, l2=» WRITELN('6 KREDITNOTANR');«, l3=0x22}
0x0c2b…0c54 Line {l1=0x27, l2=» INREAL(30,6,9,10,0.0,10000000.0)«, l3=0x27}
0x0c54…0c5d Line {l1=0x07, l2=» END;«, l3=0x07}
0x0c5d…0c67 Line {l1=0x08, l2=»7: BEGIN«, l3=0x08}
0x0c67…0c7c Line {l1=0x13, l2=» GOTOXY(1,7);«, l3=0x13}
0x0c7c…0c9c Line {l1=0x1e, l2=» WRITELN('7 BILAGSNR');«, l3=0x1e}
0x0c9c…0cc6 Line {l1=0x28, l2=» INREAL(30,7,11,12,0.0,10000000.0)«, l3=0x28}
0x0cc6…0ccf Line {l1=0x07, l2=» END;«, l3=0x07}
0x0ccf…0cd9 Line {l1=0x08, l2=»8: BEGIN«, l3=0x08}
0x0cd9…0cee Line {l1=0x13, l2=» GOTOXY(1,8);«, l3=0x13}
0x0cee…0d12 Line {l1=0x22, l2=» WRITELN('8 JOURNALFILNR');«, l3=0x22}
0x0d12…0d30 Line {l1=0x1c, l2=» ININT(30,8,13,1,1000)«, l3=0x1c}
0x0d30…0d39 Line {l1=0x07, l2=» END;«, l3=0x07}
0x0d39…0d44 Line {l1=0x09, l2=»20: BEGIN«, l3=0x09}
0x0d44…0d5a Line {l1=0x14, l2=» GOTOXY(1,20);«, l3=0x14}
0x0d5a…0d7f Line {l1=0x23, l2=» WRITELN('20 BETALINGSDATO');«, l3=0x23}
0x0d7f…0d8e Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x0d8e…0da7 Line {l1=0x17, l2=» GOTOXY(30,20);«, l3=0x17}
0x0da7…0dc4 Line {l1=0x1b, l2=» READLN;READ(TEKST)«, l3=0x1b}
0x0dc4…0dde Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x0dde…0e09 Line {l1=0x29, l2=» FOR I:=1 TO 13 DO BETADAT(I):=' ';«, l3=0x29}
0x0e09…0e43 Line {l1=0x38, l2=» FOR I:=1 TO LENGTH(TEKST) DO BETADAT(I):=TEKST(I)«, l3=0x38}
0x0e43…0e4c Line {l1=0x07, l2=» END;«, l3=0x07}
0x0e4c…0e56 Line {l1=0x08, l2=»9: BEGIN«, l3=0x08}
0x0e56…0e6b Line {l1=0x13, l2=» GOTOXY(1,9);«, l3=0x13}
0x0e6b…0e87 Line {l1=0x1a, l2=» WRITELN('9 MOMS');«, l3=0x1a}
0x0e87…0e96 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x0e96…0eae Line {l1=0x16, l2=» GOTOXY(30,9);«, l3=0x16}
0x0eae…0ec7 Line {l1=0x17, l2=» READLN;READ(R)«, l3=0x17}
0x0ec7…0efb Line {l1=0x32, l2=» UNTIL (IORESULT=0) AND (R>=0) AND (R<=100);«, l3=0x32}
0x0efb…0f1c Line {l1=0x1f, l2=» HELTAL(14):=TRUNC(R*100)«, l3=0x1f}
0x0f1c…0f26 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0f26…0f31 Line {l1=0x09, l2=»21: BEGIN«, l3=0x09}
0x0f31…0f47 Line {l1=0x14, l2=» GOTOXY(1,21);«, l3=0x14}
0x0f47…0f68 Line {l1=0x1f, l2=» WRITELN('21 KIKKEKODE');«, l3=0x1f}
0x0f68…0f77 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x0f77…0f90 Line {l1=0x17, l2=» GOTOXY(30,21);«, l3=0x17}
0x0f90…0fad Line {l1=0x1b, l2=» READLN;READ(TEKST)«, l3=0x1b}
0x0fad…0fe0 Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (LENGTH(TEKST)<11);«, l3=0x31}
0x0fe0…100a Line {l1=0x28, l2=» FOR I:=1 TO 10 DO KODE(1,I):=' ';«, l3=0x28}
0x100a…1043 Line {l1=0x37, l2=» FOR I:=1 TO LENGTH(TEKST) DO KODE(1,I):=TEKST(I)«, l3=0x37}
0x1043…104d Line {l1=0x08, l2=» END;«, l3=0x08}
0x104d…1058 Line {l1=0x09, l2=»22: BEGIN«, l3=0x09}
0x1058…106e Line {l1=0x14, l2=» GOTOXY(1,22);«, l3=0x14}
0x106e…108f Line {l1=0x1f, l2=» WRITELN('22 PILLEKODE');«, l3=0x1f}
0x108f…109e Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x109e…10b7 Line {l1=0x17, l2=» GOTOXY(30,22);«, l3=0x17}
0x10b7…10d4 Line {l1=0x1b, l2=» READLN;READ(TEKST)«, l3=0x1b}
0x10d4…1107 Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (LENGTH(TEKST)<11);«, l3=0x31}
0x1107…1131 Line {l1=0x28, l2=» FOR I:=1 TO 10 DO KODE(2,I):=' ';«, l3=0x28}
0x1131…116a Line {l1=0x37, l2=» FOR I:=1 TO LENGTH(TEKST) DO KODE(2,I):=TEKST(I)«, l3=0x37}
0x116a…1174 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1174…117f Line {l1=0x09, l2=»10: BEGIN«, l3=0x09}
0x117f…1195 Line {l1=0x14, l2=» GOTOXY(1,10);«, l3=0x14}
0x1195…11b9 Line {l1=0x22, l2=» WRITELN('10 KASSRAPFILNR');«, l3=0x22}
0x11b9…11d8 Line {l1=0x1d, l2=» ININT(30,10,15,1,1000)«, l3=0x1d}
0x11d8…11e2 Line {l1=0x08, l2=» END;«, l3=0x08}
0x11e2…11ed Line {l1=0x09, l2=»11: BEGIN«, l3=0x09}
0x11ed…1203 Line {l1=0x14, l2=» GOTOXY(1,11);«, l3=0x14}
0x1203…1227 Line {l1=0x22, l2=» WRITELN('11 KASJOURFILNR');«, l3=0x22}
0x1227…1246 Line {l1=0x1d, l2=» ININT(30,11,16,1,1000)«, l3=0x1d}
0x1246…1250 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1250…125b Line {l1=0x09, l2=»12: BEGIN«, l3=0x09}
0x125b…1271 Line {l1=0x14, l2=» GOTOXY(1,12);«, l3=0x14}
0x1271…1295 Line {l1=0x22, l2=» WRITELN('12 KASSRAPSIDNR');«, l3=0x22}
0x1295…12b5 Line {l1=0x1e, l2=» ININT(30,12,17,1,10000)«, l3=0x1e}
0x12b5…12bf Line {l1=0x08, l2=» END;«, l3=0x08}
0x12bf…12ca Line {l1=0x09, l2=»13: BEGIN«, l3=0x09}
0x12ca…12e0 Line {l1=0x14, l2=» GOTOXY(1,13);«, l3=0x14}
0x12e0…1304 Line {l1=0x22, l2=» WRITELN('13 FAKJOURSIDNR');«, l3=0x22}
0x1304…1324 Line {l1=0x1e, l2=» ININT(30,13,18,1,10000)«, l3=0x1e}
0x1324…132e Line {l1=0x08, l2=» END;«, l3=0x08}
0x132e…1339 Line {l1=0x09, l2=»14: BEGIN«, l3=0x09}
0x1339…134f Line {l1=0x14, l2=» GOTOXY(1,14);«, l3=0x14}
0x134f…1373 Line {l1=0x22, l2=» WRITELN('14 KASJOURSIDNR');«, l3=0x22}
0x1373…1393 Line {l1=0x1e, l2=» ININT(30,14,19,1,10000)«, l3=0x1e}
0x1393…139d Line {l1=0x08, l2=» END;«, l3=0x08}
0x139d…13a8 Line {l1=0x09, l2=»15: BEGIN«, l3=0x09}
0x13a8…13be Line {l1=0x14, l2=» GOTOXY(1,15);«, l3=0x14}
0x13be…13db Line {l1=0x1b, l2=» WRITELN('15 KASSE');«, l3=0x1b}
0x13db…13ea Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x13ea…1416 Line {l1=0x2a, l2=» GOTOXY(30,15);READLN;READ(KGB(1))«, l3=0x2a}
0x1416…1430 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1430…144b Line {l1=0x19, l2=» KGB(1):=100*KGB(1)«, l3=0x19}
0x144b…1455 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1455…1460 Line {l1=0x09, l2=»16: BEGIN«, l3=0x09}
0x1460…1476 Line {l1=0x14, l2=» GOTOXY(1,16);«, l3=0x14}
0x1476…1492 Line {l1=0x1a, l2=» WRITELN('16 BANK');«, l3=0x1a}
0x1492…14a1 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x14a1…14cd Line {l1=0x2a, l2=» GOTOXY(30,16);READLN;READ(KGB(2))«, l3=0x2a}
0x14cd…14e7 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x14e7…1502 Line {l1=0x19, l2=» KGB(2):=100*KGB(2)«, l3=0x19}
0x1502…150c Line {l1=0x08, l2=» END;«, l3=0x08}
0x150c…1517 Line {l1=0x09, l2=»17: BEGIN«, l3=0x09}
0x1517…152d Line {l1=0x14, l2=» GOTOXY(1,17);«, l3=0x14}
0x152d…1549 Line {l1=0x1a, l2=» WRITELN('17 GIRO');«, l3=0x1a}
0x1549…1558 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x1558…1584 Line {l1=0x2a, l2=» GOTOXY(30,17);READLN;READ(KGB(3))«, l3=0x2a}
0x1584…159e Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x159e…15b9 Line {l1=0x19, l2=» KGB(3):=100*KGB(3)«, l3=0x19}
0x15b9…15c3 Line {l1=0x08, l2=» END;«, l3=0x08}
0x15c3…15ce Line {l1=0x09, l2=»18: BEGIN«, l3=0x09}
0x15ce…15e4 Line {l1=0x14, l2=» GOTOXY(1,18);«, l3=0x14}
0x15e4…1601 Line {l1=0x1b, l2=» WRITELN('18 RABAT');«, l3=0x1b}
0x1601…1610 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x1610…163c Line {l1=0x2a, l2=» GOTOXY(30,18);READLN;READ(KGB(4))«, l3=0x2a}
0x163c…1656 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1656…1671 Line {l1=0x19, l2=» KGB(4):=100*KGB(4)«, l3=0x19}
0x1671…167b Line {l1=0x08, l2=» END;«, l3=0x08}
0x167b…1686 Line {l1=0x09, l2=»19: BEGIN«, l3=0x09}
0x1686…169c Line {l1=0x14, l2=» GOTOXY(1,19);«, l3=0x14}
0x169c…16b9 Line {l1=0x1b, l2=» WRITELN('19 RENTE');«, l3=0x1b}
0x16b9…16c8 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x16c8…16f4 Line {l1=0x2a, l2=» GOTOXY(30,19);READLN;READ(KGB(5))«, l3=0x2a}
0x16f4…170e Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x170e…1729 Line {l1=0x19, l2=» KGB(5):=100*KGB(5)«, l3=0x19}
0x1729…1733 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1733…1739 Line {l1=0x04, l2=» END«, l3=0x04}
0x1739…173f Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x1…]
0x1745…174c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x174c…1769 Line {l1=0x1b, l2=» FILNAVN:='SYSREG:P2:1:I';«, l3=0x1b}
0x1769…1780 Line {l1=0x15, l2=» REWRITE(F,FILNAVN);«, l3=0x15}
0x1780…178e Line {l1=0x0c, l2=» SEEK(F,1);«, l3=0x0c}
0x178e…1799 Line {l1=0x09, l2=» GET(F);«, l3=0x09}
0x1799…17a9 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x17a9…17b3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x17b3…17c5 Line {l1=0x10, l2=» GOTOXY(1,1);«, l3=0x10}
0x17c5…17f9 Line {l1=0x32, l2=» WRITELN('OPRETTE, KIKKE ELL. ÆNDRE (1/2/3)');«, l3=0x32}
0x17f9…180c Line {l1=0x11, l2=» GOTOXY(40,1);«, l3=0x11}
0x180c…1820 Line {l1=0x12, l2=» READLN;READ(I)«, l3=0x12}
0x1820…184b Line {l1=0x29, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<4);«, l3=0x29}
0x184b…1858 Line {l1=0x0b, l2=» CASE I OF«, l3=0x0b}
0x1858…1863 Line {l1=0x09, l2=» 1:BEGIN«, l3=0x09}
0x1863…1877 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x1877…189b Line {l1=0x22, l2=» FOR J:=1 TO 22 DO SYSOPL(J);«, l3=0x22}
0x189b…18ad Line {l1=0x10, l2=» SEEK(F,1);«, l3=0x10}
0x18ad…18bb Line {l1=0x0c, l2=» PUT(F)«, l3=0x0c}
0x18bb…18c5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x18c5…18d0 Line {l1=0x09, l2=» 2:BEGIN«, l3=0x09}
0x18d0…18de Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x18de…18f4 Line {l1=0x14, l2=» GOTOXY(1,2);«, l3=0x14}
0x18f4…1915 Line {l1=0x1f, l2=» WRITELN('ADGANGSKODE');«, l3=0x1f}
0x1915…1940 Line {l1=0x29, l2=» GOTOXY(20,2);READLN;READ(FILNAVN)«, l3=0x29}
0x1940…1959 Line {l1=0x17, l2=» UNTIL IORESULT=0;«, l3=0x17}
0x1959…1969 Line {l1=0x0e, l2=» PRSYSOPL«, l3=0x0e}
0x1969…1973 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1973…197e Line {l1=0x09, l2=» 3:BEGIN«, l3=0x09}
0x197e…198c Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x198c…19a2 Line {l1=0x14, l2=» GOTOXY(1,2);«, l3=0x14}
0x19a2…19c3 Line {l1=0x1f, l2=» WRITELN('ADGANGSKODE');«, l3=0x1f}
0x19c3…19ee Line {l1=0x29, l2=» GOTOXY(20,2);READLN;READ(FILNAVN)«, l3=0x29}
0x19ee…1a07 Line {l1=0x17, l2=» UNTIL IORESULT=0;«, l3=0x17}
0x1a07…1a18 Line {l1=0x0f, l2=» PRSYSOPL;«, l3=0x0f}
0x1a18…1a26 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
[…0x1…]
0x1a34…1a4b Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x1a4b…1a85 Line {l1=0x38, l2=» WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT');«, l3=0x38}
0x1a85…1aab Line {l1=0x24, l2=» GOTOXY(40,23);READLN;READ(I)«, l3=0x24}
0x1aab…1adc Line {l1=0x2f, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<23);«, l3=0x2f}
0x1adc…1aed Line {l1=0x0f, l2=» CASE I OF«, l3=0x0f}
0x1aed…1b01 Line {l1=0x12, l2=»1,2,20: SYSOPL(I);«, l3=0x12}
0x1b01…1b36 Line {l1=0x33, l2=»9,21,22: IF FILNAVN='KLAUS-KLUDDER' THEN SYSOPL(I);«, l3=0x33}
0x1b36…1b67 Line {l1=0x2f, l2=»3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19:BEGIN«, l3=0x2f}
0x1b67…1b85 Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x1b85…1bd0 Line {l1=0x49, l2=» WRITELN('ÆNDRING IKKE TILLADT, TRYK RETURN NÅR FORSTÅET');«, l3=0x49}
0x1bd0…1bef Line {l1=0x1d, l2=» GOTOXY(40,23);«, l3=0x1d}
0x1bef…1c0f Line {l1=0x1e, l2=» READLN;READ(J);«, l3=0x1e}
0x1c0f…1c38 Line {l1=0x27, l2=» IF J=4711 THEN SYSOPL(I)«, l3=0x27}
0x1c38…1c4a Line {l1=0x10, l2=» END;«, l3=0x10}
0x1c4a…1c56 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1c56…1c68 Line {l1=0x10, l2=» UNTIL I=0;«, l3=0x10}
0x1c68…1c7a Line {l1=0x10, l2=» SEEK(F,1);«, l3=0x10}
0x1c7a…1c88 Line {l1=0x0c, l2=» PUT(F)«, l3=0x0c}
0x1c88…1c91 Line {l1=0x07, l2=» END«, l3=0x07}
0x1c91…1c99 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1c99…1ca6 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x1ca6…1ccc Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1ccc…1cd2 Line {l1=0x04, l2=»END.«, l3=0x04}
0x1cd2…1ce0 00 00 49 20 20 20 20 20 20 20 20 20 20 20 ┆ I ┆
0x1ce0…1d00 20 20 20 20 57 52 49 54 45 4c 4e 28 27 5b 4e 44 52 49 4e 47 20 49 4b 4b 45 20 54 49 4c 4c 41 44 ┆ WRITELN('ÆNDRING IKKE TILLAD┆
0x1d00…1d20 54 2c 20 54 52 59 4b 20 52 45 54 55 52 4e 20 4e 5d 52 20 46 4f 52 53 54 5d 45 54 27 29 3b 49 1d ┆T, TRYK RETURN NÅR FORSTÅET');I ┆
0x1d20…1d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 30 2c 32 33 29 3b 1d 1e 20 ┆ GOTOXY(40,23); ┆
0x1d40…1d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 3b 52 45 41 44 28 4a 29 3b 1e 27 20 ┆ READLN;READ(J); ' ┆
0x1d60…1d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 3d 34 37 31 31 20 54 48 45 4e 20 53 59 53 ┆ IF J=4711 THEN SYS┆
0x1d80…1da0 4f 50 4c 28 49 29 27 10 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 10 0a 20 20 20 20 20 20 ┆OPL(I)' END; ┆
0x1da0…1dc0 45 4e 44 3b 0a 10 20 20 20 20 20 20 55 4e 54 49 4c 20 49 3d 30 3b 10 10 20 20 20 20 20 20 53 45 ┆END; UNTIL I=0; SE┆
0x1dc0…1de0 45 4b 28 46 2c 31 29 3b 10 0c 20 20 20 20 20 20 50 55 54 28 46 29 0c 07 20 20 20 20 45 4e 44 07 ┆EK(F,1); PUT(F) END ┆
0x1de0…1e00 06 20 20 45 4e 44 3b 06 0b 20 20 43 4c 4f 53 45 28 46 29 3b 0b 24 20 20 43 48 41 49 4e 28 27 49 ┆ END; CLOSE(F); $ CHAIN('I┆
0x1e00…1e20 4e 54 52 45 20 20 20 2a 31 27 2c 27 48 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 2e ┆NTRE *1','HOVSA:P1',QUQ)$ END.┆
0x1e20…1e40 04 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 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccc┆
0x1e40…1e60 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┆
[…0x1d…]
0x2200…2220 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 ┆