|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »ISENKRAM.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ISENKRAM.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ISENKRAM.K«
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
0x0000…0036 Line {l1=0x34, l2=»0010 // --------------- isenkræm -------------------«, l3=0x34}
0x0036…006c Line {l1=0x34, l2=»0020 // Udskrivner regning på de varer, som ligger i«, l3=0x34}
0x006c…0087 Line {l1=0x19, l2=»0030 // datafilen 'lager'«, l3=0x19}
0x0087…00c5 Line {l1=0x3c, l2=»0040 DIM U(10),N$(10) OF 20,A(10),S(10),NAVN$ OF 30,SV$ OF 1«, l3=0x3c}
0x00c5…00d5 Line {l1=0x0e, l2=»0050 SAMLET:=0«, l3=0x0e}
0x00d5…00df Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x00df…00e9 Line {l1=0x08, l2=»0070 // «, l3=0x08}
0x00e9…00f8 Line {l1=0x0d, l2=»0080 EXEC LÆS«, l3=0x0d}
0x00f8…0107 Line {l1=0x0d, l2=»0090 EXEC KØB«, l3=0x0d}
0x0107…0111 Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x0111…0120 Line {l1=0x0d, l2=»0110 PROC KØB«, l3=0x0d}
0x0120…012e Line {l1=0x0c, l2=»0120 REPEAT «, l3=0x0c}
0x012e…013b Line {l1=0x0b, l2=»0130 CLEAR «, l3=0x0b}
0x013b…014c Line {l1=0x0f, l2=»0140 CURSOR 5,2«, l3=0x0f}
0x014c…017e Line {l1=0x30, l2=»0150 PRINT "Indtastning af varenummer og antal."«, l3=0x30}
0x017e…018f Line {l1=0x0f, l2=»0160 CURSOR 5,3«, l3=0x0f}
0x018f…01c1 Line {l1=0x30, l2=»0170 PRINT "-----------------------------------"«, l3=0x30}
0x01c1…01d2 Line {l1=0x0f, l2=»0180 CURSOR 5,6«, l3=0x0f}
0x01d2…020c Line {l1=0x38, l2=»0190 INPUT "Hvad er varens nummer: ":NUMMER«, l3=0x38}
0x020c…021d Line {l1=0x0f, l2=»0200 CURSOR 5,8«, l3=0x0f}
0x021d…0256 Line {l1=0x37, l2=»0210 INPUT "Antal af varen: ":ANTAL«, l3=0x37}
0x0256…0261 Line {l1=0x09, l2=»0220 X:=1«, l3=0x09}
0x0261…027e Line {l1=0x1b, l2=»0230 OPEN "SYSTIME:LAGER",R«, l3=0x1b}
0x027e…02a7 Line {l1=0x27, l2=»0240 WHILE NOT EOF("SYSTIME:LAGER") DO «, l3=0x27}
0x02a7…02d3 Line {l1=0x2a, l2=»0250 GET "SYSTIME:LAGER":NR,NAVN$,STYKPRIS«, l3=0x2a}
0x02d3…02ec Line {l1=0x17, l2=»0260 IF NR=NUMMER THEN «, l3=0x17}
0x02ec…0323 Line {l1=0x35, l2=»0270 U(X):=NR;N$(X):=NAVN$;A(X):=ANTAL;S(X):=STYKPRIS«, l3=0x35}
0x0323…0335 Line {l1=0x10, l2=»0280 CURSOR 1,16«, l3=0x10}
0x0335…0370 Line {l1=0x39, l2=»0290 PRINT CHR$(U(X),3),N$(X),CHR$(A(X),3),CHR$(S(X),4,2)«, l3=0x39}
0x0370…037d Line {l1=0x0b, l2=»0300 ENDIF «, l3=0x0b}
0x037d…038a Line {l1=0x0b, l2=»0310 X:=X+1«, l3=0x0b}
0x038a…039a Line {l1=0x0e, l2=»0320 ENDWHILE «, l3=0x0e}
0x039a…03a7 Line {l1=0x0b, l2=»0330 CLOSE «, l3=0x0b}
0x03a7…03b9 Line {l1=0x10, l2=»0350 CURSOR 5,22«, l3=0x10}
0x03b9…03e9 Line {l1=0x2e, l2=»0360 INPUT "Ønskes flere varer? (j/n):":SV$«, l3=0x2e}
0x03e9…03fd Line {l1=0x12, l2=»0390 UNTIL SV$="n"«, l3=0x12}
0x03fd…0411 Line {l1=0x12, l2=»0400 EXEC UDSKRIFT«, l3=0x12}
0x0411…0423 Line {l1=0x10, l2=»0410 ENDPROC KØB«, l3=0x10}
0x0423…0458 Line {l1=0x33, l2=»0420 // -------------------------------------------«, l3=0x33}
0x0458…046c Line {l1=0x12, l2=»0430 PROC UDSKRIFT«, l3=0x12}
0x046c…047e Line {l1=0x10, l2=»0450 CURSOR 5,24«, l3=0x10}
0x047e…04b5 Line {l1=0x35, l2=»0460 INPUT "Ønskes udskrift på printer? (j/n) ":SV$«, l3=0x35}
0x04b5…04cc Line {l1=0x15, l2=»0490 IF SV$="j" THEN «, l3=0x15}
0x04cc…04e4 Line {l1=0x16, l2=»0491 SELECT OUTPUT "P"«, l3=0x16}
0x04e4…0501 Line {l1=0x1b, l2=»0492 IF STATUS("P")=1 THEN «, l3=0x1b}
0x0501…0540 Line {l1=0x3d, l2=»0493 PRINT "Printeren er reserveret af en anden bruger, skal"«, l3=0x3d}
0x0540…057d Line {l1=0x3b, l2=»0494 INPUT "der ventes på at den bliver ledig ? (j/n) ":SV$«, l3=0x3b}
0x057d…059f Line {l1=0x20, l2=»0495 IF SV$="J" OR SV$="j" THEN «, l3=0x20}
0x059f…05ce Line {l1=0x2d, l2=»0496 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x05ce…05db Line {l1=0x0b, l2=»0497 ENDIF «, l3=0x0b}
0x05db…05e8 Line {l1=0x0b, l2=»0498 ENDIF «, l3=0x0b}
0x05e8…05f5 Line {l1=0x0b, l2=»0499 ENDIF «, l3=0x0b}
0x05f5…0602 Line {l1=0x0b, l2=»0500 CLEAR «, l3=0x0b}
0x0602…0610 Line {l1=0x0c, l2=»0510 TAB:=15«, l3=0x0c}
0x0610…0622 Line {l1=0x10, l2=»0520 CURSOR 30,5«, l3=0x10}
0x0622…0641 Line {l1=0x1d, l2=»0530 PRINT " F A K T U R A :"«, l3=0x1d}
0x0641…0653 Line {l1=0x10, l2=»0540 CURSOR 30,6«, l3=0x10}
0x0653…0672 Line {l1=0x1d, l2=»0550 PRINT "----------------"«, l3=0x1d}
0x0672…0684 Line {l1=0x10, l2=»0560 CURSOR 1,10«, l3=0x10}
0x0684…06af Line {l1=0x29, l2=»0570 PRINT "Varenummer: Varenavn: ";«, l3=0x29}
0x06af…06e7 Line {l1=0x36, l2=»0575 PRINT " Antal: Stykpris: Samlet pris:"«, l3=0x36}
0x06e7…0736 Line {l1=0x4d, l2=»0580 PRINT "---------------------------------------------------------------";«, l3=0x4d}
0x0736…074e Line {l1=0x16, l2=»0585 PRINT "---------"«, l3=0x16}
0x074e…0767 Line {l1=0x17, l2=»0590 FOR X:=1 TO 10 DO «, l3=0x17}
0x0767…077e Line {l1=0x15, l2=»0600 IF U(X)<>0 THEN «, l3=0x15}
0x077e…0794 Line {l1=0x14, l2=»0610 PRIS:=A(X)*S(X)«, l3=0x14}
0x0794…07d9 Line {l1=0x43, l2=»0620 PRINT CHR$(U(X),4);TAB(15);N$(X);TAB(30);CHR$(A(X),4);TAB(46);«, l3=0x43}
0x07d9…080b Line {l1=0x30, l2=»0630 PRINT USING "##### #####":S(X),PRIS«, l3=0x30}
0x080b…0825 Line {l1=0x18, l2=»0640 SAMLET:=SAMLET+PRIS«, l3=0x18}
0x0825…0832 Line {l1=0x0b, l2=»0650 ENDIF «, l3=0x0b}
0x0832…083f Line {l1=0x0b, l2=»0660 NEXT X«, l3=0x0b}
0x083f…088e Line {l1=0x4d, l2=»0670 PRINT "---------------------------------------------------------------";«, l3=0x4d}
0x088e…08a6 Line {l1=0x16, l2=»0675 PRINT "---------"«, l3=0x16}
0x08a6…08d0 Line {l1=0x28, l2=»0680 PRINT "Samlede udgifter: ";TAB(60);«, l3=0x28}
0x08d0…08f1 Line {l1=0x1f, l2=»0690 PRINT USING "#####":SAMLET«, l3=0x1f}
0x08f1…0940 Line {l1=0x4d, l2=»0700 PRINT "===============================================================";«, l3=0x4d}
0x0940…0958 Line {l1=0x16, l2=»0705 PRINT "========="«, l3=0x16}
0x0958…096f Line {l1=0x15, l2=»0710 ENDPROC UDSKRIFT«, l3=0x15}
0x096f…0979 Line {l1=0x08, l2=»0720 // «, l3=0x08}
0x0979…0988 Line {l1=0x0d, l2=»0730 PROC LÆS«, l3=0x0d}
0x0988…0995 Line {l1=0x0b, l2=»0740 CLEAR «, l3=0x0b}
0x0995…09a6 Line {l1=0x0f, l2=»0750 CURSOR 1,5«, l3=0x0f}
0x09a6…09cb Line {l1=0x23, l2=»0760 PRINT " L A G E R L I S T E ."«, l3=0x23}
0x09cb…09dc Line {l1=0x0f, l2=»0770 CURSOR 1,6«, l3=0x0f}
0x09dc…0a20 Line {l1=0x42, l2=»0780 PRINT "-----------------------------------------------------"«, l3=0x42}
0x0a20…0a2d Line {l1=0x0b, l2=»0790 PRINT «, l3=0x0b}
0x0a2d…0a3e Line {l1=0x0f, l2=»0800 CURSOR 1,8«, l3=0x0f}
0x0a3e…0a6c Line {l1=0x2c, l2=»0810 PRINT "Nummer:","Varenavn:","Stykpris:"«, l3=0x2c}
0x0a6c…0a89 Line {l1=0x1b, l2=»0820 OPEN "SYSTIME:LAGER",R«, l3=0x1b}
0x0a89…0ab2 Line {l1=0x27, l2=»0830 WHILE NOT EOF("SYSTIME:LAGER") DO «, l3=0x27}
0x0ab2…0ade Line {l1=0x2a, l2=»0840 GET "SYSTIME:LAGER":NR,NAVN$,STYKPRIS«, l3=0x2a}
0x0ade…0b0e Line {l1=0x2e, l2=»0850 PRINT CHR$(NR,3),NAVN$,CHR$(STYKPRIS,4,2)«, l3=0x2e}
0x0b0e…0b1e Line {l1=0x0e, l2=»0860 ENDWHILE «, l3=0x0e}
0x0b1e…0b2b Line {l1=0x0b, l2=»0870 CLOSE «, l3=0x0b}
0x0b2b…0b3e Line {l1=0x11, l2=»0890 CURSOR 49,22«, l3=0x11}
0x0b3e…0b6d Line {l1=0x2d, l2=»0900 INPUT "Hvis du er færdig, tast 'f' ":SV$«, l3=0x2d}
0x0b6d…0b7f Line {l1=0x10, l2=»0930 ENDPROC LÆS«, l3=0x10}
0x0b7f…0bcd Line {l1=0x4c, l2=»0940 // --------------------------------------------------------------------«, l3=0x4c}
0x0bcd…0be4 Line {l1=0x15, l2=»0950 PROC EOF(FNAVN$)«, l3=0x15}
0x0be4…0c03 Line {l1=0x1d, l2=»0960 EOF:=(19=STATUS(FNAVN$))«, l3=0x1d}
0x0c03…0c15 Line {l1=0x10, l2=»0970 ENDPROC EOF«, l3=0x10}
0x0c15…0c20 00 00 63 63 63 63 63 63 63 63 63 ┆ ccccccccc┆
0x0c20…0c40 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┆
[…0x3c…]