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

Derivation

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

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 

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