DataMuseum.dk

top - download

    Length: 4544 (0x11c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »ÅKOPI«

└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
    └─ ⟦this⟧ »ÅKOPI« 

Text

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"