|
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: »RENAME.K«
└─⟦57a827f90⟧ Bits:30005247 COMAL A verson 2.24 (MIKADOS)
└─⟦this⟧ »RENAME.K«
└─⟦85259e8f7⟧ Bits:30005248 COMAL B verson 1.19 (MIKADOS)
└─⟦this⟧ »RENAME.K«
0100 REM PNM 05.09.1980 0110 DIM NAVN$(18),DREVN$(9),FILNAVN$(9),FILTYPE$(1),FILNA$(9),SIDSTECHAR$(1) 0120 PRINT 0130 PRINT "RENAME - AENDRING AF FILNAVN" 0140 PRINT "PROGRAMMET STOPPES VED AT TRYKKE PAA ESC" 0150 REPEAT 0160 PRINT 0170 REPEAT 0180 NAVN$="";FILNAVN$="";DREVN$="";FLAG,FOREVER=0;INDEX=1 0190 INPUT "INDTAST DET NUVAERENDE FILNAVN (MED ETIKETTE): ",NAVN$ 0200 EXEC KONVERTOGMOVE(NAVN$,INDEX,DREVN$,SIDSTECHAR$,FLAG) 0210 IF SIDSTECHAR$<>":" OR INDEX>9 OR INDEX=1 THEN FLAG=1 0220 EXEC KONVERTOGMOVE(NAVN$,1+INDEX,FILNAVN$,SIDSTECHAR$,FLAG) 0230 IF LEN(FILNAVN$)>8 OR LEN(FILNAVN$)<1 OR NAVN$(18)<>"" THEN FLAG=1 0240 IF SIDSTECHAR$=":" THEN FLAG=1 0250 UNTIL FLAG=0 0260 REPEAT 0270 PRINT "INDTAST FILTYPE "; 0280 INPUT "(K FOR PROGRAM-/DATAFILER, B FOR BINAERFILER): ",FILTYPE$ 0290 UNTIL FILTYPE$="K" OR FILTYPE$="B" 0300 REPEAT 0310 FLAG=0;NAVN$="";FILNA$="" 0320 INPUT "INDTAST DET NYE FILNAVN (UDEN ETIKETTE): ",NAVN$ 0330 EXEC KONVERTOGMOVE(NAVN$,1,FILNA$,SIDSTECHAR$,FLAG) 0340 IF LEN(FILNA$)>8 OR LEN(FILNA$)<1 THEN FLAG=1 0350 UNTIL FLAG=0 0360 EXEC RENAME 0370 UNTIL FOREVER 0380 PROC RENAME 0390 CALL "SYSPROG:OMDØB" 0400 IF FLAG<>0 THEN 0410 PRINT "RENAME MISLYKKEDES. FEJLKODE:";FLAG 0420 STOP 0430 ELSE 0440 PRINT DREVN$;":";FILNAVN$;" ER OMDØBT TIL ";DREVN$;":";FILNA$ 0450 ENDIF 0460 ENDPROC 0470 PROC KONVERTOGMOVE(NFRA,I,NTIL,CH,F) 0480 Y=1 0490 REPEAT 0500 CH$=NFRA$(I) 0510 IF CH$=>"a" AND CH$<="å" THEN CH$=CHR(ORD(CH$)-32) 0520 IF CH$<>":" THEN 0530 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN 0540 NTIL$(Y)=CH$;Y=Y+1;I=I+1 0550 ELSE 0560 IF CH$<>"" THEN 0570 F=1 0580 EXIT ;ULOVLIGT TEGN 0590 ENDIF 0600 ENDIF 0610 ENDIF 0620 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18 0630 ENDPROC
0x000…019 Line {l1=0x17, l2=»0100 REM PNM 05.09.1980«, l3=0x17}
0x019…068 Line {l1=0x4d, l2=»0110 DIM NAVN$(18),DREVN$(9),FILNAVN$(9),FILTYPE$(1),FILNA$(9),SIDSTECHAR$(1)«, l3=0x4d}
0x068…075 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x075…0a0 Line {l1=0x29, l2=»0130 PRINT "RENAME - AENDRING AF FILNAVN"«, l3=0x29}
0x0a0…0d7 Line {l1=0x35, l2=»0140 PRINT "PROGRAMMET STOPPES VED AT TRYKKE PAA ESC"«, l3=0x35}
0x0d7…0e5 Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x0e5…0f2 Line {l1=0x0b, l2=»0160 PRINT «, l3=0x0b}
0x0f2…100 Line {l1=0x0c, l2=»0170 REPEAT «, l3=0x0c}
0x100…13c Line {l1=0x3a, l2=»0180 NAVN$="";FILNAVN$="";DREVN$="";FLAG,FOREVER=0;INDEX=1«, l3=0x3a}
0x13c…180 Line {l1=0x42, l2=»0190 INPUT "INDTAST DET NUVAERENDE FILNAVN (MED ETIKETTE): ",NAVN$«, l3=0x42}
0x180…1be Line {l1=0x3c, l2=»0200 EXEC KONVERTOGMOVE(NAVN$,INDEX,DREVN$,SIDSTECHAR$,FLAG)«, l3=0x3c}
0x1be…1fa Line {l1=0x3a, l2=»0210 IF SIDSTECHAR$<>":" OR INDEX>9 OR INDEX=1 THEN FLAG=1«, l3=0x3a}
0x1fa…23c Line {l1=0x40, l2=»0220 EXEC KONVERTOGMOVE(NAVN$,1+INDEX,FILNAVN$,SIDSTECHAR$,FLAG)«, l3=0x40}
0x23c…285 Line {l1=0x47, l2=»0230 IF LEN(FILNAVN$)>8 OR LEN(FILNAVN$)<1 OR NAVN$(18)<>"" THEN FLAG=1«, l3=0x47}
0x285…2aa Line {l1=0x23, l2=»0240 IF SIDSTECHAR$=":" THEN FLAG=1«, l3=0x23}
0x2aa…2bd Line {l1=0x11, l2=»0250 UNTIL FLAG=0«, l3=0x11}
0x2bd…2cb Line {l1=0x0c, l2=»0260 REPEAT «, l3=0x0c}
0x2cb…2eb Line {l1=0x1e, l2=»0270 PRINT "INDTAST FILTYPE ";«, l3=0x1e}
0x2eb…332 Line {l1=0x45, l2=»0280 INPUT "(K FOR PROGRAM-/DATAFILER, B FOR BINAERFILER): ",FILTYPE$«, l3=0x45}
0x332…35b Line {l1=0x27, l2=»0290 UNTIL FILTYPE$="K" OR FILTYPE$="B"«, l3=0x27}
0x35b…369 Line {l1=0x0c, l2=»0300 REPEAT «, l3=0x0c}
0x369…389 Line {l1=0x1e, l2=»0310 FLAG=0;NAVN$="";FILNA$=""«, l3=0x1e}
0x389…3c7 Line {l1=0x3c, l2=»0320 INPUT "INDTAST DET NYE FILNAVN (UDEN ETIKETTE): ",NAVN$«, l3=0x3c}
0x3c7…401 Line {l1=0x38, l2=»0330 EXEC KONVERTOGMOVE(NAVN$,1,FILNA$,SIDSTECHAR$,FLAG)«, l3=0x38}
0x401…435 Line {l1=0x32, l2=»0340 IF LEN(FILNA$)>8 OR LEN(FILNA$)<1 THEN FLAG=1«, l3=0x32}
0x435…448 Line {l1=0x11, l2=»0350 UNTIL FLAG=0«, l3=0x11}
0x448…45a Line {l1=0x10, l2=»0360 EXEC RENAME«, l3=0x10}
0x45a…46e Line {l1=0x12, l2=»0370 UNTIL FOREVER«, l3=0x12}
0x46e…480 Line {l1=0x10, l2=»0380 PROC RENAME«, l3=0x10}
0x480…49b Line {l1=0x19, l2=»0390 CALL "SYSPROG:OMDØB"«, l3=0x19}
0x49b…4b2 Line {l1=0x15, l2=»0400 IF FLAG<>0 THEN «, l3=0x15}
0x4b2…4e3 Line {l1=0x2f, l2=»0410 PRINT "RENAME MISLYKKEDES. FEJLKODE:";FLAG«, l3=0x2f}
0x4e3…4ef Line {l1=0x0a, l2=»0420 STOP «, l3=0x0a}
0x4ef…4fb Line {l1=0x0a, l2=»0430 ELSE «, l3=0x0a}
0x4fb…53f Line {l1=0x42, l2=»0440 PRINT DREVN$;":";FILNAVN$;" ER OMDØBT TIL ";DREVN$;":";FILNA$«, l3=0x42}
0x53f…54c Line {l1=0x0b, l2=»0450 ENDIF «, l3=0x0b}
0x54c…55b Line {l1=0x0d, l2=»0460 ENDPROC «, l3=0x0d}
0x55b…586 Line {l1=0x29, l2=»0470 PROC KONVERTOGMOVE(NFRA,I,NTIL,CH,F)«, l3=0x29}
0x586…590 Line {l1=0x08, l2=»0480 Y=1«, l3=0x08}
0x590…59e Line {l1=0x0c, l2=»0490 REPEAT «, l3=0x0c}
0x59e…5b1 Line {l1=0x11, l2=»0500 CH$=NFRA$(I)«, l3=0x11}
0x5b1…5ea Line {l1=0x37, l2=»0510 IF CH$=>"a" AND CH$<="å" THEN CH$=CHR(ORD(CH$)-32)«, l3=0x37}
0x5ea…602 Line {l1=0x16, l2=»0520 IF CH$<>":" THEN «, l3=0x16}
0x602…64f Line {l1=0x4b, l2=»0530 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN «, l3=0x4b}
0x64f…66e Line {l1=0x1d, l2=»0540 NTIL$(Y)=CH$;Y=Y+1;I=I+1«, l3=0x1d}
0x66e…67a Line {l1=0x0a, l2=»0550 ELSE «, l3=0x0a}
0x67a…691 Line {l1=0x15, l2=»0560 IF CH$<>"" THEN «, l3=0x15}
0x691…69b Line {l1=0x08, l2=»0570 F=1«, l3=0x08}
0x69b…6b5 Line {l1=0x18, l2=»0580 EXIT ;ULOVLIGT TEGN«, l3=0x18}
0x6b5…6c2 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x6c2…6cf Line {l1=0x0b, l2=»0600 ENDIF «, l3=0x0b}
0x6cf…6dc Line {l1=0x0b, l2=»0610 ENDIF «, l3=0x0b}
0x6dc…726 Line {l1=0x48, l2=»0620 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18«, l3=0x48}
0x726…735 Line {l1=0x0d, l2=»0630 ENDPROC «, l3=0x0d}
0x735…740 00 00 50 52 4f 43 20 0d 00 00 43 ┆ PROC C┆
0x740…760 48 41 52 24 28 31 29 4d 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 29 30 31 33 30 20 50 52 49 4e 54 ┆HAR$(1)M 0120 PRINT )0130 PRINT┆
0x760…780 20 22 52 45 4e 41 4d 45 20 2d 20 41 45 4e 44 52 49 4e 47 20 41 46 20 46 49 4c 4e 41 56 4e 22 29 ┆ "RENAME - AENDRING AF FILNAVN")┆
0x780…7a0 35 30 31 34 30 20 50 52 49 4e 54 20 22 50 52 4f 47 52 41 4d 4d 45 54 20 53 54 4f 50 50 45 53 20 ┆50140 PRINT "PROGRAMMET STOPPES ┆
0x7a0…7c0 56 45 44 20 41 54 20 54 52 59 4b 4b 45 20 50 41 41 20 45 53 43 22 35 0c 30 31 35 30 20 52 45 50 ┆VED AT TRYKKE PAA ESC"5 0150 REP┆
0x7c0…7e0 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 ┆ ┆
[…0x35…]
0xe80…ea0 55 44 32 20 20 20 20 20 52 41 00 05 00 00 00 00 00 00 00 69 01 24 41 82 01 05 00 00 00 00 00 00 ┆UD2 RA i $A ┆
0xea0…ec0 13 02 55 44 32 20 20 20 20 20 02 4a 00 01 00 00 ff 02 00 00 13 0d 05 56 49 4e 49 54 20 20 20 01 ┆ UD2 J VINIT ┆
0xec0…ee0 00 00 01 0d 0d 05 43 53 45 4d 41 20 20 20 02 00 00 01 0d 0d 05 56 53 45 4e 44 20 20 20 03 00 00 ┆ CSEMA VSEND ┆
0xee0…f00 01 0d 0d 05 44 49 56 50 53 20 20 20 04 00 00 01 0d 02 08 cd 02 05 0b 01 00 00 00 05 04 08 3e 02 ┆ DIVPS > ┆
0xf00…f20 01 04 04 0a 02 1d 00 04 05 08 11 2d 00 2a 05 05 0b 02 00 00 00 05 02 08 cd 02 05 0b 03 00 00 00 ┆ - * ┆
0xf20…f40 05 08 08 21 10 00 11 20 00 cd 08 05 0b 04 00 00 00 05 02 08 c3 02 04 0a 02 03 00 04 2e 08 44 65 ┆ ! . De┆
0xf40…f60 74 74 65 20 73 6b 61 6c 20 75 64 73 6b 72 69 76 65 73 2c 0d 0a 6f 67 20 64 65 74 20 65 72 20 73 ┆tte skal udskrives, og det er s┆
0xf60…f80 6b 65 74 20 68 65 72 6d 65 64 2e 2e 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ket hermed.. c┆