DataMuseum.dk

top - metrics - download

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

└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »KARTOTEK« 

Text

0010 // ------------------------- kartotek ----------------------------------
0020 // Programmet indlæser v/indtastning elevliste og udskriver
0030 // nummer,klasse,navn,adresse,postnummer & by.
0040 // APPEND findes ikke for denne Comal-version.
0050 // Benyt evt. filen 'VESTER'
0060 // 
0065 INTEGER NUMMER,I,ØNSKE
0070 DIM NAVN$ OF 22,ADR$ OF 22,POSTBY$ OF 20,FIL$ OF 16,KLASSE$ OF 5
0075 DIM S$ OF 1
0080 // 
0090 REPEAT 
0100 EXEC VALG
0110 UNTIL ØNSKE=52
0120 // 
0130 PROC VALG
0140 CLEAR 
0150 CURSOR 1,3
0160 PRINT "     E L E V K A R T O T E K ."
0170 PRINT "     ----------------------------------------"
0180 PRINT "     Du har følgende muligheder for at vælge:"
0190 PRINT "     ----------------------------------------"
0210 PRINT "     Oprettelse af kartotek............Tast 1"
0220 PRINT 
0230 PRINT "     Rettelse i kartotek...............Tast 2"
0240 PRINT 
0250 PRINT "     Udlæsningen af kartotek...........Tast 3"
0260 PRINT 
0270 PRINT "     Ønsker du at slutte...............Tast 4"
0280 CURSOR 5,20
0290 INPUT "Indtast ønske: ":S$
0300 ØNSKE:=ORD(S$)
0340 CASE ØNSKE OF 
0350 WHEN 49
0360 EXEC OPRET
0370 WHEN 50
0380 EXEC RETTELSE
0390 WHEN 51
0400 EXEC UDSKRIFT
0410 OTHERWISE 
0420 CURSOR 5,22
0430 PRINT "Så slutter vi for idag."
0440 ENDCASE 
0450 ENDPROC VALG
0460 // 
0470 PROC OPRET
0480 CLEAR 
0490 CURSOR 1,6
0500 INPUT "Navn på filen :               ":FIL$
0510 FIL$:="SYSTIME:"+FIL$;NUMMER:=0
0515 CREATE FIL$,50,95
0520 OPEN FIL$,W
0530 REPEAT 
0540 CLEAR 
0550 CURSOR 1,4
0560 PRINT "Oprettelse af nyt kartotek"
0570 PRINT "--------------------------"
0580 NUMMER:=NUMMER+1
0590 CURSOR 1,8
0600 PRINT "Nummer:         ";NUMMER
0610 PRINT 
0620 INPUT "Indtast klasse:                  ":KLASSE$
0630 INPUT "Indtast navn:                    ":NAVN$
0640 INPUT "Indtast adresse:                 ":ADR$
0650 INPUT "Indtast postnummer & by:         ":POSTBY$
0660 PUT FIL$,NUMMER:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$
0680 CURSOR 1,22
0690 INPUT "Ønsker du at fortsætte?  j/n ":S$
0720 UNTIL S$="N" OR S$="n"
0730 CLOSE FIL$
0740 ENDPROC OPRET
0750 // 
0760 // 
0770 PROC UDSKRIFT
0780 CLEAR 
0790 INPUT "Filens navn:                  ":FIL$
0795 FIL$:="SYSTIME:"+FIL$
0800 PRINT 
0810 INPUT "Hvor mange elever ønskes udskrevet?  (Skriv antal): ":ANTAL
0820 OPEN FIL$,W
0830 PRINT "Nr:  Klasse:    Navn:                 Adresse:               Post
0840 PRINT "_______________________________________________________________";
0841 PRINT "_______________"
0850 PRINT 
0860 FOR N:=1 TO ANTAL DO 
0870 GET FIL$,N:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$
0880 PRINT NUMMER;"   ";KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$
0890 NEXT N
0900 CLOSE FIL$
0920 CURSOR 65,22
0930 INPUT "Tast return ":S$
0960 ENDPROC UDSKRIFT
0970 // 
0980 // 
0990 PROC RETTELSE
1000 CLEAR 
1010 CURSOR 1,6
1020 INPUT "Navn på filen :               ":FIL$
1030 FIL$:="SYSTIME:"+FIL$;NUMMER:=0
1040 OPEN FIL$,W
1050 REPEAT 
1060 CLEAR 
1070 CURSOR 1,4
1080 PRINT "Rettelse i kartotek"
1090 PRINT "-------------------"
1100 NUMMER:=NUMMER+1
1110 CURSOR 1,8
1120 INPUT "Hvilket nummer skal rettes?   ":NUMMER
1130 PRINT 
1140 INPUT "Indtast klasse:                  ":KLASSE$
1150 INPUT "Indtast navn:                    ":NAVN$
1160 INPUT "Indtast adresse:                 ":ADR$
1170 INPUT "Indtast postnummer & by:         ":POSTBY$
1180 PUT FIL$,NUMMER:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$
1200 CURSOR 1,22
1210 INPUT "Ønsker du at fortsætte?  j/n ":S$
1240 UNTIL S$="N" OR S$="n"
1250 CLOSE FIL$
1260 ENDPROC RETTELSE