|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »DEMO_RAN.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_RAN.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_RAN.K«
0100 // ----------------------- demo_RANDOM ---------------------------
0110 // Direkte (random) filer
0120 // Programmet er beregnet til at oprette og vedligeholde et kas-
0130 // settebåndkartotek. Det er således muligt at slette bånd,
0140 PRINT
0150 // Et bånd slettes ved at sætte båndlængden til 0.
0160 // ---------------------------------------------------------------
0170 DIM SIDEA$ OF 70,SIDEB$ OF 70,TOM$ OF 70,FILNAVN$ OF 16,SV$ OF 1
0180 INTEGER ØNSKE,TYPE,LÆNGDE,STØJ,I,J,BÅNDNUMMER,POSTANTAL,POSTSTØRRELSE,L
0190 INTEGER FØRSTE,SIDSTE
0200 TOM$:=" "
0210 TOM$:=TOM$+TOM$
0220 // ---------------------------------------------------------------
0230 REPEAT
0240 EXEC VALG
0250 UNTIL ØNSKE=6
0260 // ---------------------------------------------------------------
0270 PROC VALG
0280 CLEAR
0290 CURSOR 20,1
0300 PRINT "B Å N D K A R T O T E K "
0310 CURSOR 20,2
0320 PRINT "------------------------"
0330 CURSOR 20,4
0340 PRINT "Programmet byder på følgende muligheder:"
0350 CURSOR 20,5
0360 PRINT "---------------------------------------"
0370 CURSOR 20,7
0380 PRINT "1. Oprettelse af nyt kartotek"
0390 CURSOR 20,9
0400 PRINT "2. Skrive i kartoteket"
0410 CURSOR 20,11
0420 PRINT "3. Rette i kartoteket"
0430 CURSOR 20,13
0440 PRINT "4. Læse i kartoteket"
0450 CURSOR 20,15
0460 PRINT "5. Udskrive kartoteket på printeren"
0470 CURSOR 20,17
0480 PRINT "6. Afslutte programkørslen"
0490 REPEAT
0500 CURSOR 20,21
0510 INPUT "Indtast nummeret på den ønskede mulighed:":ØNSKE
0520 UNTIL ØNSKE=>1 AND ØNSKE<=6
0530 CASE ØNSKE OF
0540 WHEN 1
0550 EXEC OPRET
0560 WHEN 2,3
0570 EXEC INDSKRIV
0580 WHEN 4,5
0590 EXEC LÆS
0600 WHEN 6
0610 CURSOR 20,24
0620 PRINT "Programmet er nu afsluttet."
0630 ENDCASE
0640 ENDPROC VALG
0650 // ----------------------------------------------------------
0660 PROC OPRET
0670 CLEAR
0680 CURSOR 10,5
0690 PRINT " O P R E T T E L S E A F B Å N D K A R T O T E K ."
0700 CURSOR 10,6
0710 PRINT "-------------------------------------------------------"
0720 CURSOR 10,9
0730 PRINT "Hvad skal kartoteket hedde? ",
0740 INPUT "(max 7 tegn): ":FILNAVN$
0750 FILNAVN$:="SYSTIME:"+FILNAVN$
0760 CURSOR 10,11
0770 PRINT "Hvor mange bånd skal der være plads til? ",
0780 INPUT POSTANTAL
0790 POSTSTØRRELSE:=3*8+2*72 // 3 tal + 2 tekster
0800 CREATE FILNAVN$,POSTANTAL,POSTSTØRRELSE
0810 TYPE:=1;STØJ:=1;L:=0
0820 OPEN FILNAVN$,W
0830 FOR I:=1 TO POSTANTAL DO
0840 PUT FILNAVN$,I:L,TYPE,STØJ,TOM$,TOM$
0850 NEXT I
0860 CLOSE FILNAVN$
0870 CURSOR 10,15
0880 PRINT "Kartoteket: '";FILNAVN$(9:LEN(FILNAVN$)-8);"' er nu oprettet ";
0890 PRINT "med plads til ";POSTANTAL;" bånd"
0900 CURSOR 10,17
0910 PRINT "Poststørrelsen er ";POSTSTØRRELSE
0920 CURSOR 68,23
0930 INPUT " Return!":SV$
0940 ENDPROC OPRET
0950 // -----------------------------------------------------------------
0960 PROC INDSKRIV
0970 CLEAR
0980 CURSOR 10,3
0990 PRINT "I N D T A S T N I N G T I L K A R T O T E K ."
1000 CURSOR 10,5
1010 INPUT "Kartotekets navn: ":FILNAVN$
1020 FILNAVN$:="SYSTIME:"+FILNAVN$
1030 OPEN FILNAVN$,W
1040 REPEAT
1050 CURSOR 1,10
1060 INPUT "Båndnummer: ":BÅNDNUMMER
1070 GET FILNAVN$,BÅNDNUMMER:L,TYPE,STØJ,SIDEA$,SIDEB$
1080 PRINT
1090 PRINT "Båndlængde: ";L;" "
1100 PRINT
1110 PRINT "Båndtype: 1: NORMAL 2: CHROM 3: FE-CR ";
1120 PRINT "4: METAL : ";TYPE
1130 PRINT
1140 PRINT "Støjreduktionssystem: ";
1150 PRINT " 1: NORMAL 2: DOLBY B 3: DOLBY C : ";STØJ
1160 PRINT
1170 PRINT "Side A: ";SIDEA$;
1180 FOR I:=1 TO 70-LEN(SIDEA$) DO
1190 PRINT " ";
1200 NEXT I
1210 PRINT
1220 PRINT
1230 PRINT "Side B: ";SIDEB$;
1240 FOR I:=1 TO 70-LEN(SIDEB$) DO
1250 PRINT " ";
1260 NEXT I
1270 PRINT
1280 REPEAT
1290 CURSOR 15,12
1300 INPUT "<Z>":L
1310 CURSOR 64,14
1320 INPUT "<Z>":TYPE
1330 CURSOR 72,16
1340 INPUT "<Z>":STØJ
1350 CURSOR 9,18
1360 INPUT "<Z>":SIDEA$
1370 CURSOR 9,20
1380 INPUT "<Z>":SIDEB$
1390 REPEAT
1400 CURSOR 1,22
1410 PRINT "Tast 'r', hvis du vil rette, ";
1420 INPUT "'Return', hvis du vil fortsætte: ":SV$
1430 UNTIL SV$ IN "Rr"
1440 UNTIL SV$=""
1450 PUT FILNAVN$,BÅNDNUMMER:L,TYPE,STØJ,SIDEA$,SIDEB$
1460 REPEAT
1470 CURSOR 1,23
1480 INPUT "Skal der flere bånd i kartoteket? (j/n) ":SV$
1490 UNTIL SV$ IN "JjNn"
1500 CURSOR 1,22
1510 PRINT TOM$
1520 CURSOR 1,23
1530 PRINT TOM$
1540 UNTIL SV$ IN "Nn"
1550 CLOSE FILNAVN$
1560 ENDPROC INDSKRIV
1570 // --------------------------------------------------------------------
1580 PROC LÆS
1590 CLEAR
1600 CURSOR 10,3
1610 PRINT "U D L Æ S N I N G A F K A R T O T E K "
1620 CURSOR 10,5
1630 INPUT "Kartotekets navn: ":FILNAVN$
1640 FILNAVN$:="SYSTIME:"+FILNAVN$
1650 OPEN FILNAVN$,W
1660 CURSOR 10,10
1670 PRINT "Indtast båndnummeret på første og sidste "
1680 CURSOR 10,11
1690 INPUT "bånd, der ønskes læst: ":FØRSTE,SIDSTE
1700 IF ØNSKE=5 THEN
1710 SELECT OUTPUT "P"
1720 IF STATUS("P")=1 THEN
1730 CURSOR 10,12
1740 PRINT "Printeren er reserveret af anden bruger, "
1750 CURSOR 10,13
1760 INPUT "skal der ventes på at den bliver ledig? (j/n) ":SV$
1770 CURSOR 10,12
1780 PRINT TOM$
1790 CURSOR 10,13
1800 PRINT TOM$
1810 IF SV$="J" OR SV$="j" THEN
1820 CURSOR 10,12
1830 PRINT "Der ventes på at printeren bliver ledig....."
1840 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"
1850 ELSE
1860 ØNSKE:=4 // ØNSKE = Udskrift på skærm
1870 ENDIF
1880 ENDIF
1890 ENDIF
1900 IF ØNSKE=5 THEN PRINT "Udskrift fra '",FILNAVN$(9:8),"'"
1910 PRINT
1920 PRINT
1930 FOR BÅNDNUMMER:=FØRSTE TO SIDSTE DO
1940 GET FILNAVN$,BÅNDNUMMER:L,TYPE,STØJ,SIDEA$,SIDEB$
1950 IF L>0 THEN
1960 PRINT "Bånd nr. ",BÅNDNUMMER
1970 PRINT USING "Båndlængde: #### ":L;
1980 PRINT "Båndtype: ";
1990 CASE TYPE OF
2000 WHEN 1
2010 PRINT "NORMAL ";
2020 WHEN 2
2030 PRINT "CHROM ";
2040 WHEN 3
2050 PRINT "FE-CR ";
2060 WHEN 4
2070 PRINT "METAL ";
2080 OTHERWISE
2090 ENDCASE
2100 PRINT "Støjreduktionssystem: ";
2110 CASE STØJ OF
2120 WHEN 1
2130 PRINT "NORMAL"
2140 WHEN 2
2150 PRINT "DOLBY B"
2160 WHEN 3
2170 PRINT "DOLBY C"
2180 OTHERWISE
2190 PRINT
2200 ENDCASE
2210 PRINT "Side A: ";SIDEA$
2220 PRINT "Side B: ";SIDEB$
2230 PRINT
2240 ENDIF
2250 NEXT BÅNDNUMMER
2260 CLOSE FILNAVN$
2270 PRINT
2280 SELECT OUTPUT "T"
2290 PRINT
2300 CURSOR 65,24
2310 INPUT "Return!":SV$
2320 ENDPROC LÆS
0x0000…0049 Line {l1=0x47, l2=»0100 // ----------------------- demo_RANDOM ---------------------------«, l3=0x47}
0x0049…0069 Line {l1=0x1e, l2=»0110 // Direkte (random) filer«, l3=0x1e}
0x0069…00b0 Line {l1=0x45, l2=»0120 // Programmet er beregnet til at oprette og vedligeholde et kas-«, l3=0x45}
0x00b0…00f2 Line {l1=0x40, l2=»0130 // settebåndkartotek. Det er således muligt at slette bånd,«, l3=0x40}
0x00f2…00ff Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x00ff…0138 Line {l1=0x37, l2=»0150 // Et bånd slettes ved at sætte båndlængden til 0.«, l3=0x37}
0x0138…0181 Line {l1=0x47, l2=»0160 // ---------------------------------------------------------------«, l3=0x47}
0x0181…01c8 Line {l1=0x45, l2=»0170 DIM SIDEA$ OF 70,SIDEB$ OF 70,TOM$ OF 70,FILNAVN$ OF 16,SV$ OF 1«, l3=0x45}
0x01c8…0216 Line {l1=0x4c, l2=»0180 INTEGER ØNSKE,TYPE,LÆNGDE,STØJ,I,J,BÅNDNUMMER,POSTANTAL,POSTSTØRRELSE,L«, l3=0x4c}
0x0216…0232 Line {l1=0x1a, l2=»0190 INTEGER FØRSTE,SIDSTE«, l3=0x1a}
0x0232…0264 Line {l1=0x30, l2=»0200 TOM$:=" "«, l3=0x30}
0x0264…027a Line {l1=0x14, l2=»0210 TOM$:=TOM$+TOM$«, l3=0x14}
0x027a…02c3 Line {l1=0x47, l2=»0220 // ---------------------------------------------------------------«, l3=0x47}
0x02c3…02d1 Line {l1=0x0c, l2=»0230 REPEAT «, l3=0x0c}
0x02d1…02e1 Line {l1=0x0e, l2=»0240 EXEC VALG«, l3=0x0e}
0x02e1…02f5 Line {l1=0x12, l2=»0250 UNTIL ØNSKE=6«, l3=0x12}
0x02f5…033e Line {l1=0x47, l2=»0260 // ---------------------------------------------------------------«, l3=0x47}
0x033e…034e Line {l1=0x0e, l2=»0270 PROC VALG«, l3=0x0e}
0x034e…035b Line {l1=0x0b, l2=»0280 CLEAR «, l3=0x0b}
0x035b…036d Line {l1=0x10, l2=»0290 CURSOR 20,1«, l3=0x10}
0x036d…0394 Line {l1=0x25, l2=»0300 PRINT "B Å N D K A R T O T E K "«, l3=0x25}
0x0394…03a6 Line {l1=0x10, l2=»0310 CURSOR 20,2«, l3=0x10}
0x03a6…03cd Line {l1=0x25, l2=»0320 PRINT "------------------------"«, l3=0x25}
0x03cd…03df Line {l1=0x10, l2=»0330 CURSOR 20,4«, l3=0x10}
0x03df…0416 Line {l1=0x35, l2=»0340 PRINT "Programmet byder på følgende muligheder:"«, l3=0x35}
0x0416…0428 Line {l1=0x10, l2=»0350 CURSOR 20,5«, l3=0x10}
0x0428…045e Line {l1=0x34, l2=»0360 PRINT "---------------------------------------"«, l3=0x34}
0x045e…0470 Line {l1=0x10, l2=»0370 CURSOR 20,7«, l3=0x10}
0x0470…049e Line {l1=0x2c, l2=»0380 PRINT "1. Oprettelse af nyt kartotek"«, l3=0x2c}
0x049e…04b0 Line {l1=0x10, l2=»0390 CURSOR 20,9«, l3=0x10}
0x04b0…04d7 Line {l1=0x25, l2=»0400 PRINT "2. Skrive i kartoteket"«, l3=0x25}
0x04d7…04ea Line {l1=0x11, l2=»0410 CURSOR 20,11«, l3=0x11}
0x04ea…0510 Line {l1=0x24, l2=»0420 PRINT "3. Rette i kartoteket"«, l3=0x24}
0x0510…0523 Line {l1=0x11, l2=»0430 CURSOR 20,13«, l3=0x11}
0x0523…0548 Line {l1=0x23, l2=»0440 PRINT "4. Læse i kartoteket"«, l3=0x23}
0x0548…055b Line {l1=0x11, l2=»0450 CURSOR 20,15«, l3=0x11}
0x055b…058f Line {l1=0x32, l2=»0460 PRINT "5. Udskrive kartoteket på printeren"«, l3=0x32}
0x058f…05a2 Line {l1=0x11, l2=»0470 CURSOR 20,17«, l3=0x11}
0x05a2…05cd Line {l1=0x29, l2=»0480 PRINT "6. Afslutte programkørslen"«, l3=0x29}
0x05cd…05db Line {l1=0x0c, l2=»0490 REPEAT «, l3=0x0c}
0x05db…05ee Line {l1=0x11, l2=»0500 CURSOR 20,21«, l3=0x11}
0x05ee…062c Line {l1=0x3c, l2=»0510 INPUT "Indtast nummeret på den ønskede mulighed:":ØNSKE«, l3=0x3c}
0x062c…064e Line {l1=0x20, l2=»0520 UNTIL ØNSKE=>1 AND ØNSKE<=6«, l3=0x20}
0x064e…0663 Line {l1=0x13, l2=»0530 CASE ØNSKE OF «, l3=0x13}
0x0663…0670 Line {l1=0x0b, l2=»0540 WHEN 1«, l3=0x0b}
0x0670…0681 Line {l1=0x0f, l2=»0550 EXEC OPRET«, l3=0x0f}
0x0681…0690 Line {l1=0x0d, l2=»0560 WHEN 2,3«, l3=0x0d}
0x0690…06a4 Line {l1=0x12, l2=»0570 EXEC INDSKRIV«, l3=0x12}
0x06a4…06b3 Line {l1=0x0d, l2=»0580 WHEN 4,5«, l3=0x0d}
0x06b3…06c2 Line {l1=0x0d, l2=»0590 EXEC LÆS«, l3=0x0d}
0x06c2…06cf Line {l1=0x0b, l2=»0600 WHEN 6«, l3=0x0b}
0x06cf…06e2 Line {l1=0x11, l2=»0610 CURSOR 20,24«, l3=0x11}
0x06e2…070c Line {l1=0x28, l2=»0620 PRINT "Programmet er nu afsluttet."«, l3=0x28}
0x070c…071b Line {l1=0x0d, l2=»0630 ENDCASE «, l3=0x0d}
0x071b…072e Line {l1=0x11, l2=»0640 ENDPROC VALG«, l3=0x11}
0x072e…0772 Line {l1=0x42, l2=»0650 // ----------------------------------------------------------«, l3=0x42}
0x0772…0783 Line {l1=0x0f, l2=»0660 PROC OPRET«, l3=0x0f}
0x0783…0790 Line {l1=0x0b, l2=»0670 CLEAR «, l3=0x0b}
0x0790…07a2 Line {l1=0x10, l2=»0680 CURSOR 10,5«, l3=0x10}
0x07a2…07e8 Line {l1=0x44, l2=»0690 PRINT " O P R E T T E L S E A F B Å N D K A R T O T E K ."«, l3=0x44}
0x07e8…07fa Line {l1=0x10, l2=»0700 CURSOR 10,6«, l3=0x10}
0x07fa…0840 Line {l1=0x44, l2=»0710 PRINT "-------------------------------------------------------"«, l3=0x44}
0x0840…0852 Line {l1=0x10, l2=»0720 CURSOR 10,9«, l3=0x10}
0x0852…087f Line {l1=0x2b, l2=»0730 PRINT "Hvad skal kartoteket hedde? ",«, l3=0x2b}
0x087f…08a5 Line {l1=0x24, l2=»0740 INPUT "(max 7 tegn): ":FILNAVN$«, l3=0x24}
0x08a5…08c9 Line {l1=0x22, l2=»0750 FILNAVN$:="SYSTIME:"+FILNAVN$«, l3=0x22}
0x08c9…08dc Line {l1=0x11, l2=»0760 CURSOR 10,11«, l3=0x11}
0x08dc…0915 Line {l1=0x37, l2=»0770 PRINT "Hvor mange bånd skal der være plads til? ",«, l3=0x37}
0x0915…092b Line {l1=0x14, l2=»0780 INPUT POSTANTAL«, l3=0x14}
0x092b…095e Line {l1=0x31, l2=»0790 POSTSTØRRELSE:=3*8+2*72 // 3 tal + 2 tekster«, l3=0x31}
0x095e…098c Line {l1=0x2c, l2=»0800 CREATE FILNAVN$,POSTANTAL,POSTSTØRRELSE«, l3=0x2c}
0x098c…09a7 Line {l1=0x19, l2=»0810 TYPE:=1;STØJ:=1;L:=0«, l3=0x19}
0x09a7…09bd Line {l1=0x14, l2=»0820 OPEN FILNAVN$,W«, l3=0x14}
0x09bd…09dd Line {l1=0x1e, l2=»0830 FOR I:=1 TO POSTANTAL DO «, l3=0x1e}
0x09dd…0a08 Line {l1=0x29, l2=»0840 PUT FILNAVN$,I:L,TYPE,STØJ,TOM$,TOM$«, l3=0x29}
0x0a08…0a15 Line {l1=0x0b, l2=»0850 NEXT I«, l3=0x0b}
0x0a15…0a2a Line {l1=0x13, l2=»0860 CLOSE FILNAVN$«, l3=0x13}
0x0a2a…0a3d Line {l1=0x11, l2=»0870 CURSOR 10,15«, l3=0x11}
0x0a3d…0a8a Line {l1=0x4b, l2=»0880 PRINT "Kartoteket: '";FILNAVN$(9:LEN(FILNAVN$)-8);"' er nu oprettet ";«, l3=0x4b}
0x0a8a…0ab9 Line {l1=0x2d, l2=»0890 PRINT "med plads til ";POSTANTAL;" bånd"«, l3=0x2d}
0x0ab9…0acc Line {l1=0x11, l2=»0900 CURSOR 10,17«, l3=0x11}
0x0acc…0afb Line {l1=0x2d, l2=»0910 PRINT "Poststørrelsen er ";POSTSTØRRELSE«, l3=0x2d}
0x0afb…0b0e Line {l1=0x11, l2=»0920 CURSOR 68,23«, l3=0x11}
0x0b0e…0b29 Line {l1=0x19, l2=»0930 INPUT " Return!":SV$«, l3=0x19}
0x0b29…0b3d Line {l1=0x12, l2=»0940 ENDPROC OPRET«, l3=0x12}
0x0b3d…0b88 Line {l1=0x49, l2=»0950 // -----------------------------------------------------------------«, l3=0x49}
0x0b88…0b9c Line {l1=0x12, l2=»0960 PROC INDSKRIV«, l3=0x12}
0x0b9c…0ba9 Line {l1=0x0b, l2=»0970 CLEAR «, l3=0x0b}
0x0ba9…0bbb Line {l1=0x10, l2=»0980 CURSOR 10,3«, l3=0x10}
0x0bbb…0bfc Line {l1=0x3f, l2=»0990 PRINT "I N D T A S T N I N G T I L K A R T O T E K ."«, l3=0x3f}
0x0bfc…0c0e Line {l1=0x10, l2=»1000 CURSOR 10,5«, l3=0x10}
0x0c0e…0c3b Line {l1=0x2b, l2=»1010 INPUT "Kartotekets navn: ":FILNAVN$«, l3=0x2b}
0x0c3b…0c5f Line {l1=0x22, l2=»1020 FILNAVN$:="SYSTIME:"+FILNAVN$«, l3=0x22}
0x0c5f…0c75 Line {l1=0x14, l2=»1030 OPEN FILNAVN$,W«, l3=0x14}
0x0c75…0c83 Line {l1=0x0c, l2=»1040 REPEAT «, l3=0x0c}
0x0c83…0c95 Line {l1=0x10, l2=»1050 CURSOR 1,10«, l3=0x10}
0x0c95…0cc4 Line {l1=0x2d, l2=»1060 INPUT "Båndnummer: ":BÅNDNUMMER«, l3=0x2d}
0x0cc4…0cfc Line {l1=0x36, l2=»1070 GET FILNAVN$,BÅNDNUMMER:L,TYPE,STØJ,SIDEA$,SIDEB$«, l3=0x36}
0x0cfc…0d09 Line {l1=0x0b, l2=»1080 PRINT «, l3=0x0b}
0x0d09…0d35 Line {l1=0x2a, l2=»1090 PRINT "Båndlængde: ";L;" "«, l3=0x2a}
0x0d35…0d42 Line {l1=0x0b, l2=»1100 PRINT «, l3=0x0b}
0x0d42…0d84 Line {l1=0x40, l2=»1110 PRINT "Båndtype: 1: NORMAL 2: CHROM 3: FE-CR ";«, l3=0x40}
0x0d84…0da5 Line {l1=0x1f, l2=»1120 PRINT "4: METAL : ";TYPE«, l3=0x1f}
0x0da5…0db2 Line {l1=0x0b, l2=»1130 PRINT «, l3=0x0b}
0x0db2…0dda Line {l1=0x26, l2=»1140 PRINT "Støjreduktionssystem: ";«, l3=0x26}
0x0dda…0e1d Line {l1=0x41, l2=»1150 PRINT " 1: NORMAL 2: DOLBY B 3: DOLBY C : ";STØJ«, l3=0x41}
0x0e1d…0e2a Line {l1=0x0b, l2=»1160 PRINT «, l3=0x0b}
0x0e2a…0e49 Line {l1=0x1d, l2=»1170 PRINT "Side A: ";SIDEA$;«, l3=0x1d}
0x0e49…0e6e Line {l1=0x23, l2=»1180 FOR I:=1 TO 70-LEN(SIDEA$) DO «, l3=0x23}
0x0e6e…0e7f Line {l1=0x0f, l2=»1190 PRINT " ";«, l3=0x0f}
0x0e7f…0e8c Line {l1=0x0b, l2=»1200 NEXT I«, l3=0x0b}
0x0e8c…0e99 Line {l1=0x0b, l2=»1210 PRINT «, l3=0x0b}
0x0e99…0ea6 Line {l1=0x0b, l2=»1220 PRINT «, l3=0x0b}
0x0ea6…0ec5 Line {l1=0x1d, l2=»1230 PRINT "Side B: ";SIDEB$;«, l3=0x1d}
0x0ec5…0eea Line {l1=0x23, l2=»1240 FOR I:=1 TO 70-LEN(SIDEB$) DO «, l3=0x23}
0x0eea…0efb Line {l1=0x0f, l2=»1250 PRINT " ";«, l3=0x0f}
0x0efb…0f08 Line {l1=0x0b, l2=»1260 NEXT I«, l3=0x0b}
0x0f08…0f15 Line {l1=0x0b, l2=»1270 PRINT «, l3=0x0b}
0x0f15…0f23 Line {l1=0x0c, l2=»1280 REPEAT «, l3=0x0c}
0x0f23…0f36 Line {l1=0x11, l2=»1290 CURSOR 15,12«, l3=0x11}
0x0f36…0f4a Line {l1=0x12, l2=»1300 INPUT "<Z>":L«, l3=0x12}
0x0f4a…0f5d Line {l1=0x11, l2=»1310 CURSOR 64,14«, l3=0x11}
0x0f5d…0f74 Line {l1=0x15, l2=»1320 INPUT "<Z>":TYPE«, l3=0x15}
0x0f74…0f87 Line {l1=0x11, l2=»1330 CURSOR 72,16«, l3=0x11}
0x0f87…0f9e Line {l1=0x15, l2=»1340 INPUT "<Z>":STØJ«, l3=0x15}
0x0f9e…0fb0 Line {l1=0x10, l2=»1350 CURSOR 9,18«, l3=0x10}
0x0fb0…0fc9 Line {l1=0x17, l2=»1360 INPUT "<Z>":SIDEA$«, l3=0x17}
0x0fc9…0fdb Line {l1=0x10, l2=»1370 CURSOR 9,20«, l3=0x10}
0x0fdb…0ff4 Line {l1=0x17, l2=»1380 INPUT "<Z>":SIDEB$«, l3=0x17}
0x0ff4…1002 Line {l1=0x0c, l2=»1390 REPEAT «, l3=0x0c}
0x1002…1014 Line {l1=0x10, l2=»1400 CURSOR 1,22«, l3=0x10}
0x1014…1042 Line {l1=0x2c, l2=»1410 PRINT "Tast 'r', hvis du vil rette, ";«, l3=0x2c}
0x1042…1076 Line {l1=0x32, l2=»1420 INPUT "'Return', hvis du vil fortsætte: ":SV$«, l3=0x32}
0x1076…108e Line {l1=0x16, l2=»1430 UNTIL SV$ IN "Rr"«, l3=0x16}
0x108e…10a1 Line {l1=0x11, l2=»1440 UNTIL SV$=""«, l3=0x11}
0x10a1…10d9 Line {l1=0x36, l2=»1450 PUT FILNAVN$,BÅNDNUMMER:L,TYPE,STØJ,SIDEA$,SIDEB$«, l3=0x36}
0x10d9…10e7 Line {l1=0x0c, l2=»1460 REPEAT «, l3=0x0c}
0x10e7…10f9 Line {l1=0x10, l2=»1470 CURSOR 1,23«, l3=0x10}
0x10f9…1137 Line {l1=0x3c, l2=»1480 INPUT "Skal der flere bånd i kartoteket? (j/n) ":SV$«, l3=0x3c}
0x1137…1151 Line {l1=0x18, l2=»1490 UNTIL SV$ IN "JjNn"«, l3=0x18}
0x1151…1163 Line {l1=0x10, l2=»1500 CURSOR 1,22«, l3=0x10}
0x1163…1174 Line {l1=0x0f, l2=»1510 PRINT TOM$«, l3=0x0f}
0x1174…1186 Line {l1=0x10, l2=»1520 CURSOR 1,23«, l3=0x10}
0x1186…1197 Line {l1=0x0f, l2=»1530 PRINT TOM$«, l3=0x0f}
0x1197…11af Line {l1=0x16, l2=»1540 UNTIL SV$ IN "Nn"«, l3=0x16}
0x11af…11c4 Line {l1=0x13, l2=»1550 CLOSE FILNAVN$«, l3=0x13}
0x11c4…11db Line {l1=0x15, l2=»1560 ENDPROC INDSKRIV«, l3=0x15}
0x11db…1229 Line {l1=0x4c, l2=»1570 // --------------------------------------------------------------------«, l3=0x4c}
0x1229…1238 Line {l1=0x0d, l2=»1580 PROC LÆS«, l3=0x0d}
0x1238…1245 Line {l1=0x0b, l2=»1590 CLEAR «, l3=0x0b}
0x1245…1257 Line {l1=0x10, l2=»1600 CURSOR 10,3«, l3=0x10}
0x1257…128f Line {l1=0x36, l2=»1610 PRINT "U D L Æ S N I N G A F K A R T O T E K "«, l3=0x36}
0x128f…12a1 Line {l1=0x10, l2=»1620 CURSOR 10,5«, l3=0x10}
0x12a1…12ce Line {l1=0x2b, l2=»1630 INPUT "Kartotekets navn: ":FILNAVN$«, l3=0x2b}
0x12ce…12f2 Line {l1=0x22, l2=»1640 FILNAVN$:="SYSTIME:"+FILNAVN$«, l3=0x22}
0x12f2…1308 Line {l1=0x14, l2=»1650 OPEN FILNAVN$,W«, l3=0x14}
0x1308…131b Line {l1=0x11, l2=»1660 CURSOR 10,10«, l3=0x11}
0x131b…1353 Line {l1=0x36, l2=»1670 PRINT "Indtast båndnummeret på første og sidste "«, l3=0x36}
0x1353…1366 Line {l1=0x11, l2=»1680 CURSOR 10,11«, l3=0x11}
0x1366…139b Line {l1=0x33, l2=»1690 INPUT "bånd, der ønskes læst: ":FØRSTE,SIDSTE«, l3=0x33}
0x139b…13b2 Line {l1=0x15, l2=»1700 IF ØNSKE=5 THEN «, l3=0x15}
0x13b2…13ca Line {l1=0x16, l2=»1710 SELECT OUTPUT "P"«, l3=0x16}
0x13ca…13e7 Line {l1=0x1b, l2=»1720 IF STATUS("P")=1 THEN «, l3=0x1b}
0x13e7…13fa Line {l1=0x11, l2=»1730 CURSOR 10,12«, l3=0x11}
0x13fa…1432 Line {l1=0x36, l2=»1740 PRINT "Printeren er reserveret af anden bruger, "«, l3=0x36}
0x1432…1445 Line {l1=0x11, l2=»1750 CURSOR 10,13«, l3=0x11}
0x1445…1487 Line {l1=0x40, l2=»1760 INPUT "skal der ventes på at den bliver ledig? (j/n) ":SV$«, l3=0x40}
0x1487…149a Line {l1=0x11, l2=»1770 CURSOR 10,12«, l3=0x11}
0x149a…14ab Line {l1=0x0f, l2=»1780 PRINT TOM$«, l3=0x0f}
0x14ab…14be Line {l1=0x11, l2=»1790 CURSOR 10,13«, l3=0x11}
0x14be…14cf Line {l1=0x0f, l2=»1800 PRINT TOM$«, l3=0x0f}
0x14cf…14f1 Line {l1=0x20, l2=»1810 IF SV$="J" OR SV$="j" THEN «, l3=0x20}
0x14f1…1504 Line {l1=0x11, l2=»1820 CURSOR 10,12«, l3=0x11}
0x1504…153f Line {l1=0x39, l2=»1830 PRINT "Der ventes på at printeren bliver ledig....."«, l3=0x39}
0x153f…156e Line {l1=0x2d, l2=»1840 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x156e…157a Line {l1=0x0a, l2=»1850 ELSE «, l3=0x0a}
0x157a…15a6 Line {l1=0x2a, l2=»1860 ØNSKE:=4 // ØNSKE = Udskrift på skærm«, l3=0x2a}
0x15a6…15b3 Line {l1=0x0b, l2=»1870 ENDIF «, l3=0x0b}
0x15b3…15c0 Line {l1=0x0b, l2=»1880 ENDIF «, l3=0x0b}
0x15c0…15cd Line {l1=0x0b, l2=»1890 ENDIF «, l3=0x0b}
0x15cd…160c Line {l1=0x3d, l2=»1900 IF ØNSKE=5 THEN PRINT "Udskrift fra '",FILNAVN$(9:8),"'"«, l3=0x3d}
0x160c…1619 Line {l1=0x0b, l2=»1910 PRINT «, l3=0x0b}
0x1619…1626 Line {l1=0x0b, l2=»1920 PRINT «, l3=0x0b}
0x1626…1651 Line {l1=0x29, l2=»1930 FOR BÅNDNUMMER:=FØRSTE TO SIDSTE DO «, l3=0x29}
0x1651…1689 Line {l1=0x36, l2=»1940 GET FILNAVN$,BÅNDNUMMER:L,TYPE,STØJ,SIDEA$,SIDEB$«, l3=0x36}
0x1689…169c Line {l1=0x11, l2=»1950 IF L>0 THEN «, l3=0x11}
0x169c…16bf Line {l1=0x21, l2=»1960 PRINT "Bånd nr. ",BÅNDNUMMER«, l3=0x21}
0x16bf…16ec Line {l1=0x2b, l2=»1970 PRINT USING "Båndlængde: #### ":L;«, l3=0x2b}
0x16ec…1708 Line {l1=0x1a, l2=»1980 PRINT "Båndtype: ";«, l3=0x1a}
0x1708…171c Line {l1=0x12, l2=»1990 CASE TYPE OF «, l3=0x12}
0x171c…1729 Line {l1=0x0b, l2=»2000 WHEN 1«, l3=0x0b}
0x1729…1744 Line {l1=0x19, l2=»2010 PRINT "NORMAL ";«, l3=0x19}
0x1744…1751 Line {l1=0x0b, l2=»2020 WHEN 2«, l3=0x0b}
0x1751…176c Line {l1=0x19, l2=»2030 PRINT "CHROM ";«, l3=0x19}
0x176c…1779 Line {l1=0x0b, l2=»2040 WHEN 3«, l3=0x0b}
0x1779…1794 Line {l1=0x19, l2=»2050 PRINT "FE-CR ";«, l3=0x19}
0x1794…17a1 Line {l1=0x0b, l2=»2060 WHEN 4«, l3=0x0b}
0x17a1…17bc Line {l1=0x19, l2=»2070 PRINT "METAL ";«, l3=0x19}
0x17bc…17cd Line {l1=0x0f, l2=»2080 OTHERWISE «, l3=0x0f}
0x17cd…17dc Line {l1=0x0d, l2=»2090 ENDCASE «, l3=0x0d}
0x17dc…1803 Line {l1=0x25, l2=»2100 PRINT "Støjreduktionssystem: ";«, l3=0x25}
0x1803…1817 Line {l1=0x12, l2=»2110 CASE STØJ OF «, l3=0x12}
0x1817…1824 Line {l1=0x0b, l2=»2120 WHEN 1«, l3=0x0b}
0x1824…1839 Line {l1=0x13, l2=»2130 PRINT "NORMAL"«, l3=0x13}
0x1839…1846 Line {l1=0x0b, l2=»2140 WHEN 2«, l3=0x0b}
0x1846…185c Line {l1=0x14, l2=»2150 PRINT "DOLBY B"«, l3=0x14}
0x185c…1869 Line {l1=0x0b, l2=»2160 WHEN 3«, l3=0x0b}
0x1869…187f Line {l1=0x14, l2=»2170 PRINT "DOLBY C"«, l3=0x14}
0x187f…1890 Line {l1=0x0f, l2=»2180 OTHERWISE «, l3=0x0f}
0x1890…189d Line {l1=0x0b, l2=»2190 PRINT «, l3=0x0b}
0x189d…18ac Line {l1=0x0d, l2=»2200 ENDCASE «, l3=0x0d}
0x18ac…18cb Line {l1=0x1d, l2=»2210 PRINT "Side A: ";SIDEA$«, l3=0x1d}
0x18cb…18ea Line {l1=0x1d, l2=»2220 PRINT "Side B: ";SIDEB$«, l3=0x1d}
0x18ea…18f7 Line {l1=0x0b, l2=»2230 PRINT «, l3=0x0b}
0x18f7…1904 Line {l1=0x0b, l2=»2240 ENDIF «, l3=0x0b}
0x1904…191a Line {l1=0x14, l2=»2250 NEXT BÅNDNUMMER«, l3=0x14}
0x191a…192f Line {l1=0x13, l2=»2260 CLOSE FILNAVN$«, l3=0x13}
0x192f…193c Line {l1=0x0b, l2=»2270 PRINT «, l3=0x0b}
0x193c…1954 Line {l1=0x16, l2=»2280 SELECT OUTPUT "T"«, l3=0x16}
0x1954…1961 Line {l1=0x0b, l2=»2290 PRINT «, l3=0x0b}
0x1961…1974 Line {l1=0x11, l2=»2300 CURSOR 65,24«, l3=0x11}
0x1974…198e Line {l1=0x18, l2=»2310 INPUT "Return!":SV$«, l3=0x18}
0x198e…19a0 Line {l1=0x10, l2=»2320 ENDPROC LÆS«, l3=0x10}
0x19a0…19c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x19c0…19e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1e…]