|
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: 1443 (0x5a3)
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 // ---------------------------------------------------------