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_K
    Names: »BREV1.K«

Derivation

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

Mikados K File

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

Mikados K File

0x000…012 Line {l1=0x10, l2=»4000 PROC CHECK1«, l3=0x10}
0x012…01d Line {l1=0x09, l2=»4010 NR=0«, l3=0x09}
0x01d…027 Line {l1=0x08, l2=»4020 I=1«, l3=0x08}
0x027…041 Line {l1=0x18, l2=»4030 IF LEN(SV$)>0 THEN «, l3=0x18}
0x041…051 Line {l1=0x0e, l2=»4040 OKAY=TRUE«, l3=0x0e}
0x051…05d Line {l1=0x0a, l2=»4050 ELSE «, l3=0x0a}
0x05d…06e Line {l1=0x0f, l2=»4060 OKAY=FALSE«, l3=0x0f}
0x06e…07b Line {l1=0x0b, l2=»4070 ENDIF «, l3=0x0b}
0x07b…093 Line {l1=0x16, l2=»4080 WHILE I<=LEN(SV$)«, l3=0x16}
0x093…0bb Line {l1=0x26, l2=»4090 IF SV$(I)<"0" OR SV$(I)>"9" THEN «, l3=0x26}
0x0bb…0cc Line {l1=0x0f, l2=»4100 OKAY=FALSE«, l3=0x0f}
0x0cc…0df Line {l1=0x11, l2=»4110 I=LEN(SV$)+1«, l3=0x11}
0x0df…0eb Line {l1=0x0a, l2=»4120 ELSE «, l3=0x0a}
0x0eb…109 Line {l1=0x1c, l2=»4130 NR=NR*10+ORD(SV$(I))-48«, l3=0x1c}
0x109…115 Line {l1=0x0a, l2=»4140 I=I+1«, l3=0x0a}
0x115…122 Line {l1=0x0b, l2=»4150 ENDIF «, l3=0x0b}
0x122…132 Line {l1=0x0e, l2=»4160 ENDWHILE «, l3=0x0e}
0x132…141 Line {l1=0x0d, l2=»4170 ENDPROC «, l3=0x0d}
0x141…158 Line {l1=0x15, l2=»4180 PROC CONVERT(NO)«, l3=0x15}
0x158…186 Line {l1=0x2c, l2=»4190 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48)«, l3=0x2c}
0x186…195 Line {l1=0x0d, l2=»4200 ENDPROC «, l3=0x0d}
0x195…1a0 00 00 63 63 63 63 63 63 63 63 63                                                                  ┆  ccccccccc┆
0x1a0…1c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x19…]

TextFile

▶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

Reduced view