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 TextFile, Mikados_K
    Names: »KAPUT«

Derivation

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

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 

▶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