|
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: 4544 (0x11c0)
Types: TextFile
Notes: Mikados_K
Names: »ÅKOPI.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »ÅKOPI.K«
0100 DIM K1$(17),A$(6),TYPE$(1) 0110 DIM TILNAVN$(27,8),FRANAVN$(27,8),NAVNTIL$(8),NAVNFRA$(8) 0120 DIM DREVFRA$(2),DREVTIL$(2),K$(26,11) 0130 PROC COPY 0140 FLAG=0 0150 CALL "P641215:CFCOPY" 0160 ENDPROC 0170 PROC NRTEST(NUM1) 0180 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 0190 IF L>6 THEN EXIT 0200 CASE L OF 0210 FOR I=1 TO L 0220 P1=INT(ORD(NUM1$(I))-48) 0230 IF P1<0 OR P1>9 THEN TEST2=1 0240 P=P*10+P1 0250 NEXT I 0260 KTAL=P DIV 10000 0270 WHEN 0 0280 P=-1 0290 WHEN 1 0300 CASE NUM1$ OF 0310 P=INT(ORD(NUM1$)-48) 0320 WHEN "D","d" 0330 P=-2 0340 WHEN "A","a" 0350 P=-3 0360 WHEN "M","m" 0370 P=-4 0380 WHEN "J","j" 0390 P=-7 0400 WHEN "N","n" 0410 P=-8 0420 ENDCASE 0430 ENDCASE 0440 ENDPROC 0441 PROC FEJL(NR1,NR2,NR3) 0442 IF STATUS(NR3$)<>0 THEN 0443 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0444 STOP 0445 ENDIF 0446 ENDPROC 0450 K1$="P641220:SYSTEM1" 0460 OPEN K1$,R 0470 FOR I=1 TO 26 0480 GET K1$,I+10:K$(I) 0490 EXEC FEJL(9,8,K1$) 0500 NEXT I 0510 CLOSE K1$ 0520 EXEC FEJL(9,11,K1$) 0530 DREVFRA$="P2";DREVTIL$="P1";TYPE$="K" 0540 J=0;FLAG=0 0550 FOR I=1 TO 26 0560 IF K$(I,1)="2" THEN 0570 J=J+1 0580 FRANAVN$(J)=K$(I,4:LEN(K$(I))-3);TILNAVN$(J)=FRANAVN$(J)+"3" 0590 ENDIF 0600 NEXT I 0605 J=J+1;FRANAVN$(J)="SYSTEM1";TILNAVN$(J)=FRANAVN$(J) 0610 REPEAT 0620 CLEAR 0630 REPEAT 0640 CURSOR 15,13 0650 INPUT "Isæt plade nr 23 og tast RETURN",A$ 0660 EXEC NRTEST(A$) 0670 UNTIL P=-1 0680 CURSOR 15,15 0690 P=0 0700 FOR I=1 TO J 0710 NAVNFRA$=FRANAVN$(I);NAVNTIL$=TILNAVN$(I) 0720 EXEC COPY 0730 IF FLAG THEN EXIT 0740 NEXT I 0750 CASE FLAG OF 0760 PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode:";FLAG 0770 STOP 0780 WHEN 0 0790 WHEN 1 0800 PRINT "Pladen i løbeværk nr 2 er ikke nr 20 eller" 0810 CURSOR 15,17 0820 PRINT "Pladen indeholder ingen data" 0830 WHEN 3,14 0840 PRINT "Pladen i løbeværk nr 1 er ikke nr 23" 0850 WHEN 40 0860 PRINT "Et af løbeværkerne er ikke klar" 0870 CURSOR 15,17 0880 PRINT "Klappen åben, mangler pladen eller pladen vendt forkert" 0890 ENDCASE 0900 IF FLAG<>0 THEN 0910 REPEAT 0920 CURSOR 15,19 0930 INPUT "Ret fejlen og tast RETURN",A$ 0940 EXEC NRTEST(A$) 0950 UNTIL P=-1 0960 ENDIF 0970 UNTIL P=0 0975 CLEAR 0976 REPEAT 0980 CURSOR 15,13 0990 INPUT "Isæt plade nr 10 og tast RETURN",A$ 0991 EXEC NRTEST(A$) 0992 UNTIL P=-1 1000 CHAIN "P641210:ÅRSLUT"
0x0000…0021 Line {l1=0x1f, l2=»0100 DIM K1$(17),A$(6),TYPE$(1)«, l3=0x1f}
0x0021…0061 Line {l1=0x3e, l2=»0110 DIM TILNAVN$(27,8),FRANAVN$(27,8),NAVNTIL$(8),NAVNFRA$(8)«, l3=0x3e}
0x0061…008d Line {l1=0x2a, l2=»0120 DIM DREVFRA$(2),DREVTIL$(2),K$(26,11)«, l3=0x2a}
0x008d…009d Line {l1=0x0e, l2=»0130 PROC COPY«, l3=0x0e}
0x009d…00aa Line {l1=0x0b, l2=»0140 FLAG=0«, l3=0x0b}
0x00aa…00c6 Line {l1=0x1a, l2=»0150 CALL "P641215:CFCOPY"«, l3=0x1a}
0x00c6…00d5 Line {l1=0x0d, l2=»0160 ENDPROC «, l3=0x0d}
0x00d5…00ed Line {l1=0x16, l2=»0170 PROC NRTEST(NUM1)«, l3=0x16}
0x00ed…0113 Line {l1=0x24, l2=»0180 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x0113…012b Line {l1=0x16, l2=»0190 IF L>6 THEN EXIT «, l3=0x16}
0x012b…013c Line {l1=0x0f, l2=»0200 CASE L OF «, l3=0x0f}
0x013c…014f Line {l1=0x11, l2=»0210 FOR I=1 TO L«, l3=0x11}
0x014f…016e Line {l1=0x1d, l2=»0220 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x016e…0191 Line {l1=0x21, l2=»0230 IF P1<0 OR P1>9 THEN TEST2=1«, l3=0x21}
0x0191…01a1 Line {l1=0x0e, l2=»0240 P=P*10+P1«, l3=0x0e}
0x01a1…01ae Line {l1=0x0b, l2=»0250 NEXT I«, l3=0x0b}
0x01ae…01c5 Line {l1=0x15, l2=»0260 KTAL=P DIV 10000«, l3=0x15}
0x01c5…01d2 Line {l1=0x0b, l2=»0270 WHEN 0«, l3=0x0b}
0x01d2…01dd Line {l1=0x09, l2=»0280 P=-1«, l3=0x09}
0x01dd…01ea Line {l1=0x0b, l2=»0290 WHEN 1«, l3=0x0b}
0x01ea…01ff Line {l1=0x13, l2=»0300 CASE NUM1$ OF «, l3=0x13}
0x01ff…021a Line {l1=0x19, l2=»0310 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x021a…022d Line {l1=0x11, l2=»0320 WHEN "D","d"«, l3=0x11}
0x022d…0238 Line {l1=0x09, l2=»0330 P=-2«, l3=0x09}
0x0238…024b Line {l1=0x11, l2=»0340 WHEN "A","a"«, l3=0x11}
0x024b…0256 Line {l1=0x09, l2=»0350 P=-3«, l3=0x09}
0x0256…0269 Line {l1=0x11, l2=»0360 WHEN "M","m"«, l3=0x11}
0x0269…0274 Line {l1=0x09, l2=»0370 P=-4«, l3=0x09}
0x0274…0287 Line {l1=0x11, l2=»0380 WHEN "J","j"«, l3=0x11}
0x0287…0292 Line {l1=0x09, l2=»0390 P=-7«, l3=0x09}
0x0292…02a5 Line {l1=0x11, l2=»0400 WHEN "N","n"«, l3=0x11}
0x02a5…02b0 Line {l1=0x09, l2=»0410 P=-8«, l3=0x09}
0x02b0…02bf Line {l1=0x0d, l2=»0420 ENDCASE «, l3=0x0d}
0x02bf…02ce Line {l1=0x0d, l2=»0430 ENDCASE «, l3=0x0d}
0x02ce…02dd Line {l1=0x0d, l2=»0440 ENDPROC «, l3=0x0d}
0x02dd…02fa Line {l1=0x1b, l2=»0441 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x02fa…0319 Line {l1=0x1d, l2=»0442 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0319…033f Line {l1=0x24, l2=»0443 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x033f…034b Line {l1=0x0a, l2=»0444 STOP «, l3=0x0a}
0x034b…0358 Line {l1=0x0b, l2=»0445 ENDIF «, l3=0x0b}
0x0358…0367 Line {l1=0x0d, l2=»0446 ENDPROC «, l3=0x0d}
0x0367…0383 Line {l1=0x1a, l2=»0450 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x0383…0394 Line {l1=0x0f, l2=»0460 OPEN K1$,R«, l3=0x0f}
0x0394…03a8 Line {l1=0x12, l2=»0470 FOR I=1 TO 26«, l3=0x12}
0x03a8…03c1 Line {l1=0x17, l2=»0480 GET K1$,I+10:K$(I)«, l3=0x17}
0x03c1…03da Line {l1=0x17, l2=»0490 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x03da…03e7 Line {l1=0x0b, l2=»0500 NEXT I«, l3=0x0b}
0x03e7…03f7 Line {l1=0x0e, l2=»0510 CLOSE K1$«, l3=0x0e}
0x03f7…0411 Line {l1=0x18, l2=»0520 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x0411…043d Line {l1=0x2a, l2=»0530 DREVFRA$="P2";DREVTIL$="P1";TYPE$="K"«, l3=0x2a}
0x043d…044e Line {l1=0x0f, l2=»0540 J=0;FLAG=0«, l3=0x0f}
0x044e…0462 Line {l1=0x12, l2=»0550 FOR I=1 TO 26«, l3=0x12}
0x0462…047d Line {l1=0x19, l2=»0560 IF K$(I,1)="2" THEN «, l3=0x19}
0x047d…0489 Line {l1=0x0a, l2=»0570 J=J+1«, l3=0x0a}
0x0489…04cc Line {l1=0x41, l2=»0580 FRANAVN$(J)=K$(I,4:LEN(K$(I))-3);TILNAVN$(J)=FRANAVN$(J)+"3"«, l3=0x41}
0x04cc…04d9 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x04d9…04e6 Line {l1=0x0b, l2=»0600 NEXT I«, l3=0x0b}
0x04e6…0520 Line {l1=0x38, l2=»0605 J=J+1;FRANAVN$(J)="SYSTEM1";TILNAVN$(J)=FRANAVN$(J)«, l3=0x38}
0x0520…052e Line {l1=0x0c, l2=»0610 REPEAT «, l3=0x0c}
0x052e…053b Line {l1=0x0b, l2=»0620 CLEAR «, l3=0x0b}
0x053b…0549 Line {l1=0x0c, l2=»0630 REPEAT «, l3=0x0c}
0x0549…055c Line {l1=0x11, l2=»0640 CURSOR 15,13«, l3=0x11}
0x055c…058d Line {l1=0x2f, l2=»0650 INPUT "Isæt plade nr 23 og tast RETURN",A$«, l3=0x2f}
0x058d…05a3 Line {l1=0x14, l2=»0660 EXEC NRTEST(A$)«, l3=0x14}
0x05a3…05b4 Line {l1=0x0f, l2=»0670 UNTIL P=-1«, l3=0x0f}
0x05b4…05c7 Line {l1=0x11, l2=»0680 CURSOR 15,15«, l3=0x11}
0x05c7…05d1 Line {l1=0x08, l2=»0690 P=0«, l3=0x08}
0x05d1…05e4 Line {l1=0x11, l2=»0700 FOR I=1 TO J«, l3=0x11}
0x05e4…0614 Line {l1=0x2e, l2=»0710 NAVNFRA$=FRANAVN$(I);NAVNTIL$=TILNAVN$(I)«, l3=0x2e}
0x0614…0624 Line {l1=0x0e, l2=»0720 EXEC COPY«, l3=0x0e}
0x0624…063d Line {l1=0x17, l2=»0730 IF FLAG THEN EXIT «, l3=0x17}
0x063d…064a Line {l1=0x0b, l2=»0740 NEXT I«, l3=0x0b}
0x064a…065e Line {l1=0x12, l2=»0750 CASE FLAG OF «, l3=0x12}
0x065e…069d Line {l1=0x3d, l2=»0760 PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode:";FLAG«, l3=0x3d}
0x069d…06a9 Line {l1=0x0a, l2=»0770 STOP «, l3=0x0a}
0x06a9…06b6 Line {l1=0x0b, l2=»0780 WHEN 0«, l3=0x0b}
0x06b6…06c3 Line {l1=0x0b, l2=»0790 WHEN 1«, l3=0x0b}
0x06c3…06fc Line {l1=0x37, l2=»0800 PRINT "Pladen i løbeværk nr 2 er ikke nr 20 eller"«, l3=0x37}
0x06fc…070f Line {l1=0x11, l2=»0810 CURSOR 15,17«, l3=0x11}
0x070f…073a Line {l1=0x29, l2=»0820 PRINT "Pladen indeholder ingen data"«, l3=0x29}
0x073a…074a Line {l1=0x0e, l2=»0830 WHEN 3,14«, l3=0x0e}
0x074a…077d Line {l1=0x31, l2=»0840 PRINT "Pladen i løbeværk nr 1 er ikke nr 23"«, l3=0x31}
0x077d…078b Line {l1=0x0c, l2=»0850 WHEN 40«, l3=0x0c}
0x078b…07b9 Line {l1=0x2c, l2=»0860 PRINT "Et af løbeværkerne er ikke klar"«, l3=0x2c}
0x07b9…07cc Line {l1=0x11, l2=»0870 CURSOR 15,17«, l3=0x11}
0x07cc…0812 Line {l1=0x44, l2=»0880 PRINT "Klappen åben, mangler pladen eller pladen vendt forkert"«, l3=0x44}
0x0812…0821 Line {l1=0x0d, l2=»0890 ENDCASE «, l3=0x0d}
0x0821…0838 Line {l1=0x15, l2=»0900 IF FLAG<>0 THEN «, l3=0x15}
0x0838…0846 Line {l1=0x0c, l2=»0910 REPEAT «, l3=0x0c}
0x0846…0859 Line {l1=0x11, l2=»0920 CURSOR 15,19«, l3=0x11}
0x0859…0884 Line {l1=0x29, l2=»0930 INPUT "Ret fejlen og tast RETURN",A$«, l3=0x29}
0x0884…089a Line {l1=0x14, l2=»0940 EXEC NRTEST(A$)«, l3=0x14}
0x089a…08ab Line {l1=0x0f, l2=»0950 UNTIL P=-1«, l3=0x0f}
0x08ab…08b8 Line {l1=0x0b, l2=»0960 ENDIF «, l3=0x0b}
0x08b8…08c8 Line {l1=0x0e, l2=»0970 UNTIL P=0«, l3=0x0e}
0x08c8…08d5 Line {l1=0x0b, l2=»0975 CLEAR «, l3=0x0b}
0x08d5…08e3 Line {l1=0x0c, l2=»0976 REPEAT «, l3=0x0c}
0x08e3…08f6 Line {l1=0x11, l2=»0980 CURSOR 15,13«, l3=0x11}
0x08f6…0927 Line {l1=0x2f, l2=»0990 INPUT "Isæt plade nr 10 og tast RETURN",A$«, l3=0x2f}
0x0927…093d Line {l1=0x14, l2=»0991 EXEC NRTEST(A$)«, l3=0x14}
0x093d…094e Line {l1=0x0f, l2=»0992 UNTIL P=-1«, l3=0x0f}
0x094e…096b Line {l1=0x1b, l2=»1000 CHAIN "P641210:ÅRSLUT"«, l3=0x1b}
0x096b…0980 00 00 0e 30 31 33 30 20 50 52 4f 43 20 43 4f 50 59 0e 0b 30 31 ┆ 0130 PROC COPY 01┆
0x0980…09a0 34 30 20 46 4c 41 47 3d 30 0b 1a 30 31 35 30 20 43 41 4c 4c 20 22 50 36 34 31 32 31 35 3a 43 46 ┆40 FLAG=0 0150 CALL "P641215:CF┆
0x09a0…09c0 43 4f 50 59 22 1a 0d 30 31 36 30 20 45 4e 44 50 52 4f 43 20 0d 16 30 31 37 30 20 50 52 4f 43 20 ┆COPY" 0160 ENDPROC 0170 PROC ┆
0x09c0…09e0 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…]
0x0cc0…0ce0 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┆
[…0x27…]