1 ! Ins{nt av <2655> per diskett 1987-06-07
2 ! LIST THL4AV4.BAS
3 ! INSTRUKTIONER till program f|r betalp}minnelser och r{ntefakturering
4 ! rev 19871225.1340 <2776> Bengt Sandgren
5 ! ------------------------------------------------------------------
9 COMMON Prt$=13,Tid$=10
10 ! 
20 ! PROGRAMFIL 'INSTRUKT.BAC'. Detta {r originalfil.
30 ! Uppr{ttat av Carl-Emil Larsson 1987.01.10
50 ; CHR$(12)
70 OPEN Prt$ AS FILE 1
90 ; "** UTSKRIFT AV INSTRUKTIONER **"
110 ; "==============================="
130 ; 
150 ; "UTSKRIFT P] BILDSK[RM ............. 0"
170 ; 
190 ; "UTSKRIFT P] PRINTER ............... 1" : ; 
200 ; "Tillbaks till menyn ............... 2"
210 ; 
230 ; "ANGE ALTERNATIV (0, 1 ELLER 2) .... ";
250 INPUT S
260 IF S>3 THEN GOTO 90 ELSE IF S=2 CHAIN "THL1AV4"
270 ; CHR$(12)
290 ; #S "KORTFATTAD ANVISNING OM ANV[NDANDE AV PROGRAMMET"
310 ; #S "================================================"
330 ; #S
350 ; #S "Med programmet kan Du alltefter |nskan skriva betalningsp}min-"
370 ; #S "nelser eller r{ntefakturor. Utskriften {r avsedd att ske p} en"
390 ; #S "Epson-printer eller liknande med skrivarkod som s{tts i meny-"
400 ; #S 'programmet och f|ljer de olika programmodulerna som "Commonvariabel".'
410 ; 
430 ; #S
450 ; #S "Det b|r vara en printer/skrivare med friktionsmatning."
470 ; #S "Det g}r givetvis {ven bra att anv{nda brevpapper avsett f|r "
490 ; #S "traktormatning (piggmatning)."
510 ; #S
530 ; #S "Programmen f|r BETALNINGSP]MINNELSER och R[NTEFAKTUROR {r i"
550 ; #S "stort sett sj{lvinstruerande, d v s Du avg|r sj{lv vilka rader"
570 ; #S "med f|rtext som skall fyllas i. Vi har f|rs|kt att i m|jligaste"
590 ; #S "m}n ge m|jlighet till r{ttelser under det Du skriver in Dina data."
610 ; #S
630 IF S=0 ; "(Tryck p} valfri tangent n{r Du vill forts{tta)"
640 IF S=1 GOTO 710
650 GET A$
670 ; CHR$(12)
690 ; #S
710 ; #S "F|r b}de Betalningsp}minnelser och R{ntefakturor har vi utg}tt"
730 ; #S "fr}n att dr|jsm}lsr{ntan utg|res av  aktuellt diskonto (fr o m"
750 ; #S "860919=7.5 %) med r{ntetill{gg (enl r{ntelagen 8 % - se nedan!)"
770 ; #S "Om Du |nskar {ndra diskonto respektive r{ntetill{gge kan Du g|ra"
790 ; #S "detta n{r Du skriver in data."
810 ; #S
830 ; #S "R[NTELAGEN (SFS 1975:635)"
850 ; #S "========================="
870 ; #S
890 ; #S "1. LAGEN [R DISPOSITIV (1 paragrafen), d v s parterna kan"
910 ; #S "   komma |verens om annat {n det lagen f|reskriver."
930 ; #S
950 ; #S "2. DR\JSM]LSR[NTANS H\JD. F|r att vara s{ker skall s{ljaren"
970 ; #S "   redan i anbudet/avslutet ange dels f|rfallodag, dels dr|js-"
990 ; #S "   m}lsr{ntans storlek (3, 6 par.). Om inte annat anges g{ller"
1010 ; #S "   diskonto + 8 %."
1030 ; #S "   Om g{lden{ren icke accepterar r{ntans h|jd enligt fakturan"
1032 ; #S "   kan g{lden{ren protestera mot r{ntans storlek. G|r icke"
1050 ; #S "   g{lden{ren detta anses det inneb{ra en tyst accept."
1070 ; 
1080 IF S=1 GOTO 1150
1090 IF S=0 ; "(Tryck p} valfri tangent n{r Du vill forts{tta)"
1110 GET A$
1112 ; #S
1130 ; 
1140 ; CHR$(12)
1150 ; #S "3. F\RFALLODAG {r en m}nad efter det fakturan avs{nts till"
1170 ; #S "   g{lden{ren, om ej annat angivits/|verenskommits (4 par.)."
1190 ; #S
1210 ; #S "4. R[NTA P] R[NTA utg}r inte enligt h{vdvunnen princip."
1230 ; #S
1250 ; #S "5. F\R YTTERLIGARE INFORMATION l{s t ex 'R{ntelagen' av"
1270 ; #S "   Ulf Cervin, utgiven p} Tholin & Larssons f|rlag, G|teborg."
1290 ; #S
1300 IF S=1 GOTO 5040
1310 IF S=0 ; "(Tryck p} valfri tangent n{r Du vill forts{tta)"
1330 GET A$
5000 ; CHR$(12)
5040 ; #S "BETR. BETALNINGSP]MINNELSER"
5060 ; #S "==========================="
5080 ; #S
5100 ; #S "Det f|rsta 'dagens datum' Du skriver in anv{nds vid angivande"
5120 ; #S "av datum p} brevpapperet. D{refter anges 'dagens datum' ytterligare"
5140 ; #S "en g}ng, n{r det g{ller betalningsp}minnelser. Detta {r n|dv{n-"
5160 ; #S "digt f|r att kunna ber{kna upplupen r{nta."
5180 ; #S
5200 ; #S "N}gon summering av f|rfallna belopp sker inte vid betalngings-"
5220 ; #S "p}minnelserna. Om Du inte |nskar ange n}gon upplupen r{nta"
5240 ; #S "vid t ex f|rsta p}minnelsen, skriver Du '0' (noll) i kolumnen f|r"
5260 ; #S "r{ntesats."
5262 ; #S
5264 IF S=1 GOTO 5300
5266 ; 
5268 IF S=0 ; "(Tryck p} valfri tangent n{r Du vill forts{tta)"
5270 GET A$
5272 ; CHR$(12)
5280 ; #S
5300 ; #S "Kraven {r graderade fr}n 1 till 3, d{r krav 3 i texten har hot"
5320 ; #S "om inkasso om betalning ej erl{gges inom 7 dagar."
5340 ; #S
5360 ; #S "N{r det g{ller numreringen av kraven, har Du - som Du ser av"
5380 ; #S "ledtexten f|r 'Betalningsp}minnelse nr:' - fritt val att ange"
5400 ; #S "numrering. Om Du inte anv{nder l|pande numrering kan Du anv{n-"
5420 ; #S "da t ex 0110-4 f|r fj{rde kravet den 10/1 o s v."
5520 IF S=1 ; #S,CHR$(12);
5540 ; TAB(10) "-------- ** o o o o o ** --------"
5560 ; 
5580 ; "Ange h{r nedan, om Du vill }terg} till HUVUDMENYN:" : ; 
5600 INPUT "\nskar Du forts{tta (J) eller sluta h{r (N) .... ? "B$
5620 IF B$="J" OR B$="j" GOTO 5640 ELSE 5660
5640 CHAIN "THL1AV4"
5660 ; 
5680 ; "PROGRAMK\RNINGEN AVSLUTAD"
5700 END