|
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: »INITLIZE.K«
└─⟦57a827f90⟧ Bits:30005247 COMAL A verson 2.24 (MIKADOS)
└─⟦this⟧ »INITLIZE.K«
└─⟦85259e8f7⟧ Bits:30005248 COMAL B verson 1.19 (MIKADOS)
└─⟦this⟧ »INITLIZE.K«
0100 REM INITLIZE - EGS 791106, PNM 050980, DI 050182, DI 210182 0110 DIM SVAR$(4),SVARK$(4),ETIKETTE$(9),DREVN$(2),NAVN$(18),SIDSTECHAR$(1) 0120 PRINT 0130 PRINT "INITLIZE - Initialisering af disketter" 0140 PRINT " - og indsætning af etiketter" 0150 REPEAT 0160 PRINT 0170 REPEAT 0180 ETIKETTE$="";NAVN$="";FOREVER,FLAG=0 0190 INPUT "Indtast etikette: ",NAVN$ 0200 EXEC KONVERTOGMOVE(NAVN$,1,ETIKETTE$,SIDSTECHAR$,FLAG) 0210 IF LEN(ETIKETTE$)>8 OR LEN(ETIKETTE$)<1 OR LEN(NAVN$)>8 THEN FLAG=1 0220 IF SIDSTECHAR$=":" THEN FLAG=1 0230 UNTIL FLAG=0 0240 REPEAT 0250 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ",DREVN$ 0260 UNTIL DREVN$>"P0" AND DREVN$<="P9" 0270 REPEAT 0280 PRINT 0290 PRINT "Indsæt diskette i drev nr. ";DREVN$(2) 0300 PRINT 0310 PRINT "Tast derefter I for Initialisering" 0320 PRINT " E for indsætning af Etikette" 0330 INPUT " ESC for at stoppe programmet : ",SVAR$ 0340 UNTIL SVAR$="E" OR SVAR$="I" 0350 IF SVAR$="I" THEN 0360 REPEAT 0370 INPUT " J for indlæsningskontrol : ",SVARK$ 0380 UNTIL LEN(SVARK$)<2 AND (SVARK$="J" OR SVARK$="N") 0390 ENDIF 0400 EXEC INIT 0410 UNTIL FOREVER 0420 PROC INIT 0430 IF SVAR$="I" THEN 0440 PRINT " " 0450 PRINT "Aktuelt spor Sidste spor" 0460 PRINT " " 0470 ENDIF 0480 CALL "SYSPROG:PLINC" 0490 PRINT " " 0500 IF FLAG=250 THEN 0510 PRINT "Etiketten ";ETIKETTE$;" er nu indsat." 0520 ELSE 0530 IF FLAG THEN 0540 PRINT "Initlize mislykkedes. Fejlkode";FLAG 0550 ELSE 0560 PRINT "Diskette ";ETIKETTE$;" er nu initialiseret." 0570 ENDIF 0580 ENDIF 0590 ENDPROC 0600 PROC KONVERTOGMOVE(NFRA,I,NTIL,CH,F) 0610 Y=1 0620 REPEAT 0630 CH$=NFRA$(I) 0640 IF CH$=>"a" AND CH$<="å" THEN CH$=CHR(ORD(CH$)-32) 0650 IF CH$<>":" THEN 0660 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN 0670 NTIL$(Y)=CH$;Y=Y+1;I=I+1 0680 ELSE 0690 IF CH$<>"" THEN 0700 F=1 0710 EXIT ;ULOVLIGT TEGN 0720 ENDIF 0730 ENDIF 0740 ENDIF 0750 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18 0760 ENDPROC
0x000…045 Line {l1=0x43, l2=»0100 REM INITLIZE - EGS 791106, PNM 050980, DI 050182, DI 210182«, l3=0x43}
0x045…092 Line {l1=0x4b, l2=»0110 DIM SVAR$(4),SVARK$(4),ETIKETTE$(9),DREVN$(2),NAVN$(18),SIDSTECHAR$(1)«, l3=0x4b}
0x092…09f Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x09f…0d4 Line {l1=0x33, l2=»0130 PRINT "INITLIZE - Initialisering af disketter"«, l3=0x33}
0x0d4…108 Line {l1=0x32, l2=»0140 PRINT " - og indsætning af etiketter"«, l3=0x32}
0x108…116 Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x116…123 Line {l1=0x0b, l2=»0160 PRINT «, l3=0x0b}
0x123…131 Line {l1=0x0c, l2=»0170 REPEAT «, l3=0x0c}
0x131…15c Line {l1=0x29, l2=»0180 ETIKETTE$="";NAVN$="";FOREVER,FLAG=0«, l3=0x29}
0x15c…183 Line {l1=0x25, l2=»0190 INPUT "Indtast etikette: ",NAVN$«, l3=0x25}
0x183…1c0 Line {l1=0x3b, l2=»0200 EXEC KONVERTOGMOVE(NAVN$,1,ETIKETTE$,SIDSTECHAR$,FLAG)«, l3=0x3b}
0x1c0…20a Line {l1=0x48, l2=»0210 IF LEN(ETIKETTE$)>8 OR LEN(ETIKETTE$)<1 OR LEN(NAVN$)>8 THEN FLAG=1«, l3=0x48}
0x20a…22f Line {l1=0x23, l2=»0220 IF SIDSTECHAR$=":" THEN FLAG=1«, l3=0x23}
0x22f…242 Line {l1=0x11, l2=»0230 UNTIL FLAG=0«, l3=0x11}
0x242…250 Line {l1=0x0c, l2=»0240 REPEAT «, l3=0x0c}
0x250…28c Line {l1=0x3a, l2=»0250 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ",DREVN$«, l3=0x3a}
0x28c…2b5 Line {l1=0x27, l2=»0260 UNTIL DREVN$>"P0" AND DREVN$<="P9"«, l3=0x27}
0x2b5…2c3 Line {l1=0x0c, l2=»0270 REPEAT «, l3=0x0c}
0x2c3…2d0 Line {l1=0x0b, l2=»0280 PRINT «, l3=0x0b}
0x2d0…304 Line {l1=0x32, l2=»0290 PRINT "Indsæt diskette i drev nr. ";DREVN$(2)«, l3=0x32}
0x304…311 Line {l1=0x0b, l2=»0300 PRINT «, l3=0x0b}
0x311…344 Line {l1=0x31, l2=»0310 PRINT "Tast derefter I for Initialisering"«, l3=0x31}
0x344…37f Line {l1=0x39, l2=»0320 PRINT " E for indsætning af Etikette"«, l3=0x39}
0x37f…3c1 Line {l1=0x40, l2=»0330 INPUT " ESC for at stoppe programmet : ",SVAR$«, l3=0x40}
0x3c1…3e4 Line {l1=0x21, l2=»0340 UNTIL SVAR$="E" OR SVAR$="I"«, l3=0x21}
0x3e4…3fd Line {l1=0x17, l2=»0350 IF SVAR$="I" THEN «, l3=0x17}
0x3fd…40b Line {l1=0x0c, l2=»0360 REPEAT «, l3=0x0c}
0x40b…44e Line {l1=0x41, l2=»0370 INPUT " J for indlæsningskontrol : ",SVARK$«, l3=0x41}
0x44e…487 Line {l1=0x37, l2=»0380 UNTIL LEN(SVARK$)<2 AND (SVARK$="J" OR SVARK$="N")«, l3=0x37}
0x487…494 Line {l1=0x0b, l2=»0390 ENDIF «, l3=0x0b}
0x494…4a4 Line {l1=0x0e, l2=»0400 EXEC INIT«, l3=0x0e}
0x4a4…4b8 Line {l1=0x12, l2=»0410 UNTIL FOREVER«, l3=0x12}
0x4b8…4c8 Line {l1=0x0e, l2=»0420 PROC INIT«, l3=0x0e}
0x4c8…4e1 Line {l1=0x17, l2=»0430 IF SVAR$="I" THEN «, l3=0x17}
0x4e1…4f1 Line {l1=0x0e, l2=»0440 PRINT " "«, l3=0x0e}
0x4f1…52a Line {l1=0x37, l2=»0450 PRINT "Aktuelt spor Sidste spor"«, l3=0x37}
0x52a…53a Line {l1=0x0e, l2=»0460 PRINT " "«, l3=0x0e}
0x53a…547 Line {l1=0x0b, l2=»0470 ENDIF «, l3=0x0b}
0x547…562 Line {l1=0x19, l2=»0480 CALL "SYSPROG:PLINC"«, l3=0x19}
0x562…572 Line {l1=0x0e, l2=»0490 PRINT " "«, l3=0x0e}
0x572…58a Line {l1=0x16, l2=»0500 IF FLAG=250 THEN «, l3=0x16}
0x58a…5be Line {l1=0x32, l2=»0510 PRINT "Etiketten ";ETIKETTE$;" er nu indsat."«, l3=0x32}
0x5be…5ca Line {l1=0x0a, l2=»0520 ELSE «, l3=0x0a}
0x5ca…5de Line {l1=0x12, l2=»0530 IF FLAG THEN «, l3=0x12}
0x5de…610 Line {l1=0x30, l2=»0540 PRINT "Initlize mislykkedes. Fejlkode";FLAG«, l3=0x30}
0x610…61c Line {l1=0x0a, l2=»0550 ELSE «, l3=0x0a}
0x61c…656 Line {l1=0x38, l2=»0560 PRINT "Diskette ";ETIKETTE$;" er nu initialiseret."«, l3=0x38}
0x656…663 Line {l1=0x0b, l2=»0570 ENDIF «, l3=0x0b}
0x663…670 Line {l1=0x0b, l2=»0580 ENDIF «, l3=0x0b}
0x670…67f Line {l1=0x0d, l2=»0590 ENDPROC «, l3=0x0d}
0x67f…6aa Line {l1=0x29, l2=»0600 PROC KONVERTOGMOVE(NFRA,I,NTIL,CH,F)«, l3=0x29}
0x6aa…6b4 Line {l1=0x08, l2=»0610 Y=1«, l3=0x08}
0x6b4…6c2 Line {l1=0x0c, l2=»0620 REPEAT «, l3=0x0c}
0x6c2…6d5 Line {l1=0x11, l2=»0630 CH$=NFRA$(I)«, l3=0x11}
0x6d5…70e Line {l1=0x37, l2=»0640 IF CH$=>"a" AND CH$<="å" THEN CH$=CHR(ORD(CH$)-32)«, l3=0x37}
0x70e…726 Line {l1=0x16, l2=»0650 IF CH$<>":" THEN «, l3=0x16}
0x726…773 Line {l1=0x4b, l2=»0660 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN «, l3=0x4b}
0x773…792 Line {l1=0x1d, l2=»0670 NTIL$(Y)=CH$;Y=Y+1;I=I+1«, l3=0x1d}
0x792…79e Line {l1=0x0a, l2=»0680 ELSE «, l3=0x0a}
0x79e…7b5 Line {l1=0x15, l2=»0690 IF CH$<>"" THEN «, l3=0x15}
0x7b5…7bf Line {l1=0x08, l2=»0700 F=1«, l3=0x08}
0x7bf…7d9 Line {l1=0x18, l2=»0710 EXIT ;ULOVLIGT TEGN«, l3=0x18}
0x7d9…7e6 Line {l1=0x0b, l2=»0720 ENDIF «, l3=0x0b}
0x7e6…7f3 Line {l1=0x0b, l2=»0730 ENDIF «, l3=0x0b}
0x7f3…800 Line {l1=0x0b, l2=»0740 ENDIF «, l3=0x0b}
0x800…84a Line {l1=0x48, l2=»0750 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18«, l3=0x48}
0x84a…859 Line {l1=0x0d, l2=»0760 ENDPROC «, l3=0x0d}
0x859…860 00 00 00 00 00 00 00 ┆ ┆
0x860…880 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 ┆ ┆
[…0x29…]
0xda0…dc0 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 76 ┆ v┆
0xdc0…de0 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 73 56 7b 56 bd 5f bd 5f bd 5f bd 5f bd 5f ┆vvvvvvvvvvvvvvvvvvsVæV _ _ _ _ _┆
0xde0…e00 bd 5f bd 5f eb 63 f9 63 86 63 ce 63 b6 56 93 63 9c 63 b9 63 ac 63 a3 63 c3 8a 4d 2a c0 4c 7d 2d ┆ _ _ c c c c V c c c c c M* Lå-┆
0xe00…e20 fa d9 4c c3 eb 4c 2a c0 4c 7d a7 f2 8f 63 25 e5 c3 d9 4c e1 26 00 22 c0 4c c3 d9 4c e1 cd b0 05 ┆ L L* Lå c% L & " L L ┆
0xe20…e40 c3 cc 4c e1 d1 7d cd 32 06 c3 d9 4c e1 d1 cd 45 06 a5 6f 26 00 e5 c3 d9 4c 01 ca 63 11 04 00 2a ┆ L å 2 L E o& L c *┆
0xe40…e60 8e 70 3e 02 cd 74 05 c3 cc 4c 3c 58 53 3e 2a 19 4b af 95 6f 3e 00 9c 67 39 a7 7c 1f 67 7d 1f 6f ┆ p> t L<XS>* K o> g9 ø gå o┆
0xe60…e80 e5 c3 cc 4c 2a 48 2e e5 c3 d9 4c cd 2d 64 d1 2a 19 4b eb 73 23 72 c3 d9 4c e1 5e 23 56 eb 22 19 ┆ L*H. L -d * K s#r L ^#V " ┆
0xe80…ea0 4b 21 01 00 22 c2 4c c3 d9 4c cd 2d 64 c1 d1 2a 19 4b eb 73 23 72 eb 09 09 22 19 4b eb 21 d8 ff ┆K! " L L -d * K s#r " K ! ┆
0xea0…ec0 39 7d 93 7c 9a d2 cc 4c 1e 4b c3 ff 4c 2a c2 4c 7d 3d b4 c8 22 19 4b 21 01 00 22 c2 4c c9 d1 c1 ┆9å ø L K L* Lå= " K! " L ┆
0xec0…ee0 e1 cd 97 4f f2 cc 4c 73 23 0c c2 47 64 04 c2 47 64 c3 cc 4c c1 d1 e1 7d 93 7c 9a da 87 64 c3 64 ┆ O Ls# Gd Gd L å ø d d┆
0xee0…f00 64 c1 d1 e1 cd 97 4f f2 cc 4c 79 e6 01 c2 75 64 7e 12 23 13 0c 7e 12 23 13 0c c2 70 64 04 c2 70 ┆d O Ly udü # ü # pd p┆
0xf00…f20 64 c3 cc 4c c1 d1 e1 eb 09 eb 09 cd 97 4f f2 cc 4c 79 e6 01 c2 9c 64 2b 1b 7e 12 0c 2b 1b 7e 12 ┆d L O Ly d+ ü + ü ┆
0xf20…f40 0c c2 97 64 04 c2 97 64 c3 cc 4c e1 e1 d1 f1 c1 e5 d2 ba 64 cd f1 64 c3 bd 64 cd cb 64 d1 7d 93 ┆ d d L d d d d å ┆
0xf40…f60 6f 7c 9a 67 e5 c3 cc 4c cd 14 65 04 05 fa e1 64 cd 97 4f f0 7b be c8 23 0c c2 d5 64 04 c2 d5 64 ┆oø g L e d O æ # d d┆
0xf60…f80 c9 7b be c8 2b 0c c2 e2 64 04 c2 e2 64 c9 cd 14 65 78 a7 fa 07 65 cd 97 4f f0 7b be c0 23 0c 63 ┆ æ + d d ex e O æ # c┆