' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( N Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`NDXM%(MNDX,LAST):4^̦IGNORE/RESPOND TO DC1,DC3--J^֦26000:S$ESC$ı^S1$(16):S2$NUL$:ITEM17400,17500:MNDXM%(MNDX,LAST):^0DESELECT/SELECT PRINTER--^:26000:S$ESC$ı^DITEM11900,11700:MNDXM%(MNDX,LAST):^_------------AL--]26000:S$ESC$ıE]ITEM17000,17100:MNDXM%(MNDX,LAST):^]NORMAL/REVERSE LF--t]26000:S$ESC$ı]ITEM17300,17200:MNDXM%(MNDX,LAST):]hEOL=CR OR CR,LF,VT,FF,US--]r26000:S$ESC$ı^|S1$(64):S2$NUL$:ITEM17500,17400:M00:973,0:#\ؤCR/LF OR CR ONLY--9\⤰26000:S$ESC$ıx\S1$(128):S2$NUL$:ITEM17500,17400:MNDXM%(MNDX,LAST):~\;\ ";::ITEM;::BS$;:N$"":232005PaCONVERT N TO MAX-DIGIT STRING N$--lP bN$"":N0((MAX))((N)):N0āI1N0:N$N$"0":}PpbN$N$(N):PeDISPLAY MENU--Pe21000:NM%(MNDX,NSIZ):Y((VB)(VT)N(1(N8)))27QXfX0:IM%(MNDX,NXT)M%(MNDX,NXT)M%(MNDX,NSIZ)1:S$BS$(N$)ĹVX,(VX)1:CLREOL:(N$)1N$(N$,(N$)1):23200ZOr[S$BS$N$"":23200oO[S$(21)S$SP$O0\N$N$S$:S$;:23200O\N0:I1(N$):S$(N$,I,1):NN(S$"0")(S$"9")::Nī23900O\N(N$):NMINNMAXı P\]BEL$;:VX,X:CLREOLT OUTnSI$(15):SHIFT IN=n&D1$(17):DEVICE CONTROL 1]n0D3$(19):DEVICE CONTROL 3tn:CAN$(24):CANCELnDESC$(27):ESCAPEnNGS$(29):GROUP SEPARATORnXRS$(30):RECORD SEPARATORnbUS$(31):UNIT SEPARATORnlSP$(32):SPACEoNTSmIJASCII CODES --%mNUL$(0);mETX$(3):CTRL-CImBEL$(7)bmBS$(8):BACK SPACEmHT$(9):HORIZONTAL TABmLF$(10):LINE FEEDmVT$(11):VERTICAL TABmFF$(12):FORM FEEDmCR$(13):CARRIAGE RETURNnSO$(14):SHIFl~BOLDFALSE:TRUE IF BOLD PITCH SETDlULINEFALSE:UNDERLINE OFF_lUNIFALSE:UNI/BI FLAGxlLL24:DOTS/LINEFEEDlCPI2:PITCHlP11:P1(5):DOTS BETWEEN PROP-1 CHARSlTSTTL0:TS%(31):TAB STOPSmĆS$(1):S$(0)"A@":S$(1)"":EVFU CONSTAV.101A"(k@ĆEXIT$(2):I02:EXIT$(I):D$;"BLOAD DMP LOGO,ANTER TEXT: ";:"";T$:45120:9fXPRINT GRAPHICS TEST--^fb11300:N$"0256":15300:I0255tfl(PS)127ī45420fvPOUT,I::11300:fMULTI-PRINT A GRAPHICS BYTE--gƱ21000:Y3:22200:1:"ENTER CHARACTER (BYTE) TO BE PRINTED: ";:T$:T$ESC$e21000:Y3:22200:1:"ENTER CHARACTER TO BE PRINTED: ";:T$:T$ESC$ıeT$:"PRINT ";T$;" HOW MANY TIMES (1..999)? ";:MIN1:MAX999:23000:S$ESC$ıe25000:11300:15100:11300:ePRINT KEYBOARD-ENTERED TEXT--f21000:Y2:22200:1:"Ed26000:S$ESC$MNDXM%(MNDX,LAST):odITEM45100,45200,45300,45400,45500,45600:MNDXM%(MNDX,LAST):45070d,PRINT TEXT-MODE TEST--d6T$"":I33126:T$T$(I):d@11300:S$T$:(CPI7P11)11000,2000:11300:dMULTIPRINT A CHARACTER--K(MNDX,LAST):44070.cDMOVE TO DOT POSITION--wcNS$"MOVE TO DOT POSITION (0..999) ":MIN0:MAX999:29000:S$ESC$ıcX15400:cȯcү------------------------------cܯc毲PRINT TEXT, GRAPHICScc------------------------------c'RS--bZ21000:29999:b૲Bbꫲ------------------------------HbabPOSITION PRINT HEADgbb------------------------------bb&26000:S$ESC$MNDXM%(MNDX,LAST):b0ITEM44100,10900,13200,10800,11300,11200,11100,11000c:MNDXM%H ZERO--a26000:S$ESC$ı[aS1$NUL$:S2$(1):ITEM17500,17400:MNDXM%(MNDX,LAST):{a쩲CHANGE NATIONAL CHAR SET--a26000:S$ESC$ıaITEMITEM(ITEM2):S1$(7ITEM):S2$NUL$:17500:S1$(ITEM):17400:MNDXM%(MNDX,LAST):bPDOWNLOAD CHA0:S$ESC$ı7`pITEM16100,16000:MNDXM%(MNDX,LAST):X`CLEAR/SET DBL WIDTH CHARS--n`ʨ26000:S$ESC$ı`ԨITEM11500,11400:MNDXM%(MNDX,LAST):`$CLEAR/SET BOLD PRINT--`.26000:S$ESC$ı`8ITEM16300,16200:MNDXM%(MNDX,LAST):aSLAS------------------_ 5_MODIFY CHARACTER-ISTICS;_ __*------------------------------e_4_>26000:S$ESC$MNDXM%(MNDX,LAST):_HITEM43100,43200,43300,43400,43500,43600_RMNDXM%(MNDX,LAST):43070_\STOP/START UNDERLINE-- `f2600G (|dHd|D@@ G@08@@G@<~~?~<8@~?``` G 8 NTIL IT IS POWERRED OFF OR MODIFIED BY FURTHER SOFTWARE CONTROL.R%{------------------------------{HTHIS PROGRAM PROVIDES AN INTRODUCTION TO THE APPLE DOT MATRIX PRINTER'S SOFTWARE COMMAND SET.{IT CAN ALSO BE USED TO SET THE PRINTER REMOTELY TO A DESIRED STATE.@|THE DMP REMAINS IN ITS DESIGNATED STATE UC.FONT"zvʃ 37+zʃ"SINGLE-SIZE, NORMAL"Gzʃ"SINGLE-SIZE, INVERSE"bzʃ"DOUBLE-SIZE, NORMAL"~zʃ"DOUBLE-SIZE, INVERSE"zʃ"#"z`z------------------------------z(z APPLE DOT MATRIX EXERCISERz BY ROSA MANZANA 9/1/82{TDTH" yɃ20'yɃ"DESELECT BOLD PRINT"@yɃ"SELECT BOLD PRINT"HyɃ21ayɃ"DO NOT SLASH ZERO"syɃ"SLASH ZERO"{yʃ22yʃ"USA"yʃ"ITALY"y&ʃ"BRITAIN"y0ʃ"GERMANY"y:ʃ"SWEDEN"yDʃ"FRANCE"yNʃ"SPAIN"yXʃ23ybʃ"ROMAN.FONT"zlʃ"GOTHI,FF,US"xTɃ163x^Ƀ"IGNORE SELECT/DESELECT CODES"MxhɃ"RESPOND TO DC1/DC3"UxrɃ17mx|Ƀ"DESELECT PRINTER"xɃ"SELECT PRINTER"xɃ18xɃ"DESELECT UNDERLINE"xɃ"UNDERLINE CHARACTERS"xɃ19xɃ"DESELECT DBL WIDTH CHARS"yɃ"SELECT DOUBLE WIL DATA BUFFER ONLY"6wȃ"PRINT LINEFEED AFTER BUFFER">wȃ13\wɃ"PRINT UNIDIRECTIONALLY"ywɃ"PRINT BIDIRECTIONALLY"wɃ14w"Ƀ"SELECT NORMAL LINEFEED"w,Ƀ"SELECT REVERSE LINEFEED"w6Ƀ15w@Ƀ"CR IS ONLY 'PRINT' COMMAND"xJɃ"PRINT ON CR,LF,VTRTICAL TAB(S)"vxȃ9,vȃ"SET LEFT MARGIN"Bvȃ"SET TOP MARGIN"[vȃ"SET BOTTOM MARGIN"cvȃ10vȃ"SELECT 7-BIT DATA BYTE"vȃ"SELECT 8-BIT DATA BYTE"vȃ11vȃ"PRINT CARRIAGE RETURN ONLY"vȃ"PRINT LINEFEED AFTER CR"vȃ12wȃ"PRINT FULCPI" u ȃ"144 DPI PROPORTIONAL"s.ǃ4cs8ǃ"MOVE TO ABSOLUTE DOT POSITION"ysBǃ"HORIZONTAL TAB"sLǃ"SPACE"sVǃ"BACKSPACE"s`ǃ"CARRIAGE RETURN"sjǃ"FORM FEED"stǃ"VERTICAL TAB"s~ǃ"LINE FEED"sǃ5tǃ"PRINT CHARACTEMAL/REVERSE LINE FEED"7rƃ"EOL: CR OR CR,LF,FF,VT,US"Zrƃ"IGNORE/RESPOND TO SEL CODES"zrƃ "DESELECT/SELECT PRINTER"rƃ3rƃ"START/STOP UNDERLINE"rƃ"SET/CLEAR ELONGATED CHARACTERS"rǃ"SELECT/DESELECT BOLD PRINT"rǃ"SLASH ZERO"sǃ"CHqfƃ"ADJUST CHARACTER SPACING">qpƃ"ADJUST LINE FEED LENGTH"Sqzƃ"ADJUST TAB(S)"kqƃ"ADJUST MARGIN(S)"rqƃ2qƃ "SELECT 7-/8-BIT DATA BYTES"qƃ"CR/LF OR CR ONLY"qƃ"LF WITH DATA BUFFER FULL"qƃ "SWITCH UNI/BIDIRECTIONAL"rƃ"SELECT NOR)0M%(M%(I,LAST),NSIZ)IM%(M%(I,LAST),NXT)1:pƫ50670Mp ƲMENU ITEMS --_pƃ "MAIN MENU"fp ƃ0p*ƃ"ADJUST SPACING, MARGINSp4ƃ"SET PRINTER ENVIRONMENT"p>ƃ"MODIFY CHARACTER SET"pHƃ"POSITION PRINT HEAD"pRƃ"PRINT TEXT OR GRAPHICS"p\ƃ1ŲoŲ MENU SELECTIONS --]oMT120:M$(MT),M%(MT,3):LAST0:NXT1:NSIZ2:DFLT3:N1:I1oII1:M$(I):M%(I,LAST)N:M%(I,DFLT)1:M$(I)"#"II1:M%(M%(I,LAST),NSIZ)IM%(M%(I,LAST),NXT)1:/pŭ((M$(I))3)N(M$(I)):M%(N,NXT)I:II1:M%(I,LAST a true communication link has been set up between the computer and the"Z" printer.":" CONGRATULATIONS on correctly hooking up all the pieces!!!"(12)0: RETURN TO THE CONSOLE:150P$" YOU'VE JUST GOTTEN YOUR FIRS37);"D O T"#34);"M A T R I X"=33);"P R I N T E R"" *******************************************************************************"::" If this message is coming out on the printer, then everything is in order"H" and CHECK LIST":" ----- ----":10207Z255dS:(9);"80N": THIS TRANSFERS CONTROL TO THE PRINTER AND GIVES 80 COLUMNSn" *******************************************************************************"x35);"A P P L E" G @*T@  E$$@"D $DB$A$|G @D@0~~>|?><8@|?GT * G@  `x~~x> 0Os~@>~G@G |@GTT@ *T T| GD@(@D@pG @ A2""B@ G0~~~~<8@~pGpp G   pxx~ 0Os@~~ ?pGp@G @ G|  G@xG  0 )xqx!p@ G (@T@@0~~<8@pGxp<|||<8@|``` G@88~ 8Os@~ xGpp||xOs|@|<@G @@ G|  GTT@"@TT@M THE MAIN PASCAL COMMAND LINE":6020S) P$" YOU WOULD SIMPLY ENTER 'F' TO":6020{) P$" RUN THE PASCAL 'FILER.'":6020) )" I1500:I), P$" THEN, ENTER 'T' FOR FILE TRANSFER":6020)6 )@ 255::" PRESS ANY KEY TO CONTINUE ";*J A$:A$6150:2690( -( APPLE PASCAL LISTINGS6( 150<( k( P$" PROGRAM LISTINGS FROM PASCAL":6020s( :( I11000:I( P$" GETTING PASCAL TEXT FILE LISTINGS":6020( P$" IS REALLY QUITE EASY.":6020( ( I11500:I%) P$" FRO6020:e'Z ::P$" THE INVERSE LETTER I REPRESENTS":6020:P$" A CONTROL-I, AND TO GET IT YOU":6020'd P$" SHOULD HOLD DOWN THE CONTROL KEY":6020:P$" AND PRESS THE 'I' KEY":6020'n :'x 255:" PRESS ANY KEY TO CONTINUE . . . "; ( A$:A$"P"F THE PRINTER UNTIL":6020J&< P$" WE TYPE IN A SPECIAL COMMAND ":6020:&F 8);:30:"PRINT";(34);::"I";::"80N";(34):150::P$" THIS TURNS OFF THE SCREEN AND ALSO":6020:P$" ALLOWS THE PRINTER TO PRINT A":6020'P P$" FULL 80 COLUMN WIDTH":THE SCREEN":6020B% P$" AT THE SAME THAT IT WAS PRINTING":6020% P$" ON THE PRINTER. LET'S SEE WHY.":6020::" PRESS ANY KEY TO CONTINUE . . . ";% A$:A$"P"İ6150:2590%( &2 :P$" THE APPLE ][ SCREEN IS 'TIED' TO":6020:P$" THE OUTPUT O\$ 255:S:" 10 FOR I = 1 TO 10":" 20 PRINT I,I*I,I+I":" 30 NEXT I":" 40 END"::0$ 255:" PRESS ANY KEY TO CONTINUE . . . ";$ A$:A$"P"İ6150:2530$ ::150$ P$" YOU SHOULD NOTICE THAT THE ":6020% P$" PROGRAM WAS LISTED ON ":6020"# P$" ENTER ":6020:30T# 10);:P$"PR#1":6020:10);:P$"LIST":6020]# 150# :P$" AND THE LISTING WILL GO TO THE":6020:P$" PRINTER. WATCH...":6020# :" PRESS ANY KEY TO CONTINUE ";# A$:A$"P"İ6150:2490$ I1300:I:TO CONTINUE . . . ";0" A$:A$"P"İ6150:23306"$ ?". 150h"8 P$" HERE'S A SHORT PROGRAM -":6020n"B w"L 255"V " 10 FOR I = 1 TO 10""` " 20 PRINT I,I*I,I+I""j " 30 NEXT I":" 40 END""t #~ 150:P$" TO LIST IT ON THE PRINTER WE 60201!P$" INTERFACE CARD IS INSTALLED":60207!G!I1600:Ix!P$" IN OUR CASE, THE PRINTER CARD IS":6020!P$" LOCATED IN SLOT '1' SO WE WOULD":6020!P$" ENTER ":6020!20:10);:P$"PR#1"::6020:255! " " PRESS ANY KEY ER YOU'VE":60206 P$" DONE IT ONCE OR TWICE":6020H :I1600:Iw P$" THE MAIN THING TO REMEMBER IS ":6020 P$" FOR OUTPUT TO GO TO A PARTICULAR":6020 P$" DEVICE, YOU MUST PASS CONTROL TO":6020!P$" THE COMPUTER SLOT WHERE THE": PLEASE CHOOSE (1,2,3,4)..";:*A$:A$"P"İ6150:2090X4((A$)1)((A$)4)2090g>(A$)4ıH(A$)2140,2710,3210R1920\ USING APPLE ][ BASICf:150pP$" PRINTING APPLE ][ BASIC PROGRAMS":6020 zP$" IS REALLY A SNAP AFTGRAMS AND FILES255$*0O" LISTING A PROGRAM IN -"Uu" 1. APPLE ][ BASIC"{" 2. APPLE PASCAL" 3. APPLE BUSINESS BASIC" " 4. RETURN TO MAIN MENU" " " 3. EXIT FROM THIS PROGRAM"$:MD" PLEASE CHOOSE (1,2, OR 3)...";iNA$:A$"P"İ6150:1870X((A$)1)((A$)3)1870b(A$)3ī5680l(A$)1920,3680v1740 SUBROUTINE EXPLAINING HOW TO USE THE PRINTER FOR LISTINGS OF PROCONTINUE . . . ";-A$:A$"P"İ6150:173039B255S18);"MENU"g:" OPTIONS -"o:" 1. HOW TO USE THE PRINTER TO LIST":" PROGRAMS"" 2. WHAT ARE PRINTER CONTROL CODES":" AND HOW ARE THEY USED"&0rP$" THE PRINTER, WE WILL BE ABLE TO":6020^|P$" START USING THE PRINTER AND ITS":6020P$" DIFFERENT FEATURES":6020P$" MAKE SURE THAT YOU HAVE PLENTY":6020P$" OF PAPER FOR THE PRINTER..":6020" PRESS ANY KEY TO T":60205P$" PRINTOUT ON YOUR NEW PRINTER":6020;D"255l," PRESS ANY KEY TO CONTINUE . . ";6A$:A$"P"İ6150:1590@150JT4^P$" NOW THAT WE'VE ESTABLISHED A FIRM":6020hP$" LINK BETWEEN THE COMPUTER AND":6020.GE GENERALLY HAS A":6020J9@P$" DIFFERENT WAY OF SENDING CONTROL":6020f9JP$" CHARACTERS.":6020y9T:I11000:I9^P$" APPLE ][ APPLESOFT BASIC AND":60209hP$" APPLE /// BUSINESS BASIC USE THE":6020 :rP$" 'CHR$(X)' COMMAND WHERE 'X' AIN MENU":::" PLEASE SELECT (1,2, OR 3)...";M8A$:A$"P"İ6150:4060k8((A$)1)((A$))34060~8(A$)1İ41208(A$)2İ50108(A$)3ı8402081508"8,P$" COMMAND CODES FROM SOFTWARE":6020::96P$" EACH LANGUAS ANY KEY TO CONTINUE...";67A$:A$"P"İ6150:4010<7[7" COMMAND CODE MENU"7::" OPTIONS -"::" 1. USING COMMAND CODES IN":" SOFTWARE"::" 2. USING COMMAND CODES IN":" TEXT PROCESSING":18" 3. RETURN TO MdP$" CONTAINS A COMPLETE LISTING OF":6020]6nP$" OF ALL OF THE DOT MATRIX PRINTER":60206xP$" COMMAND CONTROL CODES AS WELL AS":60206P$" OTHER USEFUL INFORMATION ON YOUR":60206P$" NEW DOT MATRIX PRINTER.":60206255::7" PRES COMBINATIONS OF NON-":6020M5P$" PRINTING AND PRINTING CHARACTERS":6020l5P$" TOGETHER.:GOSUB 40000r5({522555<" PRESS ANY KEY TO CONTINUE . . . ";5FA$:A$"P"İ6150:39105P:150::5ZP$" THE OPERATORS MANUAL PACKAGE":6020,6" SENDING SPECIAL COMMAND CONTROL":6020X4P$" CODES FROM THE KEYBOARD OR THRU":6020z4P$" SOFTWARE CONTROL.":60204I11000:I44P$" CONTROL CODES ARE USUALLY NON-":60204P$" PRINTING CHARACTERS. THEY MAY":60205 P$" ALSO BE COMMAND CONTROL CODES":6020.3I11000:I83::e3P$" THE APPLE DOT MATRIX PRINTER":60203P$" HAS A NUMBER OF FEATURES BUILT IN":60203P$" SUCH AS BOLD PRINTING AND PITCH":60203P$" CHANGES WHICH CAN BE ACCESSED BY":6020(4P$WILL NOW SEND THE OUTPUT TO THE":6020K28P$" PRINTER.":6020:I1500:I2B:255:" PRESS ANY KEY TO RETURN TO":" THE MENU . . . ";2LA$:A$"P"İ6150:36602V2` EXPLANATION OF CONTROL CODES IN THE PRINTER2j1502t3~P$" PRINTER 15041 P$" ANY COMMAND WHICH WOULD RESULT":6020c1 P$" IN OUTPUT GOING TO THE CONSOLE":60201 P$" SUCH AS THE COMMANDS -":60201:I1200:I1P$" 'LIST', 'TRACE', 'PRINT', AND":60201P$" 'CATALOG'":60201$:I1200:I&2.P$" 15050p P$" AND THEN REDIRECT NORMAL CONSOLE":6020g0z P$" OUTPUT BY ENTERING THE COMMAND...":6020m0 u0 200 P$" )OUTPUT #1":60200 255:I11000:I0 0 " PRESS ANY KEY TO CONTINUE ";0 A$:A$"P"İ6150:35200 0 :1" PRESS ANY KEY TO CONTINUE ";:/ A$:A$"P"İ6150:3330D/ ::M/ 150/ :P$" TO DO THIS, WE MUST 'OPEN' A NEW":6020/* P$" FILE # FOR THE PRINTER LIKE THIS..":6020/4 /> I1200:I/H 20/R P$" )OPEN #1,.PRINTER":6020/\ 0f . ::. P$" TO LIST PROGRAMS WHICH ARE WRITTEN":6020m. P$" IN APPLE /// BUSINESS BASIC, IT IS":6020. P$" SIMPLY A MATTER OF REDIRECTING ":6020. P$" THE NORMAL CONSOLE OUTPUT TO THE":6020. P$" PRINTER.":6020:I1500:I/ :255:THAT!":6020-N I1400:I%-X 255+-b S-l " PRESS ANY KEY TO CONTINUE . . ";o-v A$:A$"P"İ6150:3190u- - USING APPLE BUSINESS BASIC- - 150- P$" LISTING PROGRAMS FROM APPLE ///":6020- P$" BUSINESS BASIC":602011:1:P$" TO WHICH YOU SHOULD RESPOND -":6020?, I1700:Ic, 20:13:20:P$"PRINTER:":6020s,& I1500:I,0 13:1:150:P$" THE FILE 'EXAMPLE.TXT' WOULD THEN":6020,: P$" BE SENT OUT TO THE PRINTER.":6020 -D P$" IT'S REALLY AS SIMPLE AS 020)+ P$" PRINTER. LIKE THIS...":6020=+ 20:I1400:I`+ 19:23:P$"EXAMPLE.TXT":6020i+ 150y+ I1700:I+ 9:1:P$" THE FILER WILL THEN PROMPT YOU -":6020:I11000:I+ + 20:2:P$"TO WHERE?":6020+ + I11000:I/, "P"İ6150:2890*T :150H*^ P$" YOU WILL THEN BE PROMPTED - ":6020U*h :19:2e*r I1500:I*| P$"TRANSFER WHAT FILE?":6020:* I11000:I:5:1* P$" AND YOU SHOULD ENTER THE NAME OF":6020+ P$" THE FILE YOU WISH TO SEND TO THE":6NY KEY TO CONTINUE . . ";5IA$:A$"P"İ6150:5250@I:150tI:P$" APPLEWRITER IS ONE OF THESE WHICH":6020IP$" ALLOWS THE USE OF CONTROL CODES IN":6020IP$" THE CREATION OF TEXT.":6020II1500:IJ:P$" YOU SHOULD DEFINTELY RE2P$" ARE WRITING...":6020"H<2HFI1500:IeHPP$" IF YOU HAPPEN TO HAVE ONE OF THESE":6020HZP$" YOU WILL BE ABLE TO USE ALL OF THE":6020HdP$" DIFFERENT FEATURES OF YOUR NEW":6020HnP$" DOT MATRIX PRINTER":6020Ix255::" PRESS AOR TEXT PROCESSORS AVAILABLE":6020SGP$" FOR USE ON YOUR APPLE COMPUTER.":6020cGI1500:IiG GP$" SOME OF THEM HAVE THE CAPABILITY":6020GP$" OF 'IMBEDDING' CONTROL CHARACTERS":6020G(P$" DIRECTLY INTO THE TEXT WHICH YOU":6020HA$"P"İ6150:4990F6F SUBROUTINE TO DESCRIBEUF COMMAND CONTROL CODES INkF WORD PROCESSORSrF }F:150FP$" TEXT PROCESSING COMMAND CODES":6020F:FI1500:IFP$" THERE ARE LITERALLY DOZENS OF":6020#GP$" WORD r Package":" under the name '.PRINTER', and it should be installed with the system"E8" configuration program on the UTILITIES diskette."EB(12)EL0EV:E`255Ej" PRESS ANY KEY TO RETURN TO"Et" THE MAIN MENU . . . ";F~A$:RINTING"::(27);"N"D$::" Note: To use the DOT MATRIX PRINTER with APPLE /// SOS, the appropriate":" SOS driver MUST be configured into the system. This driver is included "WE." with the Universal Parallel Interface Card Software DriveNG";(39);");"JC" WRITELN (outfile, chr(27),";(39);"N";(39);");"YC" END."_CC" All three examples above would result in the following text being displayed";(58)C:C(27);"Q";D" THIS IS AN EXAMPLE OF CONDENSED P" VAR""B" outfile:TEXT;"2B" BEGIN"ZB" RESET (outfile,'printer:');"yB" WRITELN (outfile);"B" WRITELN (outfile,chr(27),";(39);"Q";(39);");"C" WRITELN (outfile,";(39);"THIS IS AN EXAMPLE OF CONDENSED PRINTI(34);"THIS IS AN EXAMPLE OF CONDENSED PRINTING";(34)eAR" 50 print #1;CHR$(27);";(34);"N";(34)zA\" 60 close #1Af" 70 end"Ap:Az" An example of APPLE PASCAL using the 'CHR(X)' sequence - "AA" PROGRAM condensed;"B0 PR#0"@" 110 END"#@ ::m@" An example of APPLE /// Business Basic again using 'CHR$(X)' - "s@ @*" 10 open #1,";(34);".printer";(34)@4" 20 print #1;CHR$(27);";(34);"Q";(34)@>" 30 print #1;"5AH" 40 print #1;";(34);" ";(58);" REM TURNS ON CONDENSED MODE"@?" 60 PRINT"?" 70 PRINT ";(34);"THIS IS AN EXAMPLE OF CONDENSED PRINTING";(34)?" 80 PRINT?" 90 PRINT CHR$(27);";(34);"N";(34);" ";(58);" REM TURNS ON NORMAL PRINTING"@" 10"<>" 20 REM THE OUTPUT LINE(S) FOLLOWING IN CONDENSED"g>" 30 REM MODE (17 CHARACTERS/INCH)">" 40 PR#1";(58);" PRINT CHR$(9);";(34);"80N";(34);(58);" REM TURNS ON THE PRINTER IN 80 COLUMN MODE"-?" 50 PRINT CHR$(27);";(34);"Q";SED printing mode (17 characters per inch giving a"i=l" total of 136 columns on an 8 1/2 inch page."o=vu==" An example of APPLESOFT BASIC using the 'CHR$(X)' sequence - "=>" 10 REM THIS PROGRAM WILL CAUSE THE PRINTER TO PRINT.":6020<&255<0A<:" PRESS ANY KEY TO START PRINTING ";]"U4Q21100U>Q2UHV1VR" 20 T::Юʰ NSFERS CONTROL TO THE PRINTER AND GIVES 80 COLUMNS `" *******************************************************************************"j35);"A P P L E"t37);"D O T"~34);"M A T R I X"33);"P R I N T E R"=" *******************AND THEN REBOOT":40000$H.P$" TO SEE THE PREVIOUS CHECK":40000n8P$" LIST, PRESS ":40000B" ANY OTHER KEY TO CONTINUE ";:A$:A$(27)ė:" CHECK LIST":" ----------":820L2553VS:(9);"80N": THIS TRA000P$" PRINTER. IF NOTHING HAPPENS":40000]P$" IT MEANS THAT THE SYSTEM IS":40000P$" 'HUNG UP' BECAUSE OF SOME KIND":40000P$" OF PROBLEM. YOU SHOULD CHECK ALL":40000P$" OF THE ITEMS WHICH YOU CHECKED":40000P$" BEFORE INSTALLED":40000:V116:30000$RP$" WHEN ALL OF THESE HAVE BEEN ":40000P$" CHECKED, THEN YOU MAY CERTAINLY":40000255" PRESS ANY KEY TO CONTINUE . . . ";:A$1504P$" NOW WE'LL SEND A MESSAGE TO YOUR":400" 3. PRINTER POWER CORD IS ":40000[fP$" PLUGGED INTO WALL OUTLET":40000pP$" AND PRINTER IS TURNED ON":40000:V112:30000:15zP$" 4. PRINTER IS 'SELECTED'":40000:V115:30000:16P$" 5. PAPER/RIBBON IS P$" ITEMS HAVE BEEN INSTALLED":40000B P$" CORRECTLY ":40000H*O49>P$" 1. INTERFACE CARD IN SLOT 1":40000:V19:30000:10HP$" 2. CABLE CONNECTED FROM CARD":40000RP$" TO PRINTER":40000:V110:30000:12)\P$USSED AND YOU":40000FP$" WILL BE SHOWN HOW TO USE THEM. ":40000LU255" PRESS ANY KEY TO CONTINUE . . ";:A$1504P$" BEFORE WE BEGIN, TAKE A MOMENT TO":40000 P$" MAKE CERTAIN THAT THE FOLLOWING":40000&":400008vP$" TO HELP YOU UNDERSTAND AND USE":40000iP$" THE VERY SPECIAL FEATURES WHICH":40000P$" ARE BUILT INTO YOUR NEW PRINTER.":40000I11500:IP$" MANY OF THE DIFFERENT PRINTING":40000P$" OPTIONS WILL BE DISCABLE TO SIGNIFICANTLY":40000LP$" ENHANCE THE QUALITY OF ALL OF":40000{P$" YOUR PRINTED WORK . . .":40000:(7)&:0255:" PRESS ANY KEY TO CONTINUE . . . ";:A$DN150Xb6lP$" THIS DISKETTE COURSE IS INTENDED:6 P$" YOU ARE NOW THE PROUD OWNER OF A":40000m P$" NEW APPLE DOT MATRIX PRINTER...":40000:(7){ I11500 I : P$" NOT ONLY WILL YOU BE ABLE TO LIST":40000 P$" OUT YOUR PROGRAMS, BUT YOU WILL":40000P$" ALSO BE UT AND":40000:; hP$" MENU-DRIVEN DEMO":40000:l rP$" 2. MENU-DRIVEN DEMO ONLY":40000: |" PLEASE SELECT (1 OR 2)"; A$:((A$)2(A$)1)390 :(A$)410,1400 :12:5:P$"CONGRATULATIONS!":40000  150 *":I9 ""**************************************"W ,32,1:33,36:34,2:35,21] 6 @P$" APPLE PRESENTS...":40000:: JP$" DOT MATRIX PRINTER":40000:: TP$" PLEASE SELECT -":40000:: ^P$" 1. PRINTER CHECKO PLEASE WAIT WHILE PROGRAM":" IS BEING LOADED . . ."M I13000T "IZ ,` 6z @D$;"RUN DOT DEMO,D1" J*S1 : "**************************************" I121 "* * APPLE PRESENTS... *"B " * *"j " * *" " * DOT MATRIX PRINTER *" " ***********************" :: " COPYRIGHT (C) APPLE COMPUTER - 1982"? :::" Pd THIS PROGRAM LOADS THE HI-RES GRAFIC AND THEN CHAINS TO THE MAIN PROGRAMVn\xbnD$(4)D$;"BLOAD DMP LOGO,A$4000"16297,0:16302,0:16304,0:16299,0::" ***********************" "                     BHHH$H%H$% G& 0I@ ( h%h$hhh` 8@@G @<>>><8@>```G@p     0Os@><@ pGL G  @@ 0 G@D @@ G| @ G | 8@@G @<>>><8@>xG `    0Os@><p xG| G0 xGp G@|@ G @@|~~~~|?~?~@G @<>>><8@>pG@@ x~~|?~?~~ LG@ @@x> 0Os@><p |G| G @@0 pG@ @p G   @G@OOHBHGBG|||||x~?|@G @~>>><8@>Gp||||x~?|~?||| G@~~x> 0Os~@>~G |G0G          E PAPER IN THE PRINTER AND":6020E P$" SET THE TOP OF FORM":6020KuP$" TO SEE THE PREVIOUS CHECK":6020(P$" LIST, PRESS ":60202:" ANY OTHER KEY TO CONTINUE ";<A$FA$"P"İ6150:1340.PA$(27)ė:" ":60203P$" IT MEANS THAT THE SYSTEM IS":6020bP$" 'HUNG UP' BECAUSE OF SOME KIND":6020P$" OF PROBLEM. YOU SHOULD CHECK ALL":6020P$" OF THE ITEMS WHICH YOU CHECKED":6020P$" BEFORE AND THEN REBOOT":6020!P$" PUT SOMSE HAVE BEEN ":6020DjP$" CHECKED, THEN YOU MAY CERTAINLY":6020Mt255w~" PRESS ANY KEY TO CONTINUE . . . ";A$:A$"P"İ6150:11601504P$" NOW WE'LL SEND A MESSAGE TO YOUR":6020P$" PRINTER. IF NOTHING HAPPENS PLUGGED INTO WALL OUTLET":6020e8P$" AND PRINTER IS TURNED ON":6020:V112:5900:15BP$" 4. PRINTER IS 'SELECTED'":6020:V115:5900:16LP$" 5. PAPER/RIBBON IS INSTALLED":6020:V116:5900V`P$" WHEN ALL OF THE CORRECTLY ":60209_P$" 1. INTERFACE CARD IN SLOT 1":6020:V19:5900:10P$" 2. CABLE CONNECTED FROM CARD":6020P$" TO PRINTER":6020:V110:5900:12$P$" 3. PRINTER POWER CORD IS ":6020$.P$" 020 255:" PRESS ANY KEY TO CONTINUE . . ";UA$:A$"P"İ6150:930^150dk4P$" BEFORE WE BEGIN, TAKE A MOMENT TO":6020P$" MAKE CERTAIN THAT THE FOLLOWING":6020P$" ITEMS HAVE BEEN INSTALLED":6020P$"$" THE VERY SPECIAL FEATURES WHICH":6020[HP$" ARE BUILT INTO YOUR NEW PRINTER.":6020aRr\I11500:IfP$" MANY OF THE DIFFERENT PRINTING":6020pP$" OPTIONS WILL BE DISCUSSED AND YOU":6020zP$" WILL BE SHOWN HOW TO USE THEM. ":6P$" OF ALL OF YOUR PRINTED WORK.":60200:9255c" PRESS ANY KEY TO CONTINUE . . . ";~A$:A$"P"İ6150:760 150 6*P$" THIS DISKETTE COURSE IS INTENDED":60204P$" TO HELP YOU UNDERSTAND AND USE":6020*>P OF A":6020<P$" NEW APPLE DOT MATRIX PRINTER...":6020JI11500QIY:P$" YOU WILL NOW BE ABLE TO PRINT OUT":6020P$" ALL OF YOUR PROGRAMS AND...":6020:I1700:IP$" SIGNIFICANTLY ENHANCE THE QUALITY":6020(ROM PROGRAM":6020:9 " PLEASE SELECT (1,2 OR 3) ";T &A$:A$"P"İ6150:550o 0((A$)3(A$)1)550 ::(A$)580,1680,6130 D:12:5:P$"CONGRATULATIONS!":6020 NI11000:I X b150 l: vP$" YOU ARE NOW THE PROUD OWNER PRESENTS...":6020::D P$" DOT MATRIX PRINTER":6020::l P$" PROGRAM OPTIONS -":6020:: P$" 1. PRINTER CHECKOUT":6020 P$" AND TUTORIAL":6020  P$" 2. TUTORIAL ONLY":6020: P$" 3. EXIT F|:3 "**************************************"? I121p "* *":I "**************************************" " PRESS 'P' TO PRINT SCREEN"; 32,1:33,36:34,2:35,21  P$" APPLENAL FEATURES OF "  THE PRINTERG " ******************************h , WRITTEN JULY 1982 - P.C.W. 6 COPYRIGHT (C) APPLE COMPUTER - 1982 @ ****************************** J DOT MATRIX PRINTER T IS ASSUMED IN SLOT 1 ^ h r PROGRAM IS INTENDED TO BE< AN INTRODUCTION TO THE APPLEa DOT MATRIX PRINTER. THE USER IS TAKEN THROUGH AN UNDER- STANDING OF HOW LISTINGS ARE ARE MADE IN THE SIMPLEST CASE  BUT MORE IMPORTANTLY, HOW TO  USE THE INTER.Q SOFTWARE REVISION 1.0%dS11nD$(4)IxD$;"BLOAD SCRNDMP"R255]33,40g6240 ******************************* * APPLE PRESENTS... * DOT MATRIX PRINTER * ******************************* THIS                                      PLEASE WAIT WHILE PROGRAM":" IS BEING LOADED . . ."M I13000T "IZ ,` 6z @D$;"RUN DOT DEMO,D1" J* * APPLE PRESENTS... *"B " * *"j " * *" " * DOT MATRIX PRINTER *" " ***********************" :: " COPYRIGHT (C) APPLE COMPUTER - 1982"? :::" Pd THIS PROGRAM LOADS THE HI-RES GRAFIC AND THEN CHAINS TO THE MAIN PROGRAMVn\xbnD$(4)D$;"BLOAD DMP LOGO,A$4000"16297,0:16302,0:16304,0:16299,0::" ***********************" "   ǿdOǿdOüd߿Oϰd߿Od߿OdOdOǿ@ǿdOüdOϰdOdOdOdO@ǿdOd߿OϰdOd߿OdOdO|ǿdOdOϰ| dOdO          ǿdOdOϰ@dOd׿OdO߾dOǿdOdOϰ?@dOdOdOdOǿdOÃǿdOǰdOఌdOdݿOdOdOǿdOÁǿdOødOdOdOdOdOd߿OߺݻۻdO RELOAD  (768)0Āp ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."v ,832,96: 769$ (768)1250+ O --IF THERE, LOAD INTG AND PA#1V 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T:T n804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:2:776,104:] _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205O @ 103,1@104,64%@16384,0G@((4);"RUN DMP EXERCISER PT2"M@2 R/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"AF P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,19    T)3:VB,(VB)3:(VT)1:MNUCENTER TEXT, GIVEN Y LINES W/ X CHAR WIDTH--vNTVX((VR)(VL)X)2:(VL)X(X0)1NVY((VB)(VT)Y)2:(VT)Y(Y0)1:NYGET NUMERIC INPUT--N":1000::UNIDIRECTIONAL PRINT$IBS$ENE*G>S$ESC$"Y":1000::STOP UNDERLINEUGH?S$ESC$"!":1000::SELECT BOLD PRINTG?S$ESC$(34):1000::DESELECT BOLD PRINTG@S$ESC$"+":1000::SET 8-DOT MAX CUSTOM CHAR WIDTHGt@S$ESC$"-":1000::SET 16-DOT MAX CUSTOM CHAR WIDTH1H@S$E:1000::SET HORIZONTAL TAB(S); S$=N0$+(","+N1$...)"." ; "001"<=N$<="999"FT=S$ESC$")"T$:1000::CLEAR HORIZONTAL TAB(S); S$=N0$+(","+N1$...)"." ; "001"<=N$<="999"F=S$ESC$"0":1000::CLEAR ALL HORIZ TAB(S)G>S$ESC$"X":1000::START UNDERLI"9999"RE;S$ESC$"G"N$:1000::PRINT N$ 8X1 GRAPHICS BYTES, "0001"<=N$<="9999"E(