DataMuseum.dk

top - metrics - download

    Length: 5056 (0x13c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »SKOLEB2«

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

Text

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 // ___________"