|
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 - metrics - download
Length: 935 (0x3a7)
Notes: Mikados TextFile, Mikados_K
Names: »SKRIVMOD«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »SKRIVMOD«
0100 DIM SIDE$(18,66),FIL1$(20),FIL$(20),SV$(2) 0110 FIL$="DDE:MODUL" 0120 REPEAT 0130 INPUT "HVILKET MODUL SKAL SKRIVES, 00 FOR ALLE ",SV$ 0140 UNTIL SV$(1)=>"0" AND SV$(1)<="9" AND SV$(2)=>"0" AND SV$(2)<="9" 0144 OUTPUT P 0145 FOR L=1 TO 3 0146 PRINT 0147 NEXT L 0150 IF SV$="00" THEN 0160 FOR NR=1 TO 99 0170 SV$=CHR(NR DIV 10+48)+CHR(NR MOD 10+48) 0180 FIL1$=FIL$+SV$ 0190 OPEN FIL1$,R 0200 IF STATUS(FIL1$)=0 THEN 0210 EXEC LÆS 0220 EXEC SKRIV 0230 ENDIF 0235 CLOSE 0240 NEXT NR 0250 ELSE 0270 FIL1$=FIL$+SV$ 0280 OPEN FIL1$,R 0290 IF STATUS(FIL1$)=0 THEN 0300 EXEC LÆS 0310 EXEC SKRIV 0320 ENDIF 0325 CLOSE 0330 ENDIF 0335 OUTPUT T 0336 INPUT "FLERE J/N ",SV$ 0337 IF SV$="J" OR SV$="j" THEN GO TO 0120 0340 STOP 0400 PROC LÆS 0410 FOR L=1 TO 18 0420 GET FIL1$:SIDE$(L) 0430 IF LEN(SIDE$(L))>0 THEN LAST=L 0440 NEXT L 0450 ENDPROC 0500 PROC SKRIV 0520 FOR L=1 TO 18 0530 PRINT TAB(10);SIDE$(L) 0540 NEXT L 0541 FOR L=1 TO 6 0542 PRINT 0543 NEXT L 0550 ENDPROC