CBM Funet Archive

home *** CD-ROM | disk | FTP | other *** search

/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / util / printing / ShellPrintEditor.cvt (.txt) < prev next >

Wrap

GEOS ConVerT | 1998-01-17 | 75.4 KB | 1,773 lines

sHELLpRINTeDITOR prg FORMATTED geos FILE v1.0 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{$60} F{$7c}F{$7d}F{$7e}F Z&Y&X&W p%P8) Q4x>v ; /" 8# )# a! l*0 *l{$7b}! * 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.* 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 {$60}GEObASIC cANNOT INSTALL GEObASIC ON @THIS DISK. pLEASE REFER TO pINSTALLATION DIRECTIONS IN {$60}THE MANUAL. cANNOT INSTALL GEObASIC ON A @WRITE PROTECTED DISK. eRROR INSTALLING GEObASIC GEObASIC INSTALLED. xlCVx{$60} ; /" lwGlitl] l ]l,]l tljNl rh k\ )# zt Chl)# Chl)#l u e\ ? 2ul9 <{$60} pul$ pul* k\ .K +_x{$60} )#l<w ] )# Tl/#l h\ w k\ x ?\ ; m\ cF TF l+[,= l/z 'yH +_ /# X k\, x* Z* q )# HHl{$7e}w w h\ h UO 9]h \\ b! [ 9]h ] ]l Hlzt )# k\h #KH 8K /# )# {$60}{$60} [ 9]h gHHH /#l 6^ #K H g]l 6^ #K HHHHH{$60}H [ 9]h l ]lzt( \\ h b! L{$7b}vVv{$7e}^ L!JmJ sj^@uY u+uiu:uxL Bx]?N5NA cF /#lhD E )#lhD )# bF MG bFlMG 6F DH VH Hl9w [ e\H {$60} /#h #KH J )#8 ] IO 1K OO ; /" h\ pu e\ -N{$60} .N M JNP d_sHELL eDITv1.0 sHELL e ] )# 1K &Ch8 &Cl,C lXP ' k\xHHl !<@dilptx\{$60}DHLY QltPl QlfPl(TlNTl{$60}TlFSl6Tl Pl{$7c}T x{$60} /# x{$60} 6T h PRH [ 6T x{$60} 6T OlxPl PlsQl 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 {$60}MODE {$60}HELP {$60}HELP {$60}HELP ADJmES 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{$7e} 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 @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 @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$ "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 b BUFF 4,PdsIZE l @MOVE v HEAD$,BUFF {$60} BUFF 73,PdfIN PdoFFSET J BUFF,NAMEaDD T (NAME$) @{$7e} 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 : 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-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 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 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 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 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 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 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 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" "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 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 "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 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" "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 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" "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" "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 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" "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:{$60} 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:{$7b} 124:{$7c} 125:{$7d} 126:{$7e}"; & @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::" "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:{$60} 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:{$7b} 124:{$7c} 125:{$7d} 126:{$7e}"; ' @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 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( @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 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" "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 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 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