DataMuseum.dk

top - download

    Length: 3520 (0xdc0)
    Notes: Mikados TextFile, Mikados_K
    Names: »ALLSKRIV«

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

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
0310 PRINT "<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>"
0311 PRINT "<hhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>"
0312 PRINT "<vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv>"
0313 PRINT "<VVVVVVVVVVVVVVVVVVVVVVVVVV>"
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 
0374 LINE1$=LINE$
0376 GET FIL$:LINE$
0378 EXEC FEJL(FIL$)
0380 FOR I=2 TO LEN(LINE1$)
0382 IF LINE1$(I)="_" THEN 
0384 LINE$(I)=CHR(ORD(LINE$(I))+128)
0386 ENDIF 
0388 NEXT I
0390 IF LINE1$(2)="_" THEN 
0392 LINE$(1)=CHR(ORD(LINE$(1))+128)
0394 ENDIF 
0396 ENDIF 
0397 IF LINE$(1)="@" THEN 
0398 EXEC SIDENR
0399 ELSE 
0400 I=LEN(LINE$)
0401 IF I<72 THEN GO TO 0408
0402 WHILE LINE$(I)=" "
0404 I=I-1
0406 ENDWHILE 
0408 GAP=77-I
0410 IF GAP>5 OR GAP=0 THEN 
0412 PRINT LINE$
0414 ELSE 
0416 PRINT "<SH>";LINE$(1,12*GAP)
0418 PRINT "<h>";BL$(1,GAP);LINE$(12*GAP+1,77)
0420 ENDIF 
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