1 REM Ins{nt av 855
10 REM LIST DATKOLL.UTL
20 REM ********************************
30 REM * DAT.KOLL / Minne 16 K        *
40 REM * Ver. 1.0 / 1984.10.16        *
50 REM * (c) Arvid Lundgren  <855>    *
60 REM * H|jdv 20A, 923 00 Storuman   *
70 REM * Tel 0951/111 17, 0951/113 20 *
80 REM ********************************
100 REM Liten enkel koll om angivet datum {r rimligt
110 REM X$=Datum
120 REM Om fel datum s{tts R%=1% eljest s{tts r%=0%
11000 REM ---------- DATUM KOLL -------- 
11010 IF LEN(X$)<>6% THEN 11110 : REM L[NGDKOLL
11020 FOR X%=1% TO 6% : IF ASC(MID$(X$,X%,1%))<48% OR ASC(MID$(X$,X%,1%))>57% THEN 11110 : NEXT X% : REM SIFFERKOLL
11030 IF VAL(RIGHT$(X$,5%))>31% THEN 11110 : REM KOLL OM R[TTV[NT
11035 IF VAL(MID$(X$,3%,2%))<1% OR VAL(MID$(X$,3%,2%))>12% THEN 11110 : REM M]NADSKOLL
11040 ON VAL(MID$(X$,3%,2%)) GOTO 11100,11080,11100,11060,11100,11060,11100,11100,11060,11100,11060,11100
11050 REM ----------- APRIL,JUNI,SEPT,NOV ----------
11060 IF VAL(RIGHT$(X$,5%))>30% THEN 11110 ELSE 11100
11070 REM --------------- FEBRUARI -----------------
11080 IF VAL(X$)/4=INT(VAL(X$)/4) IF VAL(RIGHT$(X$,5%))>29% THEN 11110 ELSE 11100 : REM SKOTT]R
11090 IF VAL(RIGHT$(X$,5%))>28% THEN 11110
11100 R%=0% : RETURN : REM DATUM F\RMODLIGEN R[TT
11110 ; CUR(23%,0%)CHR$(7%);'FEL DATUM! (ex 830213) (Tryck RETURN)'; : GET X1$
11120 ; CUR(23%,0%)SPACE$(79%); : R%=1% : RETURN