home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib29a.dsk
/
NOVEMBER.1986
/
IWRITER.CHANGES.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
627b
|
14 lines
320 ON SE(TL) = 8 GOTO 400: ON SE(TL) GOSUB 340,340,340,340,340,340,340
370 REM
380 REM
390 REM
1830 DATA 8,CODE MENU,BOLD,UNDERLINE,COMPRESSED,EXPANDED,ELITE,PROPORTIONAL,USER CODE 0,MORE CHOICES
1860 REM IMAGEWRITER CODES
1870 PC$(1,1) = EX$ +"!":PC$(1,0) = EX$ + CHR$(34): REM BOLD
1880 PC$(2,1) = EX$ +"X":PC$(2,0) = EX$ +"Y": REM UNDERLINE
1890 PC$(3,1) = EX$ +"Q":PC$(3,0) = EX$ +"N": REM COMPRESSED
1900 PC$(4,1) = CHR$(14):PC$(4,0) = CHR$(15): REM EXPANDED
1910 PC$(5,1) = EX$ +"E":PC$(5,0) = EX$ +"N": REM ELITE
1920 PC$(6,1) = EX$ +"P":PC$(6,0) = EX$ +"N": REM PROPORTIONAL
1930 REM
1940 RETURN