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

⟦f02c08ee7⟧ TextFile

    Length: 1472 (0x5c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SKRIVMOD.K«

Derivation

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

Mikados K File

0100 DIM SIDE$(18,66),FIL1$(20),FIL$(20),SV$(2)
0110 FIL$="DDE:MODUL"
0120 REPEAT 
0130 INPUT "HVILKET MODUL SKAL SKRIVES, 00 FOR ALLE ",SV$
0140 UNTIL SV$(1)=>"0" AND SV$(1)<="9" AND SV$(2)=>"0" AND SV$(2)<="9"
0144 OUTPUT P
0145 FOR L=1 TO 3
0146 PRINT 
0147 NEXT L
0150 IF SV$="00" THEN 
0160 FOR NR=1 TO 99
0170 SV$=CHR(NR DIV 10+48)+CHR(NR MOD 10+48)
0180 FIL1$=FIL$+SV$
0190 OPEN FIL1$,R
0200 IF STATUS(FIL1$)=0 THEN 
0210 EXEC LÆS
0220 EXEC SKRIV
0230 ENDIF 
0235 CLOSE 
0240 NEXT NR
0250 ELSE 
0270 FIL1$=FIL$+SV$
0280 OPEN FIL1$,R
0290 IF STATUS(FIL1$)=0 THEN 
0300 EXEC LÆS
0310 EXEC SKRIV
0320 ENDIF 
0325 CLOSE 
0330 ENDIF 
0335 OUTPUT T
0336 INPUT "FLERE J/N ",SV$
0337 IF SV$="J" OR SV$="j" THEN GO TO 0120
0340 STOP 
0400 PROC LÆS
0410 FOR L=1 TO 18
0420 GET FIL1$:SIDE$(L)
0430 IF LEN(SIDE$(L))>0 THEN LAST=L
0440 NEXT L
0450 ENDPROC 
0500 PROC SKRIV
0520 FOR L=1 TO 18
0530 PRINT TAB(10);SIDE$(L)
0540 NEXT L
0541 FOR L=1 TO 6
0542 PRINT 
0543 NEXT L
0550 ENDPROC

Mikados K File

0x000…031 Line {l1=0x2f, l2=»0100 DIM SIDE$(18,66),FIL1$(20),FIL$(20),SV$(2)«, l3=0x2f}
0x031…048 Line {l1=0x15, l2=»0110 FIL$="DDE:MODUL"«, l3=0x15}
0x048…056 Line {l1=0x0c, l2=»0120 REPEAT «, l3=0x0c}
0x056…091 Line {l1=0x39, l2=»0130 INPUT "HVILKET MODUL SKAL SKRIVES, 00 FOR ALLE ",SV$«, l3=0x39}
0x091…0d9 Line {l1=0x46, l2=»0140 UNTIL SV$(1)=>"0" AND SV$(1)<="9" AND SV$(2)=>"0" AND SV$(2)<="9"«, l3=0x46}
0x0d9…0e8 Line {l1=0x0d, l2=»0144 OUTPUT P«, l3=0x0d}
0x0e8…0fb Line {l1=0x11, l2=»0145 FOR L=1 TO 3«, l3=0x11}
0x0fb…108 Line {l1=0x0b, l2=»0146 PRINT «, l3=0x0b}
0x108…115 Line {l1=0x0b, l2=»0147 NEXT L«, l3=0x0b}
0x115…12d Line {l1=0x16, l2=»0150 IF SV$="00" THEN «, l3=0x16}
0x12d…142 Line {l1=0x13, l2=»0160 FOR NR=1 TO 99«, l3=0x13}
0x142…170 Line {l1=0x2c, l2=»0170 SV$=CHR(NR DIV 10+48)+CHR(NR MOD 10+48)«, l3=0x2c}
0x170…185 Line {l1=0x13, l2=»0180 FIL1$=FIL$+SV$«, l3=0x13}
0x185…198 Line {l1=0x11, l2=»0190 OPEN FIL1$,R«, l3=0x11}
0x198…1b7 Line {l1=0x1d, l2=»0200 IF STATUS(FIL1$)=0 THEN «, l3=0x1d}
0x1b7…1c6 Line {l1=0x0d, l2=»0210 EXEC LÆS«, l3=0x0d}
0x1c6…1d7 Line {l1=0x0f, l2=»0220 EXEC SKRIV«, l3=0x0f}
0x1d7…1e4 Line {l1=0x0b, l2=»0230 ENDIF «, l3=0x0b}
0x1e4…1f1 Line {l1=0x0b, l2=»0235 CLOSE «, l3=0x0b}
0x1f1…1ff Line {l1=0x0c, l2=»0240 NEXT NR«, l3=0x0c}
0x1ff…20b Line {l1=0x0a, l2=»0250 ELSE «, l3=0x0a}
0x20b…220 Line {l1=0x13, l2=»0270 FIL1$=FIL$+SV$«, l3=0x13}
0x220…233 Line {l1=0x11, l2=»0280 OPEN FIL1$,R«, l3=0x11}
0x233…252 Line {l1=0x1d, l2=»0290 IF STATUS(FIL1$)=0 THEN «, l3=0x1d}
0x252…261 Line {l1=0x0d, l2=»0300 EXEC LÆS«, l3=0x0d}
0x261…272 Line {l1=0x0f, l2=»0310 EXEC SKRIV«, l3=0x0f}
0x272…27f Line {l1=0x0b, l2=»0320 ENDIF «, l3=0x0b}
0x27f…28c Line {l1=0x0b, l2=»0325 CLOSE «, l3=0x0b}
0x28c…299 Line {l1=0x0b, l2=»0330 ENDIF «, l3=0x0b}
0x299…2a8 Line {l1=0x0d, l2=»0335 OUTPUT T«, l3=0x0d}
0x2a8…2c5 Line {l1=0x1b, l2=»0336 INPUT "FLERE J/N ",SV$«, l3=0x1b}
0x2c5…2f1 Line {l1=0x2a, l2=»0337 IF SV$="J" OR SV$="j" THEN GO TO 0120«, l3=0x2a}
0x2f1…2fd Line {l1=0x0a, l2=»0340 STOP «, l3=0x0a}
0x2fd…30c Line {l1=0x0d, l2=»0400 PROC LÆS«, l3=0x0d}
0x30c…320 Line {l1=0x12, l2=»0410 FOR L=1 TO 18«, l3=0x12}
0x320…339 Line {l1=0x17, l2=»0420 GET FIL1$:SIDE$(L)«, l3=0x17}
0x339…35e Line {l1=0x23, l2=»0430 IF LEN(SIDE$(L))>0 THEN LAST=L«, l3=0x23}
0x35e…36b Line {l1=0x0b, l2=»0440 NEXT L«, l3=0x0b}
0x36b…37a Line {l1=0x0d, l2=»0450 ENDPROC «, l3=0x0d}
0x37a…38b Line {l1=0x0f, l2=»0500 PROC SKRIV«, l3=0x0f}
0x38b…39f Line {l1=0x12, l2=»0520 FOR L=1 TO 18«, l3=0x12}
0x39f…3bc Line {l1=0x1b, l2=»0530 PRINT TAB(10);SIDE$(L)«, l3=0x1b}
0x3bc…3c9 Line {l1=0x0b, l2=»0540 NEXT L«, l3=0x0b}
0x3c9…3dc Line {l1=0x11, l2=»0541 FOR L=1 TO 6«, l3=0x11}
0x3dc…3e9 Line {l1=0x0b, l2=»0542 PRINT «, l3=0x0b}
0x3e9…3f6 Line {l1=0x0b, l2=»0543 NEXT L«, l3=0x0b}
0x3f6…405 Line {l1=0x0d, l2=»0550 ENDPROC «, l3=0x0d}
0x405…420 00 00 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                  ┆  ccccccccccccccccccccccccc┆
0x420…440 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┆
          […0xc…]

TextFile

/0100 DIM SIDE$(18,66),FIL1$(20),FIL$(20),SV$(2)/▶15◀0110 FIL$="DDE:MODUL"▶15◀\f

0120 REPEAT \f

90130 INPUT "HVILKET MODUL SKAL SKRIVES, 00 FOR ALLE ",SV$9F0140 UNTIL SV$(1)=>"0" AND SV$(1)<="9" AND SV$(2)=>"0" AND SV$(2)<="9"F\r0144 OUTPUT P\r▶11◀0145 FOR L=1 TO 3▶11◀▶0b◀0146 PRINT ▶0b◀▶0b◀0147 NEXT L▶0b◀▶16◀0150 IF SV$="00" THEN ▶16◀▶13◀0160 FOR NR=1 TO 99▶13◀,0170 SV$=CHR(NR DIV 10+48)+CHR(NR MOD 10+48),▶13◀0180 FIL1$=FIL$+SV$▶13◀▶11◀0190 OPEN FIL1$,R▶11◀▶1d◀0200 IF STATUS(FIL1$)=0 THEN ▶1d◀\r0210 EXEC LÆS\r▶0f◀0220 EXEC SKRIV▶0f◀▶0b◀0230 ENDIF ▶0b◀▶0b◀0235 CLOSE ▶0b◀\f

0240 NEXT NR\f


0250 ELSE 
▶13◀0270 FIL1$=FIL$+SV$▶13◀▶11◀0280 OPEN FIL1$,R▶11◀▶1d◀0290 IF STATUS(FIL1$)=0 THEN ▶1d◀\r0300 EXEC LÆS\r▶0f◀0310 EXEC SKRIV▶0f◀▶0b◀0320 ENDIF ▶0b◀▶0b◀0325 CLOSE ▶0b◀▶0b◀0330 ENDIF ▶0b◀\r0335 OUTPUT T\r▶1b◀0336 INPUT "FLERE J/N ",SV$▶1b◀*0337 IF SV$="J" OR SV$="j" THEN GO TO 0120*
0340 STOP 
\r0400 PROC LÆS\r▶12◀0410 FOR L=1 TO 18▶12◀▶17◀0420 GET FIL1$:SIDE$(L)▶17◀#0430 IF LEN(SIDE$(L))>0 THEN LAST=L#▶0b◀0440 NEXT L▶0b◀\r0450 ENDPROC \r▶0f◀0500 PROC SKRIV▶0f◀▶12◀0520 FOR L=1 TO 18▶12◀▶1b◀0530 PRINT TAB(10);SIDE$(L)▶1b◀▶0b◀0540 NEXT L▶0b◀▶11◀0541 FOR L=1 TO 6▶11◀▶0b◀0542 PRINT ▶0b◀▶0b◀0543 NEXT L▶0b◀\r0550 ENDPROC \r▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view