8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/GEOSApps/SHELLPRINTEDITOR

GEOS ConVerT | 2019-04-13 | 77KB | 2,022 lines

ShellPrintEditor&
SEQ formatted GEOS file V1.0
Star NX-10
OP V2.0 or higherass
Epson8pin
BLASTER'S CONVERTER V2.5    Z
Xetec Gold
RTC RD(E)
Shell EditV1.0
George H. Wells, Jr.
Shell Printer Driver Editor. (Will not open under GEOS 128 if DA's are present.)
                                        R
.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  )
OqD/o
XD""rD
Shell Edit
Shell Editor
p-X1@5(9
p-X1@5(9
Error I:
9)L/)
vqvrvsvtvu
u&t&s&r&q$q0
fqfrfsftfu`
f|f}f~f
z&y&x&w
P%p8)
q4X>V
 ;  /"
8# )#
A! L*0
*L{!
* X*
 L*0:
On disk:
Insert new disk
swap error
geoBasic and data file
@must be on the same disk
Pin a one drive system
geoBasic Info
?Extra ignored?RedoT
Shell EditV1.0
(LX*
 P+L.*
|L<TL
OL!SL
OL!SL
basic data  V1.0
basic
Shell EditV1.0
George H. Wells, Jr.
geoBasic
Copyright (c) 1988, Berkeley Softworks
Disk full, remove some files
Please Select Option:
new document
existing document
to deskTop
File exists, choose another.
Data file is beyond V1.0
WARNING!
This file is write protected.
Please enter new filename:
Please enter an author name
opening file
creating file
Not enough free space on
@disk for desk accessory.
running desk accessory
AQ.BQ
Please reboot your system
@using the same GEOS disk
Pthat was first used to run
`geoBasic
Cannot install geoBasic on
@this disk.  Please refer to
Pinstallation directions in
`the manual.
Cannot install geoBasic on a
@write protected disk.
Error installing geoBasic
geoBasic installed.
XLcvX`
 ;  /"
|LWgLITL]
L ]L,]L
TLJnL
LWgLITL]
L ]L,]L
TLJnL
RH K\
 )# ZT
cHL)#
cHL)#L
U E\ ?
 2UL9
<` PUL$
 PUL*
 K\ .k
 +_X`
 )#L<W
] )#
tL/#L
  H\
W K\
X ?\
; M\ Cf
  tf
L+[,=
L/Z 'Yh
 +_ /#
x K\,
X* z*
Q )#
hhL~W
W H\
    H uo 9]H
 \\ B!
[ 9]H
]  ]L
hLZT )#
 K\H #kh
 8k /#
 )# ``
[ 9]H
Ghhh /#L
6^ #k
h G]L
6^ #k
hhhhh`h
[ 9]H
L ]LZT( \\
H B!
l{VvV~^
l!jMj
SJ^@Uy
U+UIU:UXl
bX]?n5na
 Cf /#LHd
e )#LHd )#
Bf mg
BfLmg 6f
 dh vh
hL9W
[ E\h
` /#H #kh
j )#8
] io 1k oo
 ;  /"
 H\ PU E\
-n` .n
m jnp
D_Shell EditV1.0
Shell E
] )# 1k
 &cH8
 &cL,c
Lxp '
Lxp '
 K\XhhL
!<@DILPTX\`dhly
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t
X` /#
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t
X` /#
X` 6t
H prh
[ 6t
X` 6t
oLXpL
pLSqL
oLXpL
pLSqL
` /#H #kh
Public Domain Software by
   George H. Wells, Jr.
for use only with
  Shell Printer Drivers
delet
@delete
inser
@insert
@done
than 109 bytes and cannot
be edited.
Too many bytes:  The size
of the printer driver must
be less than 1600 bytes.
Too many bytes:  A message
cannot exceed 109 bytes.
Too many bytes:  The total
number of bytes in all
messages cannot exceed 256.
First select a byte to
delete.  If more than one
byte is to be deleted,
select the last one.
The number of bytes to
delete cannot be greater
than the number of bytes
to the left of the cursor.
@more
@edit
@iCW1
inc10
@iCW10
@dCW1
dec10
@dCW10
@iCD1
inc10
@iCD10
@dCD1
dec10
@dCD10
@iPP1
inc10
@iPP10
@dPP1
dec10
@dPP10
@iSP1
inc10
@iSP10
@dSP1
dec10
@dSP10
@iText
xface
@iXface
@iBoth
more bytes(s) to import the
requested routine(s).
No transfer has been made.
At least one paint color
must always be selected on
the monochrome filter. Turn
another on and try again.
You cannot turn a border
color off.  Turning another
one on will automatically
turn this one off.
enabl
@enableMono
disab
@disableMono
newfl
@newFilter
enabl
@enableMono
disab
@disableMono
dummy
@return
@redraw
Shell Editor info
@info
discard
@start
print screen
@print
@quit
general
@doGeneral
messages
@doMessages
color
@doFilters
general
@hGeneral
page width and length
@hPageSize
primary interface
@hPrimary
secondary interface
@hSecondary
importing routines
@hImporting
messages
@hMessages
graphics messages
@hGraphicsM
text messages
@hTextMess
ASCII codes
@hASCIICode
PetASCII codes
@hPetASCII
color
@hColor
paint, canvas, border
@hPaintCanv
monochrome filter
@hMonochrom
color filters
@hFilters
color codes & names
@hCodesName
`mode
`help
`help
`help
zadjMes
adjXfa>
clearW
constadjMes
adjXfa>
clearW
consta,
contFip
contIm
contOp
contRe
dBRetu
dCD10
dCW10
dPP10
dSP10
delete0
disabl
dispHe
dispWi
doBord6
doCDow
doCWid
doChar
doClrs
doEdit4
doFilt
doGene
doMess
doPrim
doSecd
drawTa*
enable
errPri
error
+getErr
getFil(
getPar
hASCII>&hClearX hCodesv*hColor
'hFilte
)hGener
 hGraph
$hImpor
#hMessa,$hMonoc
)hPageS
!hPaintZ(hPetAS
&hPrima8"hSecon
"hTextM
%iBoth
iCD10
iCW10
iPP10
iSP10
iText
iXfacef
import
initSc
initVa
inserth
loopRe
newFil~
print
    quit
$    redraw
regetF
renameZ
retGet2
retRenZ
return
saveEd
start
testNa
bord1
delnc@/
ed109'-
imMax15
in109
in256H.
inMaxu-
pant1
icon1(3
icon2
icon3
icon4
icon5Q8
icon6
dec10
delet
disab*7
enabl
inc10
inser 1
newfl
xface

 @constant

 @constants
 @start

 @initScreen

 @getFile
 @retGetFile

 @initVariables

 @clearWindows

 @rename
 @retRename

 @getParameters

 @redraw
 @contRedraw
 @redraw

 @initScreen

 @drawTab

 @regetFile
 @contRedraw

 "menu"

 @error
      mode

(mode)
 @doGeneral,           @doMessages, @doEdit, @doFilters
 @doGeneral

 mode
     mode

 @saveEd

 @clearWindow

 15,35

 "Page width:                 Page length:"

 31,62

 "(cards) (pixels)              (cards) (pixels)"
 15,75
 "Primary interface:            Secondary interface:"
 25,102
 "(decimal) (hex)             (decimal) (hex)"

 50,124

 "Import the following routines from another driver:"
 @doCWide
 @doCDown
 @doPrimary
 25,102
 "(decimal) (hex)             (decimal) (hex)"

 50,124

 "Import the following routines from another driver:"
 @doCWide
 @doCDown
 @doPrimary
 @doSecdary
 "icon1"
 @doMessages

 mode
     mode
 @doM0
   firstM
0: lastM
   extra
 @doM1

 @clearWindow
 lastM
 nMessages
              lastM
nMessages
1: extra
false
firstM
 lastM

 mN;":";
     mL
(mLTable
     mStart
mTable
(mOTable
     c


(mStart

 ",";:
       c


 "icon2"
 @more
 extra
 @doM0
   firstM
firstM
   lastM
lastM
 @doM1
 @edit

 @saveEd
                                "Enter message number to edit:",edN$
(edN$)
   edN
(edN$)
nMessages
     mode
 @doEdit
   mL
(mLTable
   dBM$
bold$
"Message number "

(edN)
" is longer "
 "ed109":              edN
 @dBReturn
   dBM$
 @clearWindow
 10,26
 "Message #";edN;
 100,40
                "There are no bytes in this message."

73, 26

 n;":";
     n

 55, n

 n;":";
     n
   message$
   mStart
mTable
(mOTable
    row
    column
    x
column
    y
 x,y,x
    char
(mStart
 char;
    message$
message$
(char)
    c
 @doChars
 "icon3"
 @doChars
 0,0,0
 @key
(70,28,310,140)
(0): y
   column
   row
 column
 column
                 row
column
column
 x,y,x
(mStart
 @key,1
 0,0,319,199
 @key
 15:

(29)



99:                               a
100:

 x,y,x



 mStart
    message$
(message$,c

(message$,c

(0),

 0,0,319,199

 @insert
                                  "Number of bytes to insert:",n$
    n
    dBM$
bold$
                       "Use "
" or less. "

 "in256":
 @dBReturn
    dBM$
bold$
                       "Use "
(48959
pDFin)
" or less. "
48959
pDFin

 "inMax":
    dBM$
bold$
                        "C

 "in256":
 @dBReturn
    dBM$
bold$
                       "Use "
(48959
pDFin)
" or less. "
48959
pDFin

 "inMax":
    dBM$
bold$
                        "Use "
" or less. "

 "in109":
 @dBReturn
    dBM$
 buff,   mStart
 buff
2, mStart
 buff
4, pDFin
mStart
c
 @adjMessageL

(mStart
 @doEdit
 @delete

 "del0":
                                  "Number of bytes to delete:",n$
    n

 "delnc": c
    n
 buff,   mStart
 buff
2, mStart
 buff
4, 48959
mStart
c
 @adjMessageL
 @doEdit
 @adjMessageL
 @move
 mLTable
edN,mL
    mN
nMessages

(mOTable
mN),
(mOTable
      mN
    mTL
 47747,
(47747)
 47376,
(47376)
 47942,
(47942)
 48040,
(48040)
 @adjXfacePointers
 48042,
(48042)
 48044,
(48044)
 47395,
(47395)
 47404,
(47404)
 47407,
(47407)
    pDFin
pDFin
    pDSize
pDSize
 driver$,pDTemp,pDSize
 @done
    mode
 @doM1
 @saveEd
 driver$,pDTemp,pDSize:             edN
1: message$
 @info
 "info"

$     @quit
.
 buff  ,pDTemp
8
 buff
2,pDAdd
 @done
    mode
 @doM1
 @saveEd
 driver$,pDTemp,pDSize:             edN
1: message$
 @info
 "info"

$     @quit
.
 buff  ,pDTemp
8
 buff
2,pDAdd
B
 buff
4,pDSize
L
 @move
V
 head$,buff
 `
 buff
73,pDFin
pDOffset
j
 buff,nameAdd
t
(name$)
@~
 nameAdd
i,
(name$,i,1))


 nameAdd


a, mC2%(a)


 mC,lBuff,hBuff,0

 13,"temp",1
     @print

 @errPrint

 @error
 @errPrint
"Printer or Driver is inaccessible.",a$
    a$
 @error
 @rename
    unname$
name$
   name$
(name$,11)
".mod"
 "New Name:", rename$
(rename$)
                       name$
(rename$,15)
 @loopRename
 @testName
 name$
 @testName
 6,err
 @contOpen
    dBM$
name$
" exists. Enter another:"
 dBM$,rename$
(rename$)
                      name$
(rename$,15):
 @loopRename
 @contOpen
    dBM$
"": rename$
 @drawTab
 @retRename
 @constants
   false
0: true
    bold$
   pDAdd
30976
   pDTemp
47360
   pDOffset
pDTemp
pDAdd
    nameAdd
46756
   mC
46728
   head$
   grab$
   driver$
   buff
46776
    hBuff
(buff
    lBuff
hBuff
   w8
 mC1%(11),mC2%(8),mC3%(12),              clr(15),pos(15),filter(3),              hiOff(15),bitMask(15),                  boMask(1)

 mC1%(a)

 mC2%(a)

 mC3%(a)

 clr(a)

 pos(a)

 hiOff(a)

 bitMask(a)
 162,0      :
   ldx #0
 189,0,129  :
 l lda $8100,x
 157,184,182:
   sta buff,x
 202        :
   dex
 208,247    :
   bne l
 96         :
   rts
 133,20     :
   sta r9L
 134,21     :
   stx r9H
 132,22     :
   sty r10L
 76,237,193 :
   jmp SaveFile
 162,5      :
   ldx #5
 189,184,182:
 l lda buff,x
 149,2      :
   sta r0,x
 202
 133,20     :
   sta r9L
 134,21     :
   stx r9H
 132,22     :
   sty r10L
 76,237,193 :
   jmp SaveFile
 162,5      :
   ldx #5
 189,184,182:
 l lda buff,x
 149,2      :
   sta r0,x
 202        :
   dex
 16,248     :
   bpl l
 76,126,193 :
   jmp MoveData
 0,11,12,15,1,5,13,7,                    9,2,8,10,4,6,14,3
 0,4,9,15,12,5,13,7,                     10,8,11,1,2,6,14,3
 0,1,1,1,0,0,1,0,                        1,0,1,1,0,0,1,0
 1,8,16,128,2,32,32,128,                 2,4,1,4,16,64,64,8
 @move

a, mC3%(a)
 @initVariables
    mode
    edN
    fiNumber
 @initScreen
    screen
(35840)
 screen
 1,18,38,18
 0,0,319,199
 @clearWindow
 0,14,318,158
 0,0,319,199
 100,170
 " This area for printer driver "
 13,"temp",1
 @clearWindow
 0,0,0
 @key
 @return
    screen
(35840)
 1,15,317,157
 screen
 7,10,37,16
(screen
 1,18,38,18
 10,20,310,143
 @return:
 @getFile
    rename$
name$
 9,"ShellDriver",0
 name$
 name$
unname$
 name$
                            name$
rename$:rename$
"":
 @redraw
    rename$

a, mC1%(a)
 name$,pDTemp:
 13,"temp",1
 @getError
 driver$,5000,5000
 driver$,pDTemp,1600
 head$,buff,256
 @drawTab
 @retGetFile
 @getError
"Disk is write-p
 name$,pDTemp:
 13,"temp",1
 @getError
 driver$,5000,5000
 driver$,pDTemp,1600
 head$,buff,256
 @drawTab
 @retGetFile
 @getError
"Disk is write-protected or too full.",a$
 @regetFile
 13,"temp",1
 driver$,pDTemp
 47441,cWide
 47443,cDown
 47410,primary
 47412,secdary
 47773,clrs
 47782,white
 47959,coEnable
    cFAdd
cFTable
fiNumber

 cFAdd
i,filter(i)
    c
    mStart
 mTable

(mOTable
    mL
(mLTable

(mStart
c),
(message$,c,1))
      c
 @getParameters
    cWide
(47441)
    cDown
(47443)
    primary
(47410)
    secdary
(47412)
    coEnable
(47959)
    clrs
(47773)
    black
(clrs
      c
 @getParameters
    cWide
(47441)
    cDown
(47443)
    primary
(47410)
    secdary
(47412)
    coEnable
(47959)
    clrs
(47773)
    black
(clrs
    white
clrs
 47782, white
 black
white
                        black
 white
    clrs
 black
 white
 47773, clrs
    pDFin
(48044)
pDOffset
    pDSize
pDFin
pDTemp
    cFTable
(47657)
pDOffset
    mOTable
(47453)
pDOffset
    mLTable
(47448)
pDOffset
    mTable
(47457)
pDOffset
    nCFilters
(mOTable
cFTable)
    nMessages
mTable
mLTable
    mTL
(mOTable
nMessages

(mLTable
nMessages
 black
 cFTable,
(cFTable)
(black
 black
 cFTable
1,
(cFTable
(black
7.99)
 @mask
      filter(i)
(cFTable
 @drawTab
 0,0,319,199
    leftTab
 black
 cFTable
1,
(cFTable
(black
7.99)
 @mask
      filter(i)
(cFTable
 @drawTab
 0,0,319,199
    leftTab
 leftTab,3,318,14
 leftTab,14
 leftTab,4
 leftTab,4
 leftTab
 leftTab
 313,2
 313,2
 318,4
 318,4
 318,14
 leftTab
(name$)
4
 160,10
 " ";name$;" "
 @dispWindow
    x8
8: y8
 x8,y8,x8
w8,y8
 parm;
 @dispHexWindow
    w
w8: w8
    x8
8: y8
 x8,y8,x8
w8,y8
 "$";
    pHi
(parm
    pLo
    w8
 @iCW1
   cWide
cWide
 @doCWide
 @iCW10
   cWide
cWide
 @doCWide
 @dCW1
   cWide
cWide
 @doCWide
 @dCW10
   cWide
cWide
 @doCWide
 @doCWide
 cWide
 cWide
 cWide
 cWide
 47441,cWide
5:parm
cWide
 @dispWindow
5:parm
cWide
 @dispWindow
 @iCD1
   cDown
cDown
 @doCDown
 @iCD10
   cDown
cDown
 @doCDown
 @dCD1
   cDown
cDown
 @doCDown
 @dCD10
   cDown
cDown
 @doCDown
 @doCDown
 cDown
 cDown
 cDown
 cDown
 47443,cDown
5:parm
cDown
 @dispWindow
5:parm
cDown
   w8
 @dispWindow:w8
 @iPP1
   primary
primary
 @doPrimary
 @iPP10
   primary
primary
 @doPrimary
 @dPP1
   primary
primary
 @doPrimary
 @dPP10
   primary
primary
 @doPrimary
 @doPrimary
 primary
 primary
 primary
 primary
 47410,primary
10:parm
primary
 @dispWindow
 @dispHexWindow
 @iSP1
   secdary
secdary
 @doSecdary
 @iSP10
   secdary
secdary
 @doSecdary
 @dSP1
   secdary
secdary
 @doSecdary
 @dSP10
   secdary
secdary
 @doSecdary
 @doSecdary
 secdary
 secdary
 secdary
 secdary
 47412,secdary
 @doSecdary
 @dSP1
   secdary
secdary
 @doSecdary
 @dSP10
   secdary
secdary
 @doSecdary
 @doSecdary
 secdary
 secdary
 secdary
 secdary
 47412,secdary
10:parm
secdary
 @dispWindow
 @dispHexWindow
 @dBReturn
    dBM$
 @iText
    fText
    fXface
false
 @import
 @iXface
    fText
false
    fXface
 @import
 @iBoth
    fText
    fXface
 @import
    sAd
(48042)
 fText
(48040)
    eAd
(48042)
 fXface
(48044)
    iSI
 driver$,pDTemp,1600
 9,"ShellDriver",0
 iname$
(iname$)
 iname$,pDTemp
    iname$
 13,"temp",1
    bTA
(48040)
    oBT
(47747)
    oPT
(47376)
    oET
(47942)
    oXF
(48042)
    bXA
(48042)
    oOC
(47407)
    oSB
(47404)
    oCC
(47395)
    oPE
(48044)
    pImp
(47410)
    sImp
(47412)
    sAd
(48042)
 fText
(48040)
    eAd
(48042)
 fXface
(48044)
 grab$,sAd
pDOffset,eAd
 driver$,pDTemp
    n
pDFin
48959
    dBM$
bold$
"The current driver needs "
 "imMax":
 @dBReturn
 fXface
 @contImport
    n
(48042)
(48040)
    sAd
(48042)
pDOffset
 buff,sAd
 buff
2,sAd
 buff
4,48959

 buff
4,pDFin
 @move
 grab$,
(48040)
pDOffset
(47747),
(48040)
(47376),
(48040)
(47942),
(48040)
 @adjXfacePointers
 @contImport
    sAd
(48042)
 fText
(48040)
 grab$,sAd
pDOffset
 fText

(47747),
(48040)
oBT:
(47376),
(48040)
oPT:
(47942),
(48040)
oET:
(48042),
(48040)
(47407),
(48042)
(47404),
(48042)
(47395),
(48042)
(48044),
(48042)
    pDFin
(48044)
pDOffset
    pDSize
pDFin
pDTemp
    primary
 @doPrimary
    secdary
 @doSecdary
 driver$,pDTemp,pDSize
    edN
 0,159,319,199
 driver$,pDTemp
 @mask
    boMask(0)
    boMask(1)
    i
hiOff(pos(white))
    b
 bitMask(pos(white))
cFTable
                           cFTable
nCFilters
      boMask(0)
                               boMask(0)
      boMask(1)
                               boMask(1)
 @doFilters
 mode
    mode
 @saveEd
 @clearWindow
    back
screen
      x

 x,79,x

 x,103,x
9,112

 boMask(hiOff(i))
               bitMask(i)

 x,127,x
9,136

 clr(i)
 back
      x

 x,10,x,10

 x,13,x,13

 x,16,x,16
    x
pos(white)
53,77,x
66,90
53,101,x
66,114
53,125,x
66,138
 10,30
 nCFilters
 "There is one color filter.";
 nCFilters
 "There are "nCFilters
1" color filters.";
 150,49
 coEnable
 "The monochrome filter is disabled."
 coEnable
 "The monochrome filter is enabled."
 20,86
 "paint:"
 10,110
 "canvas:"
 13,134
 "border:";
 @doClrs
 nCFilters
 "icon4"
 nCFilters
 "icon5"
 @contFilters
 10,60,200,75
    cFAdd
cFTable
fiNumber
      filter(i)
(cFAdd
    pCount
    x16


58,94,x16
61,97

      bit
(filter(hiOff(x)
y)
 bitMask(x))

                               pCount
 pCount


77,                         x16



58,94,x16
61,97
 10,67
 fiNumber
 nCFilters
1
 "This is the monochrome filter:";
 fiNumber
 "This is color filter number "fiNumber":";
 0,0,319,199
 @newFilter
                                    "Enter filter number (0 for mono):",n$
    n
 fiNumber
 "This is color filter number "fiNumber":";
 0,0,319,199
 @newFilter
                                    "Enter filter number (0 for mono):",n$
    n
nCFilters
 fiNumber
 driver$,pDTemp,pDSize
    edN
1: message$
    fiNumber
 @contFilters
 @doClrs
 (53,77,306,138)
    x
(0): y
(x,y)
    x
3.3):y
    x16
16: y24
 @doBorder
    bit
53,y24
 pCount
 bit
 fiNumber

 "pant1":
53,y24
77,                          x16
66,y24
%;k?P
54,y24
78,                          x16
65,y24
                               pCount
pCount
    d
hiOff(x)
    b
bitMask(x)
 bit
 filter(d)
                   filter(d) ?P
54,y24
78,                          x16
65,y24
                               pCount
pCount
    d
hiOff(x)
    b
bitMask(x)
 bit
 filter(d)
                   filter(d)
 bit
 filter(d)
               filter(d)
 cFAdd
d,filter(d)
    d
hiOff(x)
    boMask
cFTable
                         cFTable
nCFilters
      boMask
boMask
    boMask(d)
boMask
 boMask
55,127,x16
64,136
 bit

 filter(hiOff(i))
                  bitMask(i)
 black
clr(i)
    clrs
black
white
 47773,clrs
 @doBorder
53,y24
77)
 "bord1":
53,125,x16
66,138
 0:
53,77,x16
66,90:
53,101,x16
66,114:             i
pos(white):white
clr(x):
 0: i16
53,125,x16
66,138
 0:
53,77,x16
66,90:
53,101,x16
66,114:             i
pos(white):white
clr(x):
 0: i16
16:
53,125,i16
66,138
 1:
55,79,i16
64,88:
55,103,i16
64,112
    clrs
black
white
 47773,clrs
 47782,white
 @enableMono
    coEnable
 47959,coEnable
 140,42,310,52
 150,49
 "The monochrome filter is enabled.";
 @disableMono
     coEnable

 47959,coEnable

 140,42,310,52
    &
0
 150,49
/:
 "The monochrome filter is disabled.";
X  @hClearWindow
b
 0,0,0
l
 @key
v
 @return


 1,15,317,157

 screen

 1,10,38,18

 10,15,317,157

 "icon6"
  @hGeneral

 @hClearWindow
 "This Edi
X  @hClearWindow
b
 0,0,0
l
 @key
v
 @return


 1,15,317,157

 screen

 1,10,38,18

 10,15,317,157

 "icon6"
  @hGeneral

 @hClearWindow
 "This Editor will allow you to make minor changes in Shell Printer"
 "Drivers which are the only type that will show up in the file"
 "selection dialog box.  It is recommended that you print each of"
 "these help screens before proceeding.  There are three help menus"
 "which apply to the three edit modes called general, message, and"
 "color.  The general mode applies to page width and length, primary"
 "and secondary interface parameters, and importing text or interface"
(^tM*!
 "routM*!
 "routines from other Shell Printer Drivers.  The message mode applies"
 "to printer code sequences and the color mode applies to adding"
 "color to a non-color Shell driver or modifying the colors of an"
 "existing Shell driver for a color printer or for grey-scale printing"
 "on a non-color printer."
 "WARNING:  Shell Printer Drivers use a second-generation"
 "specification which may not work with some applications.";
! @hPageSize
!
 @hClearWindow
 "The page width and length are used by some applications to adjust"
 "the way printouts are done but other applications assume a specific"
 "size and let the printer driver truncate the printout if it is too big"
 "to fit on the page.  For example, geoPaint assumes the size is 80"
 "by 90 cards.  (A card is an 8 by 8 pixel square the size of the"
 "coloring tool in geoPaint.)  GeoPublish and geoFile use a fixed size"
 "of 80 by 94 cards but geoWrite and geoCalH
 "by 90 cards.  (A card is an 8 by 8 pixel square the size of the"
 "coloring tool in geoPaint.)  GeoPublish and geoFile use a fixed size"
 "of 80 by 94 cards but geoWrite and geoCalc will adjust for any"
 "width between 60 and 80 cards and can handle any length up to"
 "255 cards.  Usually it is best to leave the width at the maximum of"
 "80 and let the driver make all necessary adjustments.  If you make"
 "a change in the page length you may also need to modify one of"
 "the printer messages to change the real page length."
 "Be careful when attempting to do this with Commodore"
 "compatible printers that lack a form-feed command.";
8" @hPrimary
B"
 @hClearWindow
*RzHL"
 "The pHL"
 "The primary interface parameter is most commonly used by serial"
 "bus routines as the device number which is 4 for most interfaces"
 "and Commodore compatible printers.  However, many have a DIP"
 "switch to allow you to change the device number from 4 to 5"
 "which you would do for a second printer connected to the serial"
 "bus.  Then for any driver designed to work for the second printer"
 "you would change its primary interface parameter from 4 to 5 and"
 "use the select printer option from the geos menu before running"
 "an application to determine which printer will be used.  Printers and"
 "interfaces can also have device numbers of 6 or 7 if they have"
 "the DIP switches to select them."
 "The geoPrint Cable routine does not use interface parameters."
 "Check with the author's documentation for other"
 "interface routines to see how to treat the parameters.";
" @hSecondary
"
 @hClearWindow
 "The geoPrint Cable routine does not use interface parameters."
 "Check with the author's documentation for other"
 "interface routines to see how to treat the parameters.";
" @hSecondary
"
 @hClearWindow
 "The secondary interface parameter is most commonly used by serial"
 "bus routines as the Secondary Address.  Commodore compatible"
 "printers use an SA of 7 but the routine requires a hex $60 to be"
 "added to the SA in order to work properly.  Use $67.  Most"
 "interfaces require an SA of 5 to put them in transparent mode so"
 "the parameter should be set to hex $65 for these."
 "Some printers and interfaces use other SA's which can be easily"
 "set with this Editor.  The manual will usually describe the SA with"
j"P#
 "a BASIC commands such as:"
 "OPEN 4,4,7"
 "The third number is the SA but remember to add a hex $60 to it"
 "before setting it in the Editor."
# @hImporting
#
 @hClear"P#
 "a BASIC commands such as:"
 "OPEN 4,4,7"
 "The third number is the SA but remember to add a hex $60 to it"
 "before setting it in the Editor."
# @hImporting
#
 @hClearWindow
 "Shell Printer Drivers are divided into four sections: the Shell itself, a"
 "graphic routine, a text routine, and an interface routine.  You can"
 "copy the text and interface routines between Shell drivers so that"
 "once you find a set that works with your printer/interface you can"
 "easily combine them with any other graphic routine that you might"
 "like to try.  This is especially useful if you normally use a serial"
 "interface and then decide to switch over to a geoPrint Cable."
 "When H
 "When you import an interface routine, its primary and secondary"
 "parameters are also automatically copied.  The major differences"
 "among text routines have to do with whether they use standard"
 "ASCII or PetASCII.  These text codes are similar except that they"
 "interchange upper and lower case characters."
,$ @hMessages
6$
 @hClearWindow
 "A message is a piece of information that is sent to a printer for"
 "the purpose of controlling the printer rather than being printed."
 "Virtually all printers use ASCII control codes or sequences beginning"
 "with an ASCII control code to encode their messages.  Messages"
 "do everything from a simple linefeed or page eject to setting the"
.!pQr$
 "font for text printing or setting the dot density for graphic printing."
 "Unfortunately, there is no standard set of messages that works with"
 "all printers but the Shell Printer Drivers are organized around a set"
 "of eighQr$
 "font for text printing or setting the dot density for graphic printing."
 "Unfortunately, there is no standard set of messages that works with"
 "all printers but the Shell Printer Drivers are organized around a set"
 "of eight messages that can be edited individually for any printer."
 "The first four of these involve graphic printing and the second four"
 "are for text printing.  Drivers can use additional messages but since"
 "there is no standard for doing this you will have to check the"
 "author's documentation if you need to modify them"
 "for a different printer.";
$ @hGraphicsM
$
 @hClearWindow
 "Message 0 is used by all Shell Drivers at the start of each page of"
 "graphics printing.  It usually includes a reset code and any additional"
 "codes such as setting the page length, linefeed distance, or margins."
 "Message 1 is used at the beginning of each scan of the print head"
 "graphics printing.  It usually includes a reset code and any additional"
 "codes such as setting the page length, linefeed distance, or margins."
 "Message 1 is used at the beginning of each scan of the print head"
 "when doing graphic printing and may include information for the"
 "number of bytes of graphic data as well as the dot density."
 "Message 2 is used at the end of each scan of the print head while"
 "printing in graphic mode.  It may include a carriage return code and"
 "a line feed."
 "Message 3 is used at the end of each page of graphics"
 "printing and often is just a form feed (page eject) code.";
% @hTextMess
%
 @hClearWindow
 "Message 4 is used at the start of each page of text printing and"
 "usually includes a reset and any additional codes required to set"
 "the number of lines per inch to six and to set the default font."
 "Message 5 is used at the end of each pJ
 "usually includes a reset and any additional codes required to set"
 "the number of lines per inch to six and to set the default font."
 "Message 5 is used at the end of each page of text printing and"
 "often is just a form feed code."
 "Message 6 is used at the end of each line of text printing and is"
 "usually a carriage return follow by a line feed for non-Commodore"
 "printers and just a carriage return for Commodore printers."
 "Message 7 is used immediately after message 4 whenever the user"
 "selects NLQ printing."
>& @hASCIICode
H&
 @hClearWindow
 "The ASCII code defines meanings for bytes with values from 0 thru"
 "127.  The first 32 values, 0 thru 31, and 127 are non-printing control"
1jy@f&
 "codes.  The ones commonly used by printers are:  7:bell"
 "8:backspace   9:tab   10:linefeed   12:formfeed  13:carriage return"
 "27:escape (used to start code sequences)"
 "The remaining@f&
 "codes.  The ones commonly used by printers are:  7:bell"
 "8:backspace   9:tab   10:linefeed   12:formfeed  13:carriage return"
 "27:escape (used to start code sequences)"
 "The remaining values are all printable characters: 32:space  33:!  34:"
 "35:#  36:$  37:% 38:&  39:'  40:(   41:)  42:*  43:+  44:,  45:-  46:."
 "47:/ 48:0  49:1  50:2  51:3   52:4  53:5   54:6  55:7  56:8  57:9  58::"
 "59:;  60:<  61:=  62:>  63:?  64:@  65:A  66:B  67:C  68:D  69:E  70:F"
 "71:G  72:H  73:I  74:J  75:K  76:L  77:M 78:N  79:O  80:P  81:Q  82:R"
 "83:S  84:T  85:U 86:V  87:W 88:X  89:Y  90:Z  91:[  92:\  93:]  94:^"
 "95:_ 96:`  97:a  98:b 99:c  100:d 101:e  102:f  103:g  104:h 105:i  106:j"
 "107J
 "107:k 108:l 109:m 110:n  111:o  112:p  113:q  114:r  115:s  116:t"
 "117:u 118:v 119:w 120:x  121:y  122:z 123:{  124:|  125:}  126:~";
& @hPetASCII
&
 @hClearWindow
 "The PetASCII code set is activated on Commodore printers and most"
 "interfaces by using a Secondary Address of 7.  It interchanges upper"
 "and lower case letters and usually does not implement any of the"
 "control codes except carriage return and linefeed.  Without formfeed"
 "the driver must count lines and output the required number at the"
 "end of the page.  The printable characters are:  32:space  33:!   34:"
 "35:#  36:$  37:% 38:&  39:'  40:(   41:)  42:*  43:+  44:,  45:-  46:."
 "47:/ 48:0  49:1  50:2  51:3   52:4  53:5   54:6  55:7  56:8  57:9  58::"
or mono):",n$
    n
#$#&"
" "$"'!
!"!&
   $ '
 "59:;  60:<  61:=  62:>  63:?  64:@  65:a  66:b  67:c  68:d  69:e  70:f"
 "71:g  72:h  73:i  74:j  75:k  76:l   77:m 78:n  79:o  80:p  81:q  82:r"
 "83:s  84:t  85:u 86:v  87:w 88:x  89:y  90:z  91:[  92:\  93:]  94:^"
 "95:_  96:` 97:A 98:B  99:C 100:D  101:E  102:F 103:G  104:H 105:I  106:J"
 "107:K 108:L 109:M 110:N 111:O 112:P  113:Q  114:R  115:S  116:T"
 "117:U  118:V 119:W 120:X 121:Y 122:Z  123:{  124:|  125:}  126:~";
' @hColor
 @hClearWindow
 "In order to print using color, you must use a color driver and you"
 "must be printing from an application that uses color.  The only"
 "GEOS program supplied by Berkeley Softworks that prints in color"
 "is geoPaint, and then only when it is turned on or when printing"
 "from the deskTop.  The easiest way to turn color on is by clicking"
 "on the COLOR icon.  Shell Printer Drivers all have the ability to print"
 "a single set of colors by enabling the monochroK
 "from the deskTop.  The easiest way to turn color on is by clicking"
 "on the COLOR icon.  Shell Printer Drivers all have the ability to print"
 "a single set of colors by enabling the monochrome filter with this"
 "Editor.  In addition, those that are designed for color printers will"
 "have several more sets of color filters which can also be edited."
 "The default canvas color in geoPaint is light grey which means that"
 "you will have to manually color an entire document white if you"
 "want light grey to be a printable color.  You must also be careful"
 "not to double-click on the eraser when color is turned on"
 "or the canvas color will be changed back to light grey.";
Z( @hPa
Z( @hPaintCanv
d(
 @hClearWindow
 "GeoPaint provides for 16 colors which appear in the toolbox when"
 "you click on the COLOR icon.  One of these must be selected as"
 "the border color which will never print and is removed from the"
 "filters in the Editor.  If you wish to change the border color you"
 "must first turn off that color in all of the paint and canvas filters."
 "Whenever the driver prints in color, it uses one of the filter sets"
 "and prints anything on the document whose colors are selected in"
 "that filter set.  For monochrome printing, the entire document will"
 "print using that one set but for color printers, the sets are changed"
 "according to the design of the programmer.  Normally any paint"
 "color that is selected would also have the canvas color selected"
 "but it is possible to design a driver for which they are different."
 "Since paint and canvas colors appear the same when"
 "color is tuI
 "color that is selected would also have the canvas color selected"
 "but it is possible to design a driver for which they are different."
 "Since paint and canvas colors appear the same when"
 "color is turned on, turn color off to distinguish them.";
) @hMonochrom
 @hClearWindow
 "The purpose of the monochrome filter is to provide color printing"
 "for non-color printers with the use of solid color ribbons which"
 "are readily available for most printers.  You will need to print a"
 "colored geoPaint document several times, each with a different"
 "colored ribbon and a corresponding driver which you edit to select"
 "the colors appropriate to each of your ribbons.  The hardest part"
7^uN^)
 "about doing multiple printing like this is aligning the paper so that"
 "it starts at exactly the same place each time.  If your printer has"
 "tractors that pull the paper after it has been printed, you can do"
 "this fairlN^)
 "about doing multiple printing like this is aligning the paper so that"
 "it starts at exactly the same place each time.  If your printer has"
 "tractors that pull the paper after it has been printed, you can do"
 "this fairly easily by taking two sheets of fanfold paper and installing"
 "them in your printer ready to print at the top of the second sheet."
 "Mark on the first sheet the location of the tractors so that you will"
 "be able to re-install it the same way on subsequent"
 "passes.";
) @hFilters
 @hClearWindow
 "The additional color filters beyond the monochrome filter appear"
 "only if the programmer of the original driver has provided them."
 "You cannot change the number of filters any given driver has.  The"
 "programmer can use these filters in a wide variety of ways but"
 "usually they will be grouped according to color intensity.  A very"
 "useful type of driver would be one that printed onG
 "programmer can use these filters in a wide variety of ways but"
 "usually they will be grouped according to color intensity.  A very"
 "useful type of driver would be one that printed only the five levels"
 "of grey including black and white.  This driver would operate the"
 "printer at twice or three times normal density and make two or"
 "three passes.  This would expand each pixel into four, six, or"
 "nine dots.  Black would then be printed using the maximum number"
 "of dots and the greys would print using proportionately smaller"
 "numbers.  If a driver like this is available for your non-color"
 "printer, then you can make additional drivers sensitive"
 "to the colors on the ribbons you have.";
v* @hCodesName
 @hClearWindow
 "The color codes and names are shown in the table below.  They"
 "are grouped in this editor in the same order they appear on"
 "the color bars in geo
v* @hCodesName
 @hClearWindow
 "The color codes and names are shown in the table below.  They"
 "are grouped in this editor in the same order they appear on"
 "the color bars in geoPaint."
 "    0 - Black"
180)"9 - Brown"
 "    11 - Dark Grey"
180)"2 - Red"
 "    12 - Medium Grey"
180)"8 - Orange"
 "    15 - Light Grey"
180)"10 - Light Red"
 "    1  - White"
180)"4 - Purple"
 "    5 - Green"
180)"6 - Blue"
 "    13 - Light Green"
180)"14 - Light Blue"
 "    7 - Yellow"
180)"3 - Cyan"
+ @error
 +
 6,err
V*+
"Saving current driver to disk.",a$:
 @quit
 @error