DataMuseum.dk Presents historical artifacts from the history of: MIKADOS

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦d601f4c1e⟧ TextFile

    Length: 5056 (0x13c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SKOLEB2.K«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »SKOLEB2.K« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »SKOLEB2.K« 

0100 // ------------------------- Skolebog_2 --------------------------------
0110 // den. APPEND findes ikke for denne Comal-version.
0120 // Benyt evt. file 'systime'
0130 // 
0140 DIM FAG$ OF 20,FORFATTER$ OF 20,TITEL$ OF 20,FIL$ OF 16,FORLAG$ OF 20
0150 DIM S$ OF 1
0160 INTEGER NUMMER,ØNSKE
0170 // 
0180 REPEAT 
0190 EXEC VALG
0200 UNTIL ØNSKE=4
0210 // 
0220 PROC VALG
0230 CLEAR 
0240 CURSOR 1,3
0250 PRINT "     B O G K A R T O T E K ."
0260 PRINT "     ----------------------------------------"
0270 PRINT "     Du har følgende muligheder for at vælge:"
0280 PRINT "     ----------------------------------------"
0290 PRINT 
0300 PRINT "     Oprettelse af kartotek............Tast 1"
0310 PRINT 
0320 PRINT "     Tilføjelse i kartotek.............Tast 2"
0330 PRINT 
0340 PRINT "     Udlæsningen af kartotek...........Tast 3"
0350 PRINT 
0360 PRINT "     Ønsker du at slutte...............Tast 4"
0370 REPEAT 
0380 CURSOR 6,20
0390 INPUT "Indtast ønske: ":ØNSKE
0400 UNTIL ØNSKE=1 OR ØNSKE=2 OR ØNSKE=3 OR ØNSKE=4
0410 CASE ØNSKE OF 
0420 WHEN 1
0430 EXEC OPRET
0440 WHEN 2
0450 EXEC TILFØJ
0460 WHEN 3
0470 EXEC UDSKRIFT
0480 OTHERWISE 
0490 CURSOR 5,22
0500 PRINT "Så slutter vi for idag."
0510 ENDCASE 
0520 ENDPROC VALG
0530 // 
0540 PROC OPRET
0550 CLEAR 
0560 CURSOR 1,6
0570 INPUT "Navn på filen :               ":FIL$
0580 NUMMER:=0;FIL$:="SYSTIME:"+FIL$
0590 CREATE FIL$
0600 OPEN FIL$,W
0610 REPEAT 
0620 CLEAR 
0630 CURSOR 1,4
0640 PRINT "Oprettelse af nyt kartotek"
0650 PRINT "-----------------------------------------------------------"
0660 NUMMER:=NUMMER+1
0670 CURSOR 1,8
0680 PRINT "Nummer:         ";NUMMER
0690 PRINT 
0700 INPUT "Indtast fag:                     ":FAG$
0710 INPUT "indtast forfatter:               ":FORFATTER$
0720 INPUT "indtast titel:                   ":TITEL$
0730 INPUT "indtast forlag:                  ":FORLAG$
0740 PUT FIL$:NUMMER,FAG$,FORFATTER$,TITEL$,FORLAG$
0750 REPEAT 
0760 CURSOR 1,22
0770 INPUT "Ønsker du at fortsætte?  j/n ":S$
0780 UNTIL S$="J" OR S$="j" OR S$="N" OR S$="n"
0790 UNTIL S$="N" OR S$="n"
0800 ENDFILE FIL$
0810 CLOSE FIL$
0820 ENDPROC OPRET
0830 // 
0840 // 
0850 PROC UDSKRIFT
0860 CLEAR 
0870 INPUT "Filens navn:                  ":FIL$
0880 PRINT 
0890 FIL$:="SYSTIME:"+FIL$
0900 OPEN FIL$,R
0910 PRINT "Nr:  Fag:       Forfatter:            Titel:                 ";
0920 PRINT "Forlag"
0930 PRINT "_____________________________________________________________";
0940 PRINT "__________________"
0950 PRINT 
0960 GET FIL$:NUMMER,FAG$,FORFATTER$,TITEL$,FORLAG$
0970 WHILE NOT EOF(FIL$) DO 
0980 PRINT NUMMER;"   ";FAG$;TAB(17);FORFATTER$;TAB(39);TITEL$;TAB(62);
0990 PRINT FORLAG$
0995 GET FIL$:NUMMER,FAG$,FORFATTER$,TITEL$,FORLAG$
1000 ENDWHILE 
1020 CLOSE FIL$
1030 CURSOR 65,22
1040 INPUT "Tast return ":S$
1050 ENDPROC UDSKRIFT
1060 // 
1070 PROC TILFØJ
1080 CLEAR 
1090 CURSOR 25,12
1100 PRINT "APPEND findes ikke på denne Comal-version."
1110 CURSOR 65,22
1120 INPUT "Return!":S$
1130 ENDPROC TILFØJ
1140 PROC EOF(FNAVN$)
1150 // EOF findes ikke i DDE-COMAL80 i stedet benyttes standard funktionen
1160 // STATUS(filnavn), som returnerer med værdien 19 ved END-OF-FILE
1170 EOF:=(STATUS(FNAVN$)=19)
1180 ENDPROC EOF
1190 // $
1200 // 5""5""5""5""5""
1210 // ""5""5""5""5""
1220 // g:"
1230 // ___________"

0x0000…004f Line {l1=0x4d, l2=»0100 // ------------------------- Skolebog_2 --------------------------------«, l3=0x4d}
0x004f…0089 Line {l1=0x38, l2=»0110 // den. APPEND findes ikke for denne Comal-version.«, l3=0x38}
0x0089…00ac Line {l1=0x21, l2=»0120 // Benyt evt. file 'systime'«, l3=0x21}
0x00ac…00b6 Line {l1=0x08, l2=»0130 // «, l3=0x08}
0x00b6…0102 Line {l1=0x4a, l2=»0140 DIM FAG$ OF 20,FORFATTER$ OF 20,TITEL$ OF 20,FIL$ OF 16,FORLAG$ OF 20«, l3=0x4a}
0x0102…0114 Line {l1=0x10, l2=»0150 DIM S$ OF 1«, l3=0x10}
0x0114…012f Line {l1=0x19, l2=»0160 INTEGER NUMMER,ØNSKE«, l3=0x19}
0x012f…0139 Line {l1=0x08, l2=»0170 // «, l3=0x08}
0x0139…0147 Line {l1=0x0c, l2=»0180 REPEAT «, l3=0x0c}
0x0147…0157 Line {l1=0x0e, l2=»0190 EXEC VALG«, l3=0x0e}
0x0157…016b Line {l1=0x12, l2=»0200 UNTIL ØNSKE=4«, l3=0x12}
0x016b…0175 Line {l1=0x08, l2=»0210 // «, l3=0x08}
0x0175…0185 Line {l1=0x0e, l2=»0220 PROC VALG«, l3=0x0e}
0x0185…0192 Line {l1=0x0b, l2=»0230 CLEAR «, l3=0x0b}
0x0192…01a3 Line {l1=0x0f, l2=»0240 CURSOR 1,3«, l3=0x0f}
0x01a3…01ce Line {l1=0x29, l2=»0250 PRINT "     B O G K A R T O T E K ."«, l3=0x29}
0x01ce…020a Line {l1=0x3a, l2=»0260 PRINT "     ----------------------------------------"«, l3=0x3a}
0x020a…0246 Line {l1=0x3a, l2=»0270 PRINT "     Du har følgende muligheder for at vælge:"«, l3=0x3a}
0x0246…0282 Line {l1=0x3a, l2=»0280 PRINT "     ----------------------------------------"«, l3=0x3a}
0x0282…028f Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x028f…02cb Line {l1=0x3a, l2=»0300 PRINT "     Oprettelse af kartotek............Tast 1"«, l3=0x3a}
0x02cb…02d8 Line {l1=0x0b, l2=»0310 PRINT «, l3=0x0b}
0x02d8…0314 Line {l1=0x3a, l2=»0320 PRINT "     Tilføjelse i kartotek.............Tast 2"«, l3=0x3a}
0x0314…0321 Line {l1=0x0b, l2=»0330 PRINT «, l3=0x0b}
0x0321…035d Line {l1=0x3a, l2=»0340 PRINT "     Udlæsningen af kartotek...........Tast 3"«, l3=0x3a}
0x035d…036a Line {l1=0x0b, l2=»0350 PRINT «, l3=0x0b}
0x036a…03a6 Line {l1=0x3a, l2=»0360 PRINT "     Ønsker du at slutte...............Tast 4"«, l3=0x3a}
0x03a6…03b4 Line {l1=0x0c, l2=»0370 REPEAT «, l3=0x0c}
0x03b4…03c6 Line {l1=0x10, l2=»0380 CURSOR 6,20«, l3=0x10}
0x03c6…03ea Line {l1=0x22, l2=»0390 INPUT "Indtast ønske: ":ØNSKE«, l3=0x22}
0x03ea…041f Line {l1=0x33, l2=»0400 UNTIL ØNSKE=1 OR ØNSKE=2 OR ØNSKE=3 OR ØNSKE=4«, l3=0x33}
0x041f…0434 Line {l1=0x13, l2=»0410 CASE ØNSKE OF «, l3=0x13}
0x0434…0441 Line {l1=0x0b, l2=»0420 WHEN 1«, l3=0x0b}
0x0441…0452 Line {l1=0x0f, l2=»0430 EXEC OPRET«, l3=0x0f}
0x0452…045f Line {l1=0x0b, l2=»0440 WHEN 2«, l3=0x0b}
0x045f…0471 Line {l1=0x10, l2=»0450 EXEC TILFØJ«, l3=0x10}
0x0471…047e Line {l1=0x0b, l2=»0460 WHEN 3«, l3=0x0b}
0x047e…0492 Line {l1=0x12, l2=»0470 EXEC UDSKRIFT«, l3=0x12}
0x0492…04a3 Line {l1=0x0f, l2=»0480 OTHERWISE «, l3=0x0f}
0x04a3…04b5 Line {l1=0x10, l2=»0490 CURSOR 5,22«, l3=0x10}
0x04b5…04db Line {l1=0x24, l2=»0500 PRINT "Så slutter vi for idag."«, l3=0x24}
0x04db…04ea Line {l1=0x0d, l2=»0510 ENDCASE «, l3=0x0d}
0x04ea…04fd Line {l1=0x11, l2=»0520 ENDPROC VALG«, l3=0x11}
0x04fd…0507 Line {l1=0x08, l2=»0530 // «, l3=0x08}
0x0507…0518 Line {l1=0x0f, l2=»0540 PROC OPRET«, l3=0x0f}
0x0518…0525 Line {l1=0x0b, l2=»0550 CLEAR «, l3=0x0b}
0x0525…0536 Line {l1=0x0f, l2=»0560 CURSOR 1,6«, l3=0x0f}
0x0536…0568 Line {l1=0x30, l2=»0570 INPUT "Navn på filen :               ":FIL$«, l3=0x30}
0x0568…058e Line {l1=0x24, l2=»0580 NUMMER:=0;FIL$:="SYSTIME:"+FIL$«, l3=0x24}
0x058e…05a0 Line {l1=0x10, l2=»0590 CREATE FIL$«, l3=0x10}
0x05a0…05b2 Line {l1=0x10, l2=»0600 OPEN FIL$,W«, l3=0x10}
0x05b2…05c0 Line {l1=0x0c, l2=»0610 REPEAT «, l3=0x0c}
0x05c0…05cd Line {l1=0x0b, l2=»0620 CLEAR «, l3=0x0b}
0x05cd…05de Line {l1=0x0f, l2=»0630 CURSOR 1,4«, l3=0x0f}
0x05de…0607 Line {l1=0x27, l2=»0640 PRINT "Oprettelse af nyt kartotek"«, l3=0x27}
0x0607…0651 Line {l1=0x48, l2=»0650 PRINT "-----------------------------------------------------------"«, l3=0x48}
0x0651…0668 Line {l1=0x15, l2=»0660 NUMMER:=NUMMER+1«, l3=0x15}
0x0668…0679 Line {l1=0x0f, l2=»0670 CURSOR 1,8«, l3=0x0f}
0x0679…069f Line {l1=0x24, l2=»0680 PRINT "Nummer:         ";NUMMER«, l3=0x24}
0x069f…06ac Line {l1=0x0b, l2=»0690 PRINT «, l3=0x0b}
0x06ac…06e1 Line {l1=0x33, l2=»0700 INPUT "Indtast fag:                     ":FAG$«, l3=0x33}
0x06e1…071c Line {l1=0x39, l2=»0710 INPUT "indtast forfatter:               ":FORFATTER$«, l3=0x39}
0x071c…0753 Line {l1=0x35, l2=»0720 INPUT "indtast titel:                   ":TITEL$«, l3=0x35}
0x0753…078b Line {l1=0x36, l2=»0730 INPUT "indtast forlag:                  ":FORLAG$«, l3=0x36}
0x078b…07c0 Line {l1=0x33, l2=»0740 PUT FIL$:NUMMER,FAG$,FORFATTER$,TITEL$,FORLAG$«, l3=0x33}
0x07c0…07ce Line {l1=0x0c, l2=»0750 REPEAT «, l3=0x0c}
0x07ce…07e0 Line {l1=0x10, l2=»0760 CURSOR 1,22«, l3=0x10}
0x07e0…080f Line {l1=0x2d, l2=»0770 INPUT "Ønsker du at fortsætte?  j/n ":S$«, l3=0x2d}
0x080f…0840 Line {l1=0x2f, l2=»0780 UNTIL S$="J" OR S$="j" OR S$="N" OR S$="n"«, l3=0x2f}
0x0840…085d Line {l1=0x1b, l2=»0790 UNTIL S$="N" OR S$="n"«, l3=0x1b}
0x085d…0870 Line {l1=0x11, l2=»0800 ENDFILE FIL$«, l3=0x11}
0x0870…0881 Line {l1=0x0f, l2=»0810 CLOSE FIL$«, l3=0x0f}
0x0881…0895 Line {l1=0x12, l2=»0820 ENDPROC OPRET«, l3=0x12}
0x0895…089f Line {l1=0x08, l2=»0830 // «, l3=0x08}
0x089f…08a9 Line {l1=0x08, l2=»0840 // «, l3=0x08}
0x08a9…08bd Line {l1=0x12, l2=»0850 PROC UDSKRIFT«, l3=0x12}
0x08bd…08ca Line {l1=0x0b, l2=»0860 CLEAR «, l3=0x0b}
0x08ca…08fc Line {l1=0x30, l2=»0870 INPUT "Filens navn:                  ":FIL$«, l3=0x30}
0x08fc…0909 Line {l1=0x0b, l2=»0880 PRINT «, l3=0x0b}
0x0909…0925 Line {l1=0x1a, l2=»0890 FIL$:="SYSTIME:"+FIL$«, l3=0x1a}
0x0925…0937 Line {l1=0x10, l2=»0900 OPEN FIL$,R«, l3=0x10}
0x0937…0984 Line {l1=0x4b, l2=»0910 PRINT "Nr:  Fag:       Forfatter:            Titel:                 ";«, l3=0x4b}
0x0984…0999 Line {l1=0x13, l2=»0920 PRINT "Forlag"«, l3=0x13}
0x0999…09e6 Line {l1=0x4b, l2=»0930 PRINT "_____________________________________________________________";«, l3=0x4b}
0x09e6…0a07 Line {l1=0x1f, l2=»0940 PRINT "__________________"«, l3=0x1f}
0x0a07…0a14 Line {l1=0x0b, l2=»0950 PRINT «, l3=0x0b}
0x0a14…0a49 Line {l1=0x33, l2=»0960 GET FIL$:NUMMER,FAG$,FORFATTER$,TITEL$,FORLAG$«, l3=0x33}
0x0a49…0a67 Line {l1=0x1c, l2=»0970 WHILE NOT EOF(FIL$) DO «, l3=0x1c}
0x0a67…0ab0 Line {l1=0x47, l2=»0980 PRINT NUMMER;"   ";FAG$;TAB(17);FORFATTER$;TAB(39);TITEL$;TAB(62);«, l3=0x47}
0x0ab0…0ac4 Line {l1=0x12, l2=»0990 PRINT FORLAG$«, l3=0x12}
0x0ac4…0af9 Line {l1=0x33, l2=»0995 GET FIL$:NUMMER,FAG$,FORFATTER$,TITEL$,FORLAG$«, l3=0x33}
0x0af9…0b09 Line {l1=0x0e, l2=»1000 ENDWHILE «, l3=0x0e}
0x0b09…0b1a Line {l1=0x0f, l2=»1020 CLOSE FIL$«, l3=0x0f}
0x0b1a…0b2d Line {l1=0x11, l2=»1030 CURSOR 65,22«, l3=0x11}
0x0b2d…0b4b Line {l1=0x1c, l2=»1040 INPUT "Tast return ":S$«, l3=0x1c}
0x0b4b…0b62 Line {l1=0x15, l2=»1050 ENDPROC UDSKRIFT«, l3=0x15}
0x0b62…0b6c Line {l1=0x08, l2=»1060 // «, l3=0x08}
0x0b6c…0b7e Line {l1=0x10, l2=»1070 PROC TILFØJ«, l3=0x10}
0x0b7e…0b8b Line {l1=0x0b, l2=»1080 CLEAR «, l3=0x0b}
0x0b8b…0b9e Line {l1=0x11, l2=»1090 CURSOR 25,12«, l3=0x11}
0x0b9e…0bd7 Line {l1=0x37, l2=»1100 PRINT "APPEND findes ikke på denne Comal-version."«, l3=0x37}
0x0bd7…0bea Line {l1=0x11, l2=»1110 CURSOR 65,22«, l3=0x11}
0x0bea…0c03 Line {l1=0x17, l2=»1120 INPUT "Return!":S$«, l3=0x17}
0x0c03…0c18 Line {l1=0x13, l2=»1130 ENDPROC TILFØJ«, l3=0x13}
0x0c18…0c2f Line {l1=0x15, l2=»1140 PROC EOF(FNAVN$)«, l3=0x15}
0x0c2f…0c7c Line {l1=0x4b, l2=»1150 // EOF findes ikke i DDE-COMAL80 i stedet benyttes standard funktionen«, l3=0x4b}
0x0c7c…0cc4 Line {l1=0x46, l2=»1160 // STATUS(filnavn), som returnerer med værdien 19 ved END-OF-FILE«, l3=0x46}
0x0cc4…0ce3 Line {l1=0x1d, l2=»1170 EOF:=(STATUS(FNAVN$)=19)«, l3=0x1d}
0x0ce3…0cf5 Line {l1=0x10, l2=»1180 ENDPROC EOF«, l3=0x10}
0x0cf5…0d00 Line {l1=0x09, l2=»1190 // $«, l3=0x09}
0x0d00…0d19 Line {l1=0x17, l2=»1200 // 5""5""5""5""5""«, l3=0x17}
0x0d19…0d31 Line {l1=0x16, l2=»1210 // ""5""5""5""5""«, l3=0x16}
0x0d31…0d3e Line {l1=0x0b, l2=»1220 // g:"«, l3=0x0b}
0x0d3e…0d54 Line {l1=0x14, l2=»1230 // ___________"«, l3=0x14}
0x0d54…0d60 00 00 63 63 63 63 63 63 63 63 63 63                                                               ┆  cccccccccc┆
0x0d60…0d80 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┆
            […0x32…]

Reduced view