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

⟦2fc104605⟧ TextFile

    Length: 2272 (0x8e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »MATPRINT.K«

Derivation

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

Mikados K File

0100 DIM FIL$(20),N$(10),LINE$(77),LINE1$(77),BL$(5)
0105 BL$="     "
0250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$
0260 INPUT "SIDENR ",SNR
0280 OUTPUT P
0314 EXEC SIDENR
0315 READ NROF
0316 FOR FI=1 TO NROF
0318 READ FIL$
0320 FIL$="DDE:"+FIL$+" "
0322 OPEN FIL$,R
0324 EXEC FEJL(FIL$)
0340 GET FIL$:LINE$
0370 WHILE STATUS(FIL$)=0
0372 IF LINE$(1)="%" THEN 
0376 GET FIL$:LINE$
0378 EXEC FEJL(FIL$)
0396 ENDIF 
0397 IF LINE$(1)="@" THEN 
0398 EXEC SIDENR
0399 ELSE 
0412 PRINT LINE$
0425 ENDIF 
0430 GET FIL$:LINE$
0460 ENDWHILE 
0470 IF STATUS(FIL$)<>19 THEN EXEC FEJL(FIL$)
0480 NEXT FI
0490 PRINT CHR(12)
0520 OUTPUT T
0550 IF STATUS(FIL$)<>19 THEN 
0580 PRINT "UDSKRIFTEN AFSLUTTET UNORMALT, STATUS ",STATUS(FIL$)
0610 ELSE 
0640 PRINT "UDSKRIFTEN AFSLUTTET NORMALT"
0670 ENDIF 
0700 STOP 
0730 PROC FEJL(FILE)
0760 IF STATUS(FILE$) THEN 
0790 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(FILE$)
0820 PRINT "PAA FIL ";FILE$
0850 STOP 
0880 ENDIF 
0910 ENDPROC 
0920 PROC SIDENR
0925 FOR L=1 TO 6
0930 PRINT " "
0935 NEXT L
0940 PRINT "."
0945 FOR L=1 TO 3
0950 PRINT " "
0955 NEXT L
0960 PRINT TAB(35);"-";SNR;"-"
0965 FOR L=1 TO 3
0970 PRINT " "
0975 NEXT L
0980 SNR=SNR+1
0985 ENDPROC 
1015 DATA 30
1020 DATA "FORORD","INDHOLD","DEL11","KAP21","KONKLUS"
1022 DATA "KAP11"
1025 DATA "APPA","THES34"
1030 DATA "APPC"
1035 DATA "APPD"
1040 DATA "REF01","REF2","JN","JJJ","NKK"
1045 DATA "BJÆLKE","CAD","FORSKYD","HOOKE","HYDRO","NAVIER"
1050 DATA "REYNOLDS","SNIT","SDLINIE","SPÆNDING","LIGEVÆGT"
1055 DATA "STABIL","SVING","TORSION"
1059 DATA "LITTLIST"
1060 END

Mikados K File

0x000…036 Line {l1=0x34, l2=»0100 DIM FIL$(20),N$(10),LINE$(77),LINE1$(77),BL$(5)«, l3=0x34}
0x036…048 Line {l1=0x10, l2=»0105 BL$="     "«, l3=0x10}
0x048…07d Line {l1=0x33, l2=»0250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$«, l3=0x33}
0x07d…097 Line {l1=0x18, l2=»0260 INPUT "SIDENR ",SNR«, l3=0x18}
0x097…0a6 Line {l1=0x0d, l2=»0280 OUTPUT P«, l3=0x0d}
0x0a6…0b8 Line {l1=0x10, l2=»0314 EXEC SIDENR«, l3=0x10}
0x0b8…0c8 Line {l1=0x0e, l2=»0315 READ NROF«, l3=0x0e}
0x0c8…0df Line {l1=0x15, l2=»0316 FOR FI=1 TO NROF«, l3=0x15}
0x0df…0ef Line {l1=0x0e, l2=»0318 READ FIL$«, l3=0x0e}
0x0ef…10a Line {l1=0x19, l2=»0320 FIL$="DDE:"+FIL$+" "«, l3=0x19}
0x10a…11c Line {l1=0x10, l2=»0322 OPEN FIL$,R«, l3=0x10}
0x11c…132 Line {l1=0x14, l2=»0324 EXEC FEJL(FIL$)«, l3=0x14}
0x132…147 Line {l1=0x13, l2=»0340 GET FIL$:LINE$«, l3=0x13}
0x147…162 Line {l1=0x19, l2=»0370 WHILE STATUS(FIL$)=0«, l3=0x19}
0x162…17e Line {l1=0x1a, l2=»0372 IF LINE$(1)="%" THEN «, l3=0x1a}
0x17e…193 Line {l1=0x13, l2=»0376 GET FIL$:LINE$«, l3=0x13}
0x193…1a9 Line {l1=0x14, l2=»0378 EXEC FEJL(FIL$)«, l3=0x14}
0x1a9…1b6 Line {l1=0x0b, l2=»0396 ENDIF «, l3=0x0b}
0x1b6…1d2 Line {l1=0x1a, l2=»0397 IF LINE$(1)="@" THEN «, l3=0x1a}
0x1d2…1e4 Line {l1=0x10, l2=»0398 EXEC SIDENR«, l3=0x10}
0x1e4…1f0 Line {l1=0x0a, l2=»0399 ELSE «, l3=0x0a}
0x1f0…202 Line {l1=0x10, l2=»0412 PRINT LINE$«, l3=0x10}
0x202…20f Line {l1=0x0b, l2=»0425 ENDIF «, l3=0x0b}
0x20f…224 Line {l1=0x13, l2=»0430 GET FIL$:LINE$«, l3=0x13}
0x224…234 Line {l1=0x0e, l2=»0460 ENDWHILE «, l3=0x0e}
0x234…263 Line {l1=0x2d, l2=»0470 IF STATUS(FIL$)<>19 THEN EXEC FEJL(FIL$)«, l3=0x2d}
0x263…271 Line {l1=0x0c, l2=»0480 NEXT FI«, l3=0x0c}
0x271…285 Line {l1=0x12, l2=»0490 PRINT CHR(12)«, l3=0x12}
0x285…294 Line {l1=0x0d, l2=»0520 OUTPUT T«, l3=0x0d}
0x294…2b4 Line {l1=0x1e, l2=»0550 IF STATUS(FIL$)<>19 THEN «, l3=0x1e}
0x2b4…2f6 Line {l1=0x40, l2=»0580 PRINT "UDSKRIFTEN AFSLUTTET UNORMALT, STATUS ",STATUS(FIL$)«, l3=0x40}
0x2f6…302 Line {l1=0x0a, l2=»0610 ELSE «, l3=0x0a}
0x302…32d Line {l1=0x29, l2=»0640 PRINT "UDSKRIFTEN AFSLUTTET NORMALT"«, l3=0x29}
0x32d…33a Line {l1=0x0b, l2=»0670 ENDIF «, l3=0x0b}
0x33a…346 Line {l1=0x0a, l2=»0700 STOP «, l3=0x0a}
0x346…35c Line {l1=0x14, l2=»0730 PROC FEJL(FILE)«, l3=0x14}
0x35c…379 Line {l1=0x1b, l2=»0760 IF STATUS(FILE$) THEN «, l3=0x1b}
0x379…3b1 Line {l1=0x36, l2=»0790 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(FILE$)«, l3=0x36}
0x3b1…3ce Line {l1=0x1b, l2=»0820 PRINT "PAA FIL ";FILE$«, l3=0x1b}
0x3ce…3da Line {l1=0x0a, l2=»0850 STOP «, l3=0x0a}
0x3da…3e7 Line {l1=0x0b, l2=»0880 ENDIF «, l3=0x0b}
0x3e7…3f6 Line {l1=0x0d, l2=»0910 ENDPROC «, l3=0x0d}
0x3f6…408 Line {l1=0x10, l2=»0920 PROC SIDENR«, l3=0x10}
0x408…41b Line {l1=0x11, l2=»0925 FOR L=1 TO 6«, l3=0x11}
0x41b…42b Line {l1=0x0e, l2=»0930 PRINT " "«, l3=0x0e}
0x42b…438 Line {l1=0x0b, l2=»0935 NEXT L«, l3=0x0b}
0x438…448 Line {l1=0x0e, l2=»0940 PRINT "."«, l3=0x0e}
0x448…45b Line {l1=0x11, l2=»0945 FOR L=1 TO 3«, l3=0x11}
0x45b…46b Line {l1=0x0e, l2=»0950 PRINT " "«, l3=0x0e}
0x46b…478 Line {l1=0x0b, l2=»0955 NEXT L«, l3=0x0b}
0x478…498 Line {l1=0x1e, l2=»0960 PRINT TAB(35);"-";SNR;"-"«, l3=0x1e}
0x498…4ab Line {l1=0x11, l2=»0965 FOR L=1 TO 3«, l3=0x11}
0x4ab…4bb Line {l1=0x0e, l2=»0970 PRINT " "«, l3=0x0e}
0x4bb…4c8 Line {l1=0x0b, l2=»0975 NEXT L«, l3=0x0b}
0x4c8…4d8 Line {l1=0x0e, l2=»0980 SNR=SNR+1«, l3=0x0e}
0x4d8…4e7 Line {l1=0x0d, l2=»0985 ENDPROC «, l3=0x0d}
0x4e7…4f5 Line {l1=0x0c, l2=»1015 DATA 30«, l3=0x0c}
0x4f5…52d Line {l1=0x36, l2=»1020 DATA "FORORD","INDHOLD","DEL11","KAP21","KONKLUS"«, l3=0x36}
0x52d…540 Line {l1=0x11, l2=»1022 DATA "KAP11"«, l3=0x11}
0x540…55b Line {l1=0x19, l2=»1025 DATA "APPA","THES34"«, l3=0x19}
0x55b…56d Line {l1=0x10, l2=»1030 DATA "APPC"«, l3=0x10}
0x56d…57f Line {l1=0x10, l2=»1035 DATA "APPD"«, l3=0x10}
0x57f…5aa Line {l1=0x29, l2=»1040 DATA "REF01","REF2","JN","JJJ","NKK"«, l3=0x29}
0x5aa…5e7 Line {l1=0x3b, l2=»1045 DATA "BJÆLKE","CAD","FORSKYD","HOOKE","HYDRO","NAVIER"«, l3=0x3b}
0x5e7…624 Line {l1=0x3b, l2=»1050 DATA "REYNOLDS","SNIT","SDLINIE","SPÆNDING","LIGEVÆGT"«, l3=0x3b}
0x624…64a Line {l1=0x24, l2=»1055 DATA "STABIL","SVING","TORSION"«, l3=0x24}
0x64a…660 Line {l1=0x14, l2=»1059 DATA "LITTLIST"«, l3=0x14}
0x660…66b Line {l1=0x09, l2=»1060 END «, l3=0x09}
0x66b…680 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                                    ┆  ccccccccccccccccccc┆
0x680…6a0 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┆
          […0x12…]

TextFile

40100 DIM FIL$(20),N$(10),LINE$(77),LINE1$(77),BL$(5)4▶10◀0105 BL$="     "▶10◀30250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$3▶18◀0260 INPUT "SIDENR ",SNR▶18◀\r0280 OUTPUT P\r▶10◀0314 EXEC SIDENR▶10◀▶0e◀0315 READ NROF▶0e◀▶15◀0316 FOR FI=1 TO NROF▶15◀▶0e◀0318 READ FIL$▶0e◀▶19◀0320 FIL$="DDE:"+FIL$+" "▶19◀▶10◀0322 OPEN FIL$,R▶10◀▶14◀0324 EXEC FEJL(FIL$)▶14◀▶13◀0340 GET FIL$:LINE$▶13◀▶19◀0370 WHILE STATUS(FIL$)=0▶19◀▶1a◀0372 IF LINE$(1)="%" THEN ▶1a◀▶13◀0376 GET FIL$:LINE$▶13◀▶14◀0378 EXEC FEJL(FIL$)▶14◀▶0b◀0396 ENDIF ▶0b◀▶1a◀0397 IF LINE$(1)="@" THEN ▶1a◀▶10◀0398 EXEC SIDENR▶10◀
0399 ELSE 
▶10◀0412 PRINT LINE$▶10◀▶0b◀0425 ENDIF ▶0b◀▶13◀0430 GET FIL$:LINE$▶13◀▶0e◀0460 ENDWHILE ▶0e◀-0470 IF STATUS(FIL$)<>19 THEN EXEC FEJL(FIL$)-\f

0480 NEXT FI\f

▶12◀0490 PRINT CHR(12)▶12◀\r0520 OUTPUT T\r▶1e◀0550 IF STATUS(FIL$)<>19 THEN ▶1e◀@0580 PRINT "UDSKRIFTEN AFSLUTTET UNORMALT, STATUS ",STATUS(FIL$)@
0610 ELSE 
)0640 PRINT "UDSKRIFTEN AFSLUTTET NORMALT")▶0b◀0670 ENDIF ▶0b◀
0700 STOP 
▶14◀0730 PROC FEJL(FILE)▶14◀▶1b◀0760 IF STATUS(FILE$) THEN ▶1b◀60790 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(FILE$)6▶1b◀0820 PRINT "PAA FIL ";FILE$▶1b◀
0850 STOP 
▶0b◀0880 ENDIF ▶0b◀\r0910 ENDPROC \r▶10◀0920 PROC SIDENR▶10◀▶11◀0925 FOR L=1 TO 6▶11◀▶0e◀0930 PRINT " "▶0e◀▶0b◀0935 NEXT L▶0b◀▶0e◀0940 PRINT "."▶0e◀▶11◀0945 FOR L=1 TO 3▶11◀▶0e◀0950 PRINT " "▶0e◀▶0b◀0955 NEXT L▶0b◀▶1e◀0960 PRINT TAB(35);"-";SNR;"-"▶1e◀▶11◀0965 FOR L=1 TO 3▶11◀▶0e◀0970 PRINT " "▶0e◀▶0b◀0975 NEXT L▶0b◀▶0e◀0980 SNR=SNR+1▶0e◀\r0985 ENDPROC \r\f

1015 DATA 30\f

61020 DATA "FORORD","INDHOLD","DEL11","KAP21","KONKLUS"6▶11◀1022 DATA "KAP11"▶11◀▶19◀1025 DATA "APPA","THES34"▶19◀▶10◀1030 DATA "APPC"▶10◀▶10◀1035 DATA "APPD"▶10◀)1040 DATA "REF01","REF2","JN","JJJ","NKK");1045 DATA "BJÆLKE","CAD","FORSKYD","HOOKE","HYDRO","NAVIER";;1050 DATA "REYNOLDS","SNIT","SDLINIE","SPÆNDING","LIGEVÆGT";$1055 DATA "STABIL","SVING","TORSION"$▶14◀1059 DATA "LITTLIST"▶14◀	1060 END 	▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view