' +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,&"$µ˵H̵Hõ˵ĵ̵ L߼LoL  !"#$%&'()*+,-./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;9-4;9-;1-;3-30-4#3-#2-%+!.U8b9++!h , !`X !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`ĵ̵µ h̵h˵LLHIHHHHhHH݌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 LҦ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 hBLi 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`;S#@ S CH.EQ$24 CV.EQ$25 BASL.EQ$28 BASH.EQ$29 CSWL.EQ$36 CSWH.EQ$37 KSWL.EQ$38 KSWH.EQ$39  .PG * -( *ZEROPAGEUSAGE2 * -< F P Z *GRAPHICSTEMPVARIABLESd 6n DATA.ADDR.EQ" 2 " &M&M "&F#B$(7):D$(4):R$(13)K#GM49232:AG49234:P149236:P249237:HI49239#SG28672:SI28675:SO28678:SC28681:SF28684:TP28687:MD28688$PR$((TP))$I17$O$(I)N$$1(MDI)O$(I)Y$$I$O$(5)N$O$(5)" 1 ":9900$O$(5):8300Kt"Program Error number = ";E::"At line #";(218)(219)256:xl "Please type any key to continue ";:A$n A$MENU$p 100" (# Init-#PF$"":P$""2#SL$"6":DR$"1":NAME$" ":N$"No ":Y$"Yes"<#C$"--> ":S$" "ĺ"File could not be found on disk"::8300ZlE13ĺ"Wrong TYPE of file chosen"::8300nE8ĺ"Door on disk drive is open or":"the disk is not initialized"::8300pE11ĺ"Bad filename used"::830rE7ĺ"Wrong disk volume number selected":A$"1"X(P1):Page 13bA$"2"X(P2):Page 2;jA$MlA$"1"ī6240_nA$"2"ī6242eto~6012yN X Save New Defaultsb:D$"BSAVE GRF.OBJ,A$7000,L$1000" @ On ErrTU^7:1hE(222)+jE6s Page 2"-:" 3. Return to Main Menu"W:" Enter Choice 1, 2 or 3 ?";_A$qA$"1"ī6200A$"2"ī6200(A$R$)(A$"3")ıB$:60128 GrfBX(AG):All GraphLX(HI):Hires GraphVX(GM):Graph Mode`SGBSC:SC:5010xP20::"Slide Switchport //c switch to 8 bits."::"Press space bar to do printout";:SP$:5173f pViewz|7:1" ===== View Picture Menu =====":" 1. View Hires Page 1" :" 2. View Hire" 2 " &M&M "&MF#B$(7):D$(4):R$(13)K#GM49232:AG49234:P149236:P249237:HI49239#SG28672:SI28675:SO28678:SC28681:SF28684:TP28687:MD28688$PR$((TP))$I17$O$(I)N$$1(MDI)O$(I)Y$$I$O$(5)N$O$(5)" 1 ":9900$O$(5):8300Kt"Program Error number = ";E::"At line #";(218)(219)256:xl "Please type any key to continue ";:A$n A$MENU$p 100" (# Init-#PF$"":P$""2#SL$"6":DR$"1":NAME$" ":N$"No ":Y$"Yes"<#C$"--> ":S$" "ĺ"File could not be found on disk"::8300ZlE13ĺ"Wrong TYPE of file chosen"::8300nE8ĺ"Door on disk drive is open or":"the disk is not initialized"::8300pE11ĺ"Bad filename used"::830rE7ĺ"Wrong disk volume number selected":A$"1"X(P1):Page 13bA$"2"X(P2):Page 2;jA$MlA$"1"ī6240_nA$"2"ī6242eto~6012yN X Save New Defaultsb:D$"BSAVE GRF.OBJ,A$7000,L$1000" @ On ErrTU^7:1hE(222)+jE6s Page 2"-:" 3. Return to Main Menu"W:" Enter Choice 1, 2 or 3 ?";_A$qA$"1"ī6200A$"2"ī6200(A$R$)(A$"3")ıB$:60128 GrfBX(AG):All GraphLX(HI):Hires GraphVX(GM):Graph Mode`SGBSC:SC:5010xP20::"Slide Switchport //c switch to 8 bits."::"Press space bar to do printout";:SP$:5173f pViewz|7:1" ===== View Picture Menu =====":" 1. View Hires Page 1" :" 2. View Hire?@Cx|xg}_pOU*)U*UJ<|xC?~0p~u?}0_q~|p||CGsG|p}/U*U*U U*U*U*U*U*T*U*U*U*U|s~?{c<Wuz_~xxxc?x`U*U*U*T*U*U*U*U*(U*U*U*U?~s wcKq?@GyKq?@?{?|~yG?~OwO*U*(U*U U*U @*U*U*U*Uzq~C?~~y~u?}x/u?}?oT**U*U*U*U*U*U*U*U*U*U*Uzx}o?|s/k?px7T*U+U*UJ'||C_qx@xq?x@?{ w?c}yp|T|]'U*U*U*Ub]?"|t|vpq|Gcp|'U*U*U*U*U~*Ur?w/ksg_ |vx_~W?|?p`|)U*`Cc<|pGD`yO*U*U**U*U*U*U*U*U*U*U*U*}7xcyaWu@~?|~xC@Q*U*U**U*U*U*U*U U*U*U*U ||ys{?xg@xxg?"|_{w~_gU*?*U*Q*U D*U*U*U*U*U*yg|_y~_{u?}?|u?}/k=(U*T*U"U*U*U*U**U*U*U*U*yC}n?w/k~_?p|xw*UJS*U*U|~C?~x?|scyys?~|{pA~]W*U*U*U*e_ |GaGs|cx1pa?xP*U*U*U*U*~(U*e?g/k0G?x8~D~?x_P?|?@?~ ~aS*; 3fL3fL3fLi ""D!N'>*U*p "`cCo#DL3fL|j83f`-NPR#PREF@LOSEA@ND@3fLw@3fL!@3fL3fL3fL @MLD"D` ;U*E:wn];wD3fL`3fn)'ouu~0@:@fLAD6`LetL3fL@"tݓʾ8,P;HaoAA no'heL3fL1 d3fl 0 (`L3rL3fL  7#hhL"JL3fL >HJh<0f8 oooooooo/"L3fL d, ( jGMоM wn];wn1 (>   5L3fL"8?́оioohoooo@b`L3fL>h?p yh־Ҿ,G0^W)TPpnA;wn53fLL3fLQ03* @"8`J" z­T*%& lV;wn];wnIE"#h l 3fNVt Vt  ,~Tn PŠ` I3fL^2fL| 76"D3f Ⱦ ;\;wn)"D"`XA;wNi@p|*x ~3fL3$LA83f,)Ǿ"  ..H3`B"L3fL!K`JJJJ8`2fL3)` fL K>~|"D03fL3f0 D`_ 2Ͼ pH@wn];wnA?8 >Q>a];g12fL3F "P ``y}CB3fL3f<} P`RSNh`M`M N `AX;wnEL0fL3f3fL3#~~~~3fL3`"@JLCyp̭@3fL3"춼LK 2fL3 z K`L~~~~~~~~`"D2fL3f$!$ z jЭwn];wn : l 4 j02fL3">?Ek.@0.`z~~~~~~~F@3fL3f 0)Hh p' tn];wnCQgL3fL3fL3fJ2K!LS"V U*R;wn];wnIB"0f,0D fLĿUKqtVth N"DA13p IL3f<`L3r"WH "DAǾȾκP A;wn];wn!"D 1ʾ fw60"D"D D DNcWu?~?s}vx/!pxCp?(EU*U UJ_s?x'`{?~~_px|C>|S*|?T*UpNcWu?~?s}vx/!pxCp?(EU*U UJ_s?x'`{?~~_px|C>|S*|?T*Upx/kq|_}~za/pGp~'U*U*U*U*U*U*U*U*T*U*U*U*U~;~_q~Q~_wz_~vp>x?p|?T*U*U*U*U*U*U*~?P*U*U*Eg?|||p/h7G/q7Gc@~_Pg{S*'U**U*U*U*U P*U*U*U*Uzxg_ |@~@}nw}p|w}?N?U*U*U*Q*U*U*U*U*U*U*U*U*Uzsqg_}{~Og~Yw?~{O~P|{?w~?bo?~swq{|>gE~_/G_/~wgo_}s|_o~Kg~O{~ P|{?scyOo?@{w?|y>o~_/_O@gxoOO~pyg}_/coOpC{?x{?{xyoaZbL3f$a"fL3F2Gq"D!J B8D*U*8[;wn];wn9I"DJ`!V)fL0h"D"Dn" L3f(/eA?D0fLC5TLϾо8w8M;wnQ"D":` A];w.P|ZbL3f$a"fL3F2Gq"D!J B8D*U*8[;wn];wn9I"DJ`!V)fL0h"D"Dn" L3f(/eA?D0fLC5TLϾо8w8M;wnQ"D":` A];w.P|eA3fL3fL3fp lH"D"D OJpT*UH"a39#DL3fL ׾`Li0h(Ы} 2A1fL3f w"D!fL36bL3fL3fL3f0.C9PL@"D`S*U V ;wn];w.0D3f  dLn ٯ PH*]ĿN"DB@3p3fLN];7>L3fLD"4EH:ey:Hou"D`aL3fL Q BiG35W) @!)W)@! p:w"Dhn];a0:@3fL 53Q;wnL3fL DR`>G*`a f`@!W|#``L3fL!"$Y LmȾȾm"iʾ3fLq"D2fL3 ` c!hgt}L3fL  5L3` @"IL3fL ̪ `):_`蹀"wn];wna?>c];G.L3fL"8ȱ>e?L{m/ nofdپھ׾ؾӾ "Dpn:wndZA3fL `L3f @ V"D" z (  U Q;wn];wn)B"D`پھ)3f ӠŠҠ`n@ )3fL4Eo3&noD"fLʈ0 Ǿ p:7hA;wnM "D" pH\;wa~?|co~GjO~APl~G3|wygE+yx8|G~G}of|+U*U{p`qW3Y,x?fy~gGc?x_gCqGB|?}fE Q;w.wn]cqy|GKbNcABN}_G|w{oKn]+wOg{|O?|o?}OnrH?nesOnugqy~?xx7xpzC?~@W;pc~sn<7O*UpC?|~o{[aw|~|oAC?^ywq|~xGaAgo~gqD-.[|qs|W^zppnasqy~||oNc?~|aw6[-bp=F`O_xggCapx|?x?}dMAqn];G_];wNgsq~xx)EaaO?4xCB#[}_sg}w{oS;wn];<spG~?~yo?}?~:?: A:wOgs~?|s~zy?|?|w>t|S;Wq]y<cP xq|g;U*U*Uj>~o|wsy?~sp~_o|sOww?;n~ww??{}oo:o~w?*U `o@+UJ@o??_k_[ouoow[ku{]~~_;}ww8w?x`~p?*U xo~oww?~ww??{}oo~~w?g_{~G??|{_}?{wk_}ww?~ww??{}oo~~w?U*e?oL3fL3fL3fL3~o~o@?|}wo?oWo_{~G?U*eoc'|q?|Gc?|?|GoWo__{~G?U*e?_mmwkwmo>owxO|IO|d~G?U*e~oowp~G?U*eww?;n~ww??{}oo:o~w?U*eoS*Uo???h_[tot[kzC_;}ww?o{~w77?;{mmonn{vv?U*eo@owq?|~Gq?|c?|cx~G?Wo_{~G?w_}wq?|~Gq?|c?|cx~G?*Uj?oL3fL3fL3fL3~o?wsy|w7{-2f~C*UB|qxo?@@?xU*U*Uju.w?8~~a?|mXlNp9f{OyO?|qq|yy{?U*Uj?x?T3Yp?fc?p9~xx|c?paqC`#N}|qq@Q;w.P'wn<~~~ |3?b~ aN}_8|s{`]+wbqqx{C~yxgO?}@ qldg_n ~qny<?~|qO7un];Ogsy~CP*~`aGsoyyY;wxLO*EqGcGo@x~qq~O~tN}@x?~Io~q9pX-y:g{O,<q?|Gq}ov`s?|q6[pccx9~ssy_7|?||pP*[}a?|GOern];w`];wx<<~p?p?p)yXxo|!.[}~?p{O;wn]Kgcs{?xacco?}#|:rc;gxC;sq<|~Cg~gAx >O@GwnY;nOGc8U*|Go{*U*U*UswqCc?@acc0bc?><~3T ~GO~ob~@GG?.U*U*x|q|?cswq?|~Gq?|c?|cx~G?w_{&F??lfyV?={7s-[u]]nn]nwq?n;~Gq?|c?|cn;~G?*Ujo@gy@owq?|~Gq?|c?|cx~G?w_{&F??lfyV?={7s-[u]]nn]nwq?n;~Gq?|c?|cn;~G?*Ujo@gy@oo}o`?}p@oWo_x~G?*U ~w?Wo_|{~G?*Uj?cOg]koO?__w~{gyg9Nq~c>b~G?*U o``@oWox~G?*U |wq? ~Gq?|c?|c!~G?*U po?p+UJ?po_ww17|vF?|xx?*U x~wq?|~Gq?|c?|cx~G?wx_{w?_{Qp|wI#;t][m,]Mwq?n;~Gq?|c?|cn;~G?U*e?o@@oo}o`q}wo?@oWo_{~w?U*ew?|pp?Wo_?~{~w?U*e?]U.WZkon/?_/w~cw{>w;_?}~{>z~w?U*eox?pogL3fL3fL3fL3~~w?U*ewq?:.~Gq?|c?|c:/~G?U*eo@S*U@o??\;totl zAw:C~w12~?&F?U*e`ww?~ww??{}oo~~w?7|s_{~w?_{_}w~?{wkG#r0$~ww?~ww??{}oo~~w?*Uj?o?p?poo`@?}?|Gc?|oWo_{~w?*U ~`o'?}}wo?}wWo_{~w?*Uj?_mmwVkwmo>o~w~{gyg9N?|xx~w?*U ~~oo7~wL3fL3fL3fL3~~w?*U x0000IIII17=CKKKKMV_hqw}  0@6  0   2A6A<   (c) Copyright 1984 Practical Peripherals, Inc.p(`ypJmyp0  H 7ph 0 7p1`A NT14 @ %9>NT14=A !@@@@KKK0KS0280S0192S0560S0384%2%2@%20%2NG0280NG0192NG0560NG0384%5%5%50%5 ")p`/-G;35;24ZG;24;35ZG;70;24ZG;48;35ZG;35;20Z u|p|p s~p}p}p pȱ~pJnp~p~p}p~ppj 7p}p}p( r|p|pp` u}p~p|p|p s}p~pJnpi)魁p 7p|p r~p~p}p},p vp1x0 7p`HJ) h)i `pL=uHyp uh`; 7pypJmyp08ddH 7ph08  H 7ph 0 7p` 7p`+p) JJJ(*)xxp-pyp,+pP+p)+p+p u+pJH uhJJ)p Cv`)* v`v  w 7p|p s}p +pj~p pȱJnpppJ.pp q|p|pй r r$ rp~p~p}p~p}p(*p,+p0 @ 7p tLs*p,+p0 @ 7pLt,p)Pw)w0 7p`,p)`xHx0 7p`,p0zpx0 7p (uupkw 7p`pI +p,pI,p)8``p{p t t}pp|p{pm|p s+pj }pH|p۩~pp^* q~p꬀ph}p}p(Щ r r r8{pmp{pp tLs t`HJJJ uh) e+p) ie` tp}p~p3,+pp1 7p (uLs}p~p t|ppJJJJ)rJp,,pP pNp*p+pjpIppp )H*ph HhH,*p|p+p),p)hH 7ph,+ppH,*p|p +p)ɄhH 7ph,p) 7p,+pp 7p`+p) ,pI,p)`,+pp,pI ,p) 8`` 03NT14=A !@@@@KKK0KS0280S0192S0560S0384%2%2@%20%2NG0280NG0192NG0560NG0384%5%5%50%5 ")p`/-G;35;24ZG;24;35ZG;70;24ZG;48;35ZG;35;20Z u|p|p s~p}p}p pȱ~pJnp~p~p}p~ppj 7p}p}p( r|p|pp` u}p~p|p|p s}p~pJnpi)魁p 7p|p r~p~p}p},p vp1x0 7p`HJ) h)i `pL=uHyp uh`; 7pypJmyp08ddH 7ph08  H 7ph 0 7p` 7p`+p) JJJ(*)xxp-pyp,+pP+p)+p+p u+pJH uhJJ)p Cv`)* v`v  w 7p|p s}p +pj~p pȱJnpppJ.pp q|p|pй r r$ rp~p~p}p~p}p(*p,+p0 @ 7p tLs*p,+p0 @ 7pLt,p)Pw)w0 7p`,p)`xHx0 7p`,p0zpx0 7p (uupkw 7p`pI +p,pI,p)8``p{p t t}pp|p{pm|p s+pj }pH|p۩~pp^* q~p꬀ph}p}p(Щ r r r8{pmp{pp tLs t`HJJJ uh) e+p) ie` tp}p~p3,+pp1 7p (uLs}p~p t|ppJJJJ)rJp,,pP pNp*p+pjpIppp )H*ph HhH,*p|p+p),p)hH 7ph,+ppH,*p|p +p)ɄhH 7ph,p) 7p,+pp 7p`+p) ,pI,p)`,+pp,pI ,p) 8`` 03 P D$;"CATALOG"a Load Picg z ::::20:1 "Type in the name of the picture to load" 22:1 "[ ]" 22:1 "[ ";  5(A$R$)(A$"3")ı& >B$:2012. H 8 ` Cat> j H t 3:1P  C0 "Disk slot ..................["SL$"]";(8);(8); A$ (A$"6")(A$"7")ĺA$;"]":SL$A$SL$A$:C1 "Disk Drive .................["DR$"]";(8);(8); :1/ " ====== Load Picture Menu ======":Z " 1. Load Picture Hi Res Page 1": " 2. Load Picture Hi Res Page 2": " 3. Return to 'Main Menu'": " Enter choice (1-3) ? "; *A$ /PG$A$ 4(A$"1")(A$"2")ī2400" 3. Select Print Options":> `" 4. Print Picture":[ b" 5. View Picture":p d" 6. Quit": j" Enter Choice 1-6 ?"; tA$ vA(A$) ~(A$"1")(A$"6")ĪMENU$A$: B$:1012   Load  7in  19 " Practical Peripherals, Inc.":b " Graphics Printout Routine": " (c) Copyright 1985"  ." ======== Main Menu ==========" 8 B" 1. Load Picture": L" 2. Choose Printer Type": V  O$(8) MENU$"0"%8000E(4)"BLOAD GRF.OBJ,A$7000"KQb(27);(17)y((4)"PR#0":40COL29000: InitP1000: MAIN MENUdA2000,3000,4000,5000,6000,990:80:"BASIC":"BASIC"  Ma          Enter Choice 1-4 ?";;A$:(A$"1")(A$"3")ī5042S(A$R$)(A$"4")ıaB$:5012g}A$"1"ČSC:5010A$"2"ČSF:5010(PR$"5")(PR$"6")(PR$"9")ī52004A$"3"ĺ:::::" ---- Printing Picture ----"5SCI  Print028679:Init6@7:1g" ======== Print Menu ========":" 1. Print a Carriage Return":" 2. Print a Form Feed":" 3. Print a Picture:" 4. Return to Main Menu":" $:O$(6)N$:1(A3)((O$(6)Y$)(O$(7)Y$))ıV(A4)((O$(6)Y$)(O$(7)Y$))ıoO$(A)N$O$(A)Y$:O$(A)Y$O$(A)N$:O$(A)" 1 "O$(A)" 2 ":O$(A)" 1 ": I17MDI,0(O$(I)Y$)(O$(I)" 2 ")ĹMDI,1 Enter Choice 1-8 ?";@A$7KA$"8"İ7000:4012OL(A$R$)(A$"9")ızT(A$"1")(A$"7")İ4300:4500:4012|B$:4012A(A$)(A6)(O$(6)N$)O$(3)N$:O$(4)Y$:O$(6)Y$:O$(7)N$: (A7)(O$(7)N$)O$(3)Y$:O$(4)Y$:O$(7)Yize .......... ["O$(4)"]"H" 5. Hi Res Page 1 or 2 ... ["O$(5)"]"w" 6. Side by Side ......... ["O$(6)"]"" 7. Top to Bottom ........ ["O$(7)"]"" 8. Save Print Options to Disk"," 9. Return to 'Main Menu'":6" :3012 Slt Opts#-7:1]" === Select Print Options Menu === ":" 1. Inverse .............. ["O$(1)"]"" 2. Emphasized ........... ["O$(2)"]"" 3. Rotated .............. ["O$(3)"]"" 4. Double sto Disk".D " B. Return to 'Main Menu'":WN " Enter Choice 1-9, A, B ? ";zO 8(PR$):1:C$;:21:33:"";X A$l (A$"1")(A$"9")ĪPR$A$:TP,(PR$):3012m (A$"A")(A$"a")İ7000:3012v (A$R$)(A$"B")(A$"b")ı B$ct Printer Type Menu ====":/ S$"1. Anadex"A S$"2. Apple"U S$"3. C. Itoh"g S$"4. Epson" S$"5. Gorilla Banana" S$"6. Mannesmann Tally"0 S$"7. NEC"3 S$"8. Okidata"7 S$"9. Olivetti Ink Jet"C " A. Save Printer Type "";NAME$ (NAME$)0ī20005 PG$"1"đ:X(AG)D PG$"2"ĐP :::g "Loading ";NAME$: PG$"1"ĺD$"BLOAD ";NAME$;",A$2000" PG$"2"ĺD$"BLOAD ";NAME$;",A$4000" P$::2000T  Slt Prt  7:1 " ==== Sele A$8 (A$"1")(A$"2")ĺA$;"]":DR$A$DR$A$:C1> P D$;"CATALOG"a Load Picg z ::::20:1 "Type in the name of the picture to load" 22:1 "[ ]" 22:1 "[ ";  5(A$R$)(A$"3")ı& >B$:2012. H 8 ` Cat> j H t 3:1P  C0 "Disk slot ..................["SL$"]";(8);(8); A$ (A$"6")(A$"7")ĺA$;"]":SL$A$SL$A$:C1 "Disk Drive .................["DR$"]";(8);(8); :1/ " ====== Load Picture Menu ======":Z " 1. Load Picture Hi Res Page 1": " 2. Load Picture Hi Res Page 2": " 3. Return to 'Main Menu'": " Enter choice (1-3) ? "; *A$ /PG$A$ 4(A$"1")(A$"2")ī2400" 3. Select Print Options":> `" 4. Print Picture":[ b" 5. View Picture":p d" 6. Quit": j" Enter Choice 1-6 ?"; tA$ vA(A$) ~(A$"1")(A$"6")ĪMENU$A$: B$:1012   Load  7in  19 " Practical Peripherals, Inc.":b " Graphics Printout Routine": " (c) Copyright 1985"  ." ======== Main Menu ==========" 8 B" 1. Load Picture": L" 2. Choose Printer Type": V  O$(8) MENU$"0"%8000E(4)"BLOAD GRF.OBJ,A$7000"KQb(27);(17)y((4)"PR#0":40COL29000: InitP1000: MAIN MENUdA2000,3000,4000,5000,6000,990:80:"BASIC":"BASIC"  Ma     DUMP   0 *DEFINITIONOFGRAPHICSTEMPFLAGS(GRFLG2) *$ *BIT0THRUBIT3-PRINTERTYPE  *BIT4-SIDEBYSIDEPASS#-" *BIT5-BOTTOMHALF(DOUBLESIZEPASS#)+, *BIT6-GRAPHICSBITORDER(0='EPSON')"6 *BIT7-EMPHASIZEDMOD$02 ROW.EQ$03 COLUMN.EQ$04 BIT.EQ$05 LAST.ROW.EQ$06/ DATA.WIDTH.EQ$07;ACTUALLYDATA.WIDTH-1- DATA.EQ$08;GRAPHICSDATABYTEREGISTER' GRFLG2.EQ$09;GRAPHICSTEMPFLAGS 6 CHAR.COUNT.EQ$02;CHARACTERCOUNTFORVIDEXQ$28 BASH.EQ$29 CSWL.EQ$36 CSWH.EQ$37 KSWL.EQ$38 KSWH.EQ$39  .PG * -( *ZEROPAGEUSAGE2 * -< F P Z *GRAPHICSTEMPVARIABLESd 6n DATA.ADDR.EQ$00;INDIRECTPOINTERTOHI-RESDATAx BASE.ROW.EQ8 B L *SUBROUTINEENTRYPOINTSV .` KEYIN.EQ$FD1B;MONITORKEYINPUTROUTINE%j COUT1.EQ$FDF0;CHARACTEROUTPUTt +~ SIGNATURE.E.EQ$FBB3;$06IFAPPLE][e    *ZEROPAGEEQUATES  CH.EQ$24 CV.EQ$25 BASL.EICSTEMPFLAGS(4LTMAR.DA#$00;LEFTMARGINLOCATION>DEX.DATA.EQ$C0B1;DATAPORT4VIDEX.START.L.EQ$0D;STARTADDRESSLSBCOMMAND4VIDEX.START.H.EQ$0C;STARTADDRESSMSBCOMMAND .PG * - *APPLEMONITOREQUATES$ * -. HS07#6;MANTAL.HS01#7;NEC.HS05#8;OKI.HS08#9;OLIVETTI .HS00 .HS00 .HS00 .HS00 .HS00 .HS00 .HS00 'PRINTER.TYPE.DA#$00;PRINTERTYPE GRFLG.DA#$00;GRAPHFLAG(*GRFLG2.DA#$00;GRAPH00;DOUBLE.HS00;PAGE2&.HS00;SIDEBYSIDE0.HS00;TOPTOBOT :.HS00DNPRINTER.TYPE.TBLXb.HS10#0;NOZEROl.HS02#1;ANADEXv.HS06#2;APPLE.HS01#3;CITOH.HS00#4;EPSON.HS03#5;GORILLA. ^STARThrJMPGRAPH.SETUP|JMPINIT.DRIVERJMPOUTPUT.BYTEJMPSEND.CRJMPSEND.FFBASIC.PRINTER.TYPE .HS00GRF.MODE.TBL .HS00.HS00;INVERSE.HS00;EMPHASIZED.HS00;ROTATED.HSBIT4-SIDEBYSIDEPASS#-*BIT5-BOTTOMHALF(DOUBLESIZEPASS#)+*BIT6-GRAPHICSBITORDER(0='EPSON')"*BIT7-EMPHASIZEDMODEPASS#.PG!*"*GRAPHICSPARAMETERS*,!*6@.OR$7000J.TA$3000TBIT2-ROTATED)n*BIT3-STARTATLEFTMARGIN(LTMAR)x*BIT4-EMPHASIZED"*BIT5-SECONDARYHI-RESPAGE*BIT6-SIDEBYSIDE*BIT7-DOUBLESIZE0*DEFINITIONOFGRAPHICSTEMPFLAGS(GRFLG2)*$*BIT0THRUBIT3-PRINTERTYPE **CLOSEDCLOSEDOPENOKI-84*OPENCLOSEDOPENOKIDATA *CLOSEDOPENOPENAPPLE%*OPENOPENOPENMANNESMANNTALLY*( 2.PG,<*DEFINITIONOFGRAPHICSMODEFLAGBITS:F*P*BIT0-INVERTED$Z*BIT1-MIXEDTEXTANDGRAPHICSd*STATUSBITDEFINITION:*-*BIT3-BIT6-PRINTERTYPE(DIPSWITCH)**SW1SW2SW3PRINTERTYPE*--- - *CLOSEDCLOSEDCLOSEDEPSON#*OPENCLOSEDCLOSEDNEC/C.ITOH*CLOSEDOPENCLOSEDANADEX*OPENOPENCLOSEDI.D.S.6.PG*SAVEGRF.EQUATES!**EQUATES*$!*.83BDATA.ADDR.EQ$00;INDIRECTPOINTERTOGRFDATALVSTACK.EQ$100`)jWRDATA.EQ$C080;OUTPUTPORTTOCARD"tRDSTAT.EQ$C081;INPUTSTATUS~*     p     DUMP   0 *DEFINITIONOFGRAPHICSTEMPFLAGS(GRFLG2) *$ *BIT0THRUBIT3-PRINTERTYPE  *BIT4-SIDEBYSIDEPASS#-" *BIT5-BOTTOMHALF(DOUBLESIZEPASS#)+, *BIT6-GRAPHICSBITORDER(0='EPSON')"6 *BIT7-EMPHASIZEDMOD$02 ROW.EQ$03 COLUMN.EQ$04 BIT.EQ$05 LAST.ROW.EQ$06/ DATA.WIDTH.EQ$07;ACTUALLYDATA.WIDTH-1- DATA.EQ$08;GRAPHICSDATABYTEREGISTER' GRFLG2.EQ$09;GRAPHICSTEMPFLAGS 6 CHAR.COUNT.EQ$02;CHARACTERCOUNTFORVIDEXQ$28 BASH.EQ$29 CSWL.EQ$36 CSWH.EQ$37 KSWL.EQ$38 KSWH.EQ$39  .PG * -( *ZEROPAGEUSAGE2 * -< F P Z *GRAPHICSTEMPVARIABLESd 6n DATA.ADDR.EQ$00;INDIRECTPOINTERTOHI-RESDATAx BASE.ROW.EQ8 B L *SUBROUTINEENTRYPOINTSV .` KEYIN.EQ$FD1B;MONITORKEYINPUTROUTINE%j COUT1.EQ$FDF0;CHARACTEROUTPUTt +~ SIGNATURE.E.EQ$FBB3;$06IFAPPLE][e    *ZEROPAGEEQUATES  CH.EQ$24 CV.EQ$25 BASL.EICSTEMPFLAGS(4LTMAR.DA#$00;LEFTMARGINLOCATION>DEX.DATA.EQ$C0B1;DATAPORT4VIDEX.START.L.EQ$0D;STARTADDRESSLSBCOMMAND4VIDEX.START.H.EQ$0C;STARTADDRESSMSBCOMMAND .PG * - *APPLEMONITOREQUATES$ * -. HS07#6;MANTAL.HS01#7;NEC.HS05#8;OKI.HS08#9;OLIVETTI .HS00 .HS00 .HS00 .HS00 .HS00 .HS00 .HS00 'PRINTER.TYPE.DA#$00;PRINTERTYPE GRFLG.DA#$00;GRAPHFLAG(*GRFLG2.DA#$00;GRAPH00;DOUBLE.HS00;PAGE2&.HS00;SIDEBYSIDE0.HS00;TOPTOBOT :.HS00DNPRINTER.TYPE.TBLXb.HS10#0;NOZEROl.HS02#1;ANADEXv.HS06#2;APPLE.HS01#3;CITOH.HS00#4;EPSON.HS03#5;GORILLA. ^STARThrJMPGRAPH.SETUP|JMPINIT.DRIVERJMPOUTPUT.BYTEJMPSEND.CRJMPSEND.FFBASIC.PRINTER.TYPE .HS00GRF.MODE.TBL .HS00.HS00;INVERSE.HS00;EMPHASIZED.HS00;ROTATED.HSBIT4-SIDEBYSIDEPASS#-*BIT5-BOTTOMHALF(DOUBLESIZEPASS#)+*BIT6-GRAPHICSBITORDER(0='EPSON')"*BIT7-EMPHASIZEDMODEPASS#.PG!*"*GRAPHICSPARAMETERS*,!*6@.OR$7000J.TA$3000TBIT2-ROTATED)n*BIT3-STARTATLEFTMARGIN(LTMAR)x*BIT4-EMPHASIZED"*BIT5-SECONDARYHI-RESPAGE*BIT6-SIDEBYSIDE*BIT7-DOUBLESIZE0*DEFINITIONOFGRAPHICSTEMPFLAGS(GRFLG2)*$*BIT0THRUBIT3-PRINTERTYPE **CLOSEDCLOSEDOPENOKI-84*OPENCLOSEDOPENOKIDATA *CLOSEDOPENOPENAPPLE%*OPENOPENOPENMANNESMANNTALLY*( 2.PG,<*DEFINITIONOFGRAPHICSMODEFLAGBITS:F*P*BIT0-INVERTED$Z*BIT1-MIXEDTEXTANDGRAPHICSd*STATUSBITDEFINITION:*-*BIT3-BIT6-PRINTERTYPE(DIPSWITCH)**SW1SW2SW3PRINTERTYPE*--- - *CLOSEDCLOSEDCLOSEDEPSON#*OPENCLOSEDCLOSEDNEC/C.ITOH*CLOSEDOPENCLOSEDANADEX*OPENOPENCLOSEDI.D.S.6.PG*SAVEGRF.EQUATES!**EQUATES*$!*.83BDATA.ADDR.EQ$00;INDIRECTPOINTERTOGRFDATALVSTACK.EQ$100`)jWRDATA.EQ$C080;OUTPUTPORTTOCARD"tRDSTAT.EQ$C081;INPUTSTATUS~*     p     ;" DISK AND PRESS RETURN";:" ";DK$-936316368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI     `饠6 LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<` Hc{~aMwcp`sU*U*U*T*U*U*U*U*T*U*U*U*Ux7x|o<tx|?|G~|P+U*U*UU*U*U*U*U*T*U*U*U*q|X?{?|x'``|?x'`_ |[cvxo*T*#U*EU*U *U*U*U*UzOy_q~[c?o}?|W}/k{~~_9~U*)U*E*U*U*U*U*U*U*U*U*UzCoysg7G/k_~Wp|{|wT*E#U*UJ?|C>{x~?ww}|Xvsp'U**U*Uj=G?x8~qOx?s}c>N*U*T*U*e9C?~}_?c}qcp?xP*Q*U*U*U*U*~U*U*e?n/h@_y~pq|G?~~?p`aO*CBUrx|?{?|z_~o8ysq|_gU*U*U*T*U*U*U*U*U*U*U*U*Uzx?oOqO_{~|x0#U*U*U"U*U*U*U*U*T*U*U*U*~?`?`_ |np|u?}nC?~ex`?~x?^(eS*eU*uA*UR)U*U*U*Ur|O?{ex`/k?|s~c?|s/hz_~_~Ws|Q*#U**U*U*U*U U*U*U*U*UzO{?Kq?@C_~Wpgx{U*qU*Uj?|~C||x~'tCu?}?`xopO(U**U*Uj;_y~_}~{>~|uxcCT*U(U*U*U*U*U~T*U*UjnCw_q~|w~pp?x~U ?(F*exq?"|z_~Oxu|o?*U*U*U(U*U*U*U**U*U*U*U*yx/k@}}_[cD~0~W*U*U*E*U*U*U*U*U*U*U*U*U*~?> pG?x8~sgp~u?}sg_y~?|CGspq|Sb'Ub*UrU*Q*U*U*U*uqcy?|CGs/k?wc?wCz_~_~Wwy+U*W*U*U*U*U*U*U(U*U*U*U*y _{@xgc_Pppy~|p ];CiL3fL|"<Ap"bL3fLI $``V)R y޾,N0M"Dtn];wn@3fL3fL3fL [HILC"h(K,Lǧ Q*U` F;wn];wnA@2fl)3&>孓`*6PtfLQM3fLp$IH3fdo)@"D3T)m*UriU;wn];wn1"D 0YI3tB8;w0fL3&$3fL E3f"Dd=`W*UJ0ؾhD`;_bo D`L3fLq) 4]3f >#(ZZ(3fL3t@3fL9C3fL3fL3fLPAdP"D"D<7`)U*im$ :whDA3f t폼3fl1!$(19@pL3fL#w3fLIo2L>p1L3fLB"Pp`ܬ` aooobooo!Do/fL3fL3" Ly BȾI>Ie wpn]3wn!y vfL3t,f-L3fLD"t ֍ؾ@00ooOo"@ooooeL3fL)"0f,׾tؾ y ( 07L3fL9,Ќ Le p>?L3fL?@`B3f ѹhoolooo/"D3fL# HDK z޾ p` yp H;wn` 8`8`(tn];wnpa|ini8iL3fLY "j̈́@I`ooooooo/"nL3fLm 8`0 ̀#:蹀vn];wnU63fL3fL3fL>%3 3fL"D8btR(U*,Ƀ@;wn];wnDBL L 3&,~z"@`$ p@v$-C@"DfL1I3fL)3fLa5'2"D` S ?@` 8 U*9`Q;wn];wn9\"D $43`0"D"D "UaL3f lfL:8{rgps#D~3fL3& ",T eօ ȾɾʾNfnetBrn]9wn1|L3f> L ];7 3fL3fD"dttIb /@"~3fL3Fʾg1f$h8`׾":w@L3fLqޘг uv $1fL38L80fLƹxf` D`L3fl WWѹ `9V)w @;wn VB`n];wntph~~@s2fL3o88 `)g" 3fL3f( +$h}C N8` Bvn];wn% 5fL3fL3fL3<0I 3fL"D B CT* @;wn];wn :)"DB I/W츾T*U:#Y;wn];wn D"D P>fL 0ǾU]K3fL mL3`@%fL3"D8nj Ubn8~>DP y~ 3fL3"$` HLc eL0l8l:@3fLq0fL3*%dL3fL3fL3" "D"D lw)¾*U*) IF ~&D1fL38H`Lm%`l@@ 0fL3f wfL3>A>> i&3fL3&E"8=:< Y1 ~~x~~~DxN3fL3&{& ʆt G pccdd`pn]8wn5hY3f p!8 3fL3fD"Tɾii1`~~ne~"Dx~~~3fL3bB#Ⱦ󰹩 ` y־:w 0fL 0* 933LAJL ةAfL3>p~FLI~~~ DBL3f,!$ZA@L pW)8wrE;wn"D",C l];wn`~t} p2fL3~ni} J~~~~~~~~"$3fL3fhͩ,d`0:V)8`MN; vn];wnQ            oxGxg_s<~O3~~/~?lr?~Oocx?~{O}_Ogp{?~?@/xy?{?~{No_|C~ogw}~_w~~?o|??~ f~_o@{~{_y_q{~?|] g}?{s~o_x~xosw}|_g|~?O}?~Doy_opsO~{s_? |{|q:r}?ygw~OOs|soyw}}oy~?^y~ n{_oOgg~{?~w_?           |wo~?|sy!ClN}?|y}wj{G0\+Gggsxq?|~oxx*UjAC S3Yln?f q?N?>~_?|4 ~~c?}a` >T;w.fwn]GgxAAH |~??xN}_sg|w{Aqn]+wny<<~w~p?pqxco~}@xxlI+`< luNG|pcyGa~?}x@WcO|wn]#wbq8|?|aCGqw{C~x`q?|G?~LGG1GgggG?"U pxGcw?|q~qa\Kwo}_~~D<~?|`qao~qy(x,.[}?<|w{7wnGCGq?~o~c9x9p6[-npm|?Nxx|yx?|ga?xak?}gM`wn]`?];w.<O#||CFCxp([}_G~w; \;wn];cqy|wa~xgcoOx}aq9c?B~!|1w}~?Hc~?|B?}cwxa'yG;WO]Kgqyq|`sqy?{zy7{?|k|sxW;wFC?vn];y<~`pW*0xs| pNx?~w ;wnQ+wnMgcq|c?~oCw}@GcqUpk3yguq<~}a~|x?}xc!pon]vOgsc?|~{?|{;xaAap6|!< g?>~x U*qpa?|~g|s];ws~ qaqasGp`g~Op ".[}_cas{8&wn]y|<~x|o~~`9w[-npANy|Gggc?{a?|cgyaCkxg xwn]pQ\;wnaqx|?x~?~G >X*[@?[m|9no`@oWo_{~w?U*eo?|ppoWo_?~{~w?U*e?}|nCSm'}>~w?}~{~{~w?U*e~oowg~w?U*ewq?:.~Gq?|c?|c:/~G?U*e~o@o?/8:vo Cc~_CCwq? ~G12|c?L cd!&F?U*eoS*Uoww?~ww??{}oo~~w?Wo_x~w?ww?~ww??{}oo~~w?*Uj?w_{vv?Kw;S]ww{&w>UjzUmo}o@oWo_{~w?*U ~ooWo_|{~w?*Uj]w_o}o{}wpq~c~cp?*U |~oowg~c~q?|xx~w?*U `ww?;n~ww??{}oo:o~w?*U ~ogyo?o_wo{o~_ww?;n~ww8?G{noq:ow?*U po+UJowp?x`~p?Wo_q{~G?`?ww?~ww??{}oo~~w?`?w_{vF?+w;W]ww;{.[vMfvoo}o`@oWo_{~G?U*eo`x?|?poWo_q{~G?U*ecow_~o{}_{w77vv?}~{~{?U*e~`wxO|IO|d?}~{>z~G?U*e ww?`~ww??{}ooa~w?U*~ogyo?p_{w|{o~~ww?`~ww??{}ooa~w?U*eoS*Uo            o@poWo_{~G?*U ~oo'?}}wo?}woWo_{~G?*Uj?c}eu] nNk}^w~c~q?|xx~G?*U |~oowg~G?*U pwq?:.~Gq?|c?|c:/~G?*U @o+UJo?0wk_[uluZku:_v_;}wq?n;~G17|;c?l cnn;vF?*U xo+UJowq?|~Gq?|c?|cx~G?Wo_{~w?wq?|~Gq?|c?|cx~G?U*e?`xp_kv+U~5{w+{*IU>[m|9no`@oWo_{~w?U*eo?|ppoWo_?~{~w?U*e?}|nCSm'}>~w?}~{~{~w?U*e~oowg~w?U*ewq?:.~Gq?|c?|c:/~G?U*e~o@o?/8:vo Cc~_CCwq? ~G12|c?L cd!&F?U*eoS*Uoww?~ww??{}oo~~w?Wo_x~w?ww?~ww??{}oo~~w?*Uj?w_{vv?Kw;S]ww{&w>UjzUmo}o@oWo_{~w?*U ~ooWo_|{~w?*Uj]w_o}o{}wpq~c~cp?*U |~oowg~c~q?|xx~w?*U `ww?;n~ww??{}oo:o~w?*U ~ogyo?o_wo{o~_ww?;n~ww8?G{noq:ow?*U po+UJowp?x`~p?Wo_q{~G?`?ww?~ww??{}oo~~w?`?w_{vF?+w;W]ww;{.[vMfvoo}o`@oWo_{~G?U*eo`x?|?poWo_q{~G?U*ecow_~o{}_{w77vv?}~{~{?U*e~`wxO|IO|d?}~{>z~G?U*e ww?`~ww??{}ooa~w?U*~ogyo?p_{w|{o~~ww?`~ww??{}ooa~w?U*eoS*Uo            o}o`?}p@oWo_x~G?*U ~w?Wo_|{~G?*Uj?cOg]koO?__w~{gyg9Nq~c>b~G?*U o``@oWox~G?*U |wq? ~Gq?|c?|c!~G?*U po?p+UJ?po_ww17|vF?|xx?*U x~wq?|~Gq?|c?|cx~G?wx_{w?_{Qp|wI#;t][m,]Mwq?n;~Gq?|c?|cn;~G?U*e?o@@oo}o`q}wo?@oWo_{~w?U*ew?|pp?Wo_?~{~w?U*e?]U.WZkon/?_/w~cw{>w;_?}~{>z~w?U*eox?pogL3fL3fL3fL3~~w?U*ewq?:.~Gq?|c?|c:/~G?U*eo@S*U@o??\;totl zAw:C~w12~?&F?U*e`ww?~ww??{}oo~~w?7|s_{~w?_{_}w~?{wkG#r0$~ww?~ww??{}oo~~w?*Uj?o?p?poo`@?}?|Gc?|oWo_{~w?*U ~`o'?}}wo?}wWo_{~w?*Uj?_mmwVkwmo>o~w~{gyg9N?|xx~w?*U ~~oo7~wL3fL3fL3fL3~~w?*U xww?;n~ww??{}oo:o~w?*U `o@+UJ@o??_k_[ouoow[ku{]~~_;}ww8w?x`~p?*U xo~oww?~ww??{}oo~~w?g_{~G??|{_}?{wk_}ww?~ww??{}oo~~w?U*e?oL3fL3fL3fL3~o~o@?|}wo?oWo_{~G?U*eoc'|q?|Gc?|?|GoWo__{~G?U*e?_mmwkwmo>owxO|IO|d~G?U*e~oowp~G?U*eww?;n~ww??{}oo:o~w?U*eoS*Uo???h_[tot[kzC_;}ww?o{~w77?;{mmonn{vv?U*eo@owq?|~Gq?|c?|cx~G?Wo_{~G?w_}wq?|~Gq?|c?|cx~G?*Uj?oL3fL3fL3fL3~o?wsy|w7{-2f~wq?|~Gq?|c?|cx~G?w_{&F??lfyV?={7s-[u]]nn]nwq?n;~Gq?|c?|cn;~G?*Ujo@gy@o Enter Choice 1-4 ?";8A$:(A$"1")(A$"3")ī5042P(A$R$)(A$"4")ı^B$:5012dzA$"1"ČSC:5010A$"2"ČSF:5010(PR$"5")(PR$"6")(PR$"9")ī52004A$"3"ĺ:::::" ---- Printing Picture ----"5SC@I  Print-SI:Init3=7:1d" ======== Print Menu ========":" 1. Print a Carriage Return":" 2. Print a Form Feed":" 3. Print a Picture:" 4. Return to Main Menu":" $:O$(6)N$:1(A3)((O$(6)Y$)(O$(7)Y$))ıV(A4)((O$(6)Y$)(O$(7)Y$))ıoO$(A)N$O$(A)Y$:O$(A)Y$O$(A)N$:O$(A)" 1 "O$(A)" 2 ":O$(A)" 1 ": I17MDI,0(O$(I)Y$)(O$(I)" 2 ")ĹMDI,1 Enter Choice 1-8 ?";@A$7KA$"8"İ7000:4012OL(A$R$)(A$"9")ızT(A$"1")(A$"7")İ4300:4500:4012|B$:4012A(A$)(A6)(O$(6)N$)O$(3)N$:O$(4)Y$:O$(6)Y$:O$(7)N$: (A7)(O$(7)N$)O$(3)Y$:O$(4)Y$:O$(7)Yize .......... ["O$(4)"]"H" 5. Hi Res Page 1 or 2 ... ["O$(5)"]"w" 6. Side by Side ......... ["O$(6)"]"" 7. Top to Bottom ........ ["O$(7)"]"" 8. Save Print Options to Disk"," 9. Return to 'Main Menu'":6" :3012 Slt Opts#-7:1]" === Select Print Options Menu === ":" 1. Inverse .............. ["O$(1)"]"" 2. Emphasized ........... ["O$(2)"]"" 3. Rotated .............. ["O$(3)"]"" 4. Double sto Disk".D " B. Return to 'Main Menu'":WN " Enter Choice 1-9, A, B ? ";zO 8(PR$):1:C$;:21:33:"";X A$l (A$"1")(A$"9")ĪPR$A$:TP,(PR$):3012m (A$"A")(A$"a")İ7000:3012v (A$R$)(A$"B")(A$"b")ı B$ct Printer Type Menu ====":/ S$"1. Anadex"A S$"2. Apple"U S$"3. C. Itoh"g S$"4. Epson" S$"5. Gorilla Banana" S$"6. Mannesmann Tally"0 S$"7. NEC"3 S$"8. Okidata"7 S$"9. Olivetti Ink Jet"C " A. Save Printer Type "";NAME$ (NAME$)0ī20005 PG$"1"đ:X(AG)D PG$"2"ĐP :::g "Loading ";NAME$: PG$"1"ĺD$"BLOAD ";NAME$;",A$2000" PG$"2"ĺD$"BLOAD ";NAME$;",A$4000" P$::2000T  Slt Prt  7:1 " ==== Sele A$8 (A$"1")(A$"2")ĺA$;"]":DR$A$DR$A$:C1> P D$;"CATALOG"a Load Picg z ::::20:1 "Type in the name of the picture to load" 22:1 "[ ]" 22:1 "[ ";  5(A$R$)(A$"3")ı& >B$:2012. H 8 ` Cat> j H t 3:1P  C0 "Disk slot ..................["SL$"]";(8);(8); A$ (A$"6")(A$"7")ĺA$;"]":SL$A$SL$A$:C1 "Disk Drive .................["DR$"]";(8);(8); :1/ " ====== Load Picture Menu ======":Z " 1. Load Picture Hi Res Page 1": " 2. Load Picture Hi Res Page 2": " 3. Return to 'Main Menu'": " Enter choice (1-3) ? "; *A$ /PG$A$ 4(A$"1")(A$"2")ī2400" 3. Select Print Options":> `" 4. Print Picture":[ b" 5. View Picture":p d" 6. Quit": j" Enter Choice 1-6 ?"; tA$ vA(A$) ~(A$"1")(A$"6")ĪMENU$A$: B$:1012   Load  7in  19 " Practical Peripherals, Inc.":b " Graphics Printout Routine": " (c) Copyright 1985"  ." ======== Main Menu ==========" 8 B" 1. Load Picture": L" 2. Choose Printer Type": V   O$(8) MENU$"0"%8000E(4)"BLOAD GRF.OBJ,A$7000"KQb(27);(17)y((4)"PR#0":40COL29000: InitP1000: MAIN MENUdA2000,3000,4000,5000,6000,990:80:"BASIC":"BASIC"  Ma!! ! ! ! ! !!!!!!!!!     Enter Choice 1-4 ?";8A$:(A$"1")(A$"3")ī5042P(A$R$)(A$"4")ı^B$:5012dzA$"1"ČSC:5010A$"2"ČSF:5010(PR$"5")(PR$"6")(PR$"9")ī52004A$"3"ĺ:::::" ---- Printing Picture ----"5SC@I  Print-SI:Init3=7:1d" ======== Print Menu ========":" 1. Print a Carriage Return":" 2. Print a Form Feed":" 3. Print a Picture:" 4. Return to Main Menu":" $:O$(6)N$:1(A3)((O$(6)Y$)(O$(7)Y$))ıV(A4)((O$(6)Y$)(O$(7)Y$))ıoO$(A)N$O$(A)Y$:O$(A)Y$O$(A)N$:O$(A)" 1 "O$(A)" 2 ":O$(A)" 1 ": I17MDI,0(O$(I)Y$)(O$(I)" 2 ")ĹMDI,1 Enter Choice 1-8 ?";@A$7KA$"8"İ7000:4012OL(A$R$)(A$"9")ızT(A$"1")(A$"7")İ4300:4500:4012|B$:4012A(A$)(A6)(O$(6)N$)O$(3)N$:O$(4)Y$:O$(6)Y$:O$(7)N$: (A7)(O$(7)N$)O$(3)Y$:O$(4)Y$:O$(7)Yize .......... ["O$(4)"]"H" 5. Hi Res Page 1 or 2 ... ["O$(5)"]"w" 6. Side by Side ......... ["O$(6)"]"" 7. Top to Bottom ........ ["O$(7)"]"" 8. Save Print Options to Disk"," 9. Return to 'Main Menu'":6" :3012 Slt Opts#-7:1]" === Select Print Options Menu === ":" 1. Inverse .............. ["O$(1)"]"" 2. Emphasized ........... ["O$(2)"]"" 3. Rotated .............. ["O$(3)"]"" 4. Double sto Disk".D " B. Return to 'Main Menu'":WN " Enter Choice 1-9, A, B ? ";zO 8(PR$):1:C$;:21:33:"";X A$l (A$"1")(A$"9")ĪPR$A$:TP,(PR$):3012m (A$"A")(A$"a")İ7000:3012v (A$R$)(A$"B")(A$"b")ı B$ct Printer Type Menu ====":/ S$"1. Anadex"A S$"2. Apple"U S$"3. C. Itoh"g S$"4. Epson" S$"5. Gorilla Banana" S$"6. Mannesmann Tally"0 S$"7. NEC"3 S$"8. Okidata"7 S$"9. Olivetti Ink Jet"C " A. Save Printer Type "";NAME$ (NAME$)0ī20005 PG$"1"đ:X(AG)D PG$"2"ĐP :::g "Loading ";NAME$: PG$"1"ĺD$"BLOAD ";NAME$;",A$2000" PG$"2"ĺD$"BLOAD ";NAME$;",A$4000" P$::2000T  Slt Prt  7:1 " ==== Sele A$8 (A$"1")(A$"2")ĺA$;"]":DR$A$DR$A$:C1> P D$;"CATALOG"a Load Picg z ::::20:1 "Type in the name of the picture to load" 22:1 "[ ]" 22:1 "[ ";  5(A$R$)(A$"3")ı& >B$:2012. H 8 ` Cat> j H t 3:1P  C0 "Disk slot ..................["SL$"]";(8);(8); A$ (A$"6")(A$"7")ĺA$;"]":SL$A$SL$A$:C1 "Disk Drive .................["DR$"]";(8);(8); :1/ " ====== Load Picture Menu ======":Z " 1. Load Picture Hi Res Page 1": " 2. Load Picture Hi Res Page 2": " 3. Return to 'Main Menu'": " Enter choice (1-3) ? "; *A$ /PG$A$ 4(A$"1")(A$"2")ī2400" 3. Select Print Options":> `" 4. Print Picture":[ b" 5. View Picture":p d" 6. Quit": j" Enter Choice 1-6 ?"; tA$ vA(A$) ~(A$"1")(A$"6")ĪMENU$A$: B$:1012   Load  7in  19 " Practical Peripherals, Inc.":b " Graphics Printout Routine": " (c) Copyright 1985"  ." ======== Main Menu ==========" 8 B" 1. Load Picture": L" 2. Choose Printer Type": V   O$(8) MENU$"0"%8000E(4)"BLOAD GRF.OBJ,A$7000"KQb(27);(17)y((4)"PR#0":40COL29000: InitP1000: MAIN MENUdA2000,3000,4000,5000,6000,990:80:"BASIC":"BASIC"  Ma"" " " " " """""""""