DataMuseum.dk

top - metrics - download

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

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

Text

0010 // --------------- isenkræm -------------------
0020 // Udskrivner regning på de varer, som ligger i
0030 // datafilen 'lager'
0040 DIM U(10),N$(10) OF 20,A(10),S(10),NAVN$ OF 30,SV$ OF 1
0050 SAMLET:=0
0060 // 
0070 // 
0080 EXEC LÆS
0090 EXEC KØB
0100 // 
0110 PROC KØB
0120 REPEAT 
0130 CLEAR 
0140 CURSOR 5,2
0150 PRINT "Indtastning af varenummer og antal."
0160 CURSOR 5,3
0170 PRINT "-----------------------------------"
0180 CURSOR 5,6
0190 INPUT "Hvad er varens nummer:              ":NUMMER
0200 CURSOR 5,8
0210 INPUT "Antal af varen:                     ":ANTAL
0220 X:=1
0230 OPEN "SYSTIME:LAGER",R
0240 WHILE NOT EOF("SYSTIME:LAGER") DO 
0250 GET "SYSTIME:LAGER":NR,NAVN$,STYKPRIS
0260 IF NR=NUMMER THEN 
0270 U(X):=NR;N$(X):=NAVN$;A(X):=ANTAL;S(X):=STYKPRIS
0280 CURSOR 1,16
0290 PRINT CHR$(U(X),3),N$(X),CHR$(A(X),3),CHR$(S(X),4,2)
0300 ENDIF 
0310 X:=X+1
0320 ENDWHILE 
0330 CLOSE 
0350 CURSOR 5,22
0360 INPUT "Ønskes flere varer?    (j/n):":SV$
0390 UNTIL SV$="n"
0400 EXEC UDSKRIFT
0410 ENDPROC KØB
0420 // -------------------------------------------
0430 PROC UDSKRIFT
0450 CURSOR 5,24
0460 INPUT "Ønskes udskrift på printer?   (j/n) ":SV$
0490 IF SV$="j" THEN 
0491 SELECT OUTPUT "P"
0492 IF STATUS("P")=1 THEN 
0493 PRINT "Printeren er reserveret af en anden bruger, skal"
0494 INPUT "der ventes på at den bliver ledig ? (j/n) ":SV$
0495 IF SV$="J" OR SV$="j" THEN 
0496 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"
0497 ENDIF 
0498 ENDIF 
0499 ENDIF 
0500 CLEAR 
0510 TAB:=15
0520 CURSOR 30,5
0530 PRINT " F A K T U R A :"
0540 CURSOR 30,6
0550 PRINT "----------------"
0560 CURSOR 1,10
0570 PRINT "Varenummer:   Varenavn:    ";
0575 PRINT "  Antal:     Stykpris:       Samlet pris:"
0580 PRINT "---------------------------------------------------------------";
0585 PRINT "---------"
0590 FOR X:=1 TO 10 DO 
0600 IF U(X)<>0 THEN 
0610 PRIS:=A(X)*S(X)
0620 PRINT CHR$(U(X),4);TAB(15);N$(X);TAB(30);CHR$(A(X),4);TAB(46);
0630 PRINT USING "#####         #####":S(X),PRIS
0640 SAMLET:=SAMLET+PRIS
0650 ENDIF 
0660 NEXT X
0670 PRINT "---------------------------------------------------------------";
0675 PRINT "---------"
0680 PRINT "Samlede udgifter: ";TAB(60);
0690 PRINT USING "#####":SAMLET
0700 PRINT "===============================================================";
0705 PRINT "========="
0710 ENDPROC UDSKRIFT
0720 // 
0730 PROC LÆS
0740 CLEAR 
0750 CURSOR 1,5
0760 PRINT " L A G E R L I S T E ."
0770 CURSOR 1,6
0780 PRINT "-----------------------------------------------------"
0790 PRINT 
0800 CURSOR 1,8
0810 PRINT "Nummer:","Varenavn:","Stykpris:"
0820 OPEN "SYSTIME:LAGER",R
0830 WHILE NOT EOF("SYSTIME:LAGER") DO 
0840 GET "SYSTIME:LAGER":NR,NAVN$,STYKPRIS
0850 PRINT CHR$(NR,3),NAVN$,CHR$(STYKPRIS,4,2)
0860 ENDWHILE 
0870 CLOSE 
0890 CURSOR 49,22
0900 INPUT "Hvis du er færdig, tast 'f' ":SV$
0930 ENDPROC LÆS
0940 // --------------------------------------------------------------------
0950 PROC EOF(FNAVN$)
0960 EOF:=(19=STATUS(FNAVN$))
0970 ENDPROC EOF