1 ! Ins{nt av <2655> per diskett 1987-06-07 2 ! LIST THL1AV4.BAS 3 ! MENY-modul i program f|r betalp}minnelser och r{ntefakturering 4 ! rev 19871225.1340 <2776> Bengt Sandgren 5 ! ------------------------------------------------------------------ 10 EXTEND : FLOAT 11 COMMON Prt$=13,Tid$=10 12 ! ----------------------------------------------------------------- 15 Prt$="PR:VSA36A72.6" 16 Tid$=FNTid$(1,10) 20 ; CHR$(12) 30 ; TAB(10) "Detta {r ett program f|r utskrift av betalnings-" 40 ; TAB(10) "p}minnelser och r{ntefakturor." 50 ; 60 ; TAB(10) "Programmet {r uppr{ttat" 70 ; 100 ; TAB(30) "av Carl-Emil Larsson, Alings}s, 8606, REV. 8612" 110 ; 120 ; TAB(10) "(Tryck p} valfri tangent, n{r Du vill g} vidare)" 130 GET A$ 140 ; CHR$(12) 150 ; : ; 155 ; TAB(10) "H U V U D M E N Y" : ; : ; 160 ; TAB(10) "H[R V[LJER DU, OM DU \NSKAR SKRIVA UT" 170 ; TAB(10) "BETALNINGSP]MINNELSER ELLER R[NTEFAKTUROR." 180 ; 190 ; TAB(10) "GENOM ATT ANGE SIFFRAN '3' F]R DU EN KORTFATTAD" 200 ; TAB(10) "BESKRIVNING AV PROGRAMMEN." : ; 210 ; TAB(10) "F\R S]V[L BETALNINGSP]MINNELSER SOM R[NTE-" 220 ; TAB(10) "FAKTUROR KAN DU ANV[NDA EPSONSKRIVARE ELLER" 230 ; TAB(10) "MOTSVARANDE SKRIVARE." 240 ; 250 ; TAB(10) "ANGE ALTERNATIV NEDAN:" : ; 260 ; TAB(15) "1. BETALNINGSP]MINNELSER" 270 ; 280 ; TAB(15) "2. R[NTEFAKTUROR" 290 ; 300 ; TAB(15) "3. KORTFATTAD INSTRUKTION" : ; 310 ; TAB(15) "4. S L U T A" : ; 320 ; TAB(10) "ANGE SIFFRAN 1, 2, 3 ELLER 4 ..... "; 330 ON ERROR GOTO 140 340 INPUT A 350 ON A GOTO 360,370,380,390 360 CHAIN "THL2AV4" 370 CHAIN "THL3AV4" 380 CHAIN "THL4AV4" 390 END 10000 DEF FNTid$(Fr}ntkn%,Tomtkn%) LOCAL Check%,Z0%,Z1%,Z2%,Z3%,Z4% 10010 ! -- Kontrollera om klockan {r st{lld - annars input datum och tid -- 10020 ! -- Returnerar valfri delstr{ng av TIME$ -- 10030 ON ERROR GOTO 10050 10040 Check%=VAL(LEFT$(TIME$,3%)) : Check%=VAL(MID$(TIME$,6%,2%)) : GOTO 10080 10050 ; CUR(23%,0%) CHR$(7%); 10060 INPUT ' => Dagens datum ]],MM,DD,HH,MM : 'Z0%,Z1%,Z2%,Z3%,Z4% 10070 POKE -17%,Z0%,Z1%,Z2%,Z3%,Z4%,0% 10080 RETURN MID$(TIME$,Fr}ntkn%,Tomtkn%) 10090 FNEND 10100 !