L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4  eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`L8`xp8`{{x{oxp{wx{o?=o{x{=iwwwA=!ooxp{wxww8`{oxxxp{ox{wxawwx{ox{=_=w ==o=!wxww8`{ox{ aw=}iw8`{{x{o8`{wxww8`x8`{{x`8`{wx{o1#o{x{=_www_-_oox{wxpww8`{oxpx GOTO LINE #650  THE PROGRAM IS SET UP FOR A ROMPLUS CARD IN SLOT #3. GOTO LINE 1550E0: M THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. ::: SzE0ī2200bE1ī2240h690:19:(27)"E";:018:35:" "18:36::"ON":E1:690:19:(27)"F";:018:35:" ";18:35::"OFF";: *"104 "* GOOD BYE *"<10X "* *"`*10|4"********************">24HI11000:IRI115::I\f Dp::: SETUP EMPHASIZE %1590: ROMPLUS ON/1680  ::: END ::: :0:1110"********************"10"* TER OFFX210: GOTO MENUSb l ::: 66 CPL SETUP ::: v690:(15);:01810  ::: ROMPLUS SETUP ::: 703 j ::: 40 CPL SETUP ::: 770: DRAW BORDER550: INSTRUSTIONS&940:GET INPUT01520:HOW MANY?:690:PRINTER ON D1340: PRINT LARGEN730: PRINGET INPUT1520: HOW MANY?5690: PRINTER ONN1220: PRINT LABELSe730: PRINTER OFFz210: GOTO MENU  ::: 132 CPL SETUP ::: 690:(15);:016LLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅUR OWN SCHEDULE IN DATA STATEMENTS IN LINES 1000 --> 13000 FOLLOWING THE FORMAT SHOWN BY THE TEST DATA THERE. THE FIRST STATEMENT AFTER THE DATE WILL BE PRINTED ON THE CALENDAR AND MUST BE 7 SPACES WIDE."ahB"WHEN THE COMPUTER ASKS FOR THE FIRST MONTH AN"THIS PROGRAM WAS TYPED FROM THE BOOK BASIC COMPUTER PROGRAMS FOR THE HOME WRITTEN BY CHARLES D.STERNBERG.":"THE PROGRAM HAS BEEN MODIFIED TO CONTROL AN EPSON MX80 PRINTER CONNECTED TO SLOT NUMBER 1. SEE LINE NUMBERS 440,450,455,460.">"ENTER YO *** SEPTEMBER *** q' *** OCTOBER *** * *** NOVEMBER *** . *** DECEMBER *** 2 END,,,l6 *** MAY *** zp *** JUNE *** X *** JULY *** @ *** AUGUST *** 3(# Ix{@ss@go8`{wxxp{ox{{xx`8`{wxww8`{ox{L@@AAsAw8`wwx{ox{Ac|csA@wx{{xp{ox{wxawwxpx{wx{{x{ox{wx{`A{x{;=_ww?=oo8`{wxp8`{oxxxx{o8`{wxww8`{ox{=]_=o=wxpwwxp{ox{o}ow_=wx{{x{ox{wxww8`x{wxp{{x{ox{wx{?_>?{x{5]www}==oo8`{wxww8`{oxxx{oxp{wxwwxp{ox{=Q=w===o==wxww8`{ox{=o}ow=}]wxp{{x{oxp{wxwwNT"%# 8:"(PRESS 'ESC' FOR MENU) "1# ::199# K$L# (K$)271050`# (K$)133030h# NNu# " 80N";#& AA:Q$#0 1080#: AA(40(Q$)2)7#D 2940#N 0#X 150#b : @@@@@@@@@@@@@@@@@@#l : @ VERTICAL @ $v : @ PAGE C"^ TP$"E"2930"h 31301"r AA(20(Q$)2)7M"| :13:"**************"d" 13:"* TAB IS: ";m" AA;w" " *"" 13:"**************"" AA403030" :" 3:"(REMEMBER TAB 40 IS HTAB MAXIMUM)"" # :::8:"PRESS 'RETURN' TO PRI==========="9! 10:3:"DO YOU WANT TEXT CENTERED (Y/";E! :"N";W! :") ? ";TC$i! TC$"Y"2880q! NN|! " ";! "132N";! " ";!" " ";Q$!, " ";!6 1080!@ :"IS PRINT EXPANDED OR NORMAL (E/";!J :"N";!T :") ? ";TP$ X$"I"2730< Q$"THIS IS A TEST OF THE EPSON MX-80"I 6:2770b 3:15:"TEXT INPUT"x 15:"==========" 6:"TYPE TEXT (<40 SPACES FOR EXPANDED) ========================================TEXT: ";Q$ ! "=============================; :"/N) ? ";A$% A$"N"5000/ 1080H( : @@@@@@@@@@@@@@@@@a2 : @ @z< : @ TEST PRINTOUT @F : @ @P : @@@@@@@@@@@@@@@@@Z 0:d 10:5:"SAMPLE OR INPUT TEXT (";n :"S";x :"/I) ? ";X$ HR$(71)"7 "8-CANCEL (7)=ESC'H' OR CHR$(27)CHR$(72)"= f "9-LINE SPACE=ESC'A'+ N OR CHR$(27) 3:"CHR$(65)CHR$(N)"  "10-NORMAL LINE SPACE=ESC'A' OR" 4:"CHR$(27)CHR$(65)"  "DO YOU WANT TO RETURN TO MENU ("; :"Y"CANCEL (1)=CTRL'R' OR CHR$(18)"%V K` "3-EXPANDED=CTRL'N' OR CHR$(14)"sj "4-CANCEL (3)=CTRL'T' OR CHR$(20)"yt ~ "5-EMPHASIZED=ESC'E' OR CHR$(27)CHR$(69)" "6-CANCEL (5)=ESC'F' OR CHR$(27)CHR$(70)"  "7-DOUBLE=ESC'G' OR CHR$(27)C @@@@@@@@@@@@@@@@): @ PRINTER @A: @ TABLE VALUES @Y : @@@@@@@@@@@@@@@@b 0: AST$"*****************************"$ 5:AST$. 5:"* PRINTER CTRL & ESC INPUTS *"8 5:AST$:B "1-COMPRESSED=CTRL'O' OR CHR$(15)"L "2-CTRL-I' IN"8z"THE BEGINNING OF THE LINE YOU WISH TO"f"HAVE INDENTED. RETURN TAB TO ZERO (0)""TO CANCEL THE TAB.":"ENTER TAB SPACES REQUIRED ? ";TTNN" ";"132N";T$(TT)(0);" ";1080:@@@@@@@@@@@*04>>4:8:"************************"aH8:"* HORIZONTAL TAB SETUP *"R8:"************************"\:"INPUT THE NUMBER OF SPACES THAT YOU"f"REQUIRE FOR A TAB SETTING. THE TAB IS" p"ACTIVATED BY INCLUDING A 'CT LINE SPACE # ";LNN.L$(L)LA$;50?1080RL$(12)LA$;\1080CC$SC$EC$DC$L$(12)LA$;1080: @@@@@@@@@@@@@@@@@@: @ @ : @ HORIZONTAL TAB @: @ @  : @@@@@@@b"AN INCH OR 1/6 WHICH IS THE DEFALT"Pl"VALUE OR 6 LINES PER INCH (LPH)."sv:"SOME EXAMPLE NUMBERS ARE:":5:"4 (LPI) = #18 9 (LPI) = #8"5:"6 (LPI) = #12 12 (LPI) = #6"5:"8 (LPI) = #9 18 (LPI) = #4":8:"SELE: @@@@@@@@@@@@@@@@ 0:?&4:12:"****************"[012:"* LINE SPACING *"y:12:"****************":D5:"WE WILL SELECT A NUMBER WHICH IS"N"THE NUMERATOR IN 72NDS OF AN INCH. AS"X"AN EXAMPLE: THE NUMBER 12 IS 12/72 OF"( S.P. TULK OUT IN ORDER ON THE CALENDAR; IE.- *N LINE # 1230 1 - FIRST MONTH. 23 - 23 RD. DAY. 0 - FIRST ITEM D YEAR TO BE PRINTED TYPE JAN,1981 TO USE THE TEST DATA STATEMENTS. HIT RETURN TO START PROGRAM."iPFZ$q8J10+ N USE THE DATE AS YOUR LINE NUMBER AND THE ENTERIES WILL COME *E~}?|/U*U*UT** P*u]zoU*U*U*T`p"D"@@**U*Q"~+@x/}*U*"T*@*U*U*U*D*U*U*Tx"U PxDU"PzP*@ _@~p{x_EU*]*U U*u/_j"|\@*U*U U*U p|*tUjppj`_"U*U*U*U*TT*?W*Q:w.U"x8t?p/*U*U*U `*G``UT u pEh@~(U**UQ"U*U"|?A*xx@"T U* U*P}n*tT*U*E"U*p?qu/"T*U*U*u*"x/x_*P*w~W+Uz+w~jU*Uj+Ub ~ U U*T@*E *]*D P*U*U*@E*Q"DP"(Uj]:.}?U"U*`?@/x_.@*Uz un+*U*Uj]+Uw U*@ U*U*U*U U"TT*"Uh U*U*E(Uj@/x+To+U+j+U U(u?u/U~?Uje+qU*U*U*T U*U*U*UjP*U Q*]+U*+ D/x_?T~U*_+U*}+U*u/u~+U*U*uj}:Uj+|U*U*U"T T Q*U |U*U*U* }/@(U"@bwz|/T` }U*U*@:?UU:w+UT?Uz> U:U*U*unU* `pUj*w`/pw+t?U._*~};_*:oU*;U|/qU~ *UxP*wn]?W*U@"D "Tp/DU p*U"TzW PzU*x*@UbTn]+U*E(U*U+U"~Bw }p?EHU Pj@*u+@*U~]**x |Wz_?P*]+U*U*U*U*E@~`(~(||@*U*Pj?E*U*u*Q"U*UA?|@ *@"@@ @@U*T**U@| (Q*U*E*"@(*Ez?~@*Aw/~po W*U EP*E*P*U*u+E(U*UPb`x@"D@(zUj`|/|(U*UP*E(W*U:UP*(Q*EPxU" >@zP*ak|`j~U+]*DT*]*U(U*T*U?E W~p\*D @*U"@~ @?Ej@po UU*U(U*U*Tj?woU"T*U:Uh`|xD*U*U*;LL0ST`H jhɍ L`ST`@ @@@@@@@@@@@@@@@%'" BRUN TEDITOR"5': @@@@@@@@E': @ @U': @ EXIT @e': @ @u': @@@@@@@@|'0''N*&p 20:6:"(TO EXIT TO MENU PRESS 'ESC'"6&z 22:20>& M$Q& (M$)27ī150e& (M$)133430m& NNz& " 80N";& (10);& 0& 3430&: @@@@@@@@@@@@@@@@&: @ @&: @ APPLE WRITER @&: @ @': @2)'% 13:10:"TAB DOWN LINES ARE ";ET% 15:7:"AUTO-TAB OR MANUAL (A/M) ? ";B$e% B$"A"3350v% B$"M"3430% 3310% NN% " 80N";%* N0%4 NN1%> (10);%H NEī3380%R 0%\ 150%f 18:6:"FOR EACH LINE FEED PRESS 'RTN'"ENTERING @$$ : @@@@@@@@@@@@@@@@@@*$ _$ 6:2:"HAS A LETTER HEAD BEEN USED (Y/N) ? ";H$$ 8:2:"APPROXIMATE LINES OF TEXT USED ? ";T$ H$"Y"H18$ H$"N"H4$ 10:9:"LINE SPACING SIZE # ? ";W$ V(7211W)$ DVHT% E(D9)"POKE 3C6,90")A$(40)"POKE 3CA,C1"8A$(41)""A$(42)"NOW YOU MAY BSAVE THE PRINTER PATCH TO ANY DISK YOU CHOOSE USING THE COMMAND BSAVE PRINTER PATCH,A$3B0,L$20."A$(43)"TO USE THE PRINTER YOU MAY TYPE (EMMEDIATE MODE)BLOAD PRINTER PAHE PROPER VALUES FROM THE ABOVE TABLE."5A$(35)""A$(36)"POKE THE SLOT # INTO 3B1, THE 'DATA' INTO 3C6 AND THE 'CODE' INTO 3CA."A$(37)"FOR EXAMPLE- TO USE THE SERIAL CARD IN SLOT 1 USE THE FOLLOWING POKES:"A$(38)"POKE 3B1,1"A$(3  Ņ67L,0LL`%_R `%M*`%a()]4`%a()]>`%MH_pRa()]̠ \qf_  pdezQ,]̠ϠԠΠݠ͠Ϡݠ-]̠ϠԠݠ͠ϠΠݠ@~ T"D*U"x`|("U~G*U*U*"D Q*E~?~ *p?` E@( U*U*Upxp* u~:}(U*UP*E@*?~ (?P*~?`|oU U*DP**P*U:Uju+U Q*Uzx(*P`((*~G?x/ u Q*E*@(}/W(U*U."(U*Up?xT@ "DT*T*~`jhWj]*uT*W*U"T*U+U@w|| "T*U*T*Uz pUhp`j UU*U*U*U PD*}w/Q*@*]+UbUxW@**U *z`@ GT*P*@(U*@p]pp?(U*U*U*U Q*E|?@.Qjzx@ uT*U*@(Q*Tz q_P*U (Q*D U8qU u/(U*U*U*U+U*pp|_.P*|?U*u/U;~_*U*U**U*~@uU @"@(u"A"]*U*U"tQ*TQ"EPj(U*Uj;uU*`?|x}>Qj}U>*U*U*E*u*UU**T*T.T*E~>jD*U @x_/PnU:U*E(w*U*U*U{?}/U*.U*q*pU+U*" Q Tx@*U*E(P* U*U*U U /@"x_+P~U*U*U*U*Uz.U;*_*U*U+W*Uz*|E*U*E" @(U"pT*U*U*x U(@"]"E.?|/`w t+j}U*]*U UoUUz |U*U*U*]+U*8hUz/ux`u p/U+Wj]*wnU**}W*}.Uu/@Uz@ 0P*]*U.U*@ w@ ] p?U po*EDxW"UW*`(@+uU`/T:w*U?wjU*U*~b} up?`U Pn@*](P:U*U*UjU@]z?@*U.U*"U*U*E@>b*E~P"T*U `p|/*U*U"}G*UnU+U "U*"@~?~*" @*" " A*U*U*UjU*p~x:U"*U*Q*D U*"~?* D@*U*tpP;LLST`H jhɍ L`ST`  "E",512,274,274,274,274,258,258:  "T",2,2,2,512,2,2,2`  "W",256,257,129,65,129,257,2567  "L",512,257,257,257,257,257,257  "S",69,139,274,274,274,163,69  "O",125,131,258,258,258,131,125  "N",512,7,9,17,33,193,512  "F",512,175::H3 '"DO YOU WANT ANOTHER BANNER Y/N ?";Y$B (Y$"Y"ī5H *Z ,H17X::Hc -800u /F(U)9K:445  "C",125,131,258,258,258,258,258  " ",0,0,0,0,0,0,0  "A",505,37,35,34,35,37,505  "G",125,131,258,258,290,163,101  J(9K)1:S(U)S(U)2K) S(U)18150 K< T11X\ (634.5Y)G1((X$))1);j B1F(U)z J(B)0500 I1Y:X$;:I 600 I1Y I11(X$) " "; I XB l vT1 U H12X::H T &H1 (A((A$,1)) 2 <+ FT1(A$)< PP$(A$,T,1)H ZO150s _S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7) `P$" "812 dP$S$200 xO X$M$ M$"ALL"X$S$ U17 K801 2KS(U)270 J(9K)0 280 9363"VERT = 4 IS MAX FOR PR40 PRINTER"H "HORIZONTAL ";X["VERTICAL ";Yo"CENTERED ";L$G10:L$"P"G11"CHARACTER (TYPE 'ALL') IF YOU WANT CHARACTER BEING PRINTER ";M$"STATEMENT ";A$#"SET PAGE ";O$     3500511$):IM3M211:BP$(N1$,I,1):BP$" "BP$","BP$":"BP$"."BP$";"BP$"-"LNM3M235008: FIND BREAK POINTI:M2:(N1$,M3M21);:"-":IM3M21:LN(N1$):35009: HYPHENATE LONG WORD M2:(N1$,I)LNM3M2ıˆN1$(N1$,LNI):PB$";"BP$"-"LNM3M135003: FIND BREAK POINTzI:M1:(N$,M3M11);:"-":IM3M11:35004: HYPHENATE LONG WORDSM1:(N$,I):LNM3M1ıN1$(N$,LNI)(N1$,1)" "LN(N1$)1:N1$(N1$,LN):35005: DELETE EXCESS SPACEStLN(N HTAB 1 NOT HTAB 0)b M3= LENGTH OF THE LINE YOU WANT PRINTED. N$= THE LINE YOU WANT PRINTED.M3M1CWM3M2CWĺ"LINE TOO LONG FOR PRINTER.":::: CHECK FOR LINE LENGTH2LN(N$):IM3M111:BP$(N$,I,1):BP$" "BP$","BP$":"BP$"."$(N):35000LO NICER WRITER BY RICK CONNOLLY MICRO OCT 1979 17:5 CW= COLUMN WIDTH-THE MAX COLUMNAR WIDTH OF THE OUTPUT DEVICE. M1= THE MARGIN INDENT FOR THE FIRST LINE. M2= MARGIN INDENT FOR SUBSEQUENT LINES(NOTE- LEFT JUSTIFICATION ISSITE POLARITY WITH POKE 968,16 "A$(52)"THE 'NEW' P8 PROM FOR THE SERIAL CARD CANNOT BE USED WITH THIS HARDWARE/SOFTWARE PATCH."N052A$(N)""1008101024:" TO CONTINUE E TO END ";B$:B$"E"1100 N$A0'"TA$(48)"TO RESTART THE PRINTER USE CALL 954 (WITHIN A PROGRAM- 300 CALL 954)cA$(49)"" A$(50)"IF THE PRINTER DOES NOT WORK AFTER CALL 944 THE POLARITY MAY BE WRONG IN THE PRINTER BUSY SIGNAL. THE PATCH MAY BE CHANGED TO RECOGNIZE THE OPPOTCH:CALL 944 "CA$(44)"THIS MAY ALSO BE DONE WITHIN A PROGRAM:"|A$(45)"100 PRINT D$;'BLOAD PRINTER PATCH':CALL 944"A$(46)"THIS ASSUMES D$ IS CONTROL D"A$(47)"TURN OFF THE PRINTER WITH THE USUAL PR#0 OR IN A PROGRAM- 200 PRINT D$;' PR# ;LL0ST`H jhɍ L`ST`> NTER IS BUSY(BUFFER FULL) AND TO WAIT IF IT IS. "@A$(29)""iA$(30)"SLOT 1 2 3 4 5 6 7"A$(31)"DATA 90 A0 B0 C0 D0 E0 F0"A$(32)"CODE C1 C2 C3 C4 C5 C6 C7"A$(33)""'A$(34)"BLOAD THE PRINTER PATCH AND THEN POKE IN TSLOT THE INTERFACE WILL BE IN AND MODIFY THE SOFTWARE PATCH. THE PATCH IS COSTOMIZED FOR THAT SLOT AND WON'T WORK IF THE SERIAL CARD IS MOVED TO ANOTHER SLOT (UNTIL THE PATCH IS CHANGED)."1A$(28)"THE PATCH FORCES THE COMPUTER TO LOOK TO SEE IF THE PRIF THE PRINTER AND PIN 2 OF THE SERIAL CARD."{A$(24)"THEN CONNECT THE WIRE WITH THE PRINTER BUSY SIGNAL (FOR YOUR PRINTER) TO THE WIRE FOR PIN 2 ON THE SERIAL CARD."|A$(25)""}A$(26)"THE SOFTWARE PATCH"~A$(27)"NEXT YOU MUST DECIDE WHICH 704 PIN 11"xA$(21)""yA$(22)"THE PREFERRED PLACE TO DO THE WIRING CHANGE IS IN THE CABLE CONNECTING THE PRINTER TO THE INTERFACE CARD BUT IT MAY ALSO BE DONE ON THE SERIAL CARD OR IN THE PRINTER.",zA$(23)"DISCONNECT THE WIRE BETWEEN PIN 2 OREPRESENTATIVE."' pA$(13)"EXAMPLES:"5 qA$(14)""Y rA$(15)"IDS 125/225 PIN 4"} sA$(16)"HEATH H-14 PIN 4" tA$(17)"TI-810 PIN 11" uA$(18)"SPINTERM PIN 19" vA$(19)"COMPRINT PIN 20" wA$(20)"CENTRONICSUSES TO INDICATE THAT THE BUFFER IS FULL (CANNOT ACCEPT MORE DATA UNTIL THAT WHICH IT HAS IS PRINTED OR UNTIL THE BUFFER IS OTHERWISE EMPTIED.)" oA$(12)"YOUR PRINTER'S MANUAL SHOULD CONTAIN THIS INFORMATION. IF IN DOUBT CONTACT THE MANUFACTURER OR HIS AIN (MICROCOMPUTING,APRIL 1980,P 92) DESCRIBES ANOTHER SOLUTION TO THIS PROBLEM. HE USED AND MODIFIED THE APPLE COMMUNICATIONS CARD." lA$(9)"" mA$(10)" WIRING CHANGES" nA$(11)"FIRST YOU MUST DETERMINE WHICH 'PROTOCOL' YOUR PRINTER OUR WARRENTY. IF YOU AREN'T SURE OF THE SIGNAL LEVELS OR PINOUT OF YOUR PRINTER, FIND OUT OR GET SOMEONE WHO KNOWS TO HELP YOU!" iA$(6)"" jA$(7)"THIS MOD WAS PREPARED BY APPLE AND WAS DATED AUGUST 22,1979." kA$(8)"AN ARTICLE BY BRUCE CHAMBERLING DATA INPUT LINE TO SENSE WHETHER OR NOT THE PRINTER IS BUSY AND INHIBIT OUTPUT IF NECESSARY." fA$(3)"D0S 3.2 OR 3.2.1 IS REQUIRED." gA$(4)" ** WARNING **" hA$(5)"DAMAGE TO THE HIGH SPEEN SERIAL INTERFACE CARD MAY NOT BE COVERED BY Y A$(60)' M15:M21:M338:CW40HcA$(0)" INTRODUCTION"dA$(1)"THE HIGH SPEED SERIAL INTERFACE CARD CANNOT RUN FASTER THAN 300 BAUD ON MOST PRINTERS DUE TO THE LACK OF A 'PRINTER BUSY' LINE."b eA$(2)"THIS MODIFICATION USES THE EXIST             7712 :" 390 912 915] :" 800 2048 2051 c " 9500 38144 38147 I19000: "H14 APMAIL P.DRIVER IS USED WITH THE 'APMAIL' MAILING LIST PROGRAM. AT $300 & THE SERIAL CARD IN SLOT #4 "THESE PRINTER ROUTINES MAY BE RUN AT DIFFERENT LOCATIONS DEPENDING ON WHAT YOU ARE COPYING. : " LOCATION CALL " ON OFF  :" 300 768 ' d:12;n"* * * H-14 PRINTER DRIVER ROUTINES * * *"KxI11000:Q}X2"THE FOLLOWING ROUTINES ARE USED WITH THE ELECTRONICS SYSTEMS SERIAL CARD. THREE LINES ARE CONNECTED - - RS 232 IN, OUT & GROUND. THE SERIAL CARD IS IN SLOT 4.  150 JC$;T1080 ^CC$;*h10803rS$;=|1080GSC$;Q1080ZE$;d1080nEC$;x1080D$;1080DC$;1080: @@@@@@@@@@@@@@@@: @ @: @ LINE SPACING @: @ @"2"1630AA$"3"1650-AA$"4"1670?AA$"5"1690QAA$"6"1710cAA$"7"1730uAA$"8"1750AA$"9"1820AA$"10"2000AA$"11"2020AA$"12"2090"AA$"13"2320,AA$"14"26506AA$"15"3150@3EQUAL$;2SPACE8<"13-'CTRL' & 'ESC' INPUT TABLE"EFEQUAL$;PPSPACEnZ"14-RUN A TEST PRINTOUT"{dEQUAL$;nSPACEx:"15";:"-EXIT PRINTER SETUP"EQUAL$;10:"SELECT A FORMAT ";AA$NNAA$"1"1610 AA$D 6-CANCEL"EQUAL$;*SPACEM"7-DOUBLE 8-CANCEL"ZEQUAL$;eSPACE"9-LINE SPACING 10-NORMAL"EQUAL$;SPACE"11-NORMALIZE ABOVE PARAMETERS" EQUAL$;SPACE"12-HORIZONTAL TAB SET"(----------------------------"#.*800BaL" ** FORMAT SELECTION ** SLOT=";NNnVEQUAL$;y`SPACEj"1-COMPRESSED 2-CANCEL"tEQUAL$;~SPACE"3-EXPANDED 4-CANCEL"EQUAL$;SPACE"5-EPHASIZEH"*L$(12)LA$;4""&>6700HDC$;FRE$L$(12)LA$;N\""Uf0^p150w: @@@@@@@@@@@@@@@@@: @ @: @ PRINTER TABLE @: @ @: @@@@@@@@@@@@@@@@@SPACE7$EQUAL$"------------L$(12)LA$;"")L$(14)LA$;=SC$EC$C$S$;Z29:"YOUR ADDRESS HERE"cS$;26:"DAYTON, OHIO 45410"S$;28:"(513) 123-4567"840NN" 80N"(10) S$D$E$;L$(6)LA$; 20:"SAM SMIT @: @ LETTER HEAD @4: @ @K: @@@@@@@@@@@@@@@Q&v012:6:"FULL OR MIDDLE NAME (";::"F";D:"/M) ? ";R$NR$"M"ī750XNNb" 80N"l(10)vS$D$E$L$(6)LA$;17:"SAMUEL A. SMITH"|SPACE:"! (5) EXIT THE PROGRAM !"<SPACE:G$KSPACE:G$ZSPACE:F$`z15:"SELECT ONE ";N$N$"1"550N$"2"1050N$"3"3210N$"4"4000N$"5"50001050: @@@@@@@@@@@@@@@: @ ) PRINT A LETTER HEAD !"* "SPACE:G$? ,SPACE:"! ";M 6:"(2)";p @:" SETUP THE PRINTER !" JSPACE:G$ TSPACE:"! (3) CENTER TEXT VERTICALLY !" ^SPACE:G$ hSPACE:"! (4) APPLE WRITER !" rSPACE:G$- SPACE:G$= SPACE:"! APPLE <==> EPSON !"m SPACE:"! ================ !" SPACE:"! WORD PROCESSOR PROGRAM !" SPACE:"! ====================== !" SPACE:G$ SPACE:G$ SPACE:"! (1(50) KT$(27)(68), d: @@@@@@@@@@@? n: @ @R x: @ CATALOG @e : @ @x : @@@@@@@@@@@~ F$"+-------------------------------+" G$"! !" SPACE5 SPACE:F$ SPACE:G$ ";NN$ NN$""ĺ"":16< (NN$)49(NN$)55ĺ"":16M NN(NN$)48[ ES$(27)h C$(15)v CC$(18) #S$(14) (SC$(20) -E$(27)(69) 2EC$(27)(70) 7D$(27)(71) <DC$(27)(72) AL$(27)(65) FLA$(27)********** : INTRO 100-500; : LETTER HEAD 500-1000R : PRINT 1000-4000n : VERT.CENT. 4000-5000 : APPLE WRITER 5000-6000 : EXIT 6000 ::4:" ***** EPSON MX-80 PRINTER SETUP *****":12:868:"WHICH SLOT # FOR PRINTER OUTPUT? *PROGRAM:'EPSON SETUP 1.3', REV 3/81F: ********************b: * APPLE-EPSON *~: * WORD PROCESSING *: * HELLO PROGRAM *: * WRITTEN BY *: * ED & MIKE HUNTER *: * 25 DECEMBER 1980 * : **********                 JAN,23,REPORT ,FINAL REPORT DUEE JAN,26,SCHOOL ,PTA MEETING *** FEBUARY ***  *** MARCH ***  *** APRIL *** ; ** DATA ENTERIES FOLLOW **  *** JANUARY *** . JAN,7,MEETING,MEETING WITH LAWYER$885pD3,D4$,D5$uI!zS ******* DATA FOR INITIALIZATION *********v SUN,MON,TUE,WED,THUR,FRI,SAT JAN,31,FEB,28,MAR,31,APR,30,MAY,31,JUN,30 JUL,31,AUG,31,SEP,30,OCT,31,NOV,30,DEC,31 (I1)D7(I1)L08154 D6$(I1)" "815D%D6$(I1)D4$M*L11T/IZ49 ********** DETAILED PRINT OF SCHEDULE>CM0$(M3)HMI131RX$WI\I1100aM3$,D3,D4$,D5$fM3$"END"890kM3$M0$(M3)************* REVIEWS SCHEDULE ITEMS ******************?HL10TI131\X$cIpI1100M3$,D3,D4$,D5$M3$"END"820D3N0(M3)815M3$M0$(M3)815D3I0815 D3I07815I1D3I08D7(I1)1D7"; qS1I1vI0I01${S0I1+I4"I"=L00GS0S1Mj ** VERT. LINES *******vI1M1D6$(I)" "700"I ";D6$(I);" ";D6$(I)" "D7(I)0705"I ";I"I"9 *********I1M1&!J15605&IS0560>+I01R0N0(M3)I0580e5"I ";q:I0I01z?640DI09620II00600N"I ";S640X"I ";I0;" ";]I0I01bS1I1g640l"I ";I0;" ";M0$(M3);" ";Y.:9I17S" ";D0$(I);" ";ZI`f ******** PRINTS SCHEDULE OUTLINE ************I1M1"I---------";I "I"  ******* PRINTS CALENDAR DAY LINE ************* PROGRAM TERMINATION POINT ******************LA$"Y"415U825dS08425mS01uI2{ *********** PRINTS HEADINGS *****A1$"Y"450X$1(9)(1);(1)"80N";&" 295 "N0(2)29 '270( ,S004151 1435= 6J1M2F ;505Q @K17c EN1$(K)" "j JK} ON0(M3)I0400 T535 YL110 ^720 cL10380 hA2$"Y"395 m665 r665 w395 |665 L0L01 L J;17 D1$D0$(K)225! S0K( Kj ********** PROCESSING LOOP **************************| I2M4M4N1 N0(2)28 YY1 (Y4)Y4260 N0(2)29 I00 M3I2 M312300 M3M312 YY11 (Y4)Y4A1$7 "DO YOU WANT AN EXPANDED CALENDAR ( Y OR N )?"@ A2$R A1$"Y"190 "BEFORE THE PRINTING OF EACH MONTH A '?' WILL APPEAR" "ALIGN TO THE TOP OF PAGE BEFORE PRESSING THE RETURN" I112 M$M0$(I)205 M4I I KTARTS ON SUCH AS SUN MON TUE WED THUR FRI SAT."8 D1$ "ENTER THE NUMBER OF MONTHS TO BE PRINTED SUCH AS 1 OR AS MANY AS YOU WISH." N "SHALL I PRINT THE SCHEDULED ITEMS( Y OR N )?" A$ "DO YOU WANT PAGE ALIGNMET ( Y OR N )?" D0$(2),D0$(3),D0$(4),D0$(5),D0$(6),D0$(7)5 PI112G UM0$(I),N0(I)N ZIY _I17n dD6$(I)" "u iI{ n s"ENTER THE FIRST MONTH AND YEAR TO BE PRINTED I. E.,JAN,1981" xM$,Y1/ }"ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH S14000B REMINDER SCHEDULE AND CALENDAR-ENHANCED  ************* DATA INITIALIZATION *******************N0S00L00#M17(M27-M412D6$(7)7D7(7)<D0$(7)AN0(12)FM0$(12)) KD0$(1),           "CLOSE LISTER":D$;"EXEC LISTER"&3 M FEED, PRINT TITLE (AND TIME LINE?)M0"PRINT ";Q$;(12);SP$;CI$;P$;CO$;Q$s81(TIME$)0ĺ"PRINT ";Q$;TIME$;Q$1"LIST"2 d2 FORM FEED AND RETURN TO VIDEO2"PRINT ";Q$;(12);Q$:"PR#0":"FP",3"TEXT":"DELETE LISTER":"HOME" 3D$;+ %$, ASSEMBLE CONTROL CHARACTERS7,CI$"":CO$""J, DOUBLE WIDTHjP-CI$CI$(14):CO$CO$(20){- EMPHASIZED.CI$CI$(27)(69)|.CO$CO$(27)(70). DOUBLE STRIKED/CI$CI$(27)(71)/CO$CO$(27)(72) 0 $p0 FOR$;"NOMON C,I,O"9<(D$;"OPEN LISTER":D$;"DELETE LISTER"b(D$;"OPEN LISTER":D$;"WRITE LISTER"i) h) LOAD PROGRAM TO BE LISTED)"LOAD ";P$0* * TURN ON MX-80 WITH 80 CHARACTERS PER LINE*"PR#1"\+"PRINT ";Q$;(9);LL;"N";Q$0(#LL(LL$)# 2# FIND CENTERING SPACESKT$SP((LL2(P$))2)V$SP$""q%I1SP:SP$SP$" ":I%TSP((LL(TIME$))2)%(TIME$)010200H&TSP$""&I1TSP:TSP$TSP$" ":I'TIME$TSP$TIME$t' BUILD 'EXEC' FILE'D$l % PROMPT FOR LINE LENGTH64!LL80:LL$""u!:"THE LINE LENGTH IS CURRENTLY SET":"AT 80 CHARACTERS."!:"IF YOU WISH TO CHANGE THIS VALUE,":"ENTER NEW LENGTH :";LL$`"(LL$)09300"(LL$)80ĺB$;B$;B$;LL$;" IS TOO LARGE!":860Y,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERNMTH(MTH$):I1MTH:MTH$:IoxTIME$MTH$" "DAY$", 1981"HOUR(HOUR$):HRHOUR:HR0HOUR12@HR12HOURHR12AMPM$"AM":HR11AMPM$"PM" TIME$TIME$" "(HOUR)":"MINUTE$" "AMPM OTHERS.,D$;"PR#4":D$;"IN#4":"";TIME$FXD$;"PR#0":D$;"IN#0"N g  REFORMAT TIME LINEMTH$(TIME$,2):DAY$(TIME$,4,2):DAY$((DAY$))HOUR$(TIME$,7,2):MINUTE$(TIME$,10,2)L JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE, JUL2 p:"THE DEFAULT IS 'NO'. ENTER YES OR NO.";A$R (A$)0(A$,1,1)"N"8500k 8(A$,1,1)"Y"6000r   GET TIME LINE d THE FOLLOWING ROUTINE IS  DESIGNED FOR THE MOUNTAIN , HARDWARE CLOCK, AND MAY NEED REVISIONS FOR P5700: CONTINUE,  PROGRAM NOT FOUNDa :B$;B$;B$;P$;" NOT FOUND ON THIS DISK"::4700h |  DATE AND TIME LINE? DTIME$"" :"IF YOU HAVE A HARDWARE CLOCK ON BOARD," "DO YOU WANT TO HAVE THE 'DATA AND TIME'":"LINE PRINTED?":" A$:A$"END-OF-DATA"4700B 0((40(A$))2));A$:4300I  h  PROMPT FOR PROGRAM TITLE \:"ENTER DESIRED PROGRAM NAME -OR-":" '?' FOR THE CATALOG": "";P$ $P$(63)ĺD$;"CATALOG":4700 5400 D$;"VERIFY ";P$A FOR LABEL&  MX-80 PROGRAM LISTER> BY THOMAS L. RAABE ^ H VERSION OF 3-10-81e  FOR AUTOMATIC LISTING OF APPLESOFT t AND INTEGER BASIC PROGRAMS ON THE  EPSON MX-80 PRINTER < END-OF-DATA   PRINT LABEL hTS. THIS IS TO FACILITATEO  LATER ADDITIONS AND DISTRIBUTION OF CHANGES BY} 4 REFERENCE TO THE ORIGINAL LINE NUMBERS.   INITIALIZE ` ::255 :: ( B$(7):: BELL D$(4):: CTRL-D Q$(34): QUOTES T DAT'  MX-80 PROGRAM LISTER#L R FOR AUTOMATIC LISTING OF BASIC PROGRAMS,s ON THE EPSON MX-80 PRINTERzx  BY THOMAS L. RAAB@ MARCH 10, 1981  THIS PROGRAM HAS BEEN DELIBERATELY NUMBERED FROM l 1000 BY 100 INCREMEN     8,512,258,258,2586 "J",65,129,257,257,257,129,128X "1",0,0,261,259,512,257,257~ "2",261,387,322,290,274,267,261 "*",69,41,17,512,17,41,69 "3",66,130,258,274,266,150,100 "4",33,49,41,37,35,512,33  "5",160,274,274,274,27 "R",512,18,18,50,82,146,271@ "P",512,18,18,18,18,18,15f "Q",125,131,258,258,322,131,381 "Y",8,9,17,481,17,9,8 "V",64,65,129,257,129,65,64 "X",388,69,41,17,41,69,388 "Z",386,322,290,274,266,262,260 "I",258,258,258,18,18,18,2,20  "K",512,17,17,41,69,131,258V  "B",512,274,274,274,274,274,239|  "D",512,258,258,258,258,131,125  "H",512,17,17,17,17,17,512  "M",512,7,13,25,13,7,512  "?",5,3,2,354,18,11,5  "U",128,129,257,257,257,129,128 Y]^]ΠŠc]Ҡh]"r]ӠбҠв'Qa(Ƞ)#ta(Ƞ)Y~a(éϠŠ̠ҠϠ)a(ԠŠĠҠȠĠ٠ġ)/a(ˠΠŠРҠ)M6_@]J]ҠO]T]٠Ġˠ)Gd2ea(٠)ca(ŠӠ̠)Ea(ӠŧӠҤҠԠ)S(Ԡ٠٠ϠŠ)&@BM6d"e !La(ˠР)$Va(Ƞ)#`a(Ƞ)#jҠҠȠӯӯӯө).a(ŠĠŠȠҠȯة).a(ԠĠԠҠñó)\a(ŠĠӠҠŠӠӠԩԠ٠̠ة)7d2ea(ԠϠԠנƠ٠YM! ^c_q\ a@G>ca(ՠ٠ŠŠӠǠϠ)fa(٠٠ϠŠǠĠŠԠĠŠՠŠӠǠΠҠŠ)Va(ӠӠԠРǠЭȠ٠q_Z]٠q_Z]٠q_Z]٠q_Z]٠deQ q \\P8r_,cq\ a@G1M 6UVW @q-rJ\ a@GTY@Gq-rq_ dde=nq.?r`8r$n"xde`$Z\ a@G___]٩q_Z]٠q_Z]٠q_Z](%[cq[(q\ a@Gq-rq a()G\d$e#q.?r`$#(dede2`%_<`%_F`$BP\ a@G`%q q-rq_%Z\ ac8N@"rC@"rD4rq6@q6?q2qdq,_]Ҡ q8ra ñq.?ròq.?r8ñrdOñ8òr8ò8òrre@p()[5q.?$r`%q`   )(70) PRINT CHR$ (12);X REMOVE"REM"IN 195 AND 205 TO PRINT MULTIPLE SHEETS _ 0m GOTO 10s Xt 1(13);1<1)(14);(27);(69);fF6)(14);"APPLE AVOCATION ALLIANCE (AAA), INC."~d(14)(27)(69);nX140:"-";:(27)(69)55)"721 PIKE STREET"55)"CHEYENNE, WY 82001"55)"1-307-632-8561" (27 8`{ox{wx@wwx{ox{=]=w^=-=?wxww8`{ox{^Ow=}ow8`{{x{o8`{wxp8`x8`{{x8`{wx{o>_o{xp{==www}5=[ox{w8`wwxp{ox{wx8`{oxpx@wwx`xp{1[-w]=5==wxww8`{ox{]]w=}]w8`{{x{o8`{wxxpx`8`{{x8`{wx{o==o{8`{=1D51=ox{w8`wwx{oxp{wx8`{oxx@wwx8`{-o1D!353=wxwwxp{ox{!Q=}=w8`{{x{o8`{wxxx{oxp{{x8`{wx{k##k{8`{=__???;_=ox{w8`wwx{o8`{wx8`{oxpx@wwx8`{;w____;_=wxwwx{ox{_o?=}=wxp{{x{oxp{wxx xx{ox{{xxp{wx{o__o{          z#Xձ ՠ٠ŭàҠŠĠԠŠĮؠ٠̲٠Ԡ ٠ԠҠ  ٠ԠҠϠ ϠŠ͠ҠȠ ҠȠà ҠҴҠ ҠҴ٠ ҠˠàҠˠҠ ٠̱  ҠҠҠЮؠ ҠҮà" ŠҠ ҠӠ ҠӠР!ҠӠР  ҠР   ĠΠР ĠΠЮؠӠҠϠ ̠Ǡ Ҡ Ҡ͠  ҠҠҠР ΠظР! ȱΠ ȱҮ ȱҮ ȱҮ ȱҮ ȱҮ̠ ΠظϠ!ΠظϠ"Πظ̠ҠΠظ̮à"ΠظĠΠظ͠Ԡ ΠظҠҠ ĠŠԠĠŮؠҠ̱ΠǠ̠ŠΠǠΠҠŠΠظǠϠҮʰà*ŠɠɠҠҠ ĠŠGAIN ? ";Z$:(Z$,1)"Y"250" h0 L)"<":: ::Q :I1N:A$(I):I[ :: "IS THERE A LINE YOU WISH TO CHANGE ? ";Z$:(Z$,1)"Y"550 240 &:" WHEN TYPING A NEW LINE, ENCLOSE IN QUOTES AND ADD A SPACE AT THE END.": 0CE BAR FOR JUSTIFIED COPY";:Z$:) :C J1N:K0:A(A$(J))_ A(LL1.3)ĺA$(J):340n "B(LL1)A ,I1A:TT1 6TK(LL1)T0:340 @(A$(J),I,1)" "KBĺ" ";:KK1 J(A$(J),I,1);: T:J Y:: ^"WOULD YOU LIKE IT ALINE LENGTH OF ";LL;" IS:"; " >";:A11LL:"-";::"<"F I1N A$(I):(A$(I))LLĺ"**TOO LONG** PLEASE TYPE AGAIN":190 XX1:QQ1 A$(I)"END"IN:NX1:500 A$(I)A$(I)(32):Q7İ400 Q0: 500 :! "PRESS SPAANY LINES ? ";N:P n" IF YOU FINISH BEFORE TYPING ";N:"LINES, TYPE 'END'":k x"LINE LENGTH ? ";LL: " IF THE LINE IS A SHORT LINE (END OF PARAGRAPH, ETC.), TYPE SPACES TO THE END" LLL2:A$(N) "ENCLOSE YOUR LINE IN QUOTES." "  :16:"T E X T":H7:"J U S T I F I C A T I O N":::("RE: KILOBAUD JUNE 1977 MOD TO APPLE II BY JERRY JENKINS NOV 1978. TO BE USED WITH A PR40 PRINTER"223<"BLOAD PR40/7F00-7FFF"F32530ZX12000:: d"HOW M ,449,129,1,1X4,274,226/ "6",194,291,293,297,305,289,193O "7",258,130,66,34,18,10,8s "8",69,171,274,274,274,171,69 "9",263,138,74,42,26,10,7 "=",41,41,41,41,41,41,41 "!",1,1,1,384,1,1,1 "0",57,69,131,258,131,69,57  ".",1,1,129;LL0ST`H jhɍ L`ST`D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,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:832,9,104:W _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,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               d t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ ȌOAD IN INTEGER BASIC " 10` C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":180:f n 23 D$;"BRUN MENU" CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:C΍Ӎֱ ƍֲ ƍà Ԡ Ԡ Ԡ ֠ Š Š čàǢ à֢ à à à à àS DIRECTLY TO 'DATA') Z 'GND'TO 'GND'I d TO USE BLOAD ROUTINE AND R n880 ROUTINE BY STEVE WITZEL AND APPLE REFERENCE MANUAL " DRIVER ROUTINE FOR TRS-80C QUICK PRINTER II USING] QAME I/O CONNECTORw( CONNECT AS FOLLOWS:2 'CTS' FROM PRINTER IS CONNECTED< TO APPLE THROUGH AN NPN TRANSISTORF INVERTOR TO INPUT 'SW2' P 'ANO' CONNECT"WHICH LINE # ? ";IG ::A$(I):"CHANGE THIS LINE ? ";Z$:Z$"Y"590P D560w N"TYPE YOUR NEW LINE :"::A$(I): X"IS THERE ANOTHER LINE ? ";Z$:(Z$,1)"Y"ī560 b240 l1;LL067`H jhɍ L`67`> from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 s20:"PRESS ANY KEY TO CONTINUE" xA$ } D$(4): CTRL-D D$;"BLOAD LOADER.OBJ0"  4096: FAST L  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program ( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00        ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLpST`f @ȥ*) @ȥ<) @JJJ +`H c hHHYX(H Jhhj㬡h(`QLY8LXLeLee UٰVWXd eٰM ]Ԡa@E@GYٰa@E@a@E(ң)QUΠЮ)+M6S(ŠƠŠ)&@`@9()$a@E(Ġ)E@E()LPM6S(ԠŠϠҿ)&@`@9()$`<@r$`<@r$M Ja@E(ң)d6p?eca@]̠һԠ̠ŻԠ.Q ]ɭӠΠР]Ҡ̠]Ƞ̠+(]٠Π̠Ȭ͠/d@p()@p()@p()@p()]¬àĠnذqٰN@"(rxa@E(ìɬ)KM6d6?e$a@E(ĠĠ  WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1` ɍɊОƠ  Ї)` ` H) EhH)@ h  h h h ` X p 8j `  (`(  ɡ  (`ԠîȮϠ´ֳң X$ ( 02mH a h`` J  j Ӧ JJJ ` ɍɊ L ,Z` ``  ` `ɉ:  ,\Z`    A L Ƀ:H  h  0 Fhɠ@ɠ` @( @@@@@@@%_D@@@@@@@@@_{@@@@@@@@-14):+/2,#<=673!*05'&8.>9D     /=2_*E%6mm(s1U2?/'#! 08<>xjL     m`JK2 (@Ȅȱ03 L& ȱȱȱʥЬ` L z` J  ?` &     `Y` KC `Lf C K``ɠ'%    $(P @)( `ɁɈ-ɂ ɅɓɛÅ` J? `  @`  L Е`) Ў` @ >AHɃ>ɠ' ! ] p < p (P] p L  թК L @j  `` c> FfZ L&JJ8eJJL.$: i J LH hɠ !$ L `"`"`B `0  '')`1       8$ $   Ɍ   8$    )1&@  Jm     ƭ     `   H)&JJ&&h' &' &' f&')  '#i   J  `  I `  '&&I&  k\6767`67`5H hɍ X 5L HYXH Jhhj`ȠӬϠŠЬϠϠŠĬүL5]Π̠ĺҠĬŠΠ٬Ϡ7Q]ҠԠa(ԠƠ) ~UVW3a(Ʈ)Y~(a(ĠƠ) 2]ΠҠӠŠ43]ӺҠĠŠƠΠN4]Ҡ ٲҠàٲàŠٱҠٍŠұ٠ōЍӍԠ Ԡ ֠ ŠƸϠЩŠϠҠΠŠčÍұӠԍŠĠōàҲԠˠĠˍҲķǠҠĮŠϠĠҠčŠүƿà΍ĠӠĠҍҠҍРƠĠΠƍȠȍΠ֍ȍӱӍҠ٠ōЍ٠ ӠԬҠҍٍŠƍŠàԠŠŠҍҠҍŠӠ٠ҠүƠҠԍȠԍѠȍРȠŠϠȍƠϠԠԍԍԠˠҠĠƠōРŠōϠŠҍԍ٠ĠӠƠƧӠϠŠӍƠĠӠ̠ȠĠԠȠҠ̠ԠӱƠ̠ҠϠԠàȍѠԍàԍԠҠҍàԲРĠˠҠҍŠǍ̠ԍҠԍȍ֍ԍȍԲԠРȍӠ̠ˠҠԍƠӠҠŠԍȍԍ٠ưѠӍٍР΍ӠٍӍԠԠױҠˠՠðױՠðǠԍԠՠԠՠưǠʠϠ٠̍ԍ̍ԯ̫ԠŠҠҠӠҠŠԠ̍ȠՠȠՠ֠ՠ̠ՠΠՠӠԍԠՠƸŠՠð  ɠҠҠȠǠĠǠҠʠΠ     $v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  ҠΠӠӬԠŠҠΧԠנԮ)@na(ԠϠǠĠŠĠՠΠϠŠή)cXxa(ϠԠĠԺŠ̠)a(ϠŠ̺Š̠)a@E(ң)QQ @p()]̠ a@E(ĠŠĮ)a@E(ң) (a(ӠӠҠǮ),2a(ŠŠӠҠӮ)<deMFa(ӠӠĠǮ)Pa(ŠӠȠš)ZdeMOda(ΠĠӬ *! * WRITTEN BY *; * *U * LARRY FORTMAN *o * * * FEB. 4 1980 * * * ********************D AMOUNT &  PER BOX THE STARTING NO: " AND ENDING NO@ ,] 6 ALWAYS END STARTING NOv @ WITH A 1 (EX. 101)| J T*********************** ^ h******************** r* * |* NUM. LABELS * * T)N;TT)(NI1)  N, D$;"PR#0"2 9 W *********************] x THIS PROGRAM PRINTS LABELS 7/16 X 5 INCHES FOR USE ON BOXES OR CARTINS CONTAINING A  CERTAIN NUMBER OF ITEMS  IT WILL NUMBER  :D$(4)HT15: TAB FOR POSITIONING OF NUMBER ON LABELSQ((4)r2"LABEL NUMBERING PROGRAM":<"STARTING NO: ";S:F"TOTAL AMOUNT: ";A:P"AMOUNT PER BOX: ";IZESAdnD$;"PR#1"xNSEI(28) I;   %qn`'%q'xP}`%a()`%a()`%a()Pa()`$cP a()P a()P a()UVWP/?'ra()Y_a(ĠĠŮ)S(ҠĠ)' qM q.?r (q.?r 2q <q Aq~ BM6ECa(̠ӠԠŠƠҠԠ)a(ĠŠԮ) EoPFbE()Pc Zqd` q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ{ϭz ϭ{ ϩ  ϩ̍ ϩ `8 H&<y,8&Ȉ ΅*΅+h, ʱ*HH h y+hy`yLk/ ōΠìɬύ̤̠ŠĠĠĠƹƠĠĠƹĠààİΠǍԍԠ̤ңԍ̭ԍ rdeKde)dedededededede`[P/?'ra()Y_Kdededededede dedeOde!d ed ed e8rd ed ede deOdededede!dedede8a(ĠŠԮ) EoP FbE()Pc Zqd`'%q'n`'%q'xP}`%a()`%a()`%a()Pa()`$cP a()P a()P a()UVWZ]ĠŠcS(ҠĠ)' q%a(ԠԠӠŠɯϠĠο)Tq8r \M q.? r (q.?!r 2q <q Aq~ BM6ECa(̠ӠԠŠƠҠ)   wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ p67H!$`HH$hH, hHI  X !i$h`x HYXH Jhhjx(`Y8LXLeLeeݠݠݠBASIC:$R 325-4C D0 03 JMP $03D0?\ N BREAKS PROGRAMMING[f FOR 300G JMP TO STARTrp OF THIS ROUTINE.09 07 STA $0779( POKE RIGHT MARGIN:E 314-A9 41 LDA #$41c  316-8D F9 06 STA $06F9{ POKE LINE LENGTH:  319-A9 46 LDA #$46* 31B-8D 79 06 STA $06794 HOME (CALL-936):> 31E-20 58 FC JSR $FC58H RE-DOS JMP TO 20 95 FE JSR $FE95.  COUT NULL CHARACTER:K  305-A9 00 LDA #$00i  307-20 ED FD JSR $FDED  POKE PAGE LENGTH:  30A-A9 44 LDA #$44  30C-8D F9 07 STA $0779  POKE LEFT MARGIN:  30F-A9 FF LDA #$FF 311-8D 707 A9 41 8D F9 06 A9 46 8D 79 06 20 58 FC A9 21 85 21 4C D0 03 N 300G"R :"LIST"j D"PRINT L$":"PR#0" N"TEXT":"CALL-936":"TEXT" XD$;"CLOSE LISTER" b l v LINE 560 INTERPRETATION:  PR#1:  300-A9 01 LDA #$01  302-OTES D$;"NOMON C,I,O"0 D$;"OPEN LISTER"H D$;"DELETE LISTER"^ D$;"OPEN LISTER"u D$;"WRITE LISTER" "NOTRACE" "NOMON C,I,O" "L$=";Q$;L$;Q$ &"CALL -151"F 0"300:A9 01 20 95 FE A9 00 20 ED FD A9 44 8D F9 07 A9 FF 8D 79 AM TO BE# ^ LISTED. TURN ON THE= h PRINTER. THEN EXECW r THE PROGRAM LISTER.~ | : :: 100190 PAUSE0999:PAUSE 190380 D$(4):: CTRL-D L$(12): CTRL-L Q$(34): QULOT #1. ' THE PRINTER MUST BEC  POWERED UP, READY TO ^  BE INITIATED BY THE z  MACHINE LANGUAGE PGRM " PR#1 STATEMENT IN LINE , 560 BEFORE EXECUTING 6 THE TEXT FILE CREATED @ BY THIS PROGRAM. J T LOAD THE PROGRsd#n PROGRAM LISTER WRITER)xA BY JAMES P. DAVISG` AND LARRY FREEMAN.f ALL COMMERCIAL RIGHTS RESERVED. 4 MAY 1980. WRITTEN FOR TRENCOM 200 PRINTER WITH AII-G INTERFACE CARD IN I/O S    !)` ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0 67`H -hɍ H - -hL)?݁ , H fh f`,0H HXYH hj`E A SIU DRJNFCKTZLWHYPQOBGMXV3-87$4',!:(5")2#6019?&./;"190 3306& D$;"PR#2":C$;NS$0 B186A MP%1B156n Y00B6:3342,Y0:3072: PRINT LINE } C$;K$:Y0 C$;B$:D$;"PR#0" (A$,1)"N"Č3306  (YN$,1)"Y"145< "NAME OF PICTURE ";A$:A$""170Z D$;"BLOAD ";A$;",A$2000"o MP%1Ĺ16301,0 MP%0Ĺ16302,0 16304,0:MP%0āD12500::16301,0 21:"REVERSE PICTURE TO PRINTER? ";A$ (A$,1)"Y"210 (A$,1)"NLR:Y0COLR 16297,0Y "MACHINE LANGUAGE PROGRAM RESIDENT? ";YN$:(YN$,1)"Y"141 D$;"BLOAD PAPER TIGER HGR DUMP.X" MP%0 "FULL SCREEN? ";YN$:(YN$,1)"N"MP%1:145 YN$"Y"142 "PICTURE FROM DISK? ";YN$:(YN$,1)"N"185 3072)"CHARACTER SIZE >>> ";ZNREQUIRES HGR DUMP.X A$C00,L$120k HGR DUMP FOR PAPER TIG( BY R&D ALDRICH- MOD FROM CALL-APPLE0 BY JOHN BARNES1::16:"HGR DUMP"dB$(2):C$(3):D$(4):K$(11):NS$(Z) nX0CO    H6 ($hL`HH!!,c$hH,o phHI  pX !i$!h`x HYXH Jhhjx(`67`LL(±ōàҍ±ˍҠčҠԍҠٍŠԍӍŠ ƍ àŢ àբ ȠҠӍȱҠӍӍӠԠԍɠȱԍŠȍӠ٠ÍŰԠӠؠƍˠРŬ؍Ѡȍ؍̠ˍŠȫȠРӠӍԠԍ̠ȱԍƍȍΠ֍ȍӱӍҠ٠ōؠōЍҠҍؠō٠ōЍӍҠĠƍƠҠҍٍŠƍŠàԍҠҍȠԍѠȍРȍà΍čҠҍРƍԍàԍԠҠҍàԲРčŠȍƠԍԍРŠōԍ٠Ҡԍȍ֍ԍȍԲԠРȍӠ̠̍ԠӱѠԠԯ̫ԍԍȍԍ٠ưѠӍٍР΍ӠٍӍԠՠ̠ՠΠՠԠՠƸŠՠðˠՠðԠՠԠՠưǠðʠðϠ٠̍ԍ̍ y Ԡ٠Ҡ٠ҠʠΠȠՠȠՠ֠ '')`' "_       8$ $   Ɍ   8$    )1&@  Jm     ƭ     `   H)&JJ&&h' &' &' f&')  '#i   J  `  I `  '&&I&  bd CATALOG DOUBLE STRIKE rn(4)"PR#1"x(27)(71)(4)"CATALOG"(27)(72)(4)"PR#0"Z *~`@ W~@U*p@z(U**U~?A*xp@ dT*UU*Tp?( pU*U*"Q*E`?`U "U*U*U* ~x_/PjU>u+U*U+U{_*U*U;w*Ub |(W"U @(U"qD*U*U j *U EP U*UjU*U*U*U*xW.Q*T* ]**]*U*U*u*U|U PT*T P"D*8U8*U"Q*@"UzoW~` P]+U*U*W*U *U]z*U.U*A+`Uz@QDQ  U*U*U ( D*"U opx_;P~U*W*U*u*U*}/];/]:WT*w*U:*xU*U*Q""@U? D*U*}h_Uzp|/`U UP~__ j]?u.U:W*U*UToUz~(U*U*U*U*U*``U"Wnu`pw poU+W*]/*}U*}*Ut+`U~xP*]{Wn]*U@  } pU po*U  ];W"p @~DU~+T:w*DUT*U*U ~B] up?bU Pn*UzTzW*P*xp~Uz_/P:wjU*w*U*U* |b*~_*UE||/U*U*"D(uU*UnU+U *U*U"@?|@ (`D"pT*U"T(U*U ~@|+W(T(*U.U*U(Q*E*"|?~  *(T|8 *t*|`+`U"U*U*U*U"DP*w+u+*u.U*PbU`"|P*U*U*@*D~?`x/]*U*T*U"DxU*Un*U**U*U*T~x*E*ADx*p}?@~x@~_{U*U**U**U.U"hG"t?|T*U"D*U*`Ap*@Uj@pk`W"U*U*T*];W Q*w>U"hU"|xU*U*U*U P:Gp@ E?"P*U*pppUju*U*@*"@?A*zp_@U?T*U*"t*p? |*p U*U*T.U"U*@?au*/U*U*U* ~/x_/TW*U+U*]*?un*U*un_+Uj |*U*"T (U"U* pQ*U*U*zD*U @(U@?Q*U:U*U*unU*|/`/x_.@*u>U+un;w*U*U*}+U} Q*T U*T"D Q*(>Az(U*UD*q T*u"T Wz+ux/`w+T?UjU:u.]+Wj*u~_*u?UbE+AUz "U8@(u*U+U*EP *E"u*p/x/P?Wn]**]*U*}+u?}+Uj?U*+pU*U*"D *U P*_"T*U*t/"](Uz z|/U`U t?@:_*U*U~]*u_*UTUz~*U*U*U*UjU* p+Pxu"Ezw./Upw t?}}+/@*U:+UT*A+U*U~_ UxU*w]z*U ""T /p/UUPk_(U*U*}+ D(pAx/xU>P}/}Un+U*U*"U+U"W u}p?UHU Po@*Uj+Uz_*T*p_A~wUz_?Tj];Wz?Uj]+ xb           (4)"PR#1"9 23)"GREETINGS FROM THE VERSATILE"O32)(14)"MX-80"w57)(15)"BY "(14)(27)"G""EPSON"230)(18)"YOU'LL LIKE ME!"<(27)"H"F(4)"PR#0" P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq  à à à à Š Š Ԡ Ӎ ƍŠ àŢ àբ čàǢ à֢ à âŠȍӠ٠ÍŰԠӠ±ōàҍ±ˍҠƍҠԍҠٍŠӠӍԠԠ̠ȱԍƍȠҠӠȱҠӍӍӠԠԍɠȱԠҠ٠ōؠōРԍҠĠƍؠƍˠРŬ؍Ѡȍ؍̠ˍԠōŠȫȠРö̫ӍԠ٠ŠؠōҠҍРĠҿŠҍҠҍĠƍҠҍ̠ՠŠՠðˠՠðԠՠԠՠưǠʠԍ̍ԯ ԠŠҠҠŠŠɠ٠ҠʠΠ    :(4)"CATALOG""W"TYPE THE NAME OF THE PICTURE YOU WANT TO LOAD.]e(A$yd(4)"BLOAD";A$nx16304,016297,016302,0A L 1" 80N")I("A")("Z")7((I32);>2ID<JFdԠð̠ԱðԠðӍԱ٠ؠֱֲҠҠРˍΠҠˍРٍŠЍàֲѠ΍Р؍ŠбؠֱРҠΠӍˠ٠ؠֱֲҠҠ /ϠŠ͠͠ϠǠʠР΍Ҡðб@3M6o Pd2e?a(Ǡ)d2eUVWYM)KM6o Pd2e?a(š)d2eQԩ)@cS(ԠĠԠ)'J` $"TdO e (^cd2e?a(ǡ)d2ecc%ha(ӠΠ٠ӠȠ),ra(ŠɯϠŠ͠Ҡ)wa(ԠĠ)$|cca(ԠΠϠ)RӠŠŠٮ)#ccS(ȠĠՠſ)&@`;@r$dL e`@*#r9()$"dL edO e_^*"ca(ŠԠΠƠŠŠ)-,a(ŮԠΠŠԠ͠Ϡ)(6a(ŠҬŠҠҿ)&@`;@r$ dK e`@*#r9()%dK e+cca(ԠӠŠź)cP a(ŠĠ)cc*a(̠ӠҠŠĩ)-a(ӠӠΠŠŠϠԮ).a(ŠŠd2e?a(Ǡ)d2e!a(Ġ)E@E(ì)_!cS(ȠŠӠԠ)'`$dM e &ca(ɠΠԠŠΠ),a(̠ҠĠŠũ) cS(ȠϠՠΠҊ"]é٠٠Ċ (N@"2rC@"2r2a(Πìɬ) <KM6 FdM e &PS(ӠŠ٠Ŀ)&@Z`;@r$Pd`@*#r9()$/nccS(ȠӠŠŠƠŠſ)&@,xoP RW L   T c HYXH JhhjT (`L ʬP mQ ( &MK U \ &R ^U .R (L .R R ) ٮL ʬP mQ ( \ MK &`O `H)&JJ&&h' &' &' f&') M '`  ]Ӡ҄6d<e8.?rrd=e.?r8.?rrkd>e8.?<rPrd?e.?=r8.?<rPrdBedCede.?>rde.??rM6_ H [  Q P P P ( ~   L mQ Q ~  ~   QVh`P   CONTINUE"$ F"THE CATALOG LISTING", P:\ Z"NAME OF THE DISK TO BE CATALOGED ?";NAME$q dD$(4): CTRL-D nD$;"PR#1" x(15): SHIFT INPRINTING "DISK I.D. =";NAME$ D$;"CATALOG" D$;"PR#0" % CATALOG DISK TO EPSON PRINTERA REF: STEMS FROM APPLE\ JANUARY, 1981 PAGE 8{ BY GENE ALLISON 12/16/80("THIS PROGRAM WILL MAKE A HARD COPY"2"OF THE CATALOG FOR YOUR DISK.";::"REMEMBER":