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

Derivation

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

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 

/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