|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4992 (0x1380)
Names: »KASSE.CML«
└─⟦68748b081⟧ Bits:30004221/disk2.imd Penge og samfund (Comet)
└─⟦this⟧ »KASSE.CML«
0x0000…0020 (0,) 39 30 30 30 20 50 52 4f 43 20 4b 41 53 53 45 20 43 4c 4f 53 45 44 20 2f 2f 2d 2d 2d 2d 2d 2d 2d ┆9000 PROC KASSE CLOSED //-------┆
0x0020…0040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 4b 41 53 53 ┆--------------------------- KASS┆
0x0040…0060 45 0d 39 30 30 31 20 20 20 44 49 4d 20 4b 4f 52 54 24 20 4f 46 20 31 30 2c 20 50 49 4e 24 20 4f ┆E 9001 DIM KORT$ OF 10, PIN$ O┆
0x0060…0080 46 20 34 2c 20 50 24 20 4f 46 20 34 2c 20 54 24 20 4f 46 20 33 30 2c 20 46 4f 52 4d 41 54 24 20 ┆F 4, P$ OF 4, T$ OF 30, FORMAT$ ┆
0x0080…00a0 4f 46 20 33 30 0d 39 30 30 32 20 20 20 44 49 4d 20 44 24 20 4f 46 20 36 2c 20 56 41 4c 47 24 20 ┆OF 30 9002 DIM D$ OF 6, VALG$ ┆
0x00a0…00c0 4f 46 20 31 2c 20 54 41 4c 24 20 4f 46 20 35 2c 20 56 41 52 45 24 20 4f 46 20 34 2c 20 45 41 4e ┆OF 1, TAL$ OF 5, VARE$ OF 4, EAN┆
0x00c0…00e0 24 20 4f 46 20 31 33 0d 39 30 30 33 20 20 20 44 49 4d 20 41 4e 54 42 4f 4e 23 28 33 32 29 2c 20 ┆$ OF 13 9003 DIM ANTBON#(32), ┆
0x00e0…0100 45 41 4e 42 4f 4e 24 28 33 32 29 20 4f 46 20 31 33 2c 20 4e 41 56 4e 24 20 4f 46 20 32 30 2c 20 ┆EANBON$(32) OF 13, NAVN$ OF 20, ┆
0x0100…0120 55 24 20 4f 46 20 31 30 0d 39 30 30 34 20 20 20 46 4f 52 4d 41 54 24 3a 3d 22 23 23 23 23 23 23 ┆U$ OF 10 9004 FORMAT$:="######┆
0x0120…0140 2e 23 23 20 20 23 23 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 20 20 23 ┆.## ## #################### #┆
0x0140…0160 23 23 23 23 23 23 23 23 23 22 0d 39 30 30 35 20 20 20 49 4e 50 55 54 20 22 44 61 74 6f 20 28 5d ┆#########" 9005 INPUT "Dato (Å┆
0x0160…0180 5d 4d 4d 44 44 29 3f 20 22 3a 20 44 24 0d 39 30 30 36 20 20 20 50 52 49 53 3a 3d 30 3b 20 53 41 ┆ÅMMDD)? ": D$ 9006 PRIS:=0; SA┆
0x0180…01a0 4c 44 4f 3a 3d 30 3b 20 4e 52 3a 3d 30 0d 39 30 30 37 20 20 20 52 45 50 45 41 54 20 0d 39 30 30 ┆LDO:=0; NR:=0 9007 REPEAT 900┆
0x01a0…01c0 38 20 20 20 20 20 49 4e 50 55 54 20 22 4b 3d 6b 7c 62 2c 20 54 3d 74 6f 74 61 6c 2c 20 52 3d 72 ┆8 INPUT "K=køb, T=total, R=r┆
0x01c0…01e0 65 74 2c 20 53 3d 73 6c 65 74 2c 20 4c 3d 6c 75 6b 20 3a 22 3a 20 56 41 4c 47 24 0d 39 30 30 39 ┆et, S=slet, L=luk :": VALG$ 9009┆
0x01e0…0200 20 20 20 20 20 43 41 53 45 20 56 41 4c 47 24 20 4f 46 20 0d 39 30 31 30 20 20 20 20 20 20 20 50 ┆ CASE VALG$ OF 9010 P┆
0x0200…0220 (1,) 52 49 4e 54 20 56 41 4c 47 24 3b 22 3f 22 0d 39 30 31 31 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆RINT VALG$;"?" 9011 PRINT ┆
0x0220…0240 22 4b 22 2c 22 6b 22 0d 39 30 31 32 20 20 20 20 20 20 20 4e 52 3a 2b 31 3b 20 45 41 4e 24 3a 3d ┆"K","k" 9012 NR:+1; EAN$:=┆
0x0240…0260 22 22 0d 39 30 31 33 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4e 72 20 23 23 ┆"" 9013 PRINT USING "Nr ##┆
0x0260…0280 3a 20 22 3a 20 4e 52 2c 0d 39 30 31 34 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 61 6e 74 61 6c ┆: ": NR, 9014 INPUT "antal┆
0x0280…02a0 2c 76 61 72 65 6e 72 3f 20 22 3a 20 41 4e 54 23 2c 20 56 41 52 45 24 2c 20 0d 39 30 31 35 20 20 ┆,varenr? ": ANT#, VARE$, 9015 ┆
0x02a0…02c0 20 20 20 20 20 45 58 45 43 20 4c 5b 53 45 41 4e 28 56 41 52 45 24 2c 45 41 4e 24 29 0d 39 30 31 ┆ EXEC LÆSEAN(VARE$,EAN$) 901┆
0x02c0…02e0 36 20 20 20 20 20 20 20 49 46 20 45 41 4e 24 3d 22 22 20 54 48 45 4e 20 0d 39 30 31 37 20 20 20 ┆6 IF EAN$="" THEN 9017 ┆
0x02e0…0300 20 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 46 65 6a 6c 20 69 20 76 61 72 65 6e 75 6d 6d 65 72 ┆ PRINT " Fejl i varenummer┆
0x0300…0320 22 0d 39 30 31 38 20 20 20 20 20 20 20 20 20 4e 52 3a 2d 31 0d 39 30 31 39 20 20 20 20 20 20 20 ┆" 9018 NR:-1 9019 ┆
0x0320…0340 45 4c 53 45 20 0d 39 30 32 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 6f 6b 22 0d ┆ELSE 9020 PRINT " ok" ┆
0x0340…0360 39 30 32 31 20 20 20 20 20 20 20 20 20 41 4e 54 42 4f 4e 23 28 4e 52 29 3a 3d 41 4e 54 23 3b 20 ┆9021 ANTBON#(NR):=ANT#; ┆
0x0360…0380 45 41 4e 42 4f 4e 24 28 4e 52 29 3a 3d 45 41 4e 24 0d 39 30 32 32 20 20 20 20 20 20 20 45 4e 44 ┆EANBON$(NR):=EAN$ 9022 END┆
0x0380…03a0 49 46 20 0d 39 30 32 33 20 20 20 20 20 57 48 45 4e 20 22 52 22 2c 20 22 72 22 0d 39 30 32 34 20 ┆IF 9023 WHEN "R", "r" 9024 ┆
0x03a0…03c0 20 20 20 20 20 20 49 4e 50 55 54 20 22 52 65 74 20 6e 75 6d 6d 65 72 3f 20 22 3a 20 4e 0d 39 30 ┆ INPUT "Ret nummer? ": N 90┆
0x03c0…03e0 32 35 20 20 20 20 20 20 20 49 46 20 4e 3c 3d 4e 52 20 41 4e 44 20 4e 3e 30 20 54 48 45 4e 20 0d ┆25 IF N<=NR AND N>0 THEN ┆
0x03e0…0400 39 30 32 36 20 20 20 20 20 20 20 20 20 45 41 4e 24 3a 3d 22 22 0d 39 30 32 37 20 20 20 20 20 20 ┆9026 EAN$:="" 9027 ┆
0x0400…0420 (2,) 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4e 72 20 23 23 3a 20 22 3a 20 4e 2c 0d 39 30 32 ┆ PRINT USING "Nr ##: ": N, 902┆
0x0420…0440 38 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 61 6e 74 61 6c 2c 76 61 72 65 6e 72 3f 20 22 ┆8 INPUT "antal,varenr? "┆
0x0440…0460 3a 20 41 4e 54 23 2c 20 56 41 52 45 24 0d 39 30 32 39 20 20 20 20 20 20 20 20 20 45 58 45 43 20 ┆: ANT#, VARE$ 9029 EXEC ┆
0x0460…0480 4c 5b 53 45 41 4e 28 56 41 52 45 24 2c 45 41 4e 24 29 0d 39 30 33 30 20 20 20 20 20 20 20 20 20 ┆LÆSEAN(VARE$,EAN$) 9030 ┆
0x0480…04a0 49 46 20 45 41 4e 24 3d 22 22 20 54 48 45 4e 20 0d 39 30 33 31 20 20 20 20 20 20 20 20 20 20 20 ┆IF EAN$="" THEN 9031 ┆
0x04a0…04c0 50 52 49 4e 54 20 22 20 20 46 65 6a 6c 20 69 20 76 61 72 65 6e 75 6d 6d 65 72 22 0d 39 30 33 32 ┆PRINT " Fejl i varenummer" 9032┆
0x04c0…04e0 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 39 30 33 33 20 20 20 20 20 20 20 20 20 20 20 50 52 ┆ ELSE 9033 PR┆
0x04e0…0500 49 4e 54 20 22 20 20 6f 6b 22 0d 39 30 33 34 20 20 20 20 20 20 20 20 20 20 20 41 4e 54 42 4f 4e ┆INT " ok" 9034 ANTBON┆
0x0500…0520 23 28 4e 29 3a 3d 41 4e 54 23 3b 20 45 41 4e 42 4f 4e 24 28 4e 29 3a 3d 45 41 4e 24 0d 39 30 33 ┆#(N):=ANT#; EANBON$(N):=EAN$ 903┆
0x0520…0540 35 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 39 30 33 36 20 20 20 20 20 20 20 45 4e 44 49 ┆5 ENDIF 9036 ENDI┆
0x0540…0560 46 20 0d 39 30 33 37 20 20 20 20 20 57 48 45 4e 20 22 53 22 2c 20 22 73 22 0d 39 30 33 38 20 20 ┆F 9037 WHEN "S", "s" 9038 ┆
0x0560…0580 20 20 20 20 20 49 4e 50 55 54 20 22 53 6c 65 74 20 6e 75 6d 6d 65 72 3f 20 22 3a 20 4e 0d 39 30 ┆ INPUT "Slet nummer? ": N 90┆
0x0580…05a0 33 39 20 20 20 20 20 20 20 49 46 20 4e 3e 30 20 41 4e 44 20 4e 3c 3d 4e 52 20 54 48 45 4e 20 41 ┆39 IF N>0 AND N<=NR THEN A┆
0x05a0…05c0 4e 54 42 4f 4e 23 28 4e 29 3a 3d 30 0d 39 30 34 30 20 20 20 20 20 57 48 45 4e 20 22 54 22 2c 20 ┆NTBON#(N):=0 9040 WHEN "T", ┆
0x05c0…05e0 22 74 22 0d 39 30 34 31 20 20 20 20 20 20 20 49 46 20 4e 52 3e 30 20 54 48 45 4e 20 0d 39 30 34 ┆"t" 9041 IF NR>0 THEN 904┆
0x05e0…0600 32 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 54 6f 74 61 6c 20 2e 2e 2e 20 65 74 20 7c 6a ┆2 PRINT "Total ... et øj┆
0x0600…0620 (3,) 65 62 6c 69 6b 21 22 0d 39 30 34 33 20 20 20 20 20 20 20 20 20 54 4f 54 41 4c 3a 3d 30 0d 39 30 ┆eblik!" 9043 TOTAL:=0 90┆
0x0620…0640 34 34 20 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 6c 70 3a 22 0d 39 ┆44 SELECT OUTPUT "lp:" 9┆
0x0640…0660 30 34 35 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 4e 65 6d 6d 65 72 65 20 6f 67 20 62 69 ┆045 PRINT "Nemmere og bi┆
0x0660…0680 6c 6c 69 67 65 72 65 22 0d 39 30 34 36 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 2a ┆lligere" 9046 PRINT " *┆
0x0680…06a0 2a 2a 20 20 53 4e 41 50 4b 5c 42 20 20 2a 2a 2a 22 0d 39 30 34 37 20 20 20 20 20 20 20 20 20 50 ┆** SNAPKØB ***" 9047 P┆
0x06a0…06c0 52 49 4e 54 20 0d 39 30 34 38 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 44 61 74 6f 3a 20 ┆RINT 9048 PRINT "Dato: ┆
0x06c0…06e0 22 3b 44 24 28 35 3a 36 29 3b 22 2f 22 3b 44 24 28 33 3a 34 29 3b 22 2d 22 3b 44 24 28 31 3a 32 ┆";D$(5:6);"/";D$(3:4);"-";D$(1:2┆
0x06e0…0700 29 0d 39 30 34 39 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d 39 30 35 30 20 20 20 20 20 20 ┆) 9049 PRINT 9050 ┆
0x0700…0720 20 20 20 50 52 49 4e 54 20 0d 39 30 35 31 20 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 ┆ PRINT 9051 FOR I:=1 ┆
0x0720…0740 54 4f 20 4e 52 20 44 4f 20 0d 39 30 35 32 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 54 42 ┆TO NR DO 9052 IF ANTB┆
0x0740…0760 4f 4e 23 28 49 29 3e 30 20 54 48 45 4e 20 0d 39 30 35 33 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ON#(I)>0 THEN 9053 ┆
0x0760…0780 45 58 45 43 20 4c 5b 53 56 41 52 4f 50 28 45 41 4e 42 4f 4e 24 28 49 29 2c 4e 41 56 4e 24 2c 50 ┆EXEC LÆSVAROP(EANBON$(I),NAVN$,P┆
0x0780…07a0 52 49 53 2c 55 24 29 0d 39 30 35 34 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 3a 3d 41 4e 54 ┆RIS,U$) 9054 PR:=ANT┆
0x07a0…07c0 42 4f 4e 23 28 49 29 2a 50 52 49 53 0d 39 30 35 35 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 ┆BON#(I)*PRIS 9055 PR┆
0x07c0…07e0 49 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d 41 54 24 3a 20 50 52 2c 41 4e 54 42 4f 4e 23 28 49 29 ┆INT USING FORMAT$: PR,ANTBON#(I)┆
0x07e0…0800 2c 4e 41 56 4e 24 2c 55 24 0d 39 30 35 36 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f 54 41 4c ┆,NAVN$,U$ 9056 TOTAL┆
0x0800…0820 (4,) 3a 2b 50 52 0d 39 30 35 37 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 39 30 35 38 20 ┆:+PR 9057 ENDIF 9058 ┆
0x0820…0840 20 20 20 20 20 20 20 20 4e 45 58 54 20 49 0d 39 30 35 39 20 20 20 20 20 20 20 20 20 50 52 49 4e ┆ NEXT I 9059 PRIN┆
0x0840…0860 54 20 0d 39 30 36 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 ┆T 9060 PRINT USING "###┆
0x0860…0880 23 23 23 2e 22 22 20 20 54 4f 54 41 4c 22 3a 20 54 4f 54 41 4c 0d 39 30 36 31 20 20 20 20 20 20 ┆###."" TOTAL": TOTAL 9061 ┆
0x0880…08a0 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 64 73 3a 22 0d 39 30 36 32 20 20 20 20 20 ┆ SELECT OUTPUT "ds:" 9062 ┆
0x08a0…08c0 20 20 20 20 49 4e 50 55 54 20 22 4b 3d 6b 6f 6e 74 61 6e 74 2c 20 44 3d 64 61 6e 6b 6f 72 74 20 ┆ INPUT "K=kontant, D=dankort ┆
0x08c0…08e0 3a 22 3a 20 56 41 4c 47 24 0d 39 30 36 33 20 20 20 20 20 20 20 20 20 43 41 53 45 20 56 41 4c 47 ┆:": VALG$ 9063 CASE VALG┆
0x08e0…0900 24 20 4f 46 20 0d 39 30 36 34 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 56 41 4c 47 24 ┆$ OF 9064 PRINT VALG$┆
0x0900…0920 3b 22 3f 22 0d 39 30 36 35 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 22 4b 22 2c 20 22 6b 22 0d ┆;"?" 9065 WHEN "K", "k" ┆
0x0920…0940 39 30 36 36 20 20 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 4b 6f 6e 74 61 6e 74 62 65 6c ┆9066 INPUT "Kontantbel┆
0x0940…0960 7c 62 20 6b 72 3f 20 22 3a 20 4b 4f 4e 54 0d 39 30 36 37 20 20 20 20 20 20 20 20 20 20 20 53 45 ┆øb kr? ": KONT 9067 SE┆
0x0960…0980 4c 45 43 54 20 4f 55 54 50 55 54 20 22 6c 70 3a 22 0d 39 30 36 38 20 20 20 20 20 20 20 20 20 20 ┆LECT OUTPUT "lp:" 9068 ┆
0x0980…09a0 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 23 23 2e 23 23 20 20 4b 4f 4e 54 41 4e 54 ┆ PRINT USING "######.## KONTANT┆
0x09a0…09c0 22 3a 20 4b 4f 4e 54 0d 39 30 36 39 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 ┆": KONT 9069 PRINT USI┆
0x09c0…09e0 4e 47 20 22 23 23 23 23 23 23 2e 23 23 20 20 42 59 54 54 45 50 45 4e 47 45 22 3a 20 4b 4f 4e 54 ┆NG "######.## BYTTEPENGE": KONT┆
0x09e0…0a00 2d 54 4f 54 41 4c 0d 39 30 37 30 20 20 20 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 ┆-TOTAL 9070 SELECT OUT┆
0x0a00…0a20 (5,) 50 55 54 20 22 64 73 3a 22 0d 39 30 37 31 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 22 44 22 2c ┆PUT "ds:" 9071 WHEN "D",┆
0x0a20…0a40 20 22 64 22 0d 39 30 37 32 20 20 20 20 20 20 20 20 20 20 20 4f 4b 3a 3d 54 52 55 45 3b 20 53 56 ┆ "d" 9072 OK:=TRUE; SV┆
0x0a40…0a60 23 3a 3d 46 41 4c 53 45 3b 20 46 55 4e 44 45 54 3a 3d 46 41 4c 53 45 3b 20 46 4f 52 53 5c 47 3a ┆#:=FALSE; FUNDET:=FALSE; FORSØG:┆
0x0a60…0a80 3d 30 0d 39 30 37 33 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 49 4e 44 28 22 49 6e 64 6c ┆=0 9073 EXEC IND("Indl┆
0x0a80…0aa0 7b 73 20 6b 6f 72 74 3a 20 22 2c 4b 4f 52 54 24 2c 31 30 29 0d 39 30 37 34 20 20 20 20 20 20 20 ┆æs kort: ",KORT$,10) 9074 ┆
0x0aa0…0ac0 20 20 20 20 45 58 45 43 20 4c 5b 53 50 49 4e 4e 52 28 4b 4f 52 54 24 2c 50 24 29 0d 39 30 37 35 ┆ EXEC LÆSPINNR(KORT$,P$) 9075┆
0x0ac0…0ae0 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 39 30 37 36 20 20 20 20 20 20 20 20 20 ┆ REPEAT 9076 ┆
0x0ae0…0b00 20 20 20 20 45 58 45 43 20 49 4e 44 28 22 49 6e 64 74 61 73 74 20 64 69 74 20 50 49 4e 3a 20 22 ┆ EXEC IND("Indtast dit PIN: "┆
0x0b00…0b20 2c 50 49 4e 24 2c 34 29 0d 39 30 37 37 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 53 5c 47 ┆,PIN$,4) 9077 FORSØG┆
0x0b20…0b40 3a 2b 31 0d 39 30 37 38 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 50 24 3d 50 49 4e 24 ┆:+1 9078 UNTIL P$=PIN$┆
0x0b40…0b60 20 4f 52 20 46 4f 52 53 5c 47 3d 33 0d 39 30 37 39 20 20 20 20 20 20 20 20 20 20 20 49 46 20 50 ┆ OR FORSØG=3 9079 IF P┆
0x0b60…0b80 24 3c 3e 50 49 4e 24 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 3b 20 54 24 3a 3d 22 66 65 6a ┆$<>PIN$ THEN OK:=FALSE; T$:="fej┆
0x0b80…0ba0 6c 20 69 20 50 49 4e 22 0d 39 30 38 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 4b 20 54 48 ┆l i PIN" 9080 IF OK TH┆
0x0ba0…0bc0 45 4e 20 45 58 45 43 20 43 48 45 43 53 50 5b 52 28 4b 4f 52 54 24 2c 22 53 50 5b 52 52 45 54 22 ┆EN EXEC CHECSPÆR(KORT$,"SPÆRRET"┆
0x0bc0…0be0 2c 53 56 23 29 0d 39 30 38 31 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 56 23 20 54 48 45 4e ┆,SV#) 9081 IF SV# THEN┆
0x0be0…0c00 20 4f 4b 3a 3d 46 41 4c 53 45 3b 20 54 24 3a 3d 22 6b 6f 72 74 65 74 20 73 70 7b 72 72 65 74 22 ┆ OK:=FALSE; T$:="kortet spærret"┆
0x0c00…0c20 (6,) 0d 39 30 38 32 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 4b 20 54 48 45 4e 20 0d 39 30 38 33 ┆ 9082 IF OK THEN 9083┆
0x0c20…0c40 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 45 74 20 7c 6a 65 62 6c 69 6b 2e 2e ┆ PRINT "Et øjeblik..┆
0x0c40…0c60 22 0d 39 30 38 34 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e ┆" 9084 FOR I:=1 TO N┆
0x0c60…0c80 52 20 44 4f 20 0d 39 30 38 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 56 23 3a 3d 46 41 ┆R DO 9085 SV#:=FA┆
0x0c80…0ca0 4c 53 45 3b 20 54 24 3a 3d 22 61 6c 6c 65 20 76 61 72 65 72 20 73 70 7b 72 72 65 74 22 0d 39 30 ┆LSE; T$:="alle varer spærret" 90┆
0x0ca0…0cc0 38 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 43 48 45 43 53 50 5b 52 28 4b ┆86 EXEC CHECSPÆR(K┆
0x0cc0…0ce0 4f 52 54 24 2c 45 41 4e 42 4f 4e 24 28 49 29 2c 53 56 23 29 0d 39 30 38 37 20 20 20 20 20 20 20 ┆ORT$,EANBON$(I),SV#) 9087 ┆
0x0ce0…0d00 20 20 20 20 20 20 20 20 49 46 20 53 56 23 20 41 4e 44 20 41 4e 54 42 4f 4e 23 28 49 29 20 54 48 ┆ IF SV# AND ANTBON#(I) TH┆
0x0d00…0d20 45 4e 20 0d 39 30 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4c 5b ┆EN 9088 EXEC LÆ┆
0x0d20…0d40 53 56 41 52 4f 50 28 45 41 4e 42 4f 4e 24 28 49 29 2c 4e 41 56 4e 24 2c 50 52 49 53 2c 55 24 29 ┆SVAROP(EANBON$(I),NAVN$,PRIS,U$)┆
0x0d40…0d60 0d 39 30 38 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 4c 7b 67 ┆ 9089 PRINT "Læg┆
0x0d60…0d80 20 76 65 6e 6c 69 67 73 74 20 22 3b 4e 41 56 4e 24 3b 22 20 72 65 74 75 72 20 70 7d 20 68 79 6c ┆ venligst ";NAVN$;" retur på hyl┆
0x0d80…0da0 64 65 6e 21 22 0d 39 30 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 4c 45 43 ┆den!" 9090 SELEC┆
0x0da0…0dc0 54 20 4f 55 54 50 55 54 20 22 6c 70 3a 22 0d 39 30 39 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T OUTPUT "lp:" 9091 ┆
0x0dc0…0de0 20 20 20 20 50 52 3a 3d 2d 41 4e 54 42 4f 4e 23 28 49 29 2a 50 52 49 53 3b 20 46 55 4e 44 45 54 ┆ PR:=-ANTBON#(I)*PRIS; FUNDET┆
0x0de0…0e00 3a 3d 54 52 55 45 0d 39 30 39 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e ┆:=TRUE 9092 PRIN┆
0x0e00…0e20 (7,) 54 20 55 53 49 4e 47 20 22 2d 23 23 23 23 23 2e 23 23 20 20 53 50 5b 52 52 45 54 20 56 41 52 45 ┆T USING "-#####.## SPÆRRET VARE┆
0x0e20…0e40 22 3a 20 50 52 0d 39 30 39 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f 54 41 4c ┆": PR 9093 TOTAL┆
0x0e40…0e60 3a 2b 50 52 3b 20 41 4e 54 42 4f 4e 23 28 49 29 3a 3d 30 0d 39 30 39 34 20 20 20 20 20 20 20 20 ┆:+PR; ANTBON#(I):=0 9094 ┆
0x0e60…0e80 20 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 64 73 3a 22 0d 39 30 39 ┆ SELECT OUTPUT "ds:" 909┆
0x0e80…0ea0 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 39 30 39 36 20 20 20 20 20 ┆5 ENDIF 9096 ┆
0x0ea0…0ec0 20 20 20 20 20 20 20 20 4e 45 58 54 20 49 0d 39 30 39 37 20 20 20 20 20 20 20 20 20 20 20 45 4e ┆ NEXT I 9097 EN┆
0x0ec0…0ee0 44 49 46 20 0d 39 30 39 38 20 20 20 20 20 20 20 20 20 20 20 49 46 20 46 55 4e 44 45 54 20 54 48 ┆DIF 9098 IF FUNDET TH┆
0x0ee0…0f00 45 4e 20 0d 39 30 39 39 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 ┆EN 9099 SELECT OUTP┆
0x0f00…0f20 55 54 20 22 6c 70 3a 22 0d 39 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆UT "lp:" 9100 PRINT ┆
0x0f20…0f40 0d 39 31 30 31 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 ┆ 9101 PRINT USING "#┆
0x0f40…0f60 23 23 23 23 23 2e 23 23 20 4e 59 20 54 4f 54 41 4c 22 3a 20 54 4f 54 41 4c 0d 39 31 30 32 20 20 ┆#####.## NY TOTAL": TOTAL 9102 ┆
0x0f60…0f80 20 20 20 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 64 73 3a 22 0d 39 ┆ SELECT OUTPUT "ds:" 9┆
0x0f80…0fa0 31 30 33 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 39 31 30 34 20 20 20 20 20 20 20 ┆103 ENDIF 9104 ┆
0x0fa0…0fc0 20 20 20 20 45 58 45 43 20 4c 5b 53 50 4b 53 41 4c 28 4b 4f 52 54 24 2c 53 41 4c 44 4f 29 0d 39 ┆ EXEC LÆSPKSAL(KORT$,SALDO) 9┆
0x0fc0…0fe0 31 30 35 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 41 4c 44 4f 3c 54 4f 54 41 4c 20 54 48 45 ┆105 IF SALDO<TOTAL THE┆
0x0fe0…1000 4e 20 4f 4b 3a 3d 46 41 4c 53 45 3b 20 54 24 3a 3d 22 69 6b 6b 65 20 70 65 6e 67 65 20 6e 6f 6b ┆N OK:=FALSE; T$:="ikke penge nok┆
0x1000…1020 (8,) 20 70 7d 20 6b 6f 6e 74 6f 65 6e 22 0d 39 31 30 36 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f ┆ på kontoen" 9106 IF O┆
0x1020…1040 4b 20 41 4e 44 20 54 4f 54 41 4c 3e 30 20 54 48 45 4e 20 0d 39 31 30 37 20 20 20 20 20 20 20 20 ┆K AND TOTAL>0 THEN 9107 ┆
0x1040…1060 20 20 20 20 20 50 52 49 4e 54 20 22 42 65 74 61 6c 69 6e 67 20 61 63 63 65 70 74 65 72 65 74 20 ┆ PRINT "Betaling accepteret ┆
0x1060…1080 61 66 20 50 4b 4b 22 0d 39 31 30 38 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4c 41 ┆af PKK" 9108 EXEC LA┆
0x1080…10a0 56 50 4b 4b 54 52 28 4b 4f 52 54 24 2c 44 24 2c 54 4f 54 41 4c 29 0d 39 31 30 39 20 20 20 20 20 ┆VPKKTR(KORT$,D$,TOTAL) 9109 ┆
0x10a0…10c0 20 20 20 20 20 20 45 4c 53 45 20 0d 39 31 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 ┆ ELSE 9110 PRI┆
0x10c0…10e0 4e 54 20 22 42 65 74 61 6c 69 6e 67 20 61 63 63 65 70 74 65 72 65 73 20 69 6b 6b 65 20 61 66 20 ┆NT "Betaling accepteres ikke af ┆
0x10e0…1100 50 4b 4b 2c 22 0d 39 31 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 66 6f ┆PKK," 9111 PRINT "fo┆
0x1100…1120 72 64 69 3a 20 22 3b 54 24 0d 39 31 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 ┆rdi: ";T$ 9112 PRINT┆
0x1120…1140 20 22 4c 7b 67 20 76 61 72 65 72 6e 65 20 74 69 6c 62 61 67 65 21 22 0d 39 31 31 33 20 20 20 20 ┆ "Læg varerne tilbage!" 9113 ┆
0x1140…1160 20 20 20 20 20 20 20 20 20 4e 45 3a 3d 30 0d 39 31 31 34 20 20 20 20 20 20 20 20 20 20 20 45 4e ┆ NE:=0 9114 EN┆
0x1160…1180 44 49 46 20 0d 39 31 31 35 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 20 0d 39 31 31 36 20 ┆DIF 9115 ENDCASE 9116 ┆
0x1180…11a0 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 52 20 44 4f 20 0d 39 31 31 37 20 ┆ FOR I:=1 TO NR DO 9117 ┆
0x11a0…11c0 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 54 42 4f 4e 23 28 49 29 3e 30 20 54 48 45 4e 20 45 ┆ IF ANTBON#(I)>0 THEN E┆
0x11c0…11e0 58 45 43 20 4c 41 56 56 41 52 54 52 28 45 41 4e 42 4f 4e 24 28 49 29 2c 41 4e 54 42 4f 4e 23 28 ┆XEC LAVVARTR(EANBON$(I),ANTBON#(┆
0x11e0…1200 49 29 2c 4b 4f 52 54 24 29 0d 39 31 31 38 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 49 0d 39 31 ┆I),KORT$) 9118 NEXT I 91┆
0x1200…1220 (9,) 31 39 20 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 6c 70 3a 22 0d 39 ┆19 SELECT OUTPUT "lp:" 9┆
0x1220…1240 31 32 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 31 32 29 0d 39 31 32 31 20 ┆120 PRINT CHR$(12) 9121 ┆
0x1240…1260 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 64 73 3a 22 0d 39 31 32 32 ┆ SELECT OUTPUT "ds:" 9122┆
0x1260…1280 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 39 31 32 33 20 20 20 20 20 20 20 4e 52 3a 3d 30 0d 39 ┆ ENDIF 9123 NR:=0 9┆
0x1280…12a0 31 32 34 20 20 20 20 20 57 48 45 4e 20 22 4c 22 2c 20 22 6c 22 0d 39 31 32 35 20 20 20 20 20 20 ┆124 WHEN "L", "l" 9125 ┆
0x12a0…12c0 20 50 52 49 4e 54 20 22 4b 61 73 73 65 6e 20 6c 75 6b 6b 65 74 22 0d 39 31 32 36 20 20 20 20 20 ┆ PRINT "Kassen lukket" 9126 ┆
0x12c0…12e0 45 4e 44 43 41 53 45 20 0d 39 31 32 37 20 20 20 55 4e 54 49 4c 20 56 41 4c 47 24 3d 22 4c 22 20 ┆ENDCASE 9127 UNTIL VALG$="L" ┆
0x12e0…1300 4f 52 20 56 41 4c 47 24 3d 22 6c 22 0d 39 31 32 38 20 45 4e 44 50 52 4f 43 20 4b 41 53 53 45 0d ┆OR VALG$="l" 9128 ENDPROC KASSE ┆
0x1300…1320 31 32 34 20 20 20 20 20 57 48 45 4e 20 22 4c 22 2c 20 22 6c 22 0d 39 31 32 35 20 20 20 20 20 20 ┆124 WHEN "L", "l" 9125 ┆
0x1320…1340 20 50 52 49 4e 54 20 22 4b 61 73 73 65 6e 20 6c 75 6b 6b 65 74 22 0d 39 31 32 36 20 20 20 20 20 ┆ PRINT "Kassen lukket" 9126 ┆
0x1340…1360 45 4e 44 43 41 53 45 20 0d 39 31 32 37 20 20 20 55 4e 54 49 4c 20 56 41 4c 47 24 3d 22 4c 22 20 ┆ENDCASE 9127 UNTIL VALG$="L" ┆
0x1360…1380 4f 52 20 56 41 4c 47 24 3d 22 6c 22 0d 39 31 32 38 20 45 4e 44 50 52 4f 43 20 4b 41 53 53 45 00 ┆OR VALG$="l" 9128 ENDPROC KASSE ┆