10 REM *****
20 REM * Telelog
30 REM * Bos Engborg (2369),860127 16.16
40 REM * Telelog.bac 
70 REM *****
80 D0%=7% : DIM A$(D0%)=30%,B$(D0%)=60%,S9$(D0%)=12%,Y(30%),Y$(30%)=10%,M%(D0%)
90 L%=60% : DIM S$(L%)=8%,S1$(L%)=5%,S2$(L%)=7%,S3$(L%)=7%,S4$(L%)=8%,D$(L%)=8%,E$(L%)=45%
100 DIM X$(3%)=6%,X$=30%,S7$=12%,S8$=12%
110 DIM G$=200%,C$=120%
120 M2$='00.00' : S7$='00.00' : S8$='00.00' : W7$='00.00' : W8$='00.00' : W9$='00.00'
130 ; INP(3)CHR$(12)
140 ; CUR(0%,10%)'TELELOGG '
150 ; CUR(3%,0%)CHR$(151%)STRING$(39%,35%);
160 ; CUR(18%,0%)CHR$(151%)STRING$(39%,35%);
170 ; CUR(10%,1%)'Datum '; : INPUT R$
180 REM ** uppstart
190 REM 
200 REM ***********
210 L%=0%
220 REM ** meny **
230 GOSUB 2850 : REM h{mta konton
240 ; INP(4)CHR$(12)
250 X$='TELELOGG' : GOSUB 3290
260 ; CUR(0%,60%)'Datum 'R$
270 ; CUR(2%,0%);
280 GOTO 320
290 I%=I%+1%
300 ; TAB(10%)RIGHT$(NUM$(100+I%),3%)TAB(15%);
310 RETURN 
320 I%=0%
330 GOSUB 290 : ; 'Databaser'
340 GOSUB 290 : ; 'Ber{kningar'
350 GOSUB 290 : ; 'Printerutskrift'
360 GOSUB 290 : ; 'Prognos, minuter'
370 GOSUB 290 : ; 'Betala r{kning '
380 GOSUB 290 : ; ']ter till Huvmenyn....'
390 ; CUR(22%,9%)'Rutinnr. (tv} siffror) '; : INPUT A$
400 IF LEN(A$)<>2% THEN ; CHR$(7%) : GOTO 220
410 IF INSTR(1%,'010203040506',A$)=0% ; CHR$(7%) : GOTO 220
420 C$=''
430 ON VAL(A$) GOSUB 2950,1940,880,2160,4490,2150
440 GOTO 220
450 REM rem rem rem rem rem rem rem 
460 GOSUB 480 : GOSUB 770
470 RETURN 
480 REM 
490 OPEN "dr1:bas"+RIGHT$(NUM$(1000+M%(V9%)),3%)+".dta" ASFILE 1
500 INPUT #1,I%
510 INPUT #1,W9% : REM flagga extra kostnader
520 INPUT #1,W8% : REM flagga markerings ber{kning
530 INPUT #1,M$
540 INPUT #1,M5$ : REM kostnad/min
550 FOR J%=0% TO I%
560 INPUT #1,S1$(J%)
570 S1$(J%)=SPACE$(3%-LEN(S1$(J%)))+S1$(J%)
580 INPUT #1,S$(J%)
590 REM 
600 S$(J%)=SPACE$(6%-LEN(S$(J%)))+S$(J%)
610 INPUTLINE #1,D$(J%) : D$(J%)=LEFT$(D$(J%),LEN(D$(J%))-2%)
620 INPUTLINE #1,E$(J%) : E$(J%)=LEFT$(E$(J%),LEN(E$(J%))-2%)
630 INPUTLINE #1,S2$(J%) : S2$(J%)=LEFT$(S2$(J%),LEN(S2$(J%))-2%)
640 INPUTLINE #1,S3$(J%) : S3$(J%)=LEFT$(S3$(J%),LEN(S3$(J%))-2%)
650 INPUTLINE #1,S4$(J%) : S4$(J%)=LEFT$(S4$(J%),LEN(S4$(J%))-2%)
660 NEXT J% : CLOSE 1
670 RETURN 
680 REM ** huvud **
690 ; INP(4)CHR$(12%)
700 ; CUR(4%,0%)CHR$(151%)STRING$(79%,35%);
710 ; CUR(18%,0%)CHR$(151%)STRING$(79%,35%);
720 ; CUR(0%,0%); : ; A$(V9%);' ';B$(V9%) : ; R$'  Rutin -'RIGHT$(NUM$(1000+M%(V9%)),3%)'-'
730 ; CUR(2%,0%);"Minne 1 ";M$;' ';'Minne 2 ';M2$' Kostnad k|rning/min ';M5$
740 ; CUR(3%,0%);'Nr.'TAB(5%)'Time'TAB(11%)'Min'TAB(15%)'Datum'TAB(22%)'Kostnad'TAB(29%)'Sa:min'TAB(36%)'Sa:kostnad';
750 ; TAB(41%)'Anm{rkning';
760 RETURN 
770 GOSUB 680
780 FOR U%=1% TO I%
790 U1%=U1%+1%
800 ; CUR(U1%+5%,0%);U%;TAB(5%)S3$(U%)TAB(11%)S1$(U%)TAB(15%)D$(U%);
810 ; TAB(22%)S4$(U%)TAB(29%)S$(U%)TAB(36%)S2$(U%);
820 ; TAB(41%)E$(U%);
830 IF U1%=11% ; CUR(20%,1%)'Tryck -Return- '; : GET O$ : U1%=0% : ; CHR$(12%) : GOSUB 680 : GOSUB 3450
840 NEXT U%
850 GOSUB 1110
860 U1%=0%
870 RETURN 
880 REM ** printerutskrift **
890 L%=10%
900 OPEN 'pr:vsa36d72.5' ASFILE L%
910 GOSUB 1750 : REM m{mta summa filen
920 FOR V0%=1% TO V% : V9%=V0% : GOSUB 480 : GOSUB 970 : NEXT V0%
930 GOSUB 2060
940 ; #L%
950 CLOSE L%
960 RETURN 
970 ; CHR$(12%);CUR(10%,10%);'Printerutskrift p}g}r'
980 ; CUR(12%,0%)SPACE$(79%);CUR(12%,1%)'Bas 'RIGHT$(NUM$(1000+M%(V0%)),3%)'....'A$(V0%)'....'B$(V0%)'..Minne 'M$;
990 ; '...Summa 'S9$(V0%)
1000 ; #L%,CHR$(18%);
1010 ; #L%,CHR$(27%,68%,5%,11%)CHR$(15%,22%,29%,36%)CHR$(42%,0%);
1020 C$=CHR$(9%)
1030 ; #L%C$;'Nr 'RIGHT$(NUM$(1000+M%(V0%)),3%)' 'A$(V0%);"  ";B$(V0%)'  Minne 'M$
1040 ; #L%C$;"Datum "R$
1050 ; #L%,CHR$(10%);
1060 FOR W%=1% TO I%
1070 ; #L%C$;S3$(W%)C$S1$(W%)C$D$(W%)C$S4$(W%)C$;S$(W%)C$;S2$(W%)C$;E$(W%)
1080 NEXT W%
1090 ; #L%,CHR$(10%)
1100 RETURN 
1110 REM ** input **
1120 U1%=U1%+1% : I%=I%+1%
1130 ; CUR(U1%+5%,0%)SPACE$(159%);
1140 D$(I%)=R$
1150 ; CUR(19%,0%)SPACE$(299%);
1160 ; CUR(U1%+5%,0%);I%;TAB(5%); : INPUTLINE S3$(I%)
1170 S3$(I%)=LEFT$(S3$(I%),LEN(S3$(I%))-2%)
1180 IF S3$(I%)='' THEN I%=I%-1% : GOSUB 1580 : GOSUB 1750 : GOSUB 1850 : RETURN 
1190 IF S3$(I%)="fel" OR S3$(I%)="FEL" I%=I%-1% : U1%=U1%-1% : S7$=SUB$(S7$,S4$(I%),2%) : GOTO 1210
1200 GOTO 1240
1210 IF W9% S8$=SUB$(S8$,K9$,2%)
1220 GOTO 1130
1230 REM 
1240 IF INSTR(1%,S3$(I%),'.')=0% THEN S3$(I%)=S3$(I%)+'.00'
1250 S3$(I%)=SPACE$(5%-LEN(S3$(I%)))+S3$(I%)
1260 ; CUR(U1%+5%,5%)S3$(I%)
1270 GOSUB 3490 : ; CUR(19%,55%)X9$'  'M5$
1280 IF W9% ; CUR(20%,1%)'Extra kostnad '; : INPUT K9$
1290 IF INSTR(1%,K9$,'.')=0% THEN K9$=K9$+'.00'
1300 IF W9% S8$=ADD$(S8$,K9$,2%)
1310 IF W9% K9$=ADD$(K9$,'00.30',2%)
1320 ; CUR(U1%+5%,11%); : INPUTLINE S1$(I%) : S1$(I%)=LEFT$(S1$(I%),LEN(S1$(I%))-2%)
1330 IF S1$(I%)='M1' OR S1$(I%)='m1' THEN S1$(I%)=M$
1340 REM 
1350 IF S1$(I%)='M2' OR S1$(I%)='m2' THEN S1$(I%)=M2$
1360 REM 
1370 S1$(I%)=SPACE$(3%-LEN(S1$(I%)))+S1$(I%)
1380 ; CUR(U1%+5%,11%)S1$(I%)
1390 ; CUR(U1%+5%,15%)D$(I%)
1400 S4$(I%)=MUL$(S1$(I%),X9$,2%)
1410 IF VAL(M5$)=0% THEN 1430
1420 S4$(I%)=ADD$(S4$(I%),MUL$(S1$(I%),M5$,2%),2%)
1430 IF LEN(K9$)<>0% THEN S4$(I%)=ADD$(S4$(I%),K9$,2%)
1440 S4$(I%)=SPACE$(6%-LEN(S4$(I%)))+S4$(I%)
1450 ; CUR(U1%+5%,22%)S4$(I%)
1460 S7$=ADD$(S7$,S4$(I%),2%) : REM kostnad
1470 S$(I%)=ADD$(S$(I%-1%),S1$(I%),0%)
1480 S$(I%)=SPACE$(6%-LEN(S$(I%)))+S$(I%)
1490 ; CUR(U1%+5%,29%);S$(I%)
1500 S2$(I%)=ADD$(S2$(I%-1%),S4$(I%),0%)
1510 S2$(I%)=SPACE$(4%-LEN(S2$(I%)))+S2$(I%)
1520 ; CUR(U1%+5%,35%)S2$(I%)
1530 ; CUR(U1%+5%,41%);STRING$(38%,95%)CUR(U1%+5%,41%); : INPUTLINE E$(I%)
1540 E$(I%)=LEFT$(E$(I%),LEN(E$(I%))-2%)
1550 IF U1%=11% U1%=0% : ; CHR$(12%) : GOSUB 680 : GOSUB 3450
1560 IF I%=L%-3 ; CUR(22%,0%)'Dimensioneringen uppfylld' : GOSUB 1580 : GOSUB 1750 : GOSUB 1850 : GOTO 1740
1570 GOTO 1120
1580 REM ** dokumentation **
1590 PREPARE "dr1:bas"+RIGHT$(NUM$(1000+M%(V9%)),3%)+".dta" ASFILE 1
1600 ; #1,I%
1610 ; #1,W9%
1620 ; #1,W8%
1630 ; #1,M$
1640 ; #1,M5$
1650 FOR J%=0% TO I%
1660 ; #1,S1$(J%)
1670 ; #1,S$(J%)
1680 ; #1,D$(J%)
1690 ; #1,E$(J%)
1700 ; #1,S2$(J%)
1710 ; #1,S3$(J%)
1720 ; #1,S4$(J%)
1730 NEXT J% : CLOSE 1
1740 RETURN 
1750 REM ** open konto.kto **
1760 OPEN "dr1:telelog.dat" ASFILE 1
1770 FOR J1%=0% TO V%
1780 INPUT #1,S9$(J1%)
1790 IF S9$(J1%)='' S9$(J1%)='00'
1800 IF INSTR(1%,S9$(J1%),'.')=0% THEN S9$(J1%)=S9$(J1%)+'.00'
1810 S9$(J1%)=SPACE$(10%-LEN(S9$(J1%)))+S9$(J1%)
1820 NEXT J1%
1830 CLOSE 1
1840 RETURN 
1850 REM ** prepare konto.kto **
1860 S9$(V9%)=S2$(I%)
1870 PREPARE "dr1:telelog.dat" ASFILE 1
1880 FOR J%=0% TO V%
1890 ; #1,S9$(J%)
1900 NEXT J%
1910 CLOSE 1
1920 RETURN 
1930 REM 
1940 REM ** ber{kningar **
1950 X$='BER[KNINGAR' : GOSUB 3290
1960 T2$='0'
1970 ; CUR(20%,0%)SPACE$(30%)CUR(20%,1%);"Term "; : INPUT T1$
1980 L%=L%+1% : IF L%=14% THEN L%=1% : L0%=L0%+1%
1990 ; CUR(L%+4%,1%+L0%*15%)T1$
2000 IF T1$='' 2040
2010 T2$=ADD$(T1$,T2$,2%)
2020 ; CUR(2%,50%)SPACE$(20%)CUR(2%,51%)'Summa ';T2$
2030 GOTO 1970
2040 M2$=T2$
2050 RETURN 
2060 REM ** **
2070 S$='00.00'
2080 FOR E%=1% TO V%
2090 IF M%(E%)>200% THEN 2110
2100 S$=ADD$(S$,S9$(E%),2%)
2110 NEXT E%
2120 ; #L%TAB(10%)"Summa baser:"S$
2130 ; #L%TAB(10%)"Telefon "W9$" Extrakostndader "W8$" R{kning totalt "W7$
2140 RETURN 
2150 CHAIN 'telelog.men'
2160 REM ** prognos kapital **
2170 ; INP(4)CHR$(12)
2180 ; CUR(0%,10%)'PROGNOS'
2190 ; CUR(1%,0%)CHR$(151%)STRING$(79%,35%);
2200 ; CUR(20%,0%)CHR$(151%)STRING$(79%,35%);
2210 GOSUB 2510 : REM insp prognos.txt
2220 REM max,min
2230 E0=Y(1%) : E1=E0
2240 FOR I%=1% TO Y%
2250 IF E0>=Y(I%) THEN E0=Y(I%) : E0$=Y$(I%)
2260 IF E1<=Y(I%) THEN E1=Y(I%) : E1$=Y$(I%)
2270 NEXT I%
2280 FOR I%=2% TO 19%
2290 ; CUR(I%,5%)CHR$(151%);
2300 NEXT I%
2310 FOR I%=6% TO 54% STEP 6% : FOR J%=14% TO 156%
2320 SETDOT I%,J%
2330 NEXT J% : NEXT I%
2340 O%=2000%
2350 FOR I%=2% TO 18% STEP 2%
2360 O%=O%-200%
2370 ; CUR(I%,0%)O%
2380 NEXT I%
2390 FOR I%=1% TO Y%
2400 U=Y(I%) : IF U<0 THEN U=0
2410 U=INT(U/33.33)
2420 FOR J%=60-U TO 60
2430 SETDOT J%,13%+I%
2440 NEXT J%
2450 NEXT I%
2460 ; CUR(21%,1%)'Datum 'E0$' Min.kostnad 'E0
2470 ; CUR(22%,1%)'Datum 'E1$' Max.kostnad 'E1
2480 ; CUR(21%,41%)'F.o.m datum 'Y$(1%)' T.o.m datum 'Y$(Y%)
2485 ; CUR(23%,0%)'R{kning 'W7$' Extra kostn. 'W8$' Telefon 'W9$;
2490 ; '   Tryck -Return-'; : GET W$
2500 RETURN 
2510 REM ** insp prognos.txt **
2520 ONERRORGOTO 2600
2530 OPEN 'dr1:prognos.txt' ASFILE 1
2540 INPUT #1,Y%
2550 FOR I%=1% TO Y%
2560 INPUT #1,Y$(I%)
2570 INPUT #1,Y(I%)
2580 NEXT I%
2590 CLOSE 1
2600 ONERRORGOTO 2780
2610 W9$='00.00' : W8$='00.00' : W7$='00.00'
2620 OPEN 'dr1:r{kning.dat' ASFILE 1
2630 INPUT #1,W9$
2640 INPUT #1,W7$
2650 INPUT #1,W8$
2660 CLOSE 1
2670 ONERRORGOTO 0 : RETURN 
2680 REM ** prep. prognos.txt **
2690 IF Y$(Y%)=Y$(Y%-1%) THEN Y%=Y%-1% : Y(Y%)=Y(Y%+1%)+Y(Y%)
2700 PREPARE 'dr1:prognos.txt' ASFILE 1
2710 ; #1,Y%
2720 FOR I%=1% TO Y%
2730 ; #1,Y$(I%)
2740 ; #1,Y(I%)
2750 NEXT I%
2760 CLOSE 1
2770 W7$=ADD$(W7$,S7$,2%) : W8$=ADD$(W8$,S8$,2%) : W9$=SUB$(W7$,W8$,2%)
2780 PREPARE 'dr1:r{kning.dat' ASFILE 1
2790 ; #1,W9$
2800 ; #1,W7$
2810 ; #1,W8$
2820 CLOSE 1
2830 S7$='00.00' : S8$='00.00'
2840 RETURN 
2850 REM ** insp konton.txt **
2860 OPEN 'dr1:telelog.txt' ASFILE 1
2870 INPUT #1,V%
2880 FOR I%=1% TO V%
2890 INPUT #1,M%(I%)
2900 INPUTLINE #1,A$(I%) : A$(I%)=LEFT$(A$(I%),LEN(A$(I%))-2%)
2910 INPUTLINE #1,B$(I%) : B$(I%)=LEFT$(B$(I%),LEN(B$(I%))-2%)
2920 NEXT I%
2930 CLOSE 1
2940 RETURN 
2950 REM ** utskrift konton **
2960 GOSUB 1750 : REM konton
2970 X$='DATABASER' : GOSUB 3290
2980 ; CUR(2%,0%);
2990 Y%=0% : G$='' : S$='00.00'
3000 FOR I%=1% TO V%
3010 Y%=Y%+1%
3020 ; TAB(1%)RIGHT$(NUM$(1000+M%(I%)),3%)TAB(7%)A$(I%)TAB(28%)B$(I%)TAB(69%)S9$(I%)
3030 IF S9$(I%)='' THEN S9$(I%)='00.00'
3040 IF M%(I%)>200 THEN 3060
3050 S$=ADD$(S$,S9$(I%),2%)
3060 REM 
3070 G$=G$+RIGHT$(NUM$(1000+M%(I%)),3%)
3080 IF Y%=V% THEN Y%=0% : GOTO 3110
3090 IF Y%=17% THEN Y%=0% : ; CUR(20%,1%)'--moore--' : GOTO 3120 ELSE 3110
3100 GOSUB 3290 : ; CUR(2%,0%);
3110 NEXT I%
3120 ; CUR(22%,0%)SPACE$(79%);
3130 S0$=MUL$(S$,'.77',2%)
3140 ; CUR(18%,0%)'Summa baser:'S$' /Summa denna 'S7$' Extra 'S8$ : ; 'R{kning tot 'W7$' Extra 'W8$' Telefon 'W9$
3150 ; CUR(20%,10%)'000'TAB(15%)']ter till Huvudmenyn'
3160 ; CUR(22%,1%)'Vilken databas (tre siffror) '; : INPUT A$
3170 IF A$='000' THEN 3250
3180 IF A$='' AND I%<V% THEN 3100
3190 IF LEN(A$)<3% THEN ; CHR$(7%) : GOTO 3120
3200 IF INSTR(1%,G$,A$)=0% THEN ; CHR$(7%) : GOTO 3120
3210 FOR I%=1% TO V%
3220 IF M%(I%)=VAL(A$) THEN V9%=I%
3230 NEXT I%
3240 GOSUB 450 : GOTO 2970
3250 REM 
3260 REM 
3270 GOSUB 2510 : Y%=Y%+1% : Y$(Y%)=LEFT$(R$,4%) : Y(Y%)=VAL(S7$) : GOSUB 2680
3280 RETURN 
3290 REM ** huvud 80 **
3300 ; INP(4)CHR$(12)
3310 ; CUR(0%,10%)X$TAB(60%)R$
3320 ; CUR(1%,0%)CHR$(151%)STRING$(79%,35%);
3330 ; CUR(21%,0%)CHR$(151%)STRING$(79%,35%);
3340 RETURN 
3350 REM ** dokumentation konton.txt **
3360 PREPARE 'dr1:telelog.txt' ASFILE 1
3370 ; #1,V%
3380 FOR J%=1% TO V%
3390 ; #1,M%(J%)
3400 ; #1,A$(J%)
3410 ; #1,B$(J%)
3420 NEXT J%
3430 CLOSE 1
3440 RETURN 
3450 REM ** printar f|reg}ende p} sk{rmen **
3460 ; CUR(5%,0%)U%TAB(5%)S3$(U%)TAB(11%)S1$(U%)TAB(15%)D$(U%)TAB(22%)S4$(U%);
3470 ; TAB(30%)S$(U%)TAB(37%)S2$(U%)TAB(43%)E$(U%);
3480 RETURN 
3490 REM kostnad
3500 Z%=INSTR(1%,A$(V9%),'-') : C0$='-'+MID$(A$(V9%),1%,Z%)
3510 RESTORE 3830
3520 READ C$ : FOR C%=1% TO 3% : READ X$(C%) : NEXT C%
3530 IF C$='-0026-' OR C$='020910013-' THEN X9$=X$(1%) : RETURN 
3540 IF C$='Slut' ; CUR(22%,1%)'Riktnummers|kning failed' : FOR C%=1% TO 3% : X$(C%)='1.00' : NEXT C% : GOTO 3560
3550 IF INSTR(1%,C$,C0$)=0% THEN 3520
3560 D5$=MID$(S3$(I%),1%,2%)
3570 IF VAL(D5$)>17% OR VAL(D5$)<8% THEN X9$=X$(3%) : RETURN 
3580 IF VAL(D5$)>11% AND VAL(D5$)<18% THEN X9$=X$(2%)
3590 IF VAL(D5$)>7% AND VAL(D5$)<12% THEN X9$=X$(1%)
3600 D5$=MID$(R$,1%,2%)
3610 D4$='84'
3620 P1%=1%
3630 D6$=ADD$(D4$,'04',0%) : P%=COMP%(D6$,D5$) : IF P%=-1% THEN P1%=P1%+1% : GOTO 3630
3640 D6$=SUB$(D5$,D4$,0%) : D6$=MUL$(D6$,'365',0%) : D6$=ADD$(D6$,NUM$(P1%),0%)
3650 D6$=SUB$(D6$,'366',0%)
3660 D5$=MID$(R$,3%,2%)
3670 RESTORE 3790
3680 FOR G%=1% TO VAL(D5$) : READ D7$ : D6$=ADD$(D6$,D7$,0%) : NEXT G%
3690 IF P%=0% AND VAL(D5$)>1% THEN D6$=ADD$(D6$,'01',0%)
3700 D5$=MID$(R$,5%,2%)
3710 D6$=ADD$(D6$,D5$,0%)
3720 D6$=SUB$(D6$,'07',0%) : P%=COMP%(D6$,'00') : IF P%=1% THEN 3720
3730 D6$=ADD$(D6$,'07',0%)
3740 RESTORE 3810
3750 FOR G%=1% TO VAL(D6$) : READ D7$ : NEXT G%
3760 ; CUR(19%,31%)D7$
3770 IF D7$='L|rdag' OR D7$='S|ndag' THEN X9$=X$(3%)
3780 RETURN 
3790 REM data
3800 DATA 00,31,28,31,30,31,30,31,31,30,31,30,31
3810 REM data
3820 DATA Tisdag,Onsdag,Torsdag,Fredag,L|rdag,S|ndag,M}ndag
3830 REM data tfntariffer
3840 DATA -011-0120-0121-0122-0123-0124-0125-013-,1.15,0.92,0.66
3850 DATA -0140-0141-0142-0143-0144-0145-0146-0147-0148-0149-0150-,1.15,0.92,0.66
3860 DATA -0151-0152-0153-0154-0155-0156-0157-0158-0159-,1.15,0.92,0.66
3870 DATA -016-,1.15,0.92,0.66
3880 DATA -0171-0172-0173-0174-0175-0176-,1.38,1.15,0.77
3890 DATA -018-,1.38,1.15,0.77
3900 DATA -019-,0.73,0.58,0.44
3910 DATA -021-0220-0221-0222-0223-0224-0225-0226-0227-,1.15,0.92,0.66
3920 DATA -023-,1.15,0.92,0.66
3930 DATA -0240-0241-,0.73,0.58,0.44
3940 DATA -0243-,1.15,0.92,0.66
3950 DATA -0246-0247-0248-0249-0250-0251-0252-0253-0254-0255-0256-0257-0258-,1.15,0.92,0.66
3960 DATA -026-0270-0271-0272-0273-0274-0275-0276-0277-0278-,1.38,1.15,0.77
3970 DATA -0280-0281-,0.73,0.58,0.44
3980 DATA -0290-0291-0292-0293-0294-0295-0296-0297-,1.38,1.15,0.77
3990 DATA -0300-0301-0302-0303-0304-031-,1.38,1.15,0.77
4000 DATA -0320-0321-0322-0323-0324-0325-,1.38,1.15,0.77
4010 DATA -033-,1.38,1.15,0.77
4020 DATA -0340-0341-0342-0343-0344-0345-0346-,1.73,1.38,0.87
4030 DATA -035-,1.73,1.38,0.87
4040 DATA -036-,1.38,1.15,0.77
4050 DATA -0370-0371-0372-,1.73,1.38,0.87
4060 DATA -0380-0381-0382-0383-0384-0385-0386-0387-0388-0389-0390-0391-0392-0393-,1.38,1.15,0.77
4070 DATA -040-0410-0411-0412-0413-0414-0415-0416-0417-0418-,1.73,1.38,0.87
4080 DATA -042-0430-0431-0432-0433-0434-0435-,1.73,1.38,0.87
4090 DATA -044-0450-0451-0452-0453-0454-0455-0456-0457-0458-0459-,1.73,1.38,0.87
4100 DATA -046-0470-0471-0472-0473-0474-0475-0476-0477-0478-0479-0480-,1.73,1.38,0.87
4110 DATA -0481-0482-0483-0484-0485-0486-,1.73,1.38,0.87
4120 DATA -0490-0491-0492-0493-0494-0495-0496-0497-0498-0499-,1.38,1.15,0.77
4130 DATA -0500-0501-0502-0503-0504-0505-0506-0507-0508-0509-0510-,1.15,0.92,0.66
4140 DATA -0511-0512-0513-0514-0515-,1.15,0.92,0.66
4150 DATA -0520-0521-0522-0523-0524-0525-0526-0527-0528-,1.38,1.15,0.77
4160 DATA -0530-0531-0532-0533-0534-,1.15,0.92,0.66
4170 DATA -054-,0.73,0.58,0.44
4180 DATA -0550-0551-,0.39,0.31,0.23
4190 DATA -0552-0553-0554-0555-0556-0557-0558-0559-0560-,0.73,0.58,0.44
4200 DATA -0563-,0.39,0.31,0.23
4210 DATA -0564-0565-0566-0567-0568-0569-0570-0571-,0.73,0.58,0.44
4220 DATA -0573-,1.15,0.92,0.66
4230 DATA -0580-0581-,0.39,0.31,0.23
4240 DATA -0582-,0.73,0.58,0.44
4250 DATA -0583-,1.15,0.92,0.66
4260 DATA -0584-0585-,0.73,0.58,0.44
4270 DATA -0586-0587-,0.39,0.31,0.23
4280 DATA -0589-,1.15,0.92,0.66
4290 DATA -060-0611-0612-0613-0614-0615-0616-0617-0618-0619-0620-0621-0622-0623-0624-,1.73,1.38,0.87
4300 DATA -063-0640-0641-0642-0643-0644-0645-0646-0647-0648-0649-0650-0651-0652-0653-0654-0655-0656-,1.73,1.38,0.87
4310 DATA -0657-0658-0659-0660-0661-0662-0663-0664-0665-0666-0667-0668-0669-0670-0671-0672-,1.73,1.38,0.87
4320 DATA -0680-0681-0682-0683-0684-0685-0686-0687-,1.38,1.15,0.77
4330 DATA -0690-0691-0692-0693-0694-0695-0696-,1.73,1.38,0.87
4340 DATA -0750-0751-0752-0753-0754-0755-0756-0757-0758-0759-0760-0761-0762-0763-0764-0765-0766-,1.38,1.15,0.77
4350 DATA -08-,1.38,1.15,0.77
4360 DATA -090-0910-0911-0912-0913-0914-0915-0916-0917-0918-0919-0920-0921-0922-0923-0924-0925-0926-,1.73,1.38,0.87
4370 DATA -0927-0928-0929-0930-0931-0932-0933-0934-0935-0936-0937-0938-0939-0940-0941-0942-0943-0944-,1.73,1.38,0.87
4380 DATA -0945-0946-0947-0948-0949-0950-0951-0952-0953-0954-0955-0956-0957-0958-0959-0960-,1.73,1.38,0.87
4390 DATA -0961-0962-0963-0964-0965-0966-0967-0968-0969-0970-0971-0972-0973-0974-0975-0976-0977-0978-,1.73,1.38,0.87
4400 DATA -0979-0980-0981-,1.73,1.38,0.87
4410 DATA -00945-,2.25,2.25,'2.25' 
4420 DATA '-009358-',2.25,2.25,'2.25' 
4430 DATA -00947-,2.25,2.25,'2.25'
4440 DATA -00944-,5.35,5.35,'5.35' 
4450 DATA -0091-,9.75,9.75,'9.75' 
4460 DATA -0026-,0.30,0.30,0.30
4470 DATA -020910013-,0.30,0.30,0.30
4480 DATA Slut,1,1,1
4490 REM  betala r{kning 
4500 GOSUB 2600 : REM h{mta
4510 ; CUR(14%,1%)'Telefon 'W9$' Extra 'W8$' Totalt 'W7$
4520 ; CUR(16%,1%)'Tfn r{kning '; : INPUT S7$
4530 IF S7$='' THEN 4550
4540 W7$=SUB$(W7$,S7$,2%) : W9$=SUB$(W9$,S7$,2%)
4550 ; CUR(17%,1%)'Extra kostn '; : INPUT S8$
4560 IF S8$='' THEN 4580
4570 W8$=SUB$(W8$,S8$,2%) : W7$=SUB$(W7$,S8$,2%)
4580 ; CUR(14%,1%)'Telefon 'W9$' Extra 'W8$' Totalt 'W7$
4590 GOSUB 2780 : REM dokumentera
4600 RETURN