home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 11
/
Freelog011.iso
/
Bas
/
Divers
/
Banque
/
DESKJET.BAS
< prev
next >
Wrap
BASIC Source File
|
1999-12-20
|
619b
|
11 lines
portrait$ = CHR$(27) + CHR$(38) + CHR$(108) + CHR$(48) + CHR$(79)
tabcar850$ = CHR$(27) + CHR$(40) + CHR$(49) + CHR$(50) + CHR$(85)
ejection$ = CHR$(27) + CHR$(38) + CHR$(108) + CHR$(48) + CHR$(72)
reinit$ = CHR$(27) + CHR$(69)
mini$ = CHR$(27) + CHR$(38) + CHR$(107) + CHR$(50) + CHR$(83)
gra$ = CHR$(27) + CHR$(40) + CHR$(115) + CHR$(51) + CHR$(66)
maigre$ = CHR$(27) + CHR$(40) + CHR$(115) + CHR$(45) + CHR$(51) + CHR$(66)
LP = 50 'Nombre de ligne par pages
'italienne$ = CHR$(27) + CHR$(38) + CHR$(108) + CHR$(49) + CHR$(79)
'-----------------------------------------------------------------------------