’ż  PRINTER2 SOURCE: CREATIVE COMPUTING [MAY 1982] page 194q PROGRAM TO DEAL WITH THE IBM 80 CPS PRINTER (EPSON MX80)– FUNCTIONS: SETUP PRINTER MODESŌ( PRINT PAGINATED LISTED LISTING OF TEXT FILES’2 ISSUE CONTROLS TO PRINTER 7 EDITED BY DAVID C. REUSSOW=< AUTHOR: Will FastieZF CREATED: 12 DEC 1981|P EDITED: 26 JAN 1982 2355™Z SOURCE: PRINTER.BASŚd NOTE: OPERATES ON CURRENT DISPLAY DEVICE, CURRENT MODEńn ***** CONSTANTSxPROG$ ē "PRINTER V1.01 26 JAN 1982"+‚ESC$ē’–()WŒCLRLPT$ē’–()é’–()éESC$é"F"éESC$é"H"e–PWIDTHēM}  ***** INITAL MENU‘ŖÉ Ż: Ą: Č ,, “‘ PROG$: ‘Ę¾‘ "THE PRINTER MUST BE ONLINE TO"ęȑ "PREFORM THESE FUNTIONS."ģŅ‘ܑ "FUNCTIONS:";#ę‘ Ī );"P - PRINT A TEXT FILE"Bš‘ Ī );"S - SETUP PRINTER"aś‘ Ī );"R - RESET PRINTER"‡‘ Ī );"T - ADVANCE PAPER TO TOP"­‘ Ī );"Q - QUIT (RETURN TO DOS)"Ģ‘ Ī );"X - EXIT TO BASIC"Ż"MENSEL ē Ūéö,PLOC ē MENSEL:  ö*6… " ENTER FUNCTION: ",X$: ‹ X$ē"" Ķ Å: ‰ ,4@ ŗ_JX ē Ų("PSRTQX",X$): ‹ X ē  Ķ Å: ‰ ,†T• X  h, , 8, `, ~, œ^‰  “h ***** PRINT PAGINATED LISTINGŗrĄÉ|‘ PROG$: ‘ł†‘ "ADJUST THE PAPER IN THE PRINTER SO THAT"'‘ "THE PERFORATION IS AT THE PAPER BAIL."Gš‘ "PUT THE PRINTER ONLINE."M¤‘©‘ "*****************************************"±®‘ "* FILES MUST BE ASCII TEXT FILES *"ć³‘ "* NOTE: SAVE`FILE NAME',A *"ø‘ "*****************************************"½‘EĀ‘ "NO FILENAME EXTENSION IS ASSUMED,"lĢ‘ "SO ENTER THE FILENAME EXACTLY."™Ö‘ "DEPRESS ENTER KEY TO RETURN TO MENU."Āą‘ "PRESS ESC KEY TO ABORT PRINTING."Čź‘åō… "FILE TO PRINT : ",X$śž‹ ’’(X$) ē  Ķ Ž ŗ  "LPT1:",PWIDTH,ŗ X$ ‚ … AS #;&PAGENR ē J0LINENR ē ]:‹ ’£ () Ķ ŠlD° … #, L$…N‹ LINENR ē  Ķ  ²ŽX L$£b‹ Ž ē ESC$ Ķ ŠĢlLINENR ē LINENR é ’…((’’(L$)éO)ģP)ėv‹ LINENR ę 6 Ķ LINENR ē õ€‰ :Š CLOSE FILE AND RETURN”»!ž `+؉ ōX² ***** SUBROUTINE TO PRINT PAGE HEADINGv¼‹ PAGENR čę  Ķ  ’–( );ŽĘPAGENR ē PAGENR é —Š: ³Ś ’–();X$;" ";’–();éä "-- PRINTED ON ";ž;" AT ";žŽ;" -- PAGE";PAGENRņī: ųųŽ ***** SETUP PRINTER! Ą: ‘ PROG$G‘ : ‘ "PRINTER ENHANCEMENTS ARE:"M ‘j*‘ " DW - DOUBLE WIDTH"Œ4‘ " C - COMPRESSED PRINT "®>‘ " E - EMPHASIZED PRINT "ĢH‘ " DS - DOUBLE STRIKE"ŅR‘\‘ "ENTER EHANCEMENTS SEPARATED BY SPACES."f‘p‘" EXAMPLES:"z‘?„‘ " C E -ILLEGAL"hŽ‘ " -10 CPI, NORMAL"˜‘ " E -10 CPI, BOLD"ø¢‘ " DS C -16.5 CPI, DOUBLE"¾¬‘涅 " ENTER ENHANCEMENTS: ",O$ūĄX$ēO$:  ŗ: O$ēX$ Ź CLRLPT$;'Ō‹ Ų(O$,"DW") Ķ  ’–();DŽ‹ Ų(O$,"C") Ķ  ’–();bč‹ Ų(O$,"E") Ķ  ESC$;"E";€ņ‹ Ų(O$,"DS")Ķ  ESC$;"G";†ü‘‘PLOCēŪ› öĒ… "ENTER DESIRED LINE WIDTH: ",PWIDTHģ$‹  ę PWIDTH ļ PWIDTH ę „ Ķ ņ.Ž8 ***** RESET PRINTER TO DEFAULTS'B CLRLPT$;6LPWIDTH ēP<VŽ]` ***** FORM FEED TO PRINTERkj ’–( );qtŽ‹~ ***** RETUNR TO DOS‘ˆĄ˜’žƒ²œ ***** EXIT TO BASICø¦Ą¾°ńŗ ***** SUBROUTINE TO UPPERFY A STRING (IN X$)Ä‚ X ē  Ģ ’’(X$)Ī XC$ ē ’ƒ(X$,X,)YŲ‹ "a" čē XC$ ī XC$ čē "z" Ķ ’ƒ(X$,X,) ē ’–(’•(XC$)ź )aāƒ XgģŽ©ö ***** SUBROUTINE TO POSITION AT SPECIFIED LINE AND CLEAR IT¶Ź PLOC,Ē ‘ Ö((," ");ŌŹ PLOC,ŚŽ ( ***** SUBROUTINE TO WAIT FOR ANY KEYSTROKE2 2‘ "DEPRESS ANY KEY TO COTINUE...";< < PB FŽt P ***** SUBROUTINE TO GET A KEYSTROKE INTO X$ ZX$ ē Ž“ d‹ X$ ē "" Ķ Z™ nŽ