|
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
0x000…031 Line {l1=0x2f, l2=»0100 DIM SIDE$(22,66),FIL1$(20),FIL$(20),SV$(2)«, l3=0x2f}
0x031…04c Line {l1=0x19, l2=»0110 FIL$="P641216:MODUL"«, l3=0x19}
0x04c…05a Line {l1=0x0c, l2=»0120 REPEAT «, l3=0x0c}
0x05a…095 Line {l1=0x39, l2=»0130 INPUT "HVILKET MODUL SKAL SKRIVES, 00 FOR ALLE ",SV$«, l3=0x39}
0x095…0dd Line {l1=0x46, l2=»0140 UNTIL SV$(1)=>"0" AND SV$(1)<="9" AND SV$(2)=>"0" AND SV$(2)<="9"«, l3=0x46}
0x0dd…0f5 Line {l1=0x16, l2=»0150 IF SV$="00" THEN «, l3=0x16}
0x0f5…10a Line {l1=0x13, l2=»0160 FOR NR=1 TO 99«, l3=0x13}
0x10a…138 Line {l1=0x2c, l2=»0170 SV$=CHR(NR DIV 10+48)+CHR(NR MOD 10+48)«, l3=0x2c}
0x138…14d Line {l1=0x13, l2=»0180 FIL1$=FIL$+SV$«, l3=0x13}
0x14d…160 Line {l1=0x11, l2=»0190 OPEN FIL1$,R«, l3=0x11}
0x160…17f Line {l1=0x1d, l2=»0200 IF STATUS(FIL1$)=0 THEN «, l3=0x1d}
0x17f…18e Line {l1=0x0d, l2=»0210 EXEC LÆS«, l3=0x0d}
0x18e…19f Line {l1=0x0f, l2=»0220 EXEC SKRIV«, l3=0x0f}
0x19f…1ac Line {l1=0x0b, l2=»0230 ENDIF «, l3=0x0b}
0x1ac…1b9 Line {l1=0x0b, l2=»0235 CLOSE «, l3=0x0b}
0x1b9…1c7 Line {l1=0x0c, l2=»0240 NEXT NR«, l3=0x0c}
0x1c7…1d3 Line {l1=0x0a, l2=»0250 ELSE «, l3=0x0a}
0x1d3…1e8 Line {l1=0x13, l2=»0270 FIL1$=FIL$+SV$«, l3=0x13}
0x1e8…1fb Line {l1=0x11, l2=»0280 OPEN FIL1$,R«, l3=0x11}
0x1fb…21a Line {l1=0x1d, l2=»0290 IF STATUS(FIL1$)=0 THEN «, l3=0x1d}
0x21a…229 Line {l1=0x0d, l2=»0300 EXEC LÆS«, l3=0x0d}
0x229…23a Line {l1=0x0f, l2=»0310 EXEC SKRIV«, l3=0x0f}
0x23a…247 Line {l1=0x0b, l2=»0320 ENDIF «, l3=0x0b}
0x247…254 Line {l1=0x0b, l2=»0325 CLOSE «, l3=0x0b}
0x254…261 Line {l1=0x0b, l2=»0330 ENDIF «, l3=0x0b}
0x261…27e Line {l1=0x1b, l2=»0336 INPUT "FLERE J/N ",SV$«, l3=0x1b}
0x27e…2aa Line {l1=0x2a, l2=»0337 IF SV$="J" OR SV$="j" THEN GO TO 0120«, l3=0x2a}
0x2aa…2c6 Line {l1=0x1a, l2=»0340 CHAIN "P641216:START"«, l3=0x1a}
0x2c6…2d5 Line {l1=0x0d, l2=»0400 PROC LÆS«, l3=0x0d}
0x2d5…2df Line {l1=0x08, l2=»0401 L=1«, l3=0x08}
0x2df…2f8 Line {l1=0x17, l2=»0402 GET FIL1$:SIDE$(L)«, l3=0x17}
0x2f8…318 Line {l1=0x1e, l2=»0403 WHILE STATUS(FIL1$)=0 DO «, l3=0x1e}
0x318…324 Line {l1=0x0a, l2=»0410 L=L+1«, l3=0x0a}
0x324…33d Line {l1=0x17, l2=»0420 GET FIL1$:SIDE$(L)«, l3=0x17}
0x33d…34d Line {l1=0x0e, l2=»0430 ENDWHILE «, l3=0x0e}
0x34d…35c Line {l1=0x0d, l2=»0440 LAST=L-1«, l3=0x0d}
0x35c…36b Line {l1=0x0d, l2=»0450 ENDPROC «, l3=0x0d}
0x36b…37c Line {l1=0x0f, l2=»0500 PROC SKRIV«, l3=0x0f}
0x37c…38b Line {l1=0x0d, l2=»0510 OUTPUT P«, l3=0x0d}
0x38b…3af Line {l1=0x22, l2=»0515 PRINT TAB(30);"Modulnr ";SV$«, l3=0x22}
0x3af…3c3 Line {l1=0x12, l2=»0516 FOR L=1 TO 10«, l3=0x12}
0x3c3…3d0 Line {l1=0x0b, l2=»0517 PRINT «, l3=0x0b}
0x3d0…3dd Line {l1=0x0b, l2=»0518 NEXT L«, l3=0x0b}
0x3dd…3f3 Line {l1=0x14, l2=»0520 FOR L=1 TO LAST«, l3=0x14}
0x3f3…410 Line {l1=0x1b, l2=»0530 PRINT TAB(10);SIDE$(L)«, l3=0x1b}
0x410…41d Line {l1=0x0b, l2=»0540 NEXT L«, l3=0x0b}
0x41d…431 Line {l1=0x12, l2=»0541 PRINT CHR(12)«, l3=0x12}
0x431…440 Line {l1=0x0d, l2=»0542 OUTPUT T«, l3=0x0d}
0x440…44f Line {l1=0x0d, l2=»0550 ENDPROC «, l3=0x0d}
0x44f…460 00 00 44 55 4c 20 53 4b 41 4c 20 53 4b 52 49 56 45 ┆ DUL SKAL SKRIVE┆
0x460…480 53 2c 20 30 30 20 46 4f 52 20 41 4c 4c 45 20 22 2c 53 56 24 39 46 30 31 34 30 20 55 4e 54 49 4c ┆S, 00 FOR ALLE ",SV$9F0140 UNTIL┆
0x480…4a0 20 53 56 24 28 31 29 3d 3e 22 30 22 20 41 4e 44 20 53 56 24 28 31 29 3c 3d 22 39 22 20 41 4e 44 ┆ SV$(1)=>"0" AND SV$(1)<="9" AND┆
0x4a0…4c0 20 53 56 24 28 32 29 3d 3e 22 30 22 20 41 4e 44 20 53 56 24 28 32 29 3c 3d 22 39 22 46 16 30 31 ┆ SV$(2)=>"0" AND SV$(2)<="9"F 01┆
0x4c0…4e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x17…]