|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »PIP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »PIP.K«
PROCEDURE TESTPRINT;
VAR LINES:ARRAY (1..30) OF STRING(120);
CH:CHAR;
BEGIN
IF NOT EOF(F) THEN
BEGIN
FOR I:=1 TO 30 DO
BEGIN
READLN(F,LINES(I));
IF LINES(I)='%P' THEN
FF
ELSE
BEGIN
L:=L+1;
WRITELN(LIST,LINES(I))
END;
IF EOF(F) THEN I:=30
END;
REPEAT
REPEAT
CLEARSCREEN;
GOTOXY(1,5);
WRITELN('FLERE TESTPRINT, J/N ');
GOTOXY(22,5);
READLN;READ(CH)
UNTIL IORESULT=0;
IF CH='n' THEN CH:='N';
IF CH<>'N' THEN
BEGIN
IF LINES(1)<>'%P' THEN FF;
FOR I:=1 TO 30 DO
IF LINES(I)='%P' THEN
FF
ELSE
BEGIN
WRITELN(LIST,LINES(I));L:=L+1
END
END
UNTIL CH='N'
END
END;
0x000…016 Line {l1=0x14, l2=»PROCEDURE TESTPRINT;«, l3=0x14}
0x016…03f Line {l1=0x27, l2=»VAR LINES:ARRAY (1..30) OF STRING(120);«, l3=0x27}
0x03f…04d Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x04d…054 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x054…06a Line {l1=0x14, l2=» IF NOT EOF(F) THEN«, l3=0x14}
0x06a…073 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x073…08a Line {l1=0x15, l2=» FOR I:=1 TO 30 DO«, l3=0x15}
0x08a…095 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x095…0b0 Line {l1=0x19, l2=» READLN(F,LINES(I));«, l3=0x19}
0x0b0…0cd Line {l1=0x1b, l2=» IF LINES(I)='%P' THEN«, l3=0x1b}
0x0cd…0d9 Line {l1=0x0a, l2=» FF«, l3=0x0a}
0x0d9…0e5 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0e5…0f2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0f2…103 Line {l1=0x0f, l2=» L:=L+1;«, l3=0x0f}
0x103…123 Line {l1=0x1e, l2=» WRITELN(LIST,LINES(I))«, l3=0x1e}
0x123…12f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x12f…14b Line {l1=0x1a, l2=» IF EOF(F) THEN I:=30«, l3=0x1a}
0x14b…155 Line {l1=0x08, l2=» END;«, l3=0x08}
0x155…161 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x161…16f Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x16f…185 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x185…19b Line {l1=0x14, l2=» GOTOXY(1,5);«, l3=0x14}
0x19b…1c6 Line {l1=0x29, l2=» WRITELN('FLERE TESTPRINT, J/N ');«, l3=0x29}
0x1c6…1dd Line {l1=0x15, l2=» GOTOXY(22,5);«, l3=0x15}
0x1dd…1f6 Line {l1=0x17, l2=» READLN;READ(CH)«, l3=0x17}
0x1f6…20f Line {l1=0x17, l2=» UNTIL IORESULT=0;«, l3=0x17}
0x20f…22e Line {l1=0x1d, l2=» IF CH='n' THEN CH:='N';«, l3=0x1d}
0x22e…245 Line {l1=0x15, l2=» IF CH<>'N' THEN«, l3=0x15}
0x245…252 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x252…276 Line {l1=0x22, l2=» IF LINES(1)<>'%P' THEN FF;«, l3=0x22}
0x276…291 Line {l1=0x19, l2=» FOR I:=1 TO 30 DO«, l3=0x19}
0x291…2b0 Line {l1=0x1d, l2=» IF LINES(I)='%P' THEN«, l3=0x1d}
0x2b0…2be Line {l1=0x0c, l2=» FF«, l3=0x0c}
0x2be…2cc Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x2cc…2db Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2db…304 Line {l1=0x27, l2=» WRITELN(LIST,LINES(I));L:=L+1«, l3=0x27}
0x304…311 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x311…31c Line {l1=0x09, l2=» END«, l3=0x09}
0x31c…32e Line {l1=0x10, l2=» UNTIL CH='N'«, l3=0x10}
0x32e…335 Line {l1=0x05, l2=» END«, l3=0x05}
0x335…33b Line {l1=0x04, l2=»END;«, l3=0x04}
0x33b…340 00 00 53 54 4f ┆ STO┆
0x340…360 52 44 2e 41 29 3b 29 27 20 20 20 20 20 20 20 20 20 20 20 20 54 4f 54 4f 52 44 52 45 28 41 4c 49 ┆RD.A);)' TOTORDRE(ALI┆
0x360…380 29 2e 56 4e 52 28 32 29 3a 3d 33 32 30 30 30 27 0d 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0e ┆).VNR(2):=32000' END ┆
0x380…3a0 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0e 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f ┆ ELSE BEGIN ┆
0x3a0…3c0 24 20 20 20 20 20 20 20 20 20 20 20 20 4b 3a 3d 54 52 55 4e 43 28 52 45 53 54 4f 52 44 2e 41 4e ┆$ K:=TRUNC(RESTORD.AN┆
0x3c0…3e0 54 41 4c 29 3b 24 24 20 20 20 20 20 20 20 20 20 20 20 20 54 4f 54 4f 52 44 52 45 28 41 4c 49 29 ┆TAL);$$ TOTORDRE(ALI)┆
0x3e0…400 2e 56 4e 52 28 32 29 3a 3d 4b 3b 24 27 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 ┆.VNR(2):=K;$' DELETE(┆
0x400…420 52 5a 2e 48 2c 46 52 4f 52 2c 52 45 53 54 4f 52 44 2e 41 29 27 0e 20 20 20 20 20 20 20 20 20 20 ┆RZ.H,FROR,RESTORD.A)' ┆
0x420…440 45 4e 44 3b 0e 21 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4c 49 3d 36 30 20 54 48 45 4e 20 49 ┆END; ! IF ALI=60 THEN I┆
0x440…460 45 52 3a 3d 2d 32 3b 21 2d 20 20 20 20 20 20 20 20 20 20 54 4f 54 4f 52 44 52 45 28 41 4c 49 29 ┆ER:=-2;!- TOTORDRE(ALI)┆
0x460…480 2e 50 52 49 53 3a 3d 56 41 52 45 2e 52 45 45 4c 54 41 4c 28 31 29 2d 0b 20 20 20 20 20 20 20 20 ┆.PRIS:=VARE.REELTAL(1)- ┆
0x480…4a0 45 4e 44 0b 31 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 28 49 45 52 3c 3e 30 29 20 41 4e ┆END 1 ELSE IF (IER<>0) AN┆
0x4a0…4c0 44 20 28 49 45 52 3c 3e 2d 36 29 20 54 48 45 4e 20 45 52 52 4f 52 31 09 20 20 20 20 20 20 45 4e ┆D (IER<>-6) THEN ERROR1 EN┆
0x4c0…4e0 44 09 08 20 20 20 20 45 4e 44 3b 08 29 20 20 20 20 49 46 20 28 49 45 52 3c 3e 2d 32 29 20 41 4e ┆D END; ) IF (IER<>-2) AN┆
0x4e0…500 44 20 28 49 45 52 3c 3e 2d 39 29 20 54 48 45 4e 20 45 52 52 4f 52 29 06 20 20 45 4e 44 3b 06 00 ┆D (IER<>-9) THEN ERROR) END; ┆
0x500…520 00 20 57 52 49 54 45 4c 4e 28 54 2c 27 20 27 3a 35 33 2c 53 59 53 46 49 4c 5e 2e 42 45 54 41 44 ┆ WRITELN(T,' ':53,SYSFIL^.BETAD┆
0x520…540 41 54 29 3b 28 16 20 20 20 20 20 20 57 49 54 48 20 4a 4f 55 52 46 49 4c 5e 20 44 4f 16 0b 20 20 ┆AT);( WITH JOURFIL^ DO ┆
0x540…560 20 20 20 20 42 45 47 49 4e 0b 1b 20 20 20 20 20 20 20 20 4e 52 28 31 29 3a 3d 4b 55 4e 44 45 2e ┆ BEGIN NR(1):=KUNDE.┆
0x560…580 4e 52 28 31 29 3b 1b 1b 20 20 20 20 20 20 20 20 4e 52 28 32 29 3a 3d 4b 55 4e 44 45 2e 4e 52 28 ┆NR(1); NR(2):=KUNDE.NR(┆
0x580…5a0 32 29 3b 1b 21 20 20 20 20 20 20 20 20 4e 52 28 33 29 3a 3d 53 59 53 46 49 4c 5e 2e 48 45 4c 54 ┆2); ! NR(3):=SYSFIL^.HELT┆
0x5a0…5c0 41 4c 28 37 29 3b 21 21 20 20 20 20 20 20 20 20 4e 52 28 34 29 3a 3d 53 59 53 46 49 4c 5e 2e 48 ┆AL(7);!! NR(4):=SYSFIL^.H┆
0x5c0…5e0 45 4c 54 41 4c 28 38 29 3b 21 21 20 20 20 20 20 20 20 20 4e 52 28 35 29 3a 3d 53 59 53 46 49 4c ┆ELTAL(8);!! NR(5):=SYSFIL┆
0x5e0…600 5e 2e 48 45 4c 54 41 4c 28 31 29 3b 21 20 20 20 20 20 20 20 20 20 4e 52 28 36 29 3a 3d 53 59 53 ┆^.HELTAL(1);! NR(6):=SYS┆
0x600…620 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 32 29 20 0a 20 20 20 20 20 20 45 4e 44 3b 0a 13 20 20 20 20 ┆FIL^.HELTAL(2) END; ┆
0x620…640 20 20 50 55 54 28 4a 4f 55 52 46 49 4c 29 3b 13 2d 20 20 20 20 20 20 53 59 53 46 49 4c 5e 2e 48 ┆ PUT(JOURFIL); - SYSFIL^.H┆
0x640…660 45 4c 54 41 4c 28 38 29 3a 3d 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 38 29 2b 31 3b 2d 25 ┆ELTAL(8):=SYSFIL^.HELTAL(8)+1;-%┆
0x660…680 20 20 20 20 20 20 49 46 20 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 38 29 3d 31 30 30 30 30 ┆ IF SYSFIL^.HELTAL(8)=10000┆
0x680…6a0 20 54 48 45 4e 25 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 2f 20 20 20 20 20 20 20 20 53 59 53 46 ┆ THEN% BEGIN / SYSF┆
0x6a0…6c0 49 4c 5e 2e 48 45 4c 54 41 4c 28 37 29 3a 3d 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 37 29 ┆IL^.HELTAL(7):=SYSFIL^.HELTAL(7)┆
0x6c0…6e0 2b 31 3b 2f 1c 20 20 20 20 20 20 20 20 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 38 29 3a 3d ┆+1;/ SYSFIL^.HELTAL(8):=┆
0x6e0…700 30 1c 0a 20 20 20 20 20 20 45 4e 44 3b 0a 00 00 36 2c 4c 41 4e 44 46 49 4c 5e 29 22 0a 20 20 20 ┆0 END; 6,LANDFIL^)" ┆
0x700…720 20 20 20 20 45 4e 44 0a 06 20 20 45 4e 44 3b 06 18 20 20 57 52 49 54 45 4c 4e 28 54 29 3b 57 52 ┆ END END; WRITELN(T);WR┆
0x720…740 49 54 45 4c 4e 28 54 29 3b 18 03 45 4e 44 03 04 45 4e 44 3b 04 00 00 20 20 20 20 20 20 20 45 4e ┆ITELN(T); END END; EN┆
0x740…760 44 0a 06 20 20 45 4e 44 3b 06 18 20 20 57 52 49 54 45 4c 4e 28 54 29 3b 57 52 49 54 45 4c 4e 28 ┆D END; WRITELN(T);WRITELN(┆
0x760…780 54 29 3b 18 24 20 20 57 52 49 54 45 4c 4e 28 54 2c 27 20 27 3a 35 33 2c 27 46 61 6b 74 75 72 61 ┆T); $ WRITELN(T,' ':53,'Faktura┆
0x780…7a0 6e 75 6d 6d 65 72 20 27 2c 24 3e 20 20 20 20 20 20 20 20 20 20 20 20 53 59 53 46 49 4c 5e 2e 48 ┆nummer ',$> SYSFIL^.H┆
0x7a0…7c0 45 4c 54 41 4c 28 37 29 2a 31 30 30 30 30 2e 30 2b 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 ┆ELTAL(7)*10000.0+SYSFIL^.HELTAL(┆
0x7c0…7e0 38 29 3a 36 3a 2d 32 29 3b 3e 0d 20 20 57 52 49 54 45 4c 4e 28 54 29 3b 0d 1b 20 20 57 52 49 54 ┆8):6:-2);> WRITELN(T); WRIT┆
0x7e0…800 45 4c 4e 28 54 2c 27 20 27 3a 37 34 2c 53 49 44 45 3a 32 29 3b 1b 0f 20 20 53 49 44 45 3a 3d 53 ┆ELN(T,' ':74,SIDE:2); SIDE:=S┆
0x800…820 49 44 45 2b 31 3b 0f 24 20 20 57 52 49 54 45 28 54 2c 4e 52 28 31 29 2a 31 30 30 30 30 2e 30 2b ┆IDE+1; $ WRITE(T,NR(1)*10000.0+┆
0x820…840 4e 52 28 32 29 3a 39 3a 2d 32 29 3b 24 11 20 20 57 49 54 48 20 46 41 4b 46 49 4c 5e 20 44 4f 11 ┆NR(2):9:-2);$ WITH FAKFIL^ DO ┆
0x840…860 2a 20 20 20 20 57 52 49 54 45 28 54 2c 48 45 41 44 28 33 29 2a 31 30 30 30 30 2e 30 2b 48 45 41 ┆* WRITE(T,HEAD(3)*10000.0+HEA┆
0x860…880 44 28 34 29 3a 38 3a 2d 32 29 3b 2a 4c 20 20 57 52 49 54 45 4c 4e 28 54 2c 27 20 27 3a 32 2c 53 ┆D(4):8:-2);*L WRITELN(T,' ':2,S┆
0x880…8a0 45 4e 44 54 50 52 28 46 41 4b 46 49 4c 5e 2e 46 4f 52 53 45 4e 44 29 2c 27 20 27 3a 31 34 2c 53 ┆ENDTPR(FAKFIL^.FORSEND),' ':14,S┆
0x8a0…8c0 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 31 29 2a 31 30 30 30 30 2e 30 2b 4c 2a 20 20 20 20 20 ┆YSFIL^.HELTAL(1)*10000.0+L* ┆
0x8c0…8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 32 29 3a 36 ┆ SYSFIL^.HELTAL(2):6┆
0x8e0…900 3a 2d 32 29 3b 2a 07 20 20 4a 3a 3d 31 3b 07 0c 20 20 57 52 49 54 45 4c 4e 28 54 29 0c 03 45 4e ┆:-2);* J:=1; WRITELN(T) EN┆
0x900…920 44 03 04 45 4e 44 3b 04 00 00 4d 45 52 20 27 2c 4b 55 4e 44 45 2e 4e 52 28 31 29 2a 31 30 30 30 ┆D END; MER ',KUNDE.NR(1)*1000┆
0x920…940 30 2e 30 2b 4b 55 4e 44 45 2e 4e 52 28 32 29 3a 38 3a 2d 32 29 3b 45 10 20 20 20 20 20 20 20 20 ┆0.0+KUNDE.NR(2):8:-2);E ┆
0x940…960 57 52 49 54 45 4c 4e 3b 10 1f 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4b 55 4e 44 45 2e ┆WRITELN; WRITELN(KUNDE.┆
0x960…980 4e 41 56 4e 28 31 29 29 3b 1f 1f 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4b 55 4e 44 45 ┆NAVN(1)); WRITELN(KUNDE┆
0x980…9a0 2e 4e 41 56 4e 28 33 29 29 3b 1f 1e 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4b 55 4e 44 ┆.NAVN(3)); WRITELN(KUND┆
0x9a0…9c0 45 2e 50 4f 53 54 4e 52 29 3b 1e 10 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 10 23 20 20 ┆E.POSTNR); WRITELN; # ┆
0x9c0…9e0 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 54 4c 46 3a 20 27 2c 4b 55 4e 44 45 2e 54 4c 46 29 ┆ WRITELN('TLF: ',KUNDE.TLF)┆
0x9e0…a00 3b 23 33 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 30 2c 36 29 3b 57 52 49 54 45 4c 4e 28 ┆;#3 GOTOXY(40,6);WRITELN(┆
0xa00…a20 27 52 49 47 54 49 47 20 4b 55 4e 44 45 20 28 4a 2f 4e 29 27 29 3b 33 46 20 20 20 20 20 20 20 20 ┆'RIGTIG KUNDE (J/N)');3F ┆
0xa20…a40 52 45 50 45 41 54 20 20 47 4f 54 4f 58 59 28 36 30 2c 36 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 ┆REPEAT GOTOXY(60,6);READLN;READ┆
0xa40…a60 28 53 56 41 52 31 29 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 46 4b ┆(SVAR1) UNTIL (IORESULT=0) ANDFK┆
0xa60…a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 53 56 41 52 31 3d 27 4a 27 29 20 4f 52 20 ┆ ((SVAR1='J') OR ┆
0xa80…aa0 28 53 56 41 52 31 3d 27 4e 27 29 20 4f 52 20 28 53 56 41 52 31 3d 27 6e 27 29 20 4f 52 20 28 53 ┆(SVAR1='N') OR (SVAR1='n') OR (S┆
0xaa0…ac0 56 41 52 31 3d 27 6a 27 29 29 3b 4b 3f 20 20 20 20 20 20 20 20 49 46 20 28 28 53 56 41 52 31 3d ┆VAR1='j'));K? IF ((SVAR1=┆
0xac0…ae0 27 4e 27 29 20 4f 52 20 28 53 56 41 52 31 3d 27 6e 27 29 29 20 41 4e 44 20 28 52 3d 31 2e 30 29 ┆'N') OR (SVAR1='n')) AND (R=1.0)┆
0xae0…b00 20 54 48 45 4e 20 46 49 4e 3a 3d 30 3f 09 20 20 20 20 20 20 45 4e 44 09 0a 20 20 20 20 20 20 45 ┆ THEN FIN:=0? END E┆
0xb00…b20 4c 53 45 0a 14 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 14 0b 20 20 20 20 20 ┆LSE IF IER=-6 THEN ┆
0xb20…b40 20 42 45 47 49 4e 0b 0f 20 20 20 20 20 20 20 20 49 45 52 3a 3d 30 3b 0f 18 20 20 20 20 20 20 20 ┆ BEGIN IER:=0; ┆
0xb40…b60 20 57 52 49 54 45 4c 4e 28 27 20 27 3a 38 30 29 3b 18 37 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆ WRITELN(' ':80); 7 WRITE┆
0xb60…b80 4c 4e 28 27 4b 55 4e 44 45 4e 20 45 4b 53 49 53 54 45 52 45 52 20 49 4b 4b 45 2c 20 54 52 59 4b ┆LN('KUNDEN EKSISTERER IKKE, TRYK┆
0xb80…ba0 20 52 45 54 55 52 4e 27 29 3b 37 0e 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 0e 09 20 20 20 20 ┆ RETURN');7 READLN ┆
0xba0…bc0 20 20 45 4e 44 09 10 20 20 20 20 20 20 45 4c 53 45 20 45 52 52 4f 52 10 0f 20 20 20 20 55 4e 54 ┆ END ELSE ERROR UNT┆
0xbc0…be0 49 4c 20 46 49 4e 3d 31 0f 2d 20 20 55 4e 54 49 4c 20 28 53 56 41 52 31 3d 27 4a 27 29 20 4f 52 ┆IL FIN=1 - UNTIL (SVAR1='J') OR┆
0xbe0…c00 20 28 52 3d 30 2e 30 29 20 4f 52 20 28 53 56 41 52 31 3d 27 6a 27 29 2d 04 45 4e 44 3b 04 00 00 ┆ (R=0.0) OR (SVAR1='j')- END; ┆
0xc00…c20 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 ┆ ┆
[…0x14…]