IJ$$:$STSIZABCDJSRJMPEVARFUNCTOKSIZCLASXDUVALUBYTTOTASTAR 6PRINTER DRIVER MAKER@BY C.D. WELKERJP +@(@3(@ HOME MADEP(@ PRINTER DRIVERO""(@ FOR ATARI WRITERP(@ MODE IIQ(@T5(@*(@ BY c.d.welker5(@^(@ c(@ Šh0(@0(@INPUT CONTROL NUMBERr.#(@IN DECIMAL HEX.(@t (@ INPUT NUMBER u$$(@ IF PRINTER DOESN'Tv##(@ HAVE THE FUNCTIONw(@ REQUESTED|ŠӠԠɛ6-A++;,;@,;@,;@,11;@,;@,;@,;@,;@@,;@,INITIALIZE STRINGS6.>:A4,0 = NOP# 6. 67,.#67@,.' 6.67@,.'67@,. 6.6.) 6.067@,.)67@,.##67@<@,.>:@2,##67@<@,.>:@,##67@<@,.>:@,##67@<@,.>:@v,##67@<@,.>:@,&##67@<@,.>:@,+6-AA6-@0#:""****************************DNԠ̠˛Xb""****************************l A ĠϠv!!***************************&&FLAG=1:CLASS=1:REM USED AS FLAGS""FLAG CONTROLS ORDER IN WHICHTHE STRING IS SEARCHED""CLASS STRIPS OFF ESC OR ADDS "1" AFTER ESC,DOES NOTHING!6. Ӡ! A "6.Ӡ" A #6.Ӡ# A $6.Ӡ$ A 6-@$6.ԠԠ$ A #6.ĠŠ# A %6.ĠŠ% A #6.ԠŠ# A "6.ĠŠ" A 6-@  6. Š A !6. Š! A >!!***************************H! Ap!:ŠήӛR""****************************\fԠҠӛpz!!*************************** 6.6.6. A` B'g!!***************************͠Ҡ̛ ************************** A  A ƠˠԠӠϠ@37@<@,4Y)7@<@,4y= AP@$ A ##*****************************ԠӠě!!:IF CLASS=2 STRIP ESC OR +1"@ A"$ Ap A@$. A MAKE AUTORUN.SYS8B ˛L""****************************V`ԠԠӛjt""****************************~IIPOKE 752,1 DISABLES CURSOR POKE 703,4 GIVES A TEXT WINDOW AT BTM1 +@AR@1A@## @ INPUT THE PRINTER$$ @ CONTROL CHARACTERS @ FOR @  @ @ 3 NUMBERS MAX @"" @ FIRST GIVE TOTAL @ NUMBER OF  @ CHARACTERS @%% @ THEN EACH CHARACTER @ AS REQUESTED A` .* !INPUT TOTAL NUMBER OF CHARACTERS=. @A ,,(>:AS,ONLY 3 CHARACTERS PLEASE  A-@'' INPUT CONTROL CHAR NUM = (267<,.>:,< F$P7 A`- OOPS! INPUT ERROR TRY AGAIN7 AZ!!***************************dn ̠͠Ӡ®x!!***************************j +@ @; @ THE VALUES INPUTTEDL @ j @ ARE AS FOLLOWS:* @* @ BYTE 1= @:,B!@&6.7@<@,B @ BYTE 2= @:,B!@&6.7@<@,B @ BYTE 3= @:,-(&(IS THIS CORRECT (YES/NO) =*-$!!*************************** ԠӠϠ!!***************************CCSEARCH STRING A$ FROM BACK TOFRONT TO FIND THE CPY# BYTE THENADD THE CONTROL FUNCTIONS6-@6-ON FLAG GOTO 1570,1560 -,6.7<,6 6-@:,@"AA CPYJ T '6-%@ FOUND CPY^,67<,.>:Ai,%6-%@,LDA#h67<,.7@<@,r"@ AP|*67%@<%@,.*JSR=3BYTE6-%@,67<,.>:Ai,%6-%@,LDA#67<,.7@<@,"@ AP67%@<%@,.6-%@,67<,.>:Ai,%6-%@,LDA#67<,.7@<@,67%@<%@,.$ **************************!!SUBROUTINE TO READ ML TO A$ ************************** A &6-@0-@@:"D 6.>:,N67<,.X6-%@b l"v A@$*************************ŠήӠś!!***************************T +@ @8 @ INSERT A FORMATEDT @ DISK WITH DOSF @, @ PRESS F @ TO CONTINUEK @0 @ AN AUTORUN.SYS FILEK @ WILL BE MADE&6-F:B2y,&@A N +@ @0 @ MAKINGN @AUTORUN.SYS FILE9@9@@ D:AUTORUN.SYS A -@ 6.7<,*@@:,  *@4Q +@ @6 @ THE AUTORUN.SYSQ @ FILE IS MADE> @ HAVE FUN H-@A R\$f*************************pz""STRIP ESC OR ADD 1 SUBROUTIN************************* 6.++7@<@,4>:@',A"MAKE FIRST CHAR 16-%@*#67@<@,.>:@,*=$01++67@<@,.7@<@,++67@<@,.7@<@,$STRIP OFF ESC6-&@++67@<@,.7@<@, ++67@<@,.7@<@, )#67@<@,.>:A4,)NOP $))255,255,0,46,82,48,160,34,185,25,90++3,201,80,240,3,136,208,246,140,20,367))1,56,185,26,3,233,1,133,204,200,409,,185,26,3,133,205,169,0,133,206,169,638--1,133,207,160,15,177,204,145,206,136,22,,208,249,173,231,2,141,34,1,173,232,466''2,141,35,1,172,20,1,169,1,153,161((26,3,200,169,1,153,26,3,24,173,939$$7,1,105,1,141,17,1,173,8,1,394((105,0,141,18,1,56,173,34,1,233,156&&1,141,7,1,173,35,1,233,0,141,889))8,1,169,76,141,16,1,169,142,141,753''24,1,169,1,141,25,1,24,173,24,336 &&1,109,34,1,141,231,2,173,35,1,64))109,25,1,141,232,2,169,0,141,26,910&&1,141,27,1,141,24,1,141,25,1,413(++141,20,1,141,21,1,169,197,133,204,4412--169,46,133,205,173,34,1,133,206,173,714<**35,1,133,207,162,1,160,0,177,204,794F11145,206,136,208,249,230,205,230,207,202,812P))240,242,96,141,22,1,201,27,208,11,1Z''169,1,141,24,1,173,22,1,76,16,625d((1,173,24,1,201,1,240,98,173,22,559n++1,201,15,240,93,201,14,240,91,201,856x))92,208,49,173,28,1,201,1,240,21,870++169,1,141,28,1,192,27,234,234,234,13111234,234,234,234,234,234,234,234,234,234,471++234,169,0,141,28,1,192,27,234,234,73100234,234,234,234,234,234,234,234,234,234,71,,234,234,201,94,208,56,173,30,1,201,503((1,240,29,169,1,141,30,1,192,27,33411234,234,234,234,234,234,234,234,234,234,674,,234,234,234,24,144,6,240,98,240,92,220**240,92,169,0,141,30,1,192,27,234,34611234,234,234,234,234,234,234,234,234,234,686**234,234,201,91,208,9,169,1,141,36,10))1,169,0,240,57,201,93,208,7,169,155''0,141,36,1,240,48,201,32,208,3,65''76,16,1,173,36,1,201,1,208,26,804**24,173,34,1,105,212,141,20,1,169,684''0,109,35,1,141,21,1,72,173,20,257"%%1,72,169,0,240,6,173,22,1,76,17,**16,1,240,121,240,121,169,0,141,24,906))1,173,22,1,201,19,208,15,192,33,955@11234,234,234,234,234,234,234,234,234,234,295J..234,234,234,201,15,208,15,192,87,234,949T11234,234,234,234,234,234,234,234,234,234,289^,,234,234,201,28,208,32,173,26,1,201,627h''1,208,15,169,0,141,26,1,169,1,358r&&32,16,1,169,10,76,16,1,169,1,849|''141,26,1,169,1,76,16,1,201,20,501//208,15,192,33,234,234,234,234,234,234,35300234,234,234,234,234,234,234,201,17,208,4170018,192,112,234,234,234,234,234,234,234,377//234,234,234,234,234,240,24,240,37,201,289..14,208,15,192,87,234,234,234,234,234,975//234,234,234,234,234,234,234,234,76,16,939..1,192,27,234,234,234,234,234,234,234,79700234,234,234,234,234,234,192,27,234,234,88811234,234,234,234,234,234,234,234,234,234,228**234,224,2,225,2,196,46,226,2,227,612 2,0,46* 613 BYTESD:PRNTDRVR.BAS