|
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 - metrics - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »JOURNALN«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JOURNALN«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JOURNALN«
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 // ---------------------------------------------------------
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