2 ! PRINTINI.INF
5 ! Programmet PRINTINI anv{nds f|r att st{lla om stilstorlekar
6 ! sv{rta m.m. p} Epson-skrivare och fungerar p} FX,MX och RX-typer
7 INTEGER : EXTEND 
10 DATA PRINTINI.BAC   Ver 85.05  85-02-12  (c) Curt Rehnborg
11 ! St{ller parametrar f|r skrivare EPSON MX80/RX80/FX80
12 ! 
70 DIM B$(100),C$(100)
75 H$=CHR$(12)+" PRINTERINIT  EPSON RX80/MX80/FX80"+CUR(0,79)+""+STRING$(80,45)
76 C$="Testskrift - ABCDEFG 012345"
80 ! 
85 ! ----- Initieringsbild
86 ! 
90 ; H$
115 ; CUR(3,0) '(Textstilarna {r promversion beroende)'
120 ; CUR(20,0) "(c) Curt Rehnborg"
130 ; CUR(23,0) "< S{tt ig}ng printern - Tryck CE >";
140 GET Q$ : IF ASCII(Q$)<>24 GOTO 130
150 ! 
151 ! ----- Huvudmeny
152 ! 
160 CLOSE 1 : ; H$
200 ; CUR(3,0) "1 - Normal skrift"
210 ; "2 - Liten skrift"
220 ; "3 - Stor skrift"
230 ; "4 - Testutskrift"
240 ; 
250 ; "0 - Avsluta"
390 ; CUR(20,0) STRING$(80,45)
400 ; CUR(22,0) 'V{lj 0 - 4 '; : INPUT LINE A$ : A$=LEFT$(A$,LEN(A$)-2)
401 ! 
420 IF A$="0" THEN 2120
430 IF A$="1" THEN 1130
440 IF A$="2" THEN 1390
450 IF A$="3" THEN 1860
460 IF A$="4" THEN 1030
470 ; CHR$(7) : GOTO 400
1000 ! 
1010 ! ----- Testutskrift
1020 ! 
1030 OPEN "PR:" AS FILE 1
1040 ; H$ : ; "Testutskrift"
1050 ; CUR(5,0) "Skriv in rad f|r testutskrift"
1060 ; CUR(7,0);C$; : ; CUR(7,0);
1070 INPUT LINE B$ : B$=LEFT$(B$,LEN(B$)-2) : IF B$="" THEN B$=C$
1080 PRINT #1 B$ : C$=B$ : CLOSE 1
1090 GOTO 160
1100 ! 
1110 ! ----- Normal skrift
1120 ! 
1130 ; H$
1140 ; CUR(3,0) "1 - Normal skrift"
1150 ; "2 - Normal skrift med dubbel sv{rta (Bold)"
1160 ; "3 - Normal skrift med understrykning"
1170 ; "4 - Normla skrift med understrykning och dubbel sv{rta"
1180 ; "5 - Normal lutande skrift"
1190 ; "6 - Normal lutande skrift med understrykning"
1200 ; "7 - Normal lutande skrift med dubbel sv{rta"
1210 ; "8 - Normal lutande skrift med dubbel sv{rta och understrykning"
1220 ; : ; "0 - ]ter huvudmeny"
1230 ; CUR(20,0) STRING$(80,45)
1240 ; CUR(22,0) 'V{lj alternativ 0 - 8 '; : INPUT LINE A$ : A$=LEFT$(A$,LEN(A$)-2)
1250 ! 
1260 IF A$="1" GOSUB 2170 : GOTO 160
1270 IF A$="2" GOSUB 2170 : ; #1 CHR$(27);"G"; : GOTO 160
1280 IF A$="3" GOSUB 2170 : ; #1 CHR$(27);"-";CHR$(1); : GOTO 160
1290 IF A$="4" GOSUB 2170 : ; #1 CHR$(27);"G";CHR$(27);"-";CHR$(1); : GOTO 160
1300 IF A$="5" GOSUB 2170 : ; #1 CHR$(27);"4"; : GOTO 160
1310 IF A$="6" GOSUB 2170 : ; #1 CHR$(27);"-";CHR$(1); : ; #1 CHR$(27);"4"; : GOTO 160
1320 IF A$="7" GOSUB 2170 : ; #1 CHR$(27);"G"; : ; #1 CHR$(27);"4"; : GOTO 160
1330 IF A$="8" GOSUB 2170 : ; #1 CHR$(27);"-";CHR$(1); : ; #1 CHR$(27);"G"; : ; #1 CHR$(27);"4"; : GOTO 160
1340 IF A$="0" THEN 160
1350 PRINT CHR$(7) : GOTO 1240
1360 ! 
1370 ! ----- Liten stil
1380 ! 
1390 ; H$
1400 ; CUR(3,0) " 1 - Mikroskrift"
1410 ; " 2 - Mikroskrift med understrykning"
1420 ; " 3 - Mikroskrift, lutande"
1430 ; " 4 - Mikroskrift, lutande med understrykning"
1440 ; " 5 - Liten skrift, kompakt"
1450 ; " 6 - Liten skrift, kompakt lutande"
1460 ; " 7 - Liten skrift, kompakt med understrykning"
1470 ; " 8 - Liten skrift, kompakt lutande med understrykning"
1480 ; " 9 - Liten skrift, kompakt lutande med dubbel sv{rta"
1490 ; "10 - Liten skrift, kompakt med dubbel sv{rta"
1500 ; "11 - Liten skrift, kompakt lutande med understrykning och dubbel sv{rta"
1510 ; "12 - Liten skrift"
1520 ; "13 - Liten skrift med understrykning"
1530 ; "14 - Liten skrift med dubbel sv{rta"
1540 ; "15 - Liten skrift, lutande"
1550 ; "16 - Liten skrift, lutande med dubbel sv{rta"
1560 ; "17 - Liten skrift, lutande med understrykning"
1570 ; 
1580 ; " 0 - ]ter till huvudmeny"
1590 ; CUR(20,0) STRING$(80,45)
1600 ! 
1610 ; CUR(22,0) 'V{lj alternativ 0 - 17 '; : INPUT LINE A$ : A$=LEFT$(A$,LEN(A$)-2)
1620 ! 
1630 IF A$="1" GOSUB 2170 : ; #1 CHR$(27);"A";CHR$(5); : ; #1 CHR$(27);"S";CHR$(0);CHR$(15); : GOTO 160
1640 IF A$="2" GOSUB 2170 : ; #1 CHR$(27);"A";CHR$(5); : ; #1 CHR$(27);"S";CHR$(1);CHR$(15); : ; #1 CHR$(27);"-";CHR$(1) : GOTO 160
1650 IF A$="3" GOSUB 2170 : ; #1 CHR$(27);"A";CHR$(5); : ; #1 CHR$(27);"S";CHR$(1);CHR$(15); : ; #1 CHR$(27);"4"; : GOTO 160
1660 IF A$="4" GOSUB 2170 : ; #1 CHR$(27);"A";CHR$(5); : ; #1 CHR$(27);"S";CHR$(1);CHR$(15); : ; #1 CHR$(27);"-";CHR$(1); : ; #1 CHR$(27);"4"; : GOTO 160
1670 IF A$="5" GOSUB 2170 : ; #1,CHR$(15); : GOTO 160
1680 IF A$="6" GOSUB 2170 : ; #1 CHR$(15); : ; #1 CHR$(27);"4"; : GOTO 160
1690 IF A$="7" GOSUB 2170 : ; #1 CHR$(15); : ; #1 CHR$(27);"-";CHR$(1); : GOTO 160
1700 IF A$="8" GOSUB 2170 : ; #1 CHR$(15); : ; #1 CHR$(27);"4"; : ; #1 CHR$(27);"-";CHR$(1); : GOTO 160
1710 IF A$="9" GOSUB 2170 : ; #1 CHR$(15); : ; #1 CHR$(27);"4"; : ; #1 CHR$(27);"G"; : GOTO 160
1720 IF A$="10" GOSUB 2170 : ; #1 CHR$(15); : ; #1 CHR$(27);"G"; : GOTO 160
1730 IF A$="11" GOSUB 2170 : ; #1 CHR$(15); : ; #1 CHR$(27);"G"; : ; #1 CHR$(27);"-";CHR$(1); : ; #1 CHR$(27);"4"; : GOTO 160
1740 IF A$="12" GOSUB 2170 : ; #1 CHR$(27);"M"; : GOTO 160
1750 IF A$="13" GOSUB 2170 : ; #1 CHR$(27);"M"; : ; #1 CHR$(27);"-";CHR$(1); : GOTO 160
1760 IF A$="14" GOSUB 2170 : ; #1 CHR$(27);"M"; : ; #1 CHR$(27);"G"; : GOTO 160
1770 IF A$="15" GOSUB 2170 : ; #1 CHR$(27);"M"; : ; #1 CHR$(27);"4"; : GOTO 160
1780 IF A$="16" GOSUB 2170 : ; #1 CHR$(27);"M"; : ; #1 CHR$(27);"4"; : ; #1 CHR$(27);"G"; : GOTO 160
1790 IF A$="17" GOSUB 2170 : ; #1 CHR$(27);"M"; : ; #1 CHR$(27);"4"; : ; #1 CHR$(27);"-";CHR$(1); : GOTO 160
1800 IF A$="0" THEN 160
1810 PRINT CHR$(7) : GOTO 1610
1820 ! 
1830 ! 
1840 ! ----- Stor stil
1850 ! 
1860 ; H$
1870 ; CUR(3,0) "1 - Stor skrift"
1880 ; "2 - Stor skrift med dubbel sv{rta"
1890 ; "3 - Stor skrift med understrykning"
1900 ; "4 - Stor skrift med understrykning och dubbel sv{rta"
1910 ; "5 - Stor skrift, lutande"
1920 ; "6 - Stor skrift, lutande med understrykning"
1930 ; "7 - Stor skrift, lutande med dubbel sv{rta"
1940 ; "8 - Stor skrift, lutande med understrykning och dubbel sv{rta"
1950 ; : ; "0 - ]ter till huvudmenyn"
1960 ; CUR(20,0) STRING$(80,45)
1970 ; CUR(22,0) 'V{lj alternativ 0 - 8 '; : INPUT LINE A$ : A$=LEFT$(A$,LEN(A$)-2)
1980 ! 
1990 IF A$="1" GOSUB 2170 : ; #1 CHR$(27);"W";CHR$(1); : GOTO 160
2000 IF A$="2" GOSUB 2170 : ; #1 CHR$(27);"W";CHR$(1); : ; #1 CHR$(27);"G"; : GOTO 160
2010 IF A$="3" GOSUB 2170 : ; #1 CHR$(27);"W";CHR$(1); : ; #1 CHR$(27);"-";CHR$(1); : GOTO 160
2020 IF A$="4" GOSUB 2170 : ; #1 CHR$(27);"W";CHR$(1); : ; #1 CHR$(27);"-";CHR$(1); : ; #1 CHR$(27);"G"; : GOTO 160
2030 IF A$="5" GOSUB 2170 : ; #1 CHR$(27);"W";CHR$(1); : ; #1 CHR$(27);"4"; : GOTO 160
2040 IF A$="6" GOSUB 2170 : ; #1 CHR$(27);"W";CHR$(1); : ; #1 CHR$(27);"-";CHR$(1); : GOTO 160
2050 IF A$="7" GOSUB 2170 : ; #1 CHR$(27);"W";CHR$(1); : ; CHR$(27);"4"; : ; #1 CHR$(27);"G"; : GOTO 160
2060 IF A$="8" GOSUB 2170 : ; #1 CHR$(27);"W";CHR$(1); : ; #1 CHR$(27);"4"; : ; #1 CHR$(27);"G"; : ; #1 CHR$(27);"-";CHR$(1); : GOTO 160
2070 IF A$="0" THEN 160
2080 PRINT CHR$(7) : GOTO 1970
2090 ! 
2100 ! ----- Avsluta
2110 ! 
2120 ; H$
2130 ; CUR(20,0);
2135 CHAIN "XS0"
2140 ! 
2150 ! ----- Subrutin
2160 ! 
2170 OPEN "PR:" AS FILE 1 : PRINT #1 CHR$(27);"@"; : CLOSE 1
2180 OPEN "PR:" AS FILE 1 : RETURN 
2190 !