|
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: »PURGE.K«
└─⟦57a827f90⟧ Bits:30005247 COMAL A verson 2.24 (MIKADOS)
└─⟦this⟧ »PURGE.K«
└─⟦85259e8f7⟧ Bits:30005248 COMAL B verson 1.19 (MIKADOS)
└─⟦this⟧ »PURGE.K«
0100 REM PNM 05.09.1980 0110 DIM NAVN$(18),DREVN$(9),FILNAVN$(9),FILTYPE$(1),SIDSTECHAR$(1) 0120 PRINT 0130 PRINT "PURGE - SLET EN FIL" 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 PRINT "INDTAST "; 0200 INPUT "'ETIKETTE:FILNAVN' FOR DEN FIL, DER 0NSKES SLETTET: ",NAVN$ 0210 EXEC KONVERTOGMOVE(NAVN$,INDEX,DREVN$,SIDSTECHAR$,FLAG) 0220 IF SIDSTECHAR$<>":" OR INDEX>9 OR INDEX=1 THEN FLAG=1 0230 EXEC KONVERTOGMOVE(NAVN$,1+INDEX,FILNAVN$,SIDSTECHAR$,FLAG) 0240 IF LEN(FILNAVN$)>8 OR LEN(FILNAVN$)<1 OR NAVN$(18)<>"" THEN FLAG=1 0250 IF SIDSTECHAR$=":" THEN FLAG=1 0260 UNTIL FLAG=0 0270 REPEAT 0280 PRINT "INDTAST FILTYPE "; 0290 INPUT "(K FOR PROGRAM-/DATAFILER, B FOR BINAERFILER): ",FILTYPE$ 0300 UNTIL FILTYPE$="K" OR FILTYPE$="B" 0310 EXEC PURGE 0320 UNTIL FOREVER 0330 PROC PURGE 0340 CALL "SYSPROG:PERGE" 0350 IF FLAG<>0 THEN 0360 PRINT "PURGE MISLYKKEDES. FEJLKODE";FLAG 0370 STOP 0380 ELSE 0390 PRINT DREVN$;":";FILNAVN$;" ER NU SLETTET" 0400 ENDIF 0410 ENDPROC 0420 PROC KONVERTOGMOVE(NFRA,I,NTIL,CH,F) 0430 Y=1 0440 REPEAT 0450 CH$=NFRA$(I) 0460 IF CH$=>"a" AND CH$<="å" THEN CH$=CHR(ORD(CH$)-32) 0470 IF CH$<>":" THEN 0480 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN 0490 NTIL$(Y)=CH$;Y=Y+1;I=I+1 0500 ELSE 0510 IF CH$<>"" THEN 0520 F=1 0530 EXIT ;ULOVLIGT TEGN 0540 ENDIF 0550 ENDIF 0560 ENDIF 0570 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18 0580 ENDPROC
0x000…019 Line {l1=0x17, l2=»0100 REM PNM 05.09.1980«, l3=0x17}
0x019…05e Line {l1=0x43, l2=»0110 DIM NAVN$(18),DREVN$(9),FILNAVN$(9),FILTYPE$(1),SIDSTECHAR$(1)«, l3=0x43}
0x05e…06b Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x06b…08d Line {l1=0x20, l2=»0130 PRINT "PURGE - SLET EN FIL"«, l3=0x20}
0x08d…0c4 Line {l1=0x35, l2=»0140 PRINT "PROGRAMMET STOPPES VED AT TRYKKE PAA ESC"«, l3=0x35}
0x0c4…0d2 Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x0d2…0df Line {l1=0x0b, l2=»0160 PRINT «, l3=0x0b}
0x0df…0ed Line {l1=0x0c, l2=»0170 REPEAT «, l3=0x0c}
0x0ed…129 Line {l1=0x3a, l2=»0180 NAVN$="";FILNAVN$="";DREVN$="";FLAG,FOREVER=0;INDEX=1«, l3=0x3a}
0x129…141 Line {l1=0x16, l2=»0190 PRINT "INDTAST ";«, l3=0x16}
0x141…18a Line {l1=0x47, l2=»0200 INPUT "'ETIKETTE:FILNAVN' FOR DEN FIL, DER 0NSKES SLETTET: ",NAVN$«, l3=0x47}
0x18a…1c8 Line {l1=0x3c, l2=»0210 EXEC KONVERTOGMOVE(NAVN$,INDEX,DREVN$,SIDSTECHAR$,FLAG)«, l3=0x3c}
0x1c8…204 Line {l1=0x3a, l2=»0220 IF SIDSTECHAR$<>":" OR INDEX>9 OR INDEX=1 THEN FLAG=1«, l3=0x3a}
0x204…246 Line {l1=0x40, l2=»0230 EXEC KONVERTOGMOVE(NAVN$,1+INDEX,FILNAVN$,SIDSTECHAR$,FLAG)«, l3=0x40}
0x246…28f Line {l1=0x47, l2=»0240 IF LEN(FILNAVN$)>8 OR LEN(FILNAVN$)<1 OR NAVN$(18)<>"" THEN FLAG=1«, l3=0x47}
0x28f…2b4 Line {l1=0x23, l2=»0250 IF SIDSTECHAR$=":" THEN FLAG=1«, l3=0x23}
0x2b4…2c7 Line {l1=0x11, l2=»0260 UNTIL FLAG=0«, l3=0x11}
0x2c7…2d5 Line {l1=0x0c, l2=»0270 REPEAT «, l3=0x0c}
0x2d5…2f5 Line {l1=0x1e, l2=»0280 PRINT "INDTAST FILTYPE ";«, l3=0x1e}
0x2f5…33c Line {l1=0x45, l2=»0290 INPUT "(K FOR PROGRAM-/DATAFILER, B FOR BINAERFILER): ",FILTYPE$«, l3=0x45}
0x33c…365 Line {l1=0x27, l2=»0300 UNTIL FILTYPE$="K" OR FILTYPE$="B"«, l3=0x27}
0x365…376 Line {l1=0x0f, l2=»0310 EXEC PURGE«, l3=0x0f}
0x376…38a Line {l1=0x12, l2=»0320 UNTIL FOREVER«, l3=0x12}
0x38a…39b Line {l1=0x0f, l2=»0330 PROC PURGE«, l3=0x0f}
0x39b…3b6 Line {l1=0x19, l2=»0340 CALL "SYSPROG:PERGE"«, l3=0x19}
0x3b6…3cd Line {l1=0x15, l2=»0350 IF FLAG<>0 THEN «, l3=0x15}
0x3cd…3fc Line {l1=0x2d, l2=»0360 PRINT "PURGE MISLYKKEDES. FEJLKODE";FLAG«, l3=0x2d}
0x3fc…408 Line {l1=0x0a, l2=»0370 STOP «, l3=0x0a}
0x408…414 Line {l1=0x0a, l2=»0380 ELSE «, l3=0x0a}
0x414…445 Line {l1=0x2f, l2=»0390 PRINT DREVN$;":";FILNAVN$;" ER NU SLETTET"«, l3=0x2f}
0x445…452 Line {l1=0x0b, l2=»0400 ENDIF «, l3=0x0b}
0x452…461 Line {l1=0x0d, l2=»0410 ENDPROC «, l3=0x0d}
0x461…48c Line {l1=0x29, l2=»0420 PROC KONVERTOGMOVE(NFRA,I,NTIL,CH,F)«, l3=0x29}
0x48c…496 Line {l1=0x08, l2=»0430 Y=1«, l3=0x08}
0x496…4a4 Line {l1=0x0c, l2=»0440 REPEAT «, l3=0x0c}
0x4a4…4b7 Line {l1=0x11, l2=»0450 CH$=NFRA$(I)«, l3=0x11}
0x4b7…4f0 Line {l1=0x37, l2=»0460 IF CH$=>"a" AND CH$<="å" THEN CH$=CHR(ORD(CH$)-32)«, l3=0x37}
0x4f0…508 Line {l1=0x16, l2=»0470 IF CH$<>":" THEN «, l3=0x16}
0x508…555 Line {l1=0x4b, l2=»0480 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN «, l3=0x4b}
0x555…574 Line {l1=0x1d, l2=»0490 NTIL$(Y)=CH$;Y=Y+1;I=I+1«, l3=0x1d}
0x574…580 Line {l1=0x0a, l2=»0500 ELSE «, l3=0x0a}
0x580…597 Line {l1=0x15, l2=»0510 IF CH$<>"" THEN «, l3=0x15}
0x597…5a1 Line {l1=0x08, l2=»0520 F=1«, l3=0x08}
0x5a1…5bb Line {l1=0x18, l2=»0530 EXIT ;ULOVLIGT TEGN«, l3=0x18}
0x5bb…5c8 Line {l1=0x0b, l2=»0540 ENDIF «, l3=0x0b}
0x5c8…5d5 Line {l1=0x0b, l2=»0550 ENDIF «, l3=0x0b}
0x5d5…5e2 Line {l1=0x0b, l2=»0560 ENDIF «, l3=0x0b}
0x5e2…62c Line {l1=0x48, l2=»0570 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18«, l3=0x48}
0x62c…63b Line {l1=0x0d, l2=»0580 ENDPROC «, l3=0x0d}
0x63b…640 00 00 50 52 4f ┆ PRO┆
0x640…660 43 20 0d 00 00 52 49 4e 54 20 0b 20 30 31 33 30 20 50 52 49 4e 54 20 22 50 55 52 47 45 20 2d 20 ┆C RINT 0130 PRINT "PURGE - ┆
0x660…680 53 4c 45 54 20 45 4e 20 46 49 4c 22 20 35 30 31 34 30 20 50 52 49 4e 54 20 22 50 52 4f 47 52 41 ┆SLET EN FIL" 50140 PRINT "PROGRA┆
0x680…6a0 4d 4d 45 54 20 53 54 4f 50 50 45 53 20 56 45 44 20 41 54 20 54 52 59 4b 4b 45 20 50 41 41 20 45 ┆MMET STOPPES VED AT TRYKKE PAA E┆
0x6a0…6c0 53 43 22 35 0c 30 31 35 30 20 52 45 50 45 41 54 20 0c 0b 30 31 36 30 20 50 52 49 4e 54 20 0b 0c ┆SC"5 0150 REPEAT 0160 PRINT ┆
0x6c0…6e0 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 ┆ ┆
[…0x26…]
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 4e 41 56 4e 24 28 31 38 29 2c 44 52 45 56 4e 24 28 39 29 2c 46 49 4c 4e 41 56 4e 24 28 ┆IM NAVN$(18),DREVN$(9),FILNAVN$(┆
0xbe0…c00 39 29 2c 46 49 4c 54 59 50 45 24 28 31 29 2c 53 49 44 53 54 45 43 48 41 52 24 28 31 29 43 0b 30 ┆9),FILTYPE$(1),SIDSTECHAR$(1)C 0┆
0xc00…c20 31 32 30 20 50 52 49 4e 54 20 0b 20 30 31 33 30 20 50 52 49 4e 54 20 22 50 55 52 47 45 20 2d 20 ┆120 PRINT 0130 PRINT "PURGE - ┆
0xc20…c40 53 4c 45 54 20 45 4e 20 46 49 4c 22 20 35 30 31 34 30 20 50 52 49 4e 54 20 22 50 52 4f 47 52 41 ┆SLET EN FIL" 50140 PRINT "PROGRA┆
0xc40…c60 4d 4d 45 54 20 53 54 4f 50 50 45 53 20 56 45 44 20 41 54 20 54 52 59 4b 4b 45 20 50 41 41 20 45 ┆MMET STOPPES VED AT TRYKKE PAA E┆
0xc60…c80 53 43 22 35 0c 30 31 35 30 20 52 45 50 45 41 54 20 0c 0b 30 31 36 30 20 50 52 49 4e 54 20 0b 0c ┆SC"5 0150 REPEAT 0160 PRINT ┆
0xc80…ca0 42 46 43 4f 50 59 20 20 52 41 01 05 00 69 01 06 00 00 00 69 01 06 00 00 00 05 00 00 00 00 00 00 ┆BFCOPY RA i i ┆
0xca0…cc0 13 02 42 46 43 4f 50 59 20 20 02 8b 07 01 00 00 ff 02 00 00 13 0d 04 46 43 4f 50 59 20 20 20 02 ┆ BFCOPY FCOPY ┆
0xcc0…ce0 00 00 08 0d 0d 05 43 4f 41 53 4d 20 20 20 01 00 00 08 0d 0d 05 44 4f 49 54 20 20 20 20 02 00 00 ┆ COASM DOIT ┆
0xce0…d00 08 0d 0d 05 4c 53 4b 52 4d 20 20 20 03 00 00 08 0d 0d 05 50 46 49 4e 44 20 20 20 04 00 00 08 0d ┆ LSKRM PFIND ┆
0xd00…d20 0d 05 45 30 4c 49 4e 20 20 20 05 00 00 08 0d 0d 05 43 4f 4d 50 20 20 20 20 06 00 00 08 0d 0d 05 ┆ E0LIN COMP ┆
0xd20…d40 4d 4f 56 45 20 20 20 20 07 00 00 08 0d 0d 05 55 44 49 4e 44 20 20 20 08 00 00 08 0d 0d 05 46 43 ┆MOVE UDIND FC┆
0xd40…d60 4f 4d 50 20 20 20 09 00 00 08 0d 0d 05 42 52 4b 54 53 20 20 20 0a 00 00 08 0d 0d 05 46 59 4c 44 ┆OMP BRKTS FYLD┆
0xd60…d80 42 20 20 20 0b 00 00 08 0d 0d 05 50 4c 41 44 52 20 20 20 0c 00 00 08 0d 0d 05 42 43 41 49 4d 20 ┆B PLADR BCAIM ┆
0xd80…da0 20 20 0d 00 00 08 0d 0d 05 41 53 43 49 49 20 20 20 0e 00 00 08 0d 0d 05 56 53 45 4e 44 20 20 20 ┆ ASCII VSEND ┆
0xda0…dc0 0f 00 00 08 0d 0d 05 43 4f 50 58 20 20 20 20 10 00 00 08 0d 0d 05 43 4f 50 59 20 20 20 20 11 00 ┆ COPX COPY ┆
0xdc0…de0 00 08 0d 02 08 cd 02 05 0b 01 00 00 00 05 04 08 3e 04 11 04 04 0a 02 26 03 04 02 08 cd 02 05 0b ┆ > & ┆
0xde0…e00 02 00 00 00 05 03 08 0d fa 03 04 0a 02 3d 00 04 06 08 7e 23 fe 1f ca 06 04 0a 02 3d 00 04 06 08 ┆ = ü# = ┆
0xe00…e20 e6 5f fe 52 c2 06 04 0a 02 23 00 04 02 08 32 02 04 0a 02 88 07 04 02 08 c3 02 04 0a 02 0b 00 04 ┆ _ R # 2 ┆
0xe20…e40 04 08 fe 46 c2 04 04 0a 02 30 00 04 04 08 3e 80 32 04 04 0a 02 89 07 04 02 08 c3 02 04 0a 02 0b ┆ F 0 > 2 ┆
0xe40…e60 00 04 04 08 fe 43 c2 04 04 0a 02 0b 00 04 04 08 3e 40 32 04 04 0a 02 8a 07 04 02 08 c3 02 04 0a ┆ C >@2 ┆
0xe60…e80 02 0b 00 04 02 08 01 02 04 0a 02 97 02 04 09 08 3e 24 16 22 2a 16 80 cd 09 05 0b 03 00 00 00 05 ┆ >$ "* ┆
0xe80…ea0 02 08 cd 02 04 0a 02 59 02 04 02 08 da 02 04 0a 02 e0 01 04 02 08 2a 02 04 0a 02 b9 02 04 03 08 ┆ Y * ┆
0xea0…ec0 eb 21 03 04 0a 02 47 03 04 02 08 cd 02 05 0b 04 00 00 00 05 03 08 a7 c2 03 04 0a 02 3d 00 04 02 ┆ ! G = ┆
0xec0…ee0 08 2a 02 04 0a 02 67 03 04 02 08 22 02 04 0a 02 77 07 04 02 08 01 02 04 0a 02 bb 02 04 09 08 3e ┆ * g " w >┆
0xee0…f00 29 16 27 2a 16 80 cd 09 05 0b 03 00 00 00 05 02 08 cd 02 04 0a 02 59 02 04 02 08 da 02 04 0a 02 ┆) '* Y ┆
0xf00…f20 e0 01 04 02 08 2a 02 04 0a 02 e2 02 04 03 08 eb 21 03 04 0a 02 47 03 04 02 08 cd 02 05 0b 04 00 ┆ * ! G ┆
0xf20…f40 00 00 05 03 08 a7 c2 03 04 0a 02 64 00 04 02 08 01 02 04 0a 02 7e 02 04 09 08 3e 19 16 18 2a 16 ┆ d ü > * ┆
0xf40…f60 80 cd 09 05 0b 03 00 00 00 05 02 08 cd 02 04 0a 02 59 02 04 02 08 da 02 04 0a 02 e0 01 04 04 08 ┆ Y ┆
0xf60…f80 3e 08 21 04 04 0a 02 76 02 04 02 08 cd 02 05 0b 05 00 00 00 05 02 08 01 02 04 0a 02 5e 02 04 63 ┆> ! v ^ c┆