|
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: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »SKRIVMOD.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »SKRIVMOD.K«
0100 DIM SIDE$(22,66),FIL1$(20),FIL$(20),SV$(2) 0110 FIL$="P641216: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" 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 0336 INPUT "FLERE J/N ",SV$ 0337 IF SV$="J" OR SV$="j" THEN GO TO 0120 0340 CHAIN "P641216:START" 0400 PROC LÆS 0401 L=1 0402 GET FIL1$:SIDE$(L) 0403 WHILE STATUS(FIL1$)=0 DO 0410 L=L+1 0420 GET FIL1$:SIDE$(L) 0430 ENDWHILE 0440 LAST=L-1 0450 ENDPROC 0500 PROC SKRIV 0510 OUTPUT P 0515 PRINT TAB(30);"Modulnr ";SV$ 0516 FOR L=1 TO 10 0517 PRINT 0518 NEXT L 0520 FOR L=1 TO LAST 0530 PRINT TAB(10);SIDE$(L) 0540 NEXT L 0541 PRINT CHR(12) 0542 OUTPUT T 0550 ENDPROC