|
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: 3968 (0xf80)
Types: TextFile
Notes: Mikados_K
Names: »FCOPY.K«
└─⟦57a827f90⟧ Bits:30005247 COMAL A verson 2.24 (MIKADOS)
└─⟦this⟧ »FCOPY.K«
└─⟦85259e8f7⟧ Bits:30005248 COMAL B verson 1.19 (MIKADOS)
└─⟦this⟧ »FCOPY.K«
0100 REM 05.09.1980 PNM 0110 DIM DREVFRA$(2),DREVTIL$(2),TYPE$(1),NAVNFRA$(9),NAVNTIL$(9) 0120 DIM NAVN$(18),SIDSTECHAR$(1) 0130 PRINT "FCOPY - KOPIER FIL." 0140 PRINT 0150 REPEAT 0160 INPUT "DREVNR (P1, P2, .. ), DER KOPIERES FRA: ",DREVFRA$ 0170 UNTIL DREVFRA$>"P0" AND DREVFRA$<="P9" 0180 PRINT 0190 REPEAT 0200 INPUT "DREVNR (P1, P2, .. ), DER KOPIERES TIL: ",DREVTIL$ 0210 UNTIL DREVTIL$>"P0" AND DREVTIL$<="P9" 0220 REPEAT 0230 PRINT 0240 REPEAT 0250 NAVNFRA$="";NAVN$="";FLAG,FOREVER=0 0260 INPUT "INDTAST FILNAVN: ",NAVN$ 0270 EXEC KONVERTOGMOVE(NAVN$,1,NAVNFRA$,SIDSTECHAR$,FLAG) 0280 IF LEN(NAVNFRA$)>8 OR LEN(NAVNFRA$)<1 OR NAVN$(9)<>"" THEN FLAG=1 0290 IF SIDSTECHAR$=":" THEN FLAG=1 0300 UNTIL FLAG=0 0310 LET TYPE$="K" 0320 EDIT "B FOR BINÆR FIL: ",TYPE$ 0330 REPEAT 0340 NAVN$="";NAVNTIL$="";FLAG=0 0350 INPUT "EVT NYT FILNAVN: ",NAVN$ 0360 IF LEN(NAVN$)=0 THEN 0370 NAVNTIL$=NAVNFRA$ 0380 ELSE 0390 EXEC KONVERTOGMOVE(NAVN$,1,NAVNTIL$,SIDSTECHAR$,FLAG) 0400 IF LEN(NAVNTIL$)>8 OR LEN(NAVNTIL$)<1 OR NAVN$(9)<>"" THEN FLAG=1 0410 ENDIF 0420 UNTIL FLAG=0 0430 EXEC COPY 0440 UNTIL FOREVER 0450 PROC COPY 0460 CALL "SYSPROG:CFCOPY" 0470 IF FLAG THEN 0480 PRINT "FCOPY MISLYKKEDES. FEJLKODE";FLAG 0490 STOP 0500 ELSE 0510 PRINT NAVNFRA$;" ER KOPIERET FRA ";DREVFRA$;" TIL ";DREVTIL$; 0520 PRINT " UNDER NAVNET ";NAVNTIL$ 0530 ENDIF 0540 ENDPROC 0550 PROC KONVERTOGMOVE(NFRA,I,NTIL,CH,F) 0560 Y=1 0570 REPEAT 0580 CH$=NFRA$(I) 0590 IF CH$=>"a" AND CH$<="å" THEN CH$=CHR(ORD(CH$)-32) 0600 IF CH$<>":" THEN 0610 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN 0620 NTIL$(Y)=CH$;Y=Y+1;I=I+1 0630 ELSE 0640 IF CH$<>"" THEN 0650 F=1 0660 EXIT ;ULOVLIGT TEGN 0670 ENDIF 0680 ENDIF 0690 ENDIF 0700 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18 0710 ENDPROC
0x000…019 Line {l1=0x17, l2=»0100 REM 05.09.1980 PNM«, l3=0x17}
0x019…05c Line {l1=0x41, l2=»0110 DIM DREVFRA$(2),DREVTIL$(2),TYPE$(1),NAVNFRA$(9),NAVNTIL$(9)«, l3=0x41}
0x05c…07f Line {l1=0x21, l2=»0120 DIM NAVN$(18),SIDSTECHAR$(1)«, l3=0x21}
0x07f…0a1 Line {l1=0x20, l2=»0130 PRINT "FCOPY - KOPIER FIL."«, l3=0x20}
0x0a1…0ae Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x0ae…0bc Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x0bc…0fc Line {l1=0x3e, l2=»0160 INPUT "DREVNR (P1, P2, .. ), DER KOPIERES FRA: ",DREVFRA$«, l3=0x3e}
0x0fc…129 Line {l1=0x2b, l2=»0170 UNTIL DREVFRA$>"P0" AND DREVFRA$<="P9"«, l3=0x2b}
0x129…136 Line {l1=0x0b, l2=»0180 PRINT «, l3=0x0b}
0x136…144 Line {l1=0x0c, l2=»0190 REPEAT «, l3=0x0c}
0x144…184 Line {l1=0x3e, l2=»0200 INPUT "DREVNR (P1, P2, .. ), DER KOPIERES TIL: ",DREVTIL$«, l3=0x3e}
0x184…1b1 Line {l1=0x2b, l2=»0210 UNTIL DREVTIL$>"P0" AND DREVTIL$<="P9"«, l3=0x2b}
0x1b1…1bf Line {l1=0x0c, l2=»0220 REPEAT «, l3=0x0c}
0x1bf…1cc Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x1cc…1da Line {l1=0x0c, l2=»0240 REPEAT «, l3=0x0c}
0x1da…204 Line {l1=0x28, l2=»0250 NAVNFRA$="";NAVN$="";FLAG,FOREVER=0«, l3=0x28}
0x204…22a Line {l1=0x24, l2=»0260 INPUT "INDTAST FILNAVN: ",NAVN$«, l3=0x24}
0x22a…266 Line {l1=0x3a, l2=»0270 EXEC KONVERTOGMOVE(NAVN$,1,NAVNFRA$,SIDSTECHAR$,FLAG)«, l3=0x3a}
0x266…2ae Line {l1=0x46, l2=»0280 IF LEN(NAVNFRA$)>8 OR LEN(NAVNFRA$)<1 OR NAVN$(9)<>"" THEN FLAG=1«, l3=0x46}
0x2ae…2d3 Line {l1=0x23, l2=»0290 IF SIDSTECHAR$=":" THEN FLAG=1«, l3=0x23}
0x2d3…2e6 Line {l1=0x11, l2=»0300 UNTIL FLAG=0«, l3=0x11}
0x2e6…2fa Line {l1=0x12, l2=»0310 LET TYPE$="K"«, l3=0x12}
0x2fa…31f Line {l1=0x23, l2=»0320 EDIT "B FOR BINÆR FIL: ",TYPE$«, l3=0x23}
0x31f…32d Line {l1=0x0c, l2=»0330 REPEAT «, l3=0x0c}
0x32d…34f Line {l1=0x20, l2=»0340 NAVN$="";NAVNTIL$="";FLAG=0«, l3=0x20}
0x34f…375 Line {l1=0x24, l2=»0350 INPUT "EVT NYT FILNAVN: ",NAVN$«, l3=0x24}
0x375…391 Line {l1=0x1a, l2=»0360 IF LEN(NAVN$)=0 THEN «, l3=0x1a}
0x391…3a9 Line {l1=0x16, l2=»0370 NAVNTIL$=NAVNFRA$«, l3=0x16}
0x3a9…3b5 Line {l1=0x0a, l2=»0380 ELSE «, l3=0x0a}
0x3b5…3f1 Line {l1=0x3a, l2=»0390 EXEC KONVERTOGMOVE(NAVN$,1,NAVNTIL$,SIDSTECHAR$,FLAG)«, l3=0x3a}
0x3f1…439 Line {l1=0x46, l2=»0400 IF LEN(NAVNTIL$)>8 OR LEN(NAVNTIL$)<1 OR NAVN$(9)<>"" THEN FLAG=1«, l3=0x46}
0x439…446 Line {l1=0x0b, l2=»0410 ENDIF «, l3=0x0b}
0x446…459 Line {l1=0x11, l2=»0420 UNTIL FLAG=0«, l3=0x11}
0x459…469 Line {l1=0x0e, l2=»0430 EXEC COPY«, l3=0x0e}
0x469…47d Line {l1=0x12, l2=»0440 UNTIL FOREVER«, l3=0x12}
0x47d…48d Line {l1=0x0e, l2=»0450 PROC COPY«, l3=0x0e}
0x48d…4a9 Line {l1=0x1a, l2=»0460 CALL "SYSPROG:CFCOPY"«, l3=0x1a}
0x4a9…4bd Line {l1=0x12, l2=»0470 IF FLAG THEN «, l3=0x12}
0x4bd…4ec Line {l1=0x2d, l2=»0480 PRINT "FCOPY MISLYKKEDES. FEJLKODE";FLAG«, l3=0x2d}
0x4ec…4f8 Line {l1=0x0a, l2=»0490 STOP «, l3=0x0a}
0x4f8…504 Line {l1=0x0a, l2=»0500 ELSE «, l3=0x0a}
0x504…548 Line {l1=0x42, l2=»0510 PRINT NAVNFRA$;" ER KOPIERET FRA ";DREVFRA$;" TIL ";DREVTIL$;«, l3=0x42}
0x548…56e Line {l1=0x24, l2=»0520 PRINT " UNDER NAVNET ";NAVNTIL$«, l3=0x24}
0x56e…57b Line {l1=0x0b, l2=»0530 ENDIF «, l3=0x0b}
0x57b…58a Line {l1=0x0d, l2=»0540 ENDPROC «, l3=0x0d}
0x58a…5b5 Line {l1=0x29, l2=»0550 PROC KONVERTOGMOVE(NFRA,I,NTIL,CH,F)«, l3=0x29}
0x5b5…5bf Line {l1=0x08, l2=»0560 Y=1«, l3=0x08}
0x5bf…5cd Line {l1=0x0c, l2=»0570 REPEAT «, l3=0x0c}
0x5cd…5e0 Line {l1=0x11, l2=»0580 CH$=NFRA$(I)«, l3=0x11}
0x5e0…619 Line {l1=0x37, l2=»0590 IF CH$=>"a" AND CH$<="å" THEN CH$=CHR(ORD(CH$)-32)«, l3=0x37}
0x619…631 Line {l1=0x16, l2=»0600 IF CH$<>":" THEN «, l3=0x16}
0x631…67e Line {l1=0x4b, l2=»0610 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN «, l3=0x4b}
0x67e…69d Line {l1=0x1d, l2=»0620 NTIL$(Y)=CH$;Y=Y+1;I=I+1«, l3=0x1d}
0x69d…6a9 Line {l1=0x0a, l2=»0630 ELSE «, l3=0x0a}
0x6a9…6c0 Line {l1=0x15, l2=»0640 IF CH$<>"" THEN «, l3=0x15}
0x6c0…6ca Line {l1=0x08, l2=»0650 F=1«, l3=0x08}
0x6ca…6e4 Line {l1=0x18, l2=»0660 EXIT ;ULOVLIGT TEGN«, l3=0x18}
0x6e4…6f1 Line {l1=0x0b, l2=»0670 ENDIF «, l3=0x0b}
0x6f1…6fe Line {l1=0x0b, l2=»0680 ENDIF «, l3=0x0b}
0x6fe…70b Line {l1=0x0b, l2=»0690 ENDIF «, l3=0x0b}
0x70b…755 Line {l1=0x48, l2=»0700 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18«, l3=0x48}
0x755…764 Line {l1=0x0d, l2=»0710 ENDPROC «, l3=0x0d}
0x764…780 00 00 50 52 4f 43 20 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PROC ┆
0x780…7a0 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 ┆ ┆
[…0x20…]
0xba0…bc0 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 44 ┆ D┆
0xbc0…be0 49 4d 20 44 52 45 56 46 52 41 24 28 32 29 2c 44 52 45 56 54 49 4c 24 28 32 29 2c 54 59 50 45 24 ┆IM DREVFRA$(2),DREVTIL$(2),TYPE$┆
0xbe0…c00 28 31 29 2c 4e 41 56 4e 46 52 41 24 28 39 29 2c 4e 41 56 4e 54 49 4c 24 28 39 29 41 21 30 31 32 ┆(1),NAVNFRA$(9),NAVNTIL$(9)A!012┆
0xc00…c20 30 20 44 49 4d 20 4e 41 56 4e 24 28 31 38 29 2c 53 49 44 53 54 45 43 48 41 52 24 28 31 29 21 20 ┆0 DIM NAVN$(18),SIDSTECHAR$(1)! ┆
0xc20…c40 30 31 33 30 20 50 52 49 4e 54 20 22 46 43 4f 50 59 20 2d 20 4b 4f 50 49 45 52 20 46 49 4c 2e 22 ┆0130 PRINT "FCOPY - KOPIER FIL."┆
0xc40…c60 20 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 0c 30 31 35 30 20 52 45 50 45 41 54 20 0c 3e 30 31 36 ┆ 0140 PRINT 0150 REPEAT >016┆
0xc60…c80 30 20 49 4e 50 55 54 20 22 44 52 45 56 4e 52 20 28 50 31 2c 20 50 32 2c 20 2e 2e 20 29 2c 20 44 ┆0 INPUT "DREVNR (P1, P2, .. ), D┆
0xc80…ca0 4f 4e 44 53 ff 46 4c 41 47 ef ff 39 03 09 04 00 03 02 0f 00 02 77 c3 d5 5a a7 f2 a8 5f c3 a5 5f ┆ONDS FLAG 9 w Z _ _┆
0xca0…cc0 48 5f 81 57 1f a9 aa ab 2f e6 80 7a c9 11 ad 5f e5 d5 22 86 58 cd 1f 5f e1 cd 28 5f 11 be 58 e1 ┆H_ W / z _ " X _ (_ X ┆
0xcc0…ce0 cd 6a 5f 1a a7 c2 4c 5a 3e 02 37 c9 7e a7 ca 96 5f 2a 86 58 eb 2a 8a 58 1a ae f5 d5 cd 44 5b cd ┆ j_ LZ> 7 ü _* X * X DÆ ┆
0xce0…d00 3a 5f 06 01 0e 07 c5 21 9e 58 cd 1f 5b d2 89 5a c1 05 c5 c3 82 5a d5 c5 21 8e 58 97 cd 3b 5e cd ┆:_ ! X Æ Z Z ! X ;^ ┆
0xd00…d20 e2 5a 21 8e 58 97 cd 3b 5e cd e2 5a 79 2f c1 d1 12 13 0d c2 76 5a 3a a5 58 2f d6 7f 4f 3a 95 58 ┆ Z! X ;^ Zy/ vZ: X/ O: X┆
0xd20…d40 c3 f6 59 d5 11 a5 58 0f dc c2 5a 11 ad 58 0f dc c2 5a 11 b5 58 0f dc c2 5a 11 bd 58 0f dc c2 5a ┆ Y X Z X Z X Z X Z┆
0xd40…d60 d1 c9 f5 2a 88 58 a7 0e 07 2b 1b 1a 8e 27 77 0d c2 c9 5a f1 c9 2a 86 58 7e e6 0f 47 f1 e6 80 b0 ┆ * X + 'w Z * Xü G ┆
0xd60…d80 77 c9 21 b6 58 cd 1f 5b 21 bc 58 d4 2e 5b 79 17 4f 21 ae 58 cd 1f 5b 21 b4 58 d4 2e 5b 79 17 4f ┆w ! X Æ! X .Æy O! X Æ! X .Æy O┆
0xd80…da0 21 a6 58 cd 1f 5b 21 ac 58 d4 2e 5b 79 17 4f 21 9e 58 cd 1f 5b 21 a4 58 d4 2e 5b 79 17 4f c9 11 ┆! X Æ! X .Æy O! X Æ! X .Æy O ┆
0xda0…dc0 8e 58 06 07 1a be c0 23 13 05 c2 24 5b c9 11 94 58 a7 06 07 3e 9a 9e eb 86 eb 27 3f 12 1b 2b 05 ┆ X # $Æ X > '? + ┆
0xdc0…de0 c2 34 5b c9 11 9e 58 cd 2d 5f 21 9e 58 7e e6 7f 77 06 03 cd 2d 5f a7 cd 71 5e 05 c2 53 5b c9 d5 ┆ 4Æ X -_! Xü w -_ q^ SÆ ┆
0xde0…e00 cd 6a 5f cd 96 5f d1 97 47 0e 8d f5 1a fe 2b ca 7b 5b fe 2d c2 7d 5b f1 f6 80 f5 13 1a fe 2e ca ┆ j_ _ G + æÆ - åÆ . ┆
0xe00…e20 95 5b cd 31 5c da 9d 5b cc 43 5c 0c c2 7b 5b c3 25 5c cc 43 5c 13 1a cd 31 5c d2 92 5b 78 e6 40 ┆ Æ 1Ø Æ CØ æÆ %Ø CØ 1Ø Æx @┆
0xe20…e40 ca 25 5c d5 cd 09 5e d1 ca 2d 5c 21 00 00 06 00 1a fe 45 ca bb 5b fe 44 c2 e9 5b 13 1a fe 2b ca ┆ %Ø ^ -Ø! E Æ D Æ + ┆
0xe40…e60 c9 5b fe 2d c2 cb 5b 06 80 13 1a cd 31 5c da e3 5b c2 14 5c cd 37 5d 7c a7 ca c9 5b 78 f6 20 47 ┆ Æ - Æ 1Ø Æ Ø 7Åø Æx G┆
0xe60…e80 c3 c9 5b 78 e6 40 ca 25 5c 78 e6 80 ca f6 5b 97 95 6f 3e 00 9c 67 7d 81 4f ca 0d 5c 7c ce 00 c2 ┆ Æx @ %Øx Æ o> gå O Øø ┆
0xe80…ea0 10 5c 2a 88 58 71 2a 86 58 f1 b6 77 c9 7c ce 00 7c c3 1d 5c 13 1a cd 31 5c d2 14 5c 78 e6 80 c2 ┆ Ø* Xq* X w ø ø Ø 1Ø Øx ┆
0xea0…ec0 a8 5f c3 a5 5f 2a 86 58 f1 b6 77 37 c9 f1 c3 96 5f d6 30 d8 fe 0a 3f d8 d5 5f 78 f6 40 47 e6 20 ┆ _ _* X w7 _ 0 ? _x @G ┆
0xec0…ee0 7b d1 c9 0d cd 3b 5e 7e a7 c8 78 f6 20 47 c9 e5 d5 1a e6 80 36 20 ca 5b 5c 36 2d 23 1a cd aa 5c ┆æ ;^ü x G 6 ÆØ6-# Ø┆
0xee0…f00 36 2e 23 06 06 13 1a cd a6 5c 1a cd aa 5c 13 05 c2 66 5c 36 45 23 36 2b 1a a7 ca 86 5c d6 81 d2 ┆6.# Ø Ø fØ6E#6+ Ø ┆
0xf00…f20 86 5c 36 2d 2f 3c 23 fe 64 36 30 da 92 5c 36 31 d6 64 23 06 2f d6 0a 04 d2 95 5c c6 3a 70 23 77 ┆ Ø6-/<# d60 Ø61 d# / Ø :p#w┆
0xf20…f40 1a d6 80 d1 e1 c9 0f 0f 0f 0f e6 0f c6 30 77 23 c9 e5 97 32 84 58 11 07 00 19 7e d6 80 21 00 00 ┆ 0w# 2 X ü ! ┆
0xf40…f60 da 03 5d 0e 0d ca f7 5c d1 47 79 90 da 2a 5d 4f d5 c3 e6 5c dc 2e 5d 1a 0f 0f 0f 0f cd 37 5d 05 ┆ Å Ø Gy *ÅO Ø .Å 7Å ┆
0xf60…f80 ca f3 5c dc 2e 5d 1a 13 cd 37 5d 05 c2 d4 5c 97 c3 f7 5c 1a 13 e6 0f 0d 0d fa 03 5d eb b6 eb 63 ┆ Ø .Å 7Å Ø Ø Å c┆