DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦1944660aa⟧

    Length: 363 (0x16b)
    Notes: Mikados TextFile, Mikados_K
    Names: »BREV1«

Derivation

└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
    └─⟦this⟧ »BREV1«

Text

4000 PROC CHECK1
4010 NR=0
4020 I=1
4030 IF LEN(SV$)>0 THEN 
4040 OKAY=TRUE
4050 ELSE 
4060 OKAY=FALSE
4070 ENDIF 
4080 WHILE I<=LEN(SV$)
4090 IF SV$(I)<"0" OR SV$(I)>"9" THEN 
4100 OKAY=FALSE
4110 I=LEN(SV$)+1
4120 ELSE 
4130 NR=NR*10+ORD(SV$(I))-48
4140 I=I+1
4150 ENDIF 
4160 ENDWHILE 
4170 ENDPROC 
4180 PROC CONVERT(NO)
4190 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48)
4200 ENDPROC