1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   ORDER.BAS
3 REM ! Utg}va         1981-11-29
4 REM ! av (c) Nils-Gunnar Westermark
5 REM !                        <1378> 
7 REM ! Minne 16 Kbytes
9 REM +++++++++++++++++++++++++++++++++
10 REM Programmet anv{nder skrivare
11 REM .                   ========
12 REM 
13 REM Screening av
14 REM Allan Varcoe & G|ran Olsson
15 REM 
16 IF PEEK(472)=80 THEN ; INP(3)
17 REM +++++++++++++++++++++++++++++++++
20 ; CHR$(12)
21 ; CUR(1,0)'Ett exempel "23.46"'
22 ; CUR(0,0)'Ange moms-faktor i procent';
23 INPUT M$
24 S1=1 : V=1 : D1$='0.00' : C1$='0.00'
25 POKE 65037,200,0
26 ]$='PR:NB4S72'
27 ; CHR$(12)'SKRIVARE (']$')';
28 ONERRORGOTO 25
29 INPUT Z$
30 IF LEN(Z$)=0 THEN 32
31 ]$=Z$
32 OPEN ]$ ASFILE 1
33 ; CHR$(12)'DATUM: (och ev uppgjord av)'
34 ; '?'; : INPUTLINE [$ : [$=LEFT$([$,LEN([$)-2)
35 ; #1,TAB(10)[$;TAB(77)S1
36 ; #1
37 ; #1,TAB(10)'BEN[MNING:'TAB(35)'ARTIKELNR:'TAB(47)'ANTAL:'TAB(55)'CA PRIS/ST EXKL MOMS:'
38 ; #1 : ; #1
39 ; CHR$(12)'Post nr'V'  Sida nr'S1'  Summa 'D1$' kr'
40 ; STRING$(40,95) : ; 
41 ; 'BEN[MNING:'
42 ; '?'; : INPUTLINE A$ : A$=LEFT$(A$,LEN(A$)-2) : ; 
43 ; : ; 'ARTIKELNR:'
44 ; '?'; : INPUTLINE B$ : B$=LEFT$(B$,LEN(B$)-2) : ; 
45 ; : ; 'ANTAL:'
46 ONERRORGOTO 45
47 INPUT C$ : I=VAL(C$)
48 ; : ; 'CA PRIS/ST EXKL MOMS:'
49 ONERRORGOTO 48
50 INPUT D$ : I=VAL(D$)
51 ; : ; 'SKALL DENNA POST MATAS UT P] SKRIVAREN'
52 ; '(J/N)','(A=AVSLUT)'
53 ; TAB(14)'(U=AVSLUT UTAN SISTA ART.)'
54 INPUT \$
55 IF \$='J' OR \$='j' THEN 61
56 IF \$='n' OR \$='N' THEN 39
57 IF \$='A' OR \$='a' THEN S=1 : GOTO 61
58 IF \$='U' OR \$='u' THEN S=1 : GOTO 64
59 ; : ; CHR$(7);'F E L A K T I G T  S V A R ! ! (J/N)'
60 GOTO 54
61 ; #1,TAB(10)A$TAB(35)B$TAB(47)C$TAB(55)D$':-' : V=V+1
62 IF V=55 THEN S1=S1+1 : V=0 : ; #1,CHR$(12);TAB(77)S1 : ; #1
63 C1$=ADD$(C1$,C$,0) : D1$=ADD$(D1$,MUL$(D$,C$,2),2)
64 IF S=0 THEN 39
65 ; #1 : ; #1,TAB(10)'__________________________________________________________________'
66 ; #1,TAB(10)'Totalt antal varor: 'C1$' st.'TAB(46)'Summa: ca 'D1$' kronor.'
67 M$=DIV$(M$,'100',4) : M$=ADD$(M$,'1',4)
68 ; #1,TAB(10)'Antal poster:'(V-1)*S1' st.'TAB(46)'Inkl moms: ca 'MUL$(D1$,M$,2)' kronor.'
69 ; CHR$(12)
70 END