|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3520 (0xdc0)
Types: TextFile
Notes: Mikados_K
Names: »ALLSKRIV.K«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »ALLSKRIV.K«
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
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…0e0 Line {l1=0x38, l2=»0310 PRINT "<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>"«, l3=0x38}
0x0e0…111 Line {l1=0x2f, l2=»0311 PRINT "<hhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>"«, l3=0x2f}
0x111…151 Line {l1=0x3e, l2=»0312 PRINT "<vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv>"«, l3=0x3e}
0x151…17c Line {l1=0x29, l2=»0313 PRINT "<VVVVVVVVVVVVVVVVVVVVVVVVVV>"«, l3=0x29}
0x17c…18e Line {l1=0x10, l2=»0314 EXEC SIDENR«, l3=0x10}
0x18e…19e Line {l1=0x0e, l2=»0315 READ NROF«, l3=0x0e}
0x19e…1b5 Line {l1=0x15, l2=»0316 FOR FI=1 TO NROF«, l3=0x15}
0x1b5…1c5 Line {l1=0x0e, l2=»0318 READ FIL$«, l3=0x0e}
0x1c5…1e0 Line {l1=0x19, l2=»0320 FIL$="DDE:"+FIL$+" "«, l3=0x19}
0x1e0…1f2 Line {l1=0x10, l2=»0322 OPEN FIL$,R«, l3=0x10}
0x1f2…208 Line {l1=0x14, l2=»0324 EXEC FEJL(FIL$)«, l3=0x14}
0x208…21d Line {l1=0x13, l2=»0340 GET FIL$:LINE$«, l3=0x13}
0x21d…238 Line {l1=0x19, l2=»0370 WHILE STATUS(FIL$)=0«, l3=0x19}
0x238…254 Line {l1=0x1a, l2=»0372 IF LINE$(1)="%" THEN «, l3=0x1a}
0x254…267 Line {l1=0x11, l2=»0374 LINE1$=LINE$«, l3=0x11}
0x267…27c Line {l1=0x13, l2=»0376 GET FIL$:LINE$«, l3=0x13}
0x27c…292 Line {l1=0x14, l2=»0378 EXEC FEJL(FIL$)«, l3=0x14}
0x292…2af Line {l1=0x1b, l2=»0380 FOR I=2 TO LEN(LINE1$)«, l3=0x1b}
0x2af…2cc Line {l1=0x1b, l2=»0382 IF LINE1$(I)="_" THEN «, l3=0x1b}
0x2cc…2f2 Line {l1=0x24, l2=»0384 LINE$(I)=CHR(ORD(LINE$(I))+128)«, l3=0x24}
0x2f2…2ff Line {l1=0x0b, l2=»0386 ENDIF «, l3=0x0b}
0x2ff…30c Line {l1=0x0b, l2=»0388 NEXT I«, l3=0x0b}
0x30c…329 Line {l1=0x1b, l2=»0390 IF LINE1$(2)="_" THEN «, l3=0x1b}
0x329…34f Line {l1=0x24, l2=»0392 LINE$(1)=CHR(ORD(LINE$(1))+128)«, l3=0x24}
0x34f…35c Line {l1=0x0b, l2=»0394 ENDIF «, l3=0x0b}
0x35c…369 Line {l1=0x0b, l2=»0396 ENDIF «, l3=0x0b}
0x369…385 Line {l1=0x1a, l2=»0397 IF LINE$(1)="@" THEN «, l3=0x1a}
0x385…397 Line {l1=0x10, l2=»0398 EXEC SIDENR«, l3=0x10}
0x397…3a3 Line {l1=0x0a, l2=»0399 ELSE «, l3=0x0a}
0x3a3…3b6 Line {l1=0x11, l2=»0400 I=LEN(LINE$)«, l3=0x11}
0x3b6…3d4 Line {l1=0x1c, l2=»0401 IF I<72 THEN GO TO 0408«, l3=0x1c}
0x3d4…3ed Line {l1=0x17, l2=»0402 WHILE LINE$(I)=" "«, l3=0x17}
0x3ed…3f9 Line {l1=0x0a, l2=»0404 I=I-1«, l3=0x0a}
0x3f9…409 Line {l1=0x0e, l2=»0406 ENDWHILE «, l3=0x0e}
0x409…418 Line {l1=0x0d, l2=»0408 GAP=77-I«, l3=0x0d}
0x418…436 Line {l1=0x1c, l2=»0410 IF GAP>5 OR GAP=0 THEN «, l3=0x1c}
0x436…448 Line {l1=0x10, l2=»0412 PRINT LINE$«, l3=0x10}
0x448…454 Line {l1=0x0a, l2=»0414 ELSE «, l3=0x0a}
0x454…477 Line {l1=0x21, l2=»0416 PRINT "<SH>";LINE$(1,12*GAP)«, l3=0x21}
0x477…4a7 Line {l1=0x2e, l2=»0418 PRINT "<h>";BL$(1,GAP);LINE$(12*GAP+1,77)«, l3=0x2e}
0x4a7…4b4 Line {l1=0x0b, l2=»0420 ENDIF «, l3=0x0b}
0x4b4…4c1 Line {l1=0x0b, l2=»0425 ENDIF «, l3=0x0b}
0x4c1…4d6 Line {l1=0x13, l2=»0430 GET FIL$:LINE$«, l3=0x13}
0x4d6…4e6 Line {l1=0x0e, l2=»0460 ENDWHILE «, l3=0x0e}
0x4e6…515 Line {l1=0x2d, l2=»0470 IF STATUS(FIL$)<>19 THEN EXEC FEJL(FIL$)«, l3=0x2d}
0x515…523 Line {l1=0x0c, l2=»0480 NEXT FI«, l3=0x0c}
0x523…537 Line {l1=0x12, l2=»0490 PRINT CHR(12)«, l3=0x12}
0x537…546 Line {l1=0x0d, l2=»0520 OUTPUT T«, l3=0x0d}
0x546…566 Line {l1=0x1e, l2=»0550 IF STATUS(FIL$)<>19 THEN «, l3=0x1e}
0x566…5a8 Line {l1=0x40, l2=»0580 PRINT "UDSKRIFTEN AFSLUTTET UNORMALT, STATUS ",STATUS(FIL$)«, l3=0x40}
0x5a8…5b4 Line {l1=0x0a, l2=»0610 ELSE «, l3=0x0a}
0x5b4…5df Line {l1=0x29, l2=»0640 PRINT "UDSKRIFTEN AFSLUTTET NORMALT"«, l3=0x29}
0x5df…5ec Line {l1=0x0b, l2=»0670 ENDIF «, l3=0x0b}
0x5ec…5f8 Line {l1=0x0a, l2=»0700 STOP «, l3=0x0a}
0x5f8…60e Line {l1=0x14, l2=»0730 PROC FEJL(FILE)«, l3=0x14}
0x60e…62b Line {l1=0x1b, l2=»0760 IF STATUS(FILE$) THEN «, l3=0x1b}
0x62b…663 Line {l1=0x36, l2=»0790 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(FILE$)«, l3=0x36}
0x663…680 Line {l1=0x1b, l2=»0820 PRINT "PAA FIL ";FILE$«, l3=0x1b}
0x680…68c Line {l1=0x0a, l2=»0850 STOP «, l3=0x0a}
0x68c…699 Line {l1=0x0b, l2=»0880 ENDIF «, l3=0x0b}
0x699…6a8 Line {l1=0x0d, l2=»0910 ENDPROC «, l3=0x0d}
0x6a8…6ba Line {l1=0x10, l2=»0920 PROC SIDENR«, l3=0x10}
0x6ba…6cd Line {l1=0x11, l2=»0925 FOR L=1 TO 6«, l3=0x11}
0x6cd…6da Line {l1=0x0b, l2=»0930 PRINT «, l3=0x0b}
0x6da…6e7 Line {l1=0x0b, l2=»0935 NEXT L«, l3=0x0b}
0x6e7…6f7 Line {l1=0x0e, l2=»0940 PRINT "."«, l3=0x0e}
0x6f7…70a Line {l1=0x11, l2=»0945 FOR L=1 TO 3«, l3=0x11}
0x70a…717 Line {l1=0x0b, l2=»0950 PRINT «, l3=0x0b}
0x717…724 Line {l1=0x0b, l2=»0955 NEXT L«, l3=0x0b}
0x724…744 Line {l1=0x1e, l2=»0960 PRINT TAB(35);"-";SNR;"-"«, l3=0x1e}
0x744…757 Line {l1=0x11, l2=»0965 FOR L=1 TO 3«, l3=0x11}
0x757…764 Line {l1=0x0b, l2=»0970 PRINT «, l3=0x0b}
0x764…771 Line {l1=0x0b, l2=»0975 NEXT L«, l3=0x0b}
0x771…781 Line {l1=0x0e, l2=»0980 SNR=SNR+1«, l3=0x0e}
0x781…790 Line {l1=0x0d, l2=»0985 ENDPROC «, l3=0x0d}
0x790…79e Line {l1=0x0c, l2=»1015 DATA 30«, l3=0x0c}
0x79e…7d6 Line {l1=0x36, l2=»1020 DATA "FORORD","INDHOLD","DEL11","KAP21","KONKLUS"«, l3=0x36}
0x7d6…7e9 Line {l1=0x11, l2=»1022 DATA "KAP11"«, l3=0x11}
0x7e9…804 Line {l1=0x19, l2=»1025 DATA "APPA","THES34"«, l3=0x19}
0x804…816 Line {l1=0x10, l2=»1030 DATA "APPC"«, l3=0x10}
0x816…828 Line {l1=0x10, l2=»1035 DATA "APPD"«, l3=0x10}
0x828…853 Line {l1=0x29, l2=»1040 DATA "REF01","REF2","JN","JJJ","NKK"«, l3=0x29}
0x853…890 Line {l1=0x3b, l2=»1045 DATA "BJÆLKE","CAD","FORSKYD","HOOKE","HYDRO","NAVIER"«, l3=0x3b}
0x890…8cd Line {l1=0x3b, l2=»1050 DATA "REYNOLDS","SNIT","SDLINIE","SPÆNDING","LIGEVÆGT"«, l3=0x3b}
0x8cd…8f3 Line {l1=0x24, l2=»1055 DATA "STABIL","SVING","TORSION"«, l3=0x24}
0x8f3…909 Line {l1=0x14, l2=»1059 DATA "LITTLIST"«, l3=0x14}
0x909…914 Line {l1=0x09, l2=»1060 END «, l3=0x09}
0x914…920 00 00 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccc┆
0x920…940 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┆
[…0x24…]