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

⟦918d991c8⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »KAPUT.K«

Derivation

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

Mikados K File

0130 DIM SYM$(77)
0135 DIM UDFIL$(20)
0200 INPUT "FILNAVN ",UDFIL$
0201 INPUT "ANTAL KOPIER ",ANTAL
0205 REPEAT 
0210 EXEC WRITE
0211 ANTAL=ANTAL-1
0219 UNTIL ANTAL=0
0220 STOP 
8000 PROC WRITE
8005 OUTPUT P
8010 OPEN UDFIL$,R
8015 GET UDFIL$:SYM$
8020 LINES=0
8030 WHILE STATUS(UDFIL$)=0
8040 LINES=LINES+2
8041 IF SYM$="%P" THEN 
8042 WHILE LINES<63
8043 PRINT " "
8044 LINES=LINES+1
8045 ENDWHILE 
8047 GET UDFIL$:SYM$
8048 ENDIF 
8050 IF LINES=>53 THEN 
8060 FOR LINES=1 TO 11
8070 PRINT " "
8080 NEXT LINES
8090 LINES=2
8100 ENDIF 
8110 PRINT TAB(3);SYM$
8115 PRINT " "
8120 GET UDFIL$:SYM$
8130 ENDWHILE 
8135 CLOSE UDFIL$
8136 PRINT CHR(12)
8137 OUTPUT T
8140 ENDPROC

Mikados K File

0x000…013 Line {l1=0x11, l2=»0130 DIM SYM$(77)«, l3=0x11}
0x013…028 Line {l1=0x13, l2=»0135 DIM UDFIL$(20)«, l3=0x13}
0x028…046 Line {l1=0x1c, l2=»0200 INPUT "FILNAVN ",UDFIL$«, l3=0x1c}
0x046…068 Line {l1=0x20, l2=»0201 INPUT "ANTAL KOPIER ",ANTAL«, l3=0x20}
0x068…076 Line {l1=0x0c, l2=»0205 REPEAT «, l3=0x0c}
0x076…087 Line {l1=0x0f, l2=»0210 EXEC WRITE«, l3=0x0f}
0x087…09b Line {l1=0x12, l2=»0211 ANTAL=ANTAL-1«, l3=0x12}
0x09b…0af Line {l1=0x12, l2=»0219 UNTIL ANTAL=0«, l3=0x12}
0x0af…0bb Line {l1=0x0a, l2=»0220 STOP «, l3=0x0a}
0x0bb…0cc Line {l1=0x0f, l2=»8000 PROC WRITE«, l3=0x0f}
0x0cc…0db Line {l1=0x0d, l2=»8005 OUTPUT P«, l3=0x0d}
0x0db…0ef Line {l1=0x12, l2=»8010 OPEN UDFIL$,R«, l3=0x12}
0x0ef…105 Line {l1=0x14, l2=»8015 GET UDFIL$:SYM$«, l3=0x14}
0x105…113 Line {l1=0x0c, l2=»8020 LINES=0«, l3=0x0c}
0x113…130 Line {l1=0x1b, l2=»8030 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x130…144 Line {l1=0x12, l2=»8040 LINES=LINES+2«, l3=0x12}
0x144…15d Line {l1=0x17, l2=»8041 IF SYM$="%P" THEN «, l3=0x17}
0x15d…172 Line {l1=0x13, l2=»8042 WHILE LINES<63«, l3=0x13}
0x172…182 Line {l1=0x0e, l2=»8043 PRINT " "«, l3=0x0e}
0x182…196 Line {l1=0x12, l2=»8044 LINES=LINES+1«, l3=0x12}
0x196…1a6 Line {l1=0x0e, l2=»8045 ENDWHILE «, l3=0x0e}
0x1a6…1bc Line {l1=0x14, l2=»8047 GET UDFIL$:SYM$«, l3=0x14}
0x1bc…1c9 Line {l1=0x0b, l2=»8048 ENDIF «, l3=0x0b}
0x1c9…1e2 Line {l1=0x17, l2=»8050 IF LINES=>53 THEN «, l3=0x17}
0x1e2…1fa Line {l1=0x16, l2=»8060 FOR LINES=1 TO 11«, l3=0x16}
0x1fa…20a Line {l1=0x0e, l2=»8070 PRINT " "«, l3=0x0e}
0x20a…21b Line {l1=0x0f, l2=»8080 NEXT LINES«, l3=0x0f}
0x21b…229 Line {l1=0x0c, l2=»8090 LINES=2«, l3=0x0c}
0x229…236 Line {l1=0x0b, l2=»8100 ENDIF «, l3=0x0b}
0x236…24e Line {l1=0x16, l2=»8110 PRINT TAB(3);SYM$«, l3=0x16}
0x24e…25e Line {l1=0x0e, l2=»8115 PRINT " "«, l3=0x0e}
0x25e…274 Line {l1=0x14, l2=»8120 GET UDFIL$:SYM$«, l3=0x14}
0x274…284 Line {l1=0x0e, l2=»8130 ENDWHILE «, l3=0x0e}
0x284…297 Line {l1=0x11, l2=»8135 CLOSE UDFIL$«, l3=0x11}
0x297…2ab Line {l1=0x12, l2=»8136 PRINT CHR(12)«, l3=0x12}
0x2ab…2ba Line {l1=0x0d, l2=»8137 OUTPUT T«, l3=0x0d}
0x2ba…2c9 Line {l1=0x0d, l2=»8140 ENDPROC «, l3=0x0d}
0x2c9…2e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                              ┆  ccccccccccccccccccccc┆
0x2e0…300 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┆
          […0x37…]

TextFile

▶11◀0130 DIM SYM$(77)▶11◀▶13◀0135 DIM UDFIL$(20)▶13◀▶1c◀0200 INPUT "FILNAVN ",UDFIL$▶1c◀ 0201 INPUT "ANTAL KOPIER ",ANTAL \f

0205 REPEAT \f

▶0f◀0210 EXEC WRITE▶0f◀▶12◀0211 ANTAL=ANTAL-1▶12◀▶12◀0219 UNTIL ANTAL=0▶12◀
0220 STOP 
▶0f◀8000 PROC WRITE▶0f◀\r8005 OUTPUT P\r▶12◀8010 OPEN UDFIL$,R▶12◀▶14◀8015 GET UDFIL$:SYM$▶14◀\f

8020 LINES=0\f

▶1b◀8030 WHILE STATUS(UDFIL$)=0▶1b◀▶12◀8040 LINES=LINES+2▶12◀▶17◀8041 IF SYM$="%P" THEN ▶17◀▶13◀8042 WHILE LINES<63▶13◀▶0e◀8043 PRINT " "▶0e◀▶12◀8044 LINES=LINES+1▶12◀▶0e◀8045 ENDWHILE ▶0e◀▶14◀8047 GET UDFIL$:SYM$▶14◀▶0b◀8048 ENDIF ▶0b◀▶17◀8050 IF LINES=>53 THEN ▶17◀▶16◀8060 FOR LINES=1 TO 11▶16◀▶0e◀8070 PRINT " "▶0e◀▶0f◀8080 NEXT LINES▶0f◀\f

8090 LINES=2\f

▶0b◀8100 ENDIF ▶0b◀▶16◀8110 PRINT TAB(3);SYM$▶16◀▶0e◀8115 PRINT " "▶0e◀▶14◀8120 GET UDFIL$:SYM$▶14◀▶0e◀8130 ENDWHILE ▶0e◀▶11◀8135 CLOSE UDFIL$▶11◀▶12◀8136 PRINT CHR(12)▶12◀\r8137 OUTPUT T\r\r8140 ENDPROC \r▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view