|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »JOURNALN.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JOURNALN.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JOURNALN.K«
0010 // ---------------------- journalnr ------------------------------ 0020 // Et lovligt journalnummer består af et stort bogstav, en binde- 0030 // streg, to cifre, en bindestreg og tre cifre. Blanktegn er ikke 0040 // tilladt, men nok før og efter. 0050 // ---------------------------------------------------------------- 0055 INTEGER FALSE,TRUE,CHECK 0056 FALSE:=0;TRUE:=1 0060 PROC FNJOURNALNR_OK(PRNUMMER$) 0070 CHECK:=TRUE 0080 WHILE PRNUMMER$(1:1)=" " DO 0090 PRNUMMER$:=PRNUMMER$(2:LEN(PRNUMMER$)-1) 0100 ENDWHILE 0110 IF LEN(PRNUMMER$)<8 THEN 0120 CHECK:=FALSE 0130 ELSE 0140 IF ORD(PRNUMMER$(1:1))<65 OR ORD(PRNUMMER$(1:1))>93 THEN CHECK:=FALSE 0150 IF PRNUMMER$(2:1)<>"-" THEN CHECK:=FALSE 0160 FOR I:=3 TO 4 DO 0170 IF NOT PRNUMMER$(I:1) IN "0123456789" THEN CHECK:=FALSE 0180 NEXT I 0190 IF PRNUMMER$(5:1)<>"-" THEN CHECK:=FALSE 0200 FOR I:=6 TO 8 DO 0210 IF NOT PRNUMMER$(I:1) IN "0123456789" THEN CHECK:=FALSE 0220 NEXT I 0230 FOR I:=9 TO LEN(PRNUMMER$) DO 0240 IF PRNUMMER$(I:1)<>" " THEN CHECK:=FALSE 0250 NEXT I 0260 ENDIF 0270 FNJOURNALNR_OK:=CHECK 0280 ENDPROC FNJOURNALNR_OK 0290 // ----------------------------------------------------------- 0300 CLEAR 0310 DIM NR$ OF 20 0315 PRINT 0320 INPUT "Indtast journalnummer: ":NR$ 0330 IF FNJOURNALNR_OK(NR$) THEN 0340 PRINT "Journalnummeret ";NR$," er i orden." 0350 ELSE 0360 PRINT NR$," er ikke et korrekt journalnummer." 0370 ENDIF 0380 // ---------------------------------------------------------
0x000…049 Line {l1=0x47, l2=»0010 // ---------------------- journalnr ------------------------------«, l3=0x47}
0x049…091 Line {l1=0x46, l2=»0020 // Et lovligt journalnummer består af et stort bogstav, en binde-«, l3=0x46}
0x091…0d9 Line {l1=0x46, l2=»0030 // streg, to cifre, en bindestreg og tre cifre. Blanktegn er ikke«, l3=0x46}
0x0d9…101 Line {l1=0x26, l2=»0040 // tilladt, men nok før og efter.«, l3=0x26}
0x101…14b Line {l1=0x48, l2=»0050 // ----------------------------------------------------------------«, l3=0x48}
0x14b…16a Line {l1=0x1d, l2=»0055 INTEGER FALSE,TRUE,CHECK«, l3=0x1d}
0x16a…181 Line {l1=0x15, l2=»0056 FALSE:=0;TRUE:=1«, l3=0x15}
0x181…1a6 Line {l1=0x23, l2=»0060 PROC FNJOURNALNR_OK(PRNUMMER$)«, l3=0x23}
0x1a6…1b8 Line {l1=0x10, l2=»0070 CHECK:=TRUE«, l3=0x10}
0x1b8…1db Line {l1=0x21, l2=»0080 WHILE PRNUMMER$(1:1)=" " DO «, l3=0x21}
0x1db…20a Line {l1=0x2d, l2=»0090 PRNUMMER$:=PRNUMMER$(2:LEN(PRNUMMER$)-1)«, l3=0x2d}
0x20a…21a Line {l1=0x0e, l2=»0100 ENDWHILE «, l3=0x0e}
0x21a…23a Line {l1=0x1e, l2=»0110 IF LEN(PRNUMMER$)<8 THEN «, l3=0x1e}
0x23a…24d Line {l1=0x11, l2=»0120 CHECK:=FALSE«, l3=0x11}
0x24d…259 Line {l1=0x0a, l2=»0130 ELSE «, l3=0x0a}
0x259…2a5 Line {l1=0x4a, l2=»0140 IF ORD(PRNUMMER$(1:1))<65 OR ORD(PRNUMMER$(1:1))>93 THEN CHECK:=FALSE«, l3=0x4a}
0x2a5…2d4 Line {l1=0x2d, l2=»0150 IF PRNUMMER$(2:1)<>"-" THEN CHECK:=FALSE«, l3=0x2d}
0x2d4…2ec Line {l1=0x16, l2=»0160 FOR I:=3 TO 4 DO «, l3=0x16}
0x2ec…32a Line {l1=0x3c, l2=»0170 IF NOT PRNUMMER$(I:1) IN "0123456789" THEN CHECK:=FALSE«, l3=0x3c}
0x32a…337 Line {l1=0x0b, l2=»0180 NEXT I«, l3=0x0b}
0x337…366 Line {l1=0x2d, l2=»0190 IF PRNUMMER$(5:1)<>"-" THEN CHECK:=FALSE«, l3=0x2d}
0x366…37e Line {l1=0x16, l2=»0200 FOR I:=6 TO 8 DO «, l3=0x16}
0x37e…3bc Line {l1=0x3c, l2=»0210 IF NOT PRNUMMER$(I:1) IN "0123456789" THEN CHECK:=FALSE«, l3=0x3c}
0x3bc…3c9 Line {l1=0x0b, l2=»0220 NEXT I«, l3=0x0b}
0x3c9…3ee Line {l1=0x23, l2=»0230 FOR I:=9 TO LEN(PRNUMMER$) DO «, l3=0x23}
0x3ee…41d Line {l1=0x2d, l2=»0240 IF PRNUMMER$(I:1)<>" " THEN CHECK:=FALSE«, l3=0x2d}
0x41d…42a Line {l1=0x0b, l2=»0250 NEXT I«, l3=0x0b}
0x42a…437 Line {l1=0x0b, l2=»0260 ENDIF «, l3=0x0b}
0x437…453 Line {l1=0x1a, l2=»0270 FNJOURNALNR_OK:=CHECK«, l3=0x1a}
0x453…470 Line {l1=0x1b, l2=»0280 ENDPROC FNJOURNALNR_OK«, l3=0x1b}
0x470…4b5 Line {l1=0x43, l2=»0290 // -----------------------------------------------------------«, l3=0x43}
0x4b5…4c2 Line {l1=0x0b, l2=»0300 CLEAR «, l3=0x0b}
0x4c2…4d6 Line {l1=0x12, l2=»0310 DIM NR$ OF 20«, l3=0x12}
0x4d6…4e3 Line {l1=0x0b, l2=»0315 PRINT «, l3=0x0b}
0x4e3…50f Line {l1=0x2a, l2=»0320 INPUT "Indtast journalnummer: ":NR$«, l3=0x2a}
0x50f…532 Line {l1=0x21, l2=»0330 IF FNJOURNALNR_OK(NR$) THEN «, l3=0x21}
0x532…564 Line {l1=0x30, l2=»0340 PRINT "Journalnummeret ";NR$," er i orden."«, l3=0x30}
0x564…570 Line {l1=0x0a, l2=»0350 ELSE «, l3=0x0a}
0x570…5a5 Line {l1=0x33, l2=»0360 PRINT NR$," er ikke et korrekt journalnummer."«, l3=0x33}
0x5a5…5b2 Line {l1=0x0b, l2=»0370 ENDIF «, l3=0x0b}
0x5b2…5f5 Line {l1=0x41, l2=»0380 // ---------------------------------------------------------«, l3=0x41}
0x5f5…600 00 00 63 63 63 63 63 63 63 63 63 ┆ ccccccccc┆
0x600…620 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┆
[…0x1e…]
G0010 // ---------------------- journalnr ------------------------------GF0020 // Et lovligt journalnummer består af et stort bogstav, en binde-FF0030 // streg, to cifre, en bindestreg og tre cifre. Blanktegn er ikkeF&0040 // tilladt, men nok før og efter.&H0050 // ----------------------------------------------------------------H▶1d◀0055 INTEGER FALSE,TRUE,CHECK▶1d◀▶15◀0056 FALSE:=0;TRUE:=1▶15◀#0060 PROC FNJOURNALNR_OK(PRNUMMER$)#▶10◀0070 CHECK:=TRUE▶10◀!0080 WHILE PRNUMMER$(1:1)=" " DO !-0090 PRNUMMER$:=PRNUMMER$(2:LEN(PRNUMMER$)-1)-▶0e◀0100 ENDWHILE ▶0e◀▶1e◀0110 IF LEN(PRNUMMER$)<8 THEN ▶1e◀▶11◀0120 CHECK:=FALSE▶11◀ 0130 ELSE J0140 IF ORD(PRNUMMER$(1:1))<65 OR ORD(PRNUMMER$(1:1))>93 THEN CHECK:=FALSEJ-0150 IF PRNUMMER$(2:1)<>"-" THEN CHECK:=FALSE-▶16◀0160 FOR I:=3 TO 4 DO ▶16◀<0170 IF NOT PRNUMMER$(I:1) IN "0123456789" THEN CHECK:=FALSE<▶0b◀0180 NEXT I▶0b◀-0190 IF PRNUMMER$(5:1)<>"-" THEN CHECK:=FALSE-▶16◀0200 FOR I:=6 TO 8 DO ▶16◀<0210 IF NOT PRNUMMER$(I:1) IN "0123456789" THEN CHECK:=FALSE<▶0b◀0220 NEXT I▶0b◀#0230 FOR I:=9 TO LEN(PRNUMMER$) DO #-0240 IF PRNUMMER$(I:1)<>" " THEN CHECK:=FALSE-▶0b◀0250 NEXT I▶0b◀▶0b◀0260 ENDIF ▶0b◀▶1a◀0270 FNJOURNALNR_OK:=CHECK▶1a◀▶1b◀0280 ENDPROC FNJOURNALNR_OK▶1b◀C0290 // -----------------------------------------------------------C▶0b◀0300 CLEAR ▶0b◀▶12◀0310 DIM NR$ OF 20▶12◀▶0b◀0315 PRINT ▶0b◀*0320 INPUT "Indtast journalnummer: ":NR$*!0330 IF FNJOURNALNR_OK(NR$) THEN !00340 PRINT "Journalnummeret ";NR$," er i orden."0 0350 ELSE 30360 PRINT NR$," er ikke et korrekt journalnummer."3▶0b◀0370 ENDIF ▶0b◀A0380 // ---------------------------------------------------------A▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc