DataMuseum.dk

top - metrics - download

    Length: 1507 (0x5e3)
    Notes: Mikados TextFile, Mikados_K
    Names: »MATPRINT«

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

Text

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