


'31500.BAS
31500 'SELECIONA TIPOS DE IMPRESION
WIDTH "LPT1:",255:
LP(0)=32:LP(1)=8:LP(2)=64:LP(3)=16:LP(4)=1:LP(5)=0:LP(6)=4:LP(7)=4:LP(8)=5:
'PRINTER RESET
if impresora$="L" then lprint chr$(27);chr$(40);chr$(49);chr$(48);chr$(85);:
if impresora$="T" then lprint chr$(27);chr$(40);chr$(49);chr$(48);chr$(85);:
GOSUB SUBRAOFF:ESTILO$="NORMAL":GOSUB ESTILO
' impresora laser tipo de letra pc8
RETURN


SUBRAON:
REM subrayado ON
IF IMPRESORA$="I" THEN LPRINT CHR$(27);CHR$(45);CHR$(1);:RETURN:  REM subrayado ON
IF IMPRESORA$="L" THEN LPRINT CHR$(27);CHR$(38);CHR$(100);CHR$(48);CHR$(68);:RETURN
IF IMPRESORA$="T" THEN LPRINT CHR$(27);CHR$(38);CHR$(100);CHR$(48);CHR$(68);:RETURN

SUBRAOFF:
REM subrayado OFF
IF IMPRESORA$="I" THEN LPRINT CHR$(27);CHR$(45);CHR$(0);:RETURN:  REM subrayado OFF
IF IMPRESORA$="L" THEN LPRINT CHR$(27);CHR$(38);CHR$(100);CHR$(64);:RETURN
IF IMPRESORA$="T" THEN LPRINT CHR$(27);CHR$(38);CHR$(100);CHR$(64);:RETURN

31501 LPRINT CHR$(27);CHR$(120);CHR$(1);:RETURN:REM word letra
31502 LPRINT CHR$(27);CHR$(52);:RETURN:         REM italic
31505 LPRINT CHR$(27);CHR$(53);:RETURN:         REM italic off
31506 LPRINT CHR$(27);CHR$(120);CHR$(0);:RETURN:REM word letra off
31507 LPRINT CHR$(27);CHR$(119);CHR$(1);:RETURN :REM DOBLE ALTO ON
31508 LPRINT CHR$(27);CHR$(119);CHR$(0);:RETURN :REM DOBLE ALTO OFF

ESTILO:
'SELECCIONA HUECA
if impresora$="L" AND ESTILO$="HUECA"  then lprint chr$(27);chr$(40);chr$(115);chr$(51);chr$(50);CHR$(83);:RETURN
'SELECCIONA NORMAL
if impresora$="L" AND ESTILO$="NORMAL" then lprint chr$(27);chr$(40);chr$(115);chr$(48);chr$(83);:RETURN
if impresora$="T" AND ESTILO$="NORMAL" then lprint chr$(27);chr$(40);chr$(115);chr$(48);chr$(83);:RETURN
if impresora$="I" AND ESTILO$="NORMAL" then lprint chr$(27);chr$(120);chr$(0);:RETURN
'SELECCIONA ITALIC
if impresora$="L" AND ESTILO$="ITALIC" then lprint chr$(27);chr$(40);chr$(115);chr$(49);chr$(83);:RETURN
if impresora$="T" AND ESTILO$="ITALIC" then lprint chr$(27);chr$(40);chr$(115);chr$(49);chr$(83);:RETURN
IF IMPRESORA$="I" AND ESTILO$="ITALIC" THEN  LPRINT CHR$(27);CHR$(52);:RETURN:REM italic
RETURN


31510 IF IMPRESORA$="I" THEN LPRINT CHR$(27);CHR$(33);CHR$(LP(LP));:RETURN:REM ver 31521
' seleccionar TABLA DE caracteres
if lp=1 then lprint chr$(27);chr$(40);chr$(115);"8";chr$(72);:return:'GRANDE
if lp=7 then lprint chr$(27);chr$(40);chr$(115);"15";chr$(72);:return:'CHICA + O -
if lp=8 then lprint chr$(27);chr$(40);chr$(115);"21";chr$(72);:return:'MAS CHICA + O -
if lp=6 then lprint chr$(27);chr$(40);chr$(115);"12";chr$(72);:return:'CHICA + O -
lprint chr$(27);chr$(40);chr$(115);"10";chr$(72);:return:'MEDIANA



31511 LPRINT CHR$(27);CHR$(107);CHR$(0);:RETURN:REM word letra  ROMAN
31512 LPRINT CHR$(27);CHR$(107);CHR$(1);:RETURN:REM word letra  SANS SERIF

CONDENSAON:
IF IMPRESORA$="I" THEN LPRINT CHR$(27);CHR$(15);:RETURN:REM CONDENSADO ON
if impresora$="L" then lprint chr$(27);chr$(40);chr$(115);chr$(52);chr$(83);:RETURN
if impresora$="T" then lprint chr$(27);chr$(40);chr$(115);chr$(52);chr$(83);:RETURN
RETURN

CONDENSAOFF:
 IF IMPRESORA$="I" THEN LPRINT CHR$(27);CHR$(18);:RETURN:REM CONDENSADO OFF
 IF IMPRESORA$="L" THEN LP=4:GOSUB 31510
 IF IMPRESORA$="T" THEN LP=4:GOSUB 31510
RETURN

ENFAON:
IF IMPRESORA$="I" THEN LPRINT CHR$(27);CHR$(120);CHR$(1);:RETURN:REM word letra
IF IMPRESORA$="L" THEN LPRINT CHR$(27);CHR$(40);chr$(115);chr$(51);chr$(66);:enfa=1:RETURN:REM enfatizado ON
IF IMPRESORA$="T" THEN LPRINT CHR$(27);CHR$(40);chr$(115);chr$(51);chr$(66);:enfa=1:RETURN:REM enfatizado ON

ENFAOFF:
IF IMPRESORA$="I" THEN LPRINT CHR$(27);CHR$(70);CHR$(46);:RETURN:'ENFA OFF
IF IMPRESORA$="L" THEN  LPRINT CHR$(27);CHR$(40);chr$(115);chr$(48);chr$(66);:enfa=0:RETURN:REM enfatizado Off
IF IMPRESORA$="T" THEN  LPRINT CHR$(27);CHR$(40);chr$(115);chr$(48);chr$(66);:enfa=0:RETURN:REM enfatizado Off
RETURN

31517 LPRINT CHR$(27);CHR$(14);:RETURN:REM doble ancho una linea


31520 WIDTH "LPT1:",255:
IF TIMPRESORA$<>"I" THEN RETURN
fipri=11:colpri=15:fifin=13:colfin=64
cartelo$="  USE PAPEL CONTINUO Y ALISTE LA IMPRESORA"
GOSUB VENTANAG
if vine=1 then gosub ventanat:return
vine=1
31521 lprint chr$(27);chr$(64);
LPRINT CHR$(27);CHR$(67);chr$(0);CHR$(12);:REM ppcio de hoja'12
GOSUB VENTANAT
RETURN

