10 REM list TYPO16K.TXT
20 REM *****************************
30 REM * TRYCKERIFAKTOR            *
40 REM * PROGRAM F\R ABC-80        *
50 REM * 16K, KASSETT, 40-TECKEN   *
60 REM * AV FERDINAND MICAN        *
70 REM * TEL. 0510-62336           *
80 REM * REV. 821227               *
90 REM *****************************
100 REM 
110 REM S%=VAL AV SUBPROGRAM
120 REM 
130 REM +++++++KONVERTERING++++++++++++
140 REM C=CICERO
150 REM P=PUNKTER
160 REM R=RESULTAT
170 REM V=V[RDE
180 REM K=KONVERTERINGSFAKTOR
190 REM 
250 REM +++++++MANUSKRIPTBER[KNING+++++
260 REM T% T$=TECKEN/manusrad
270 REM R1% R1$=RADER (manus)
280 REM S1 S1$=SIDOR (manus)
290 REM B$=ANTAL (manustecken/sida)
300 REM A A$=ANTAL (manustecken total)
310 REM S1%=STIL
320 REM G1=GRAD
330 REM S2=TC-TAL
340 REM B=BREDD (s{ttningens)
350 REM R2%=RADER (s{ttning)
360 REM S=SIDOR (tryck)
370 REM I=BLINK (bildadress)
380 REM X=F\RDR\JNING
390 REM N%=[NDRINGSVAL
400 REM +++++++PAPPERSVIKT+++++++++++++
410 REM PAPPERSYTA A-SERIE
420 REM A=ANTAL ARK
430 REM V=VIKT I KG
440 REM P1 P1$=PAPPERSFORMAT (h|jd)
450 REM P2=PAPPERSBREDD
460 REM P3=ARKYTA
470 REM P1$=PAPPERSFORMAT (h|jd)
480 REM [$=AVSLUTNING
490 REM 
500 REM +++++++REPRODUKTIONSPROCENT++++
510 REM M=M]TT (bredd)
520 REM O=ORIGINALSTORLEK
530 REM \=\NSKAD STORLEK
540 REM R=REPRODUKTIONSPROCENT
550 REM F$=AVSLUTNING
560 REM 
570 REM +++++++BILDPROPORTIONER++++++++
580 REM O=ORIGINALL[NGD
590 REM B=BREDD (efter storleks{ndring)
600 REM P=PRESENTATION VID STOR BILD
610 REM P1-P7=GRAFIKPUNKTER
620 REM X-X3 =GRAFIKPUNKTER
630 REM Y=GRAFIKPUNKTER
640 REM I%=GRAFISK MODE
650 REM A$=AVSLUTNING
660 REM 
670 REM +++++++INSTRUKTIONER+++++++++++
680 REM S$=BL[DDRA
690 REM 
700 REM *******************************
710 REM INSTRUKTIONER*****************
720 REM 
730 ; CHR$(12)
740 ; "Detta {r programmet"
750 ; "TRYCKERIFAKTOR"
760 ; "======================================="
765 ; 
770 ; "Med hj{lp av programmet kan Du"
780 ; 
790 ; "* omvandla m}tt, t.ex. cicero till mm"
810 ; "* ber{kna antalet rader vid s{ttning"
820 ; "* r{kna ut pappersvikten"
830 ; "* r{kna ut bildstorleken"
840 ; "* se p} bildproportioner"
850 ; 
860 ; "I huvudet p} varje sk{rm st}r i vilket"
870 ; "subrogram Du befinner Dig."
880 ; 
890 ; "I botten, under strecklinjen, finns"
900 ; "anvisningar f|r svarandet p} fr}gorna."
910 ; 
920 ; 
930 REM Bildsk{rmsunderstycke
940 ; "_____________________________________"
950 ; "Tryck p} mellanslag n{r Du vill l{sa"
960 ; "vidare."
970 ; CUR(17%,40%) : GET S$
980 IF S$=" " GOTO 990
990 ; CHR$(12)
1000 ; "Detta {r programmet"
1010 ; "TRYCKERIFAKTOR"
1020 ; "======================================="
1030 ; 
1040 ; "Varje svar avslutas med RETURN. Trycker"
1050 ; "Du p} RETURN utan annan inmatning samt"
1060 ; "vid felaktiga inmatningar s} g}r datorn"
1070 ; "till huvudmenyn."
1080 ; 
1090 ; "Det {r meningen att man skall anpassa"
1100 ; "programmet till sina egna behov."
1110 ; 
1120 ; "Mera ing}ende anvisningar hur detta"
1130 ; "g|rs l{mnas i den bifogade listningen."
1140 ; "D{r l{mnas ocks} exempel p} hur"
1150 ; "programmet kan anv{ndas."
1160 ; 
1170 ; "Lycka till!"
1180 REM Bildsk{rmsunderstycke
1190 ; "_____________________________________"
1200 ; "Tryck p} RETURN n{r Du vill l{sa in"
1210 ; "huvudprogrammet."
1220 GET A$
1230 CHAIN "TYPO16K"