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 - download

⟦345ed7789⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »BREV1«

Derivation

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

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 

▶10◀4000 PROC CHECK1▶10◀	4010 NR=0	▶08◀4020 I=1▶08◀▶18◀4030 IF LEN(SV$)>0 THEN ▶18◀▶0e◀4040 OKAY=TRUE▶0e◀
4050 ELSE 
▶0f◀4060 OKAY=FALSE▶0f◀▶0b◀4070 ENDIF ▶0b◀▶16◀4080 WHILE I<=LEN(SV$)▶16◀&4090 IF SV$(I)<"0" OR SV$(I)>"9" THEN &▶0f◀4100 OKAY=FALSE▶0f◀▶11◀4110 I=LEN(SV$)+1▶11◀
4120 ELSE 
▶1c◀4130 NR=NR*10+ORD(SV$(I))-48▶1c◀
4140 I=I+1
▶0b◀4150 ENDIF ▶0b◀▶0e◀4160 ENDWHILE ▶0e◀\r4170 ENDPROC \r▶15◀4180 PROC CONVERT(NO)▶15◀,4190 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48),\r4200 ENDPROC \r▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc