1 ! Ins{nt av <2655> per diskett 1987-06-07
2 ! LIST THL2AV4.BAS
3 ! UTSKRIFTS-modul i program f|r betalp}minnelser och r{ntefakturering
4 ! rev 19871225.1340 <2776> Bengt Sandgren
5 ! ------------------------------------------------------------------
9 COMMON Prt$=13,Tid$=10
10 ! 
12 ; CHR$(12) ! FILNAMN:BETP]MIN.ALL - ORIGINAL
20 ! Uppr{ttat av Carl-Emil Larsson. Rev 861228
30 ; "*** UTSKRIFT AV BETALNINGSP]MINNELSER ***"
40 ; "========================================="
50 ; 
60 ; "UTSKRIFT P] BILDSK[RM ........... 0"
70 ; 
80 ; "UTSKRIFT P] PRINTER ............. 1" : ; 
85 ; "Tillbaks till meny  ............. 2"
90 ON ERROR GOTO 10 : ; 
100 INPUT "ANGE ALTERNATIV (0, 1 ELLER 2) ..."S
110 IF S>2 GOTO 10
120 ; 
125 IF S=2 THEN CHAIN "THL1AV4"
130 IF S=0 GOTO 150 ELSE 140
140 OPEN Prt$ AS FILE 1
150 ; CHR$(12)
160 IF Z$="J" OR Z$="j" GOTO 1400
170 ; 
180 ; "*** BETALNINGSP]MINNELSER ***"
190 ; "============================="
200 ; : ; 
210 ; "** INMATNING AV GEMENSAMMA UPPGIFTER **"
220 ; 
230 ; "======================================="
240 ; 
245 Y$=Tid$
249 ; "Dagens datum {r " Y$
250 ! INPUT "Ange dagens datum enl ]]]].MM.DD (EX. 1986.12.31) ... "Y$
260 ; 
270 INPUT "\NSKAR DU [NDRA DAGENS DATUM (J/N) .................. "Y4$
280 IF Y4$="J" OR Y$="j" GOTO 150 ELSE GOTO 290
290 ; 
300 ; " UPPGIFTER OM KUNDEN"
310 ; " -------------------"
320 ; 
330 INPUT "1. F|retag ............................. "A1$
340 ; 
350 INPUT "Skall 'F|retag' {ndras (J/N) ........... "Y5$
360 ; 
370 IF Y5$="J" OR Y5$="j" GOTO 330
380 INPUT "2. Kontaktman (=Er ref.) ............... "A2$
390 ; 
400 INPUT "Skall 'Kontaktman' {ndras (J/N) ........ "Y6$
410 ; 
420 IF Y6$="J" OR Y6$="j" GOTO 380
430 INPUT "3. Avdelning el dyl .................... "A8$
440 ; 
450 INPUT "Skall 'Avdelning el dyl' {ndras (J/N) .. "Y7$
460 ; 
470 IF Y7$="J" OR Y7$="j" GOTO 430
480 INPUT "4. Box, gata el dyl .................... "A3$
490 ; 
500 INPUT "Skall 'Box etc.' {ndras (J/N) .......... "Y8$
510 ; 
520 IF Y8$="J" OR Y8$="j" GOTO 480
530 INPUT "5. Postnr och Ort ...................... "A4$
540 ; 
550 INPUT "Skall 'Postnr etc' {ndras (J/N) ........ "Y9$
560 ; 
570 IF Y9$="J" OR Y9$="j" GOTO 550
580 INPUT "6. Betalningsp}minnelsens nr ........... "A9$
590 ; 
600 INPUT "Skall 'Bet.p}minnelsens nr' {ndras (J/N) "Z3$
610 ; 
620 IF Z3$="J" OR Z3$="j" GOTO 580
630 ; 
640 ; CHR$(12)
650 ; CUR(8,0);"UPPGIFTER F\R BER[KNING AV ANTALET R[NTEDAGAR,"
660 ; CUR(9,0);"SPECIFICERAS F\R VARJE FAKTURA"
670 ; "---------------------------------------------"
680 ; 
690 Y1$="FEL ANTAL  SIFFROR! OBS! 2 + 2 + 2!" ! R[TTELSE FELSKRIVN
700 INPUT "R[NTESATS % PER ]R....................... "D3$
710 ; 
720 INPUT "Skall 'R{ntesats % per }r' {ndras (J/N).. "Z4$
730 IF D3$="" GOTO 700
740 ; 
750 IF Z4$="J" OR Z4$="j" GOTO 700
760 ; 
770 ; "1. ANGE DAGENS DATUM VID BET.P]M. (]]MMDD), T EX 860616"
780 ; 
790 INPUT "]R (]]) .................. "B1$
800 IF LEN(B1$)=0 THEN 810 ELSE 820
810 ; CHR$(7) : GOTO 790
820 IF LEN(B1$)<>2 THEN 830 ELSE 840
830 ; : ; Y1$ : ; CHR$(7) : GOTO 790
840 INPUT "M]NAD (MM) ............... "B2$
850 IF LEN(B2$)=0 THEN 860 ELSE 870
860 ; CHR$(7) : GOTO 840
870 IF LEN(B2$)<>2 GOTO 880 ELSE 890
880 ; : ; Y1$ : ; CHR$(7) : GOTO 840
890 INPUT "DAG (DD) ................. "B3$
900 IF LEN(B3$)=0 THEN 910 ELSE 920
910 ; CHR$(7) : ; CHR$(7) : GOTO 890
920 IF LEN(B3$)<>2 GOTO 930 ELSE 940
930 ; : ; Y1$ : ; CHR$(7) : GOTO 890
940 B1=VAL(B1$) : B2=VAL(B2$) : B3=VAL(B3$)
950 B4=(B1*360)+(B2*30)-30+B3 ! ANTAL DAGAR BETR BETALN.-DAGEN
960 B5$=B1$+B2$+B3$ ! B5$=DAGENS DATUM VID BET.P]M. (ON\DIG?)
970 ; 
980 N=N+1
990 ; 
1000 INPUT "FAKTURA NR:         "D4$(N)
1010 INPUT "FAKTURABELOPP:      "D2$(N)
1020 ; 
1030 ; "2. FAKTURANS F\RFALLODAG"
1040 ; 
1050 INPUT "]R (]]) .................. "B6$(N)
1060 IF LEN(B6$(N))=0 GOTO 1070 ELSE 1080
1070 ; CHR$(7) : GOTO 1050
1080 IF LEN(B6$(N))<>2 GOTO 1090 ELSE 1100
1090 ; : ; Y1$ : ; CHR$(7) : GOTO 1050
1100 INPUT "M]NAD (MM) ............... "B7$(N)
1110 IF LEN(B7$(N))=0 GOTO 1120 ELSE 1130
1120 ; CHR$(7) : GOTO 1100
1130 IF LEN(B7$(N))<>2 GOTO 1140 ELSE 1150
1140 ; : ; Y1$ : ; CHR$(7) : GOTO 1100
1150 INPUT "DAG (DD) ................. "B8$(N)
1160 IF LEN(B8$(N))=0 GOTO 1170 ELSE 1180
1170 ; CHR$(7) : GOTO 1150
1180 IF LEN(B8$(N))<>2 GOTO 1190 ELSE 1200
1190 ; : ; Y1$ : ; CHR$(7) : GOTO 1150
1200 B6(N)=VAL(B6$(N)) : B7(N)=VAL(B7$(N)) : B8(N)=VAL(B8$(N))
1210 B9(N)=(B6(N)*360)+(B7(N)*30)-30+B8(N) ! DAGAR F\R BER[KN F\RF.DAG
1220 B9$(N)=B6$(N)+B7$(N)+B8$(N) ! B9$(N)=FAKTURANS F\RF.DAG. ON\DIG??
1230 B(N)=B4-B9(N) ! ANTALET DAGAR F\R R[NTEBER[KNING = B(N)
1240 ; 
1250 ; "*** R[NTEBER[KNING ***"
1260 ; "======================"
1270 ; 
1280 ; 
1290 E1$(N)=NUM$(B(N))
1300 E2$(N)=DIV$(E1$(N),"360",5)
1310 E3$(N)=MUL$(E2$(N),D3$,5)
1320 E4$(N)=DIV$(E3$(N),"100",5)
1330 R$(N)=MUL$(E4$(N),D2$(N),1)
1340 ; 
1350 ; "\NSKAR DU SKRIVA IN FLERA FAKTUROR F\R SAMMA F\RETAG (J/N)  ";
1360 INPUT T$
1370 IF T$="J" OR T$="j" GOTO 980
1380 ; 
1390 T2=N
1400 ; CHR$(12) : ; : ; : ; : ; 
1410 ; "*** BETALNINGSP]MINNELSE ***"
1420 ; "============================"
1430 ; 
1440 ; "ANGE NEDAN VILKET ALTERNATIV DU \NSKAR. SKRIV IN R[TT SIFFRA. "
1450 ; 
1460 ; "1. F|rsta betalningsp}minnelse "
1470 ; "2. Andra betalningsp}minnelse "
1480 ; "3. Tredje krav. Annars inkasso "
1490 ; 
1500 INPUT "Ange alternativ ............. "V
1510 ; : ; : ; : ; : ; 
1520 IF V=1 GOTO 1530
1530 ; CHR$(12)
1540 ! 
1550 ! *** F\RSTA  BETALNINGSP]MINNELSE ***
1560 ! ====================================
1570 ! 
1580 IF S=0 GOTO 1610 ELSE 1590
1590 FOR F=1 TO 4 : ; #1 : NEXT F 
1600 IF S=1 GOTO 1610
1610 GOSUB 2560
1620 IF S=0 GOTO 1640 ELSE 1630
1630 FOR F1=1 TO 5 : ; #1 : NEXT F1 
1640 ; 
1650 IF S=0 GOTO 1690 ELSE 1660
1660 ; #1 TAB(5) "BETALNINGSP]MINNELSE:  " A9$ : ; #1 CHR$(31,31) : ; TAB(5) "BETALNINGSP]MINNELSE:  " A9$
1670 ; #1 CHR$(31,31,31)
1680 IF S=1 GOTO 1700
1690 ; TAB(5) "BETALNINGSP]MINNELSE:  " A9$ : IF S=0 GOTO 1710
1700 ; #1 : ; 
1710 IF V=2 GOTO 2860 : ; 
1720 IF V=3 GOTO 2960
1730 IF S=0 GOTO 1790
1740 ; #1 TAB(5) "Enligt v}ra noteringar har vi {nnu ej erh}llit likvid f|r"
1750 ; TAB(5) "Enligt v}ra noteringar har vi {nnu ej erh}llit likvid f|r"
1760 ; #1 TAB(5) "nedanst}ende f|rfallna fakt. Vi ber Er omg}ende betala beloppet."
1770 ; TAB(5) "nedanst}ende f|rfallna fakt. Vi ber Er omg}ende betala beloppet."
1780 ; #1 : ; : IF S=1 GOTO 1830
1790 ; 
1800 ; TAB(5) "Enligt v}ra noteringar har vi {nnu ej erh}llit likvid f|r"
1810 ; TAB(5) "nedanst}ende f|rfallna fakt. Vi ber Er omg}ende betala beloppet." : ; 
1820 IF S=0 GOTO 1850
1825 ; #1 : ; 
1830 ; #1 TAB(5) "Faktura nr"; : ; TAB(5) "Faktura nr";
1840 IF S=1 GOTO 1880
1850 ; 
1860 ; TAB(5) "Faktura nr";
1870 IF S=0 GOTO 1900
1880 ; #1 TAB(20) "Fakt. f|rfallodag"; : ; TAB(20) "Fakt. f|rfallodag";
1890 IF S=1 GOTO 1920
1900 ; TAB(20) "Fakt. f|rfallodag";
1910 IF S=0 GOTO 1940
1920 ; #1 TAB(40) "F|rfallet belopp"; : ; TAB(40) "F|rfallet belopp";
1930 IF S=1 GOTO 1960
1940 ; TAB(40) "F|rfallet belopp";
1950 IF S=0 GOTO 1980
1960 ; #1 TAB(58) "Upplupen r{nta" : ; TAB(58) "Upplupen r{nta"
1970 IF S=1 GOTO 2010
1980 ; TAB(58) "Upplupen r{nta"
1990 ; 
2000 IF S=0 GOTO 2020
2010 ; #1 : ; 
2020 N=0
2030 N=N+1
2040 IF S=0 GOTO 2100
2050 ; #1 TAB(9) D4$(N);TAB(25) B9$(N); : ; #1 USING "#########.##" TAB(43) D2$(N);
2060 ; #1 USING "#######.##" TAB(60) R$(N)
2070 ; TAB(9) D4$(N);TAB(25) B9$(N); : ; USING "#########.##" TAB(43) D2$(N);
2080 ; USING "#######.##" TAB(60) R$(N)
2090 IF S=1 GOTO 2130
2100 ; TAB(9) D4$(N);TAB(25) B9$(N); : ; USING "#########.##" TAB(43) D2$(N);
2110 ; USING "#######.##" TAB(60) R$(N)
2120 IF N<T2 GOTO 2030 ELSE 2140
2130 IF N<T2 GOTO 2030 ELSE 2150
2140 IF S=0 GOTO 2170
2150 ; #1 : ; #1 : ; : ; 
2160 IF S=1 GOTO 2190
2170 ; 
2180 IF S=0 GOTO 2220
2190 ; #1 : ; 
2200 ; #1 TAB(5) "Med v{nlig h{lsning" : ; TAB(5) "Med v{nlig h{lsning"
2210 GOTO 2270
2220 ; TAB(5) "Med v{nlig h{lsning"
2240 ; 
2270 IF S=1 GOTO 2300
2290 IF S=0 GOTO 2320
2300 ; 
2310 ; #1 CHR$(12)
2320 ; 
2330 INPUT "\NSKAR DU NY UTSKRIFT F\R SAMMA DATA F\R F\RETAGET? (J/N) "Z$
2340 IF Z$="J" OR Z$="j" THEN GOTO 10 ELSE 2360
2350 ; 
2360 INPUT "\NSKAR DU SKRIVA IN DATA F\R N[STA F\RETAG F\R EN NY UTSKRIFT (J/N) "Z1$
2370 IF Z1$="J" OR Z1$="j" THEN GOTO 2380 ELSE 2390
2380 CHAIN "BETP]MIN.ALL"
2390 IF S=1 GOTO 2400 ELSE 2410
2400 ; #1 CHR$(12)
2410 CLOSE 1
2420 ; 
2430 END 
2440 ; 
2450 ! *** FELHANTERING ***
2460 ; 
2470 RESUME 
2480 ; 
2490 ; 
2500 ; CHR$(12)
2510 ; 
2520 INPUT "\NSKAR DU FORTS[TTA (J) ELLER SLUTA (N) "V2$
2530 IF V2$="J" GOTO 2320 ELSE 2390
2540 GOTO 2320
2550 ; 
2560 ! *** F\RETAGS- OCH ADRESSUPPGIFTER (SUBRUTIN) ***
2570 ! ================================================
2580 ; 
2590 IF S=0 GOTO 2620
2600 ; #S TAB(5) Y$; : ; TAB(5) Y$;
2610 IF S=1 GOTO 2640
2620 ; TAB(5) Y$;
2630 IF S=0 GOTO 2660
2640 ; #S TAB(36) A1$ : ; TAB(36) A1$
2650 IF S=1 GOTO 2680
2660 ; TAB(36) A1$
2670 IF S=0 GOTO 2700
2680 ; #S TAB(36) A8$ : ; TAB(36) A8$
2690 IF S=1 GOTO 2720
2700 ; TAB(36) A8$
2710 IF S=0 GOTO 2740
2720 ; #S TAB(36) A3$ : ; TAB(36) A3$
2730 IF S=1 GOTO 2760
2740 ; TAB(36) A3$
2750 IF S=0 GOTO 2800
2760 ; #S TAB(36) A4$ : ; TAB(36) A4$
2770 ; #1 : ; #1 : ; #1 : ; 
2780 ; #1 TAB(5) "Er ref. " A2$ : ; TAB(5) "Er ref. " A2$
2790 IF S=1 GOTO 2830
2800 ; TAB(36) A4$
2810 ; TAB(5) "Er ref. " A2$
2820 GOTO 2840
2830 ; #S : ; #S
2840 RETURN ! Till rad 6081
2850 ! 
2860 IF S=0 GOTO 2920
2870 ; #1 TAB(5) "Vi vill {nnu en g}ng erinra om, att vi ej erh}llit likvid"
2880 ; TAB(5) "Vi vill {nnu en g}ng erinra om, att vi ej erh}llit likvid"
2890 ; #1 TAB(5) "f|r nedanst}ende f|rfallna fakt. Vi motser Er likvid omg}ende."
2900 ; TAB(5) "f|r nedanst}ende f|rfallna fakt. Vi motser Er likvid omg}ende."
2910 ; #1 : ; : IF S=1 GOTO 1830
2920 ; 
2930 ; TAB(5) "Vi vill {nnu en g}ng erinra om, att vi ej erh}llit likvid"
2940 ; TAB(5) "f|r nedanst}ende f|rfallna fakt. Vi motser Er likvid omg}ende."
2950 GOTO 1820
2960 IF S=0 GOTO 3060
2970 ; #1 TAB(5) "Vi har s{nt Er flera p}minnelser avseende nedanst}ende"
2980 ; TAB(5) "Vi har s{nt Er flera p}minnelser avseende nedanst}ende"
2990 ; #1 TAB(5) "fakt. Enligt v}ra noteringar har Ni {nnu ej betalat f|rfallna"
3000 ; TAB(5) "fakt. Enligt v}ra noteringar har Ni {nnu ej betalat f|rfallna"
3010 ; #1 TAB(5) "fakt. Vi ser oss d{rf|r n|dsakade att l{mna v}r fordran till"
3020 ; TAB(5) "fakt. Vi ser oss d{rf|r n|dsakade att l{mna v}r fordran till"
3030 ; #1 TAB(5) "inkasso, om vi ej mottagit likvid fr}n Er inom 7 dagar."
3040 ; TAB(5) "inkasso, om vi ej mottagit likvid fr}n Er inom 7 dagar."
3050 IF S=1 GOTO 1825
3060 ; 
3070 ; TAB(5) "Vi har s{nt Er flera p}minnelser avseende nedanst}ende"
3080 ; TAB(5) "fakt. Enligt v}ra noteringar har Ni {nnu ej betalat f|rfallna"
3090 ; TAB(5) "fakt. Vi ser oss d{rf|r n|dsakade att l{mna v}r fordran till"
3100 ; TAB(5) "inkasso, om vi ej mottagit likvid fr}n Er inom 7 dagar."
3110 GOTO 1820
8990 ! 
9000 ! *** VARIABELNAMN SOM ANV[NTS I PROGRAMMET ***
9010 ! =============================================
9020 ! 
9030 ! ++ VAL AV SKRIVARE ++
9040 ! ---------------------
9050 ! 
9060 ! A6$ finns ej
9070 ! A$7 finns ej
9080 ! 
9090 ! ++ UPPGIFTER OM KUNDEN ++
9100 ! -------------------------
9110 ! 
9120 ! A1$ = Input 1. F|retag
9130 ! A2$ = Input 2. Kontaktman
9140 ! A3$ = Input 4. Box, gata el dyl
9150 ! A4$ = Input 4. Postnr och Ort
9160 ! A5$ = input Ange om du |nskar {ndra uppgifter om kunden
9170 ! A8$ = Input 3. Avdelning
9180 ! A9$ = Input 6. Betalningsp}minnelse: (f|ljt av A9$)
9190 ! 
9200 ! ** UPPGIFTER F\R BER[KNING AV ANTALET R[NTEDAGAR OCH R[NTA **
9210 ! --------------------------------------------------------------
9220 ! 
9230 ! ( ++ Utskriftsdatum (endast 6 siffror - se Y$ rad 74  f|r brevdatum) ++)
9240 ! ----------------------------------------------------------------------
9250 ! 
9260 ! B =  Antalet dagar f|r r{nteber{kning
9270 ! B1 = Omr{kning B1$ fr numerisk str{ng till talvariabel (VAL)
9280 ! B2 =       "    B2$  "      "     "      "        "
9290 ! B3 =      "    B3$  "
9300 ! B4 = Omr{kning antal }rsdagar betr betaln.dag
9310 ! B5 = FINNS EJ
9320 ! B6 = Omr{kning B6$ fr numerisk str{ng till talvariabel (VAL)
9330 ! B7 =      "    B7$  "      "     "      "       "
9340 ! B8 =      "    B8$  "      "     "      "       "
9350 ! B9 = Omr{kning antal }rsdagar betr f|rfallodagen
9360 ! B1$ = Input }r utskriftsdatum
9370 ! B2$ =    "  m}n    "
9380 ! B3$ =    "  dag    "
9390 ! B4$ = FINNS EJ
9400 ! B5$ = Betalningsdatum
9410 ! B6$ = Input fakt f|rfallodag }r
9420 ! B7$ =   "      "       m}n
9430 ! B8$ =   "     "      "       dag
9440 ! B9$ = Fakturans f|rfallodag
9450 ! 
9460 ! C1$ o s v finns ej l{ngre. Ersatt av A1$ o s v
9470 ! 
9480 ! ++ Grunduppgifter f|r r{nteber{kning och utskrift ++
9490 ! ----------------------------------------------------
9500 ! 
9510 ! D1$ = FINNS EJ
9520 ! D2$ = Input Fakturabelopp
9530 ! D3$ =  "    R{ntesats % per }r
9540 ! D4$ =  "    Fakturanummer
9550 ! D5$ =  "    \nskar Du {ndra uppgifter f|r r{nteber{kning
9560 ! E1$ = Omvandling talvariabel till numerisk str{ng (NUM$)
9570 ! E2$ = Division f|r r{nteber{kning
9580 ! E3$ = Multiplikation f|r r{nteber{kning
9590 ! E4$ = Division f|r r{nteber{kning
9600 ! 
9610 ! ++ Loop f|r radframmatning ++
9620 ! -----------------------------
9630 ! 
9640 ! F = Loop f|r radframmatning
9650 ! F1 =  "    "         "
9660 ! F2 =  "    "         "
9670 ! 
9680 ! ++ SLUTPRODUKT  R [ N T A  ++
9690 ! -----------------------------
9700 ! R$ = Multiplikation. Slutprodukt R{nta
9710 ! 
9720 ! ++ Olika alternativ ++
9730 ! ----------------------
9740 ! S = Input utskrift p} sk{rm eller printer
9750 ! 
9760 ! V = Input Alternativ bet.p}minnelse
9770 ! V1$ =
9780 ! V2$ = \nskar Du forts{tta eller sluta
9790 ! V3$ =
9800 ! V4$ =
9810 ! V5$ = GET V5$
9820 ! 
9840 ! 
9850 ! ++ Uppgift om dagens datum ++
9860 ! ------------------------------
9870 ! 
9890 ! 
9900 ! + + R{ttelse av felskrivning vid inmatning }r, m}n, dag ++
9910 ! ----------------------------------------------------------
9920 ! 
9921 ! Y =
9922 ! Y$ = Dagens datum  enl formel ]]]].MM.DD
9930 ! Y1$ = Du har skrivit f|r m}nga siffror. F|rs|k igen.
9932 ! Y4$=[ndring inmatning dagens datum (Y$)
9934 ! Y5$-Y9$= R{ttelse uppgifter om kunden.
9940 ! 
9950 ! Z$ = Input \nskar du ny utskrift
9960 ! Z1$ = Input \nskar du skriva in data f|r n{sta f|retag
9962 ! Z2$=
9963 ! Z3$=R{ttelse uppgift om bet.p}minnelsens nr (data omkunden)
9970 ! 
9980 ! S = Input Utskrift p} sk{rm (0) eller printer (1)
9990 ! T
10000 ! U
10010 ! X
10020 ! 
10030 ! *** OMNUMRERING RADER - REN ELLER RENUMBER ***
10040 ! ==============================================
10050 ! 
10060 ! ++ Exempel p} REN:s anv{ndning ++
10070 ! ---------------------------------
10080 ! 
10090 ! Nuvarande numrering fr o m rad 10. Nya rader |nskas fr 5000 med radav-          st}nd 10
10100 ! REN 5000,10,10-  OK
10110 ! 
10120 ! Nuvarande numrering fr}n vissa rader med b|rjan 7160 |nskas om-                 numrerade fr}n rad 9000 med radavst}nd 10
10130 ! REN 9000,10,7160-
10140 ! 
10150 ! Nuvarande numrering p} raderna 1910-2160 |nskas omnumrerade fr}n                rad 7000 med radavst}nd 10
10160 ! REN 7000 (ny numrering),10(|nskat radavst}nd),1910-2160(nuvarande               numrering av raderna)
10170 ! 
10180 ! *** VID UTSKRIFT AV PROGRAM MED LIST PR: ***
10190 ! ============================================
10200 ! 
10210 ! Anv{nd t ex f|ljande OPTIONS-PROM med parameterblock:
10220 ! 1. Vid utskrift av hela programmet (LIST): LIST PR:VSA36B72.5
10230 ! (6 rader hoppas |ver vid sidslut. Sidan inneh}ller 72 rader)
10240 ! 
10250 ! 2. Vid utskrift av del av programmet, t ex raderna fr 7000 till                    7951: LIST PR:VSA36B72.5,7000-7951
10260 ! 
10270 ! *** REDIGERING UTSKRIFT MED 'PRINT USING' ***
10280 ! =============================================
10290 ! 
10300 ! I raderna 1376 och 1377 har instruktionen PRINT USING "###.##"
10310 ! anv{nts. Obs. att TAB(xx) skall st} efter instruktionen men
10320 ! f|re variabeln (h{r R$). Se raderna 1376 och 1377.
10330 ! Om Print USING + "###.##" anv{ndes i b|rjan av raden g{ller detta
10340 ! f|r alla efterf|ljande TAB(XX) p} samma rad!
10350 ! 
10360 ! *** N]GRA OLIKA TECKEN OCH KOMMANDON ***
10362 ! ========================================
10370 ! 
10380 ! $ = Dollartecknet S
10390 ! # = Pundtecknet
10400 ! Kommandot GOTO + radnr anv{ndes n{r Du vill starta p} viss rad
10410 ! sedan programmet stannat eller Du stoppat k|rningen.
10500 ! Kommandot CON (Continue) anv{nds n{r Du vill forts{tta k|rningen
10600 ! efter det Du stoppat med CTRL+C