|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »INITLI80.K«
└─⟦670c0171b⟧ Bits:30005246 COMAL-80 version 1.3 (MIKADOS)
└─⟦this⟧ »INITLI80.K«
0100 // INITLI80 - EGS 791106, PNM 050980, DI 050182, DI 210182 0110 // COMAL80 VERSION AA 27.04.1982 0120 DIM SVAR$ OF 4,SVARK$ OF 4,ETIKETTE$ OF 9 0130 DIM DREVN$ OF 2,NAVN$ OF 18,SIDSTECHAR$ OF 1 0140 INTEGER FLAG,FOREVER,Y 0150 PRINT 0160 PRINT "INITLI80 - Initialisering af disketter" 0170 PRINT " - og indsætning af etiketter" 0180 REPEAT 0190 PRINT 0200 REPEAT 0210 ETIKETTE$:="";NAVN$:="";FOREVER,FLAG:=0 0220 INPUT "Indtast etikette: ":NAVN$ 0230 EXEC KONVERTOGMOVE(NAVN$,1,ETIKETTE$,SIDSTECHAR$,FLAG) 0240 IF LEN(ETIKETTE$)>8 OR LEN(ETIKETTE$)<1 OR LEN(NAVN$)>8 THEN FLAG:=1 0250 IF SIDSTECHAR$=":" THEN FLAG:=1 0260 UNTIL FLAG=0 0270 REPEAT 0280 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ":DREVN$ 0290 UNTIL DREVN$>"P0" AND DREVN$<="P9" 0300 REPEAT 0310 PRINT 0320 PRINT "Indsæt diskette i drev nr. ";DREVN$(2) 0330 PRINT 0340 PRINT "Tast derefter I for Initialisering" 0350 PRINT " E for indsætning af Etikette" 0360 INPUT " ESC for at stoppe programmet : ":SVAR$ 0370 UNTIL SVAR$="E" OR SVAR$="I" 0380 IF SVAR$="I" THEN 0390 REPEAT 0400 INPUT " J for indlæsningskontrol : ":SVARK$ 0410 UNTIL LEN(SVARK$)<2 AND (SVARK$="J" OR SVARK$="N") 0420 ENDIF 0430 EXEC INIT 0440 UNTIL FOREVER 0450 PROC INIT 0460 IF SVAR$="I" THEN 0470 PRINT " " 0480 PRINT "Aktuelt spor Sidste spor" 0490 PRINT " " 0500 ENDIF 0510 CALL "SYSPROG:PLINC" 0520 PRINT " " 0530 IF FLAG=250 THEN 0540 PRINT "Etiketten ";ETIKETTE$;" er nu indsat." 0550 ELSE 0560 IF FLAG THEN 0570 PRINT "Initlize mislykkedes. Fejlkode ";FLAG 0580 ELSE 0590 PRINT "Diskette ";ETIKETTE$;" er nu initialiseret." 0600 ENDIF 0610 ENDIF 0620 ENDPROC INIT 0630 PROC KONVERTOGMOVE(NFRA$,I,REF NTIL$,REF CH$,REF F) 0640 Y:=1 0650 REPEAT 0660 CH$:=NFRA$(I) 0670 IF CH$=>"a" AND CH$<="å" THEN CH$:=CHR$(ORD(CH$)-32) 0680 IF CH$<>":" THEN 0690 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN 0700 NTIL$(Y):=CH$;Y:=Y+1;I:=I+1 0710 ELSE 0720 IF CH$<>"" THEN 0730 F:=1 0740 EXIT // ULOVLIGT TEGN 0750 ENDIF 0760 ENDIF 0770 ENDIF 0780 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18 0790 ENDPROC KONVERTOGMOVE
0x000…044 Line {l1=0x42, l2=»0100 // INITLI80 - EGS 791106, PNM 050980, DI 050182, DI 210182«, l3=0x42}
0x044…06b Line {l1=0x25, l2=»0110 // COMAL80 VERSION AA 27.04.1982«, l3=0x25}
0x06b…09b Line {l1=0x2e, l2=»0120 DIM SVAR$ OF 4,SVARK$ OF 4,ETIKETTE$ OF 9«, l3=0x2e}
0x09b…0ce Line {l1=0x31, l2=»0130 DIM DREVN$ OF 2,NAVN$ OF 18,SIDSTECHAR$ OF 1«, l3=0x31}
0x0ce…0eb Line {l1=0x1b, l2=»0140 INTEGER FLAG,FOREVER,Y«, l3=0x1b}
0x0eb…0f8 Line {l1=0x0b, l2=»0150 PRINT «, l3=0x0b}
0x0f8…12d Line {l1=0x33, l2=»0160 PRINT "INITLI80 - Initialisering af disketter"«, l3=0x33}
0x12d…161 Line {l1=0x32, l2=»0170 PRINT " - og indsætning af etiketter"«, l3=0x32}
0x161…16f Line {l1=0x0c, l2=»0180 REPEAT «, l3=0x0c}
0x16f…17c Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x17c…18a Line {l1=0x0c, l2=»0200 REPEAT «, l3=0x0c}
0x18a…1b8 Line {l1=0x2c, l2=»0210 ETIKETTE$:="";NAVN$:="";FOREVER,FLAG:=0«, l3=0x2c}
0x1b8…1df Line {l1=0x25, l2=»0220 INPUT "Indtast etikette: ":NAVN$«, l3=0x25}
0x1df…21c Line {l1=0x3b, l2=»0230 EXEC KONVERTOGMOVE(NAVN$,1,ETIKETTE$,SIDSTECHAR$,FLAG)«, l3=0x3b}
0x21c…267 Line {l1=0x49, l2=»0240 IF LEN(ETIKETTE$)>8 OR LEN(ETIKETTE$)<1 OR LEN(NAVN$)>8 THEN FLAG:=1«, l3=0x49}
0x267…28d Line {l1=0x24, l2=»0250 IF SIDSTECHAR$=":" THEN FLAG:=1«, l3=0x24}
0x28d…2a0 Line {l1=0x11, l2=»0260 UNTIL FLAG=0«, l3=0x11}
0x2a0…2ae Line {l1=0x0c, l2=»0270 REPEAT «, l3=0x0c}
0x2ae…2ea Line {l1=0x3a, l2=»0280 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ":DREVN$«, l3=0x3a}
0x2ea…313 Line {l1=0x27, l2=»0290 UNTIL DREVN$>"P0" AND DREVN$<="P9"«, l3=0x27}
0x313…321 Line {l1=0x0c, l2=»0300 REPEAT «, l3=0x0c}
0x321…32e Line {l1=0x0b, l2=»0310 PRINT «, l3=0x0b}
0x32e…362 Line {l1=0x32, l2=»0320 PRINT "Indsæt diskette i drev nr. ";DREVN$(2)«, l3=0x32}
0x362…36f Line {l1=0x0b, l2=»0330 PRINT «, l3=0x0b}
0x36f…3a2 Line {l1=0x31, l2=»0340 PRINT "Tast derefter I for Initialisering"«, l3=0x31}
0x3a2…3dd Line {l1=0x39, l2=»0350 PRINT " E for indsætning af Etikette"«, l3=0x39}
0x3dd…41f Line {l1=0x40, l2=»0360 INPUT " ESC for at stoppe programmet : ":SVAR$«, l3=0x40}
0x41f…442 Line {l1=0x21, l2=»0370 UNTIL SVAR$="E" OR SVAR$="I"«, l3=0x21}
0x442…45b Line {l1=0x17, l2=»0380 IF SVAR$="I" THEN «, l3=0x17}
0x45b…469 Line {l1=0x0c, l2=»0390 REPEAT «, l3=0x0c}
0x469…4ac Line {l1=0x41, l2=»0400 INPUT " J for indlæsningskontrol : ":SVARK$«, l3=0x41}
0x4ac…4e5 Line {l1=0x37, l2=»0410 UNTIL LEN(SVARK$)<2 AND (SVARK$="J" OR SVARK$="N")«, l3=0x37}
0x4e5…4f2 Line {l1=0x0b, l2=»0420 ENDIF «, l3=0x0b}
0x4f2…502 Line {l1=0x0e, l2=»0430 EXEC INIT«, l3=0x0e}
0x502…516 Line {l1=0x12, l2=»0440 UNTIL FOREVER«, l3=0x12}
0x516…526 Line {l1=0x0e, l2=»0450 PROC INIT«, l3=0x0e}
0x526…53f Line {l1=0x17, l2=»0460 IF SVAR$="I" THEN «, l3=0x17}
0x53f…54f Line {l1=0x0e, l2=»0470 PRINT " "«, l3=0x0e}
0x54f…588 Line {l1=0x37, l2=»0480 PRINT "Aktuelt spor Sidste spor"«, l3=0x37}
0x588…598 Line {l1=0x0e, l2=»0490 PRINT " "«, l3=0x0e}
0x598…5a5 Line {l1=0x0b, l2=»0500 ENDIF «, l3=0x0b}
0x5a5…5c0 Line {l1=0x19, l2=»0510 CALL "SYSPROG:PLINC"«, l3=0x19}
0x5c0…5d0 Line {l1=0x0e, l2=»0520 PRINT " "«, l3=0x0e}
0x5d0…5e8 Line {l1=0x16, l2=»0530 IF FLAG=250 THEN «, l3=0x16}
0x5e8…61c Line {l1=0x32, l2=»0540 PRINT "Etiketten ";ETIKETTE$;" er nu indsat."«, l3=0x32}
0x61c…628 Line {l1=0x0a, l2=»0550 ELSE «, l3=0x0a}
0x628…63c Line {l1=0x12, l2=»0560 IF FLAG THEN «, l3=0x12}
0x63c…66f Line {l1=0x31, l2=»0570 PRINT "Initlize mislykkedes. Fejlkode ";FLAG«, l3=0x31}
0x66f…67b Line {l1=0x0a, l2=»0580 ELSE «, l3=0x0a}
0x67b…6b5 Line {l1=0x38, l2=»0590 PRINT "Diskette ";ETIKETTE$;" er nu initialiseret."«, l3=0x38}
0x6b5…6c2 Line {l1=0x0b, l2=»0600 ENDIF «, l3=0x0b}
0x6c2…6cf Line {l1=0x0b, l2=»0610 ENDIF «, l3=0x0b}
0x6cf…6e2 Line {l1=0x11, l2=»0620 ENDPROC INIT«, l3=0x11}
0x6e2…71c Line {l1=0x38, l2=»0630 PROC KONVERTOGMOVE(NFRA$,I,REF NTIL$,REF CH$,REF F)«, l3=0x38}
0x71c…727 Line {l1=0x09, l2=»0640 Y:=1«, l3=0x09}
0x727…735 Line {l1=0x0c, l2=»0650 REPEAT «, l3=0x0c}
0x735…749 Line {l1=0x12, l2=»0660 CH$:=NFRA$(I)«, l3=0x12}
0x749…784 Line {l1=0x39, l2=»0670 IF CH$=>"a" AND CH$<="å" THEN CH$:=CHR$(ORD(CH$)-32)«, l3=0x39}
0x784…79c Line {l1=0x16, l2=»0680 IF CH$<>":" THEN «, l3=0x16}
0x79c…7e9 Line {l1=0x4b, l2=»0690 IF (CH$=>"0" AND CH$<="9") OR (CH$=>"A" AND CH$<="Å") OR CH$="_" THEN «, l3=0x4b}
0x7e9…80b Line {l1=0x20, l2=»0700 NTIL$(Y):=CH$;Y:=Y+1;I:=I+1«, l3=0x20}
0x80b…817 Line {l1=0x0a, l2=»0710 ELSE «, l3=0x0a}
0x817…82e Line {l1=0x15, l2=»0720 IF CH$<>"" THEN «, l3=0x15}
0x82e…839 Line {l1=0x09, l2=»0730 F:=1«, l3=0x09}
0x839…855 Line {l1=0x1a, l2=»0740 EXIT // ULOVLIGT TEGN«, l3=0x1a}
0x855…862 Line {l1=0x0b, l2=»0750 ENDIF «, l3=0x0b}
0x862…86f Line {l1=0x0b, l2=»0760 ENDIF «, l3=0x0b}
0x86f…87c Line {l1=0x0b, l2=»0770 ENDIF «, l3=0x0b}
0x87c…8c6 Line {l1=0x48, l2=»0780 UNTIL Y=LEN(NFRA$)+1 OR CH$=":" OR CH$="" OR LEN(NTIL$)=>9 OR I=>18«, l3=0x48}
0x8c6…8e2 Line {l1=0x1a, l2=»0790 ENDPROC KONVERTOGMOVE«, l3=0x1a}
0x8e2…900 00 00 05 0b 05 00 00 00 05 02 08 cd 02 05 0b 06 00 00 00 05 02 08 11 02 04 0a 02 47 06 04 ┆ G ┆
0x900…920 02 08 cd 02 04 0a 02 8e 02 04 07 08 e6 07 0f 0f 0f 21 07 04 0a 02 24 06 04 06 08 b6 77 e6 01 c2 ┆ ! $ w ┆
0x920…940 06 04 0a 02 ce 00 04 02 08 01 02 04 0a 02 49 06 04 06 08 3e 07 16 06 2a 06 05 0b 05 00 00 00 05 ┆ I > * ┆
0x940…960 02 08 cd 02 05 0b 06 00 00 00 05 02 08 11 02 04 0a 02 4e 06 04 02 08 cd 02 04 0a 02 8e 02 04 05 ┆ N ┆
0x960…980 08 e6 07 07 21 05 04 0a 02 24 06 04 04 08 b6 77 01 04 04 0a 02 5d 06 04 06 08 3e 1a 16 18 2a 06 ┆ ! $ w Å > * ┆
0x980…9a0 05 0b 05 00 00 00 05 02 08 cd 02 05 0b 06 00 00 00 05 02 08 11 02 04 0a 02 75 06 04 02 08 cd 02 ┆ u ┆
0x9a0…9c0 04 0a 02 8e 02 04 02 08 32 02 04 0a 02 27 06 04 03 08 97 32 03 04 0a 02 28 06 04 02 08 01 02 04 ┆ 2 ' 2 ( ┆
0x9c0…9e0 0a 02 50 06 04 06 08 3e 0d 16 0c 2a 06 05 0b 05 00 00 00 05 02 08 cd 02 05 0b 06 00 00 00 05 63 ┆ P > * c┆