L}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0,0'@R !L` ` C D     )16CS )  C)D1 p p 0 C9DI pCDL~CiCDiD` ` C D     )16CS )  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙`  J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLLI $j") $G% }H 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆  LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` sB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?L[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}} } HE DDOS DOSDOS SYS B%LLd}}}CDOS SYSB*)DUP SYS} 0`BDELV !B }`LVH! hLd` l`0 ` T0΀LN@Ԡ  Ȍ Y }`EڅکEۅۥI٩LY 0 ) `SLSAL=L? n L  ɐ   B!}jbi  a0^^^2WTU@i kL QLcba ac`D1:*.AR2h"}֍BJ V`06 2N- 2Gfgde,h0 h 0! H# ``֍ *`,#}i0  ,ip L,i0 LllfDEHIBLV `8`fg`dDeEf8dHgeIH$}Igefd`  b @iLjL:L:DELkE:D1:DUP.SYSc`B` nBDE%} J V 0 ` BLV  ;HLLw}A˺ٺǠD1:*.*1AH h/ e) > 23Li: 6i) Q8 :8Li:.DE 2 1l,)1'}A) DE 18DDAEEHHIIB O30?9A 1A BJ ,1AP IA m3̭1A >8A8(}~8A 1L Ls31A 8A 1  6Li: 2J!U!!=! e)&A 6 !i) ?!!2!! 4Y] 23BI)}D!E 2 i)8TD!E000A0,0"10k0H:L/Li:MAKE SYS FILES:DISK#?(OPTION=NO DUP)WRITING*} NEW DOS & DUP:DISK 2PUSH "Y" TO WRITE DOS & DUP:DISK 2& DUPONLY D2:DOS.SYSD2:DUP.SYSԠΠuB:)&+}A&A LAh :Ls3LA _! 23Li:`"Y" TO COPY?COPY:SOURCE,DEST?٠ŠŠΠԠ F,}ILE NAME DN:! 64A3A %Lo$tBD %Lm# A6A7A 2BHI8DAE m38A0 -}: Li:6A7A7A6A7A AjBAٿ01uB: "8A  " 8A . "8A  " 𩛝 "! 23 .}AjL'!AQ! 4YLW"آ! 23  a%, APL$0A 2 \3 %3AtBDL#1uB: "4 " D"EL# \3 |23/}A %3A %% 23Li:!tBCKSE0A 23AtBCKE2AiADгȘ 2A 20A2AB B0}DDEE0A"AH#AI O3  |3LL$A2A0AHHIIH O3 |3LL$A0A 2A 2A 6, ALO"Li:t1}BDL# u% %@LG" % 21A+A/A+A DE"AH#AIB O3  |3LP%/A>b 6 S9 +A+A2}JB ", AptBDE V0= IH BDEHHII V0  l%/A u%L$ |3 , AP u%LO"Li: D"E3}`1AL4>C 6LS9tB?* = ,ɛ`tB,ɛ`4AH5AH |2h5Ah4A`tB:L!tB% 23Li:`Ġ4}κӮĠĺΠԠԠK& t23A f2 u! %3A %b&Г L&NEW FILE NAME:OLD,NEW?5}ŠӠĠ& t2#PROTECT:FILE NAME?& t2$B m3Li:UNPROTECT:FILE NAME?ˠӠŠġX'6} 4 t2 u!tBD E' 23Li:i!ALG"!AN7' 4XLW"j' 23 !B a% m36ALO""X" TO DELETEԠŠˠDELETE:7}FILE NAME?ŠŠŠ3A&A 6 'A 6 3,+A8 6,A-A S+ 8 4 (&A+A C> 23 S9 (8} :H 5hɀLk( ( 84A0 (L' 8 4 ('A+A b> 23 S9 )64A0 (8 :0U 8)A(A 84A09} (L' 6> 23 4,3A @ 23Li:(A)A S)L 7HɐhH a6 6hL-( 9 )9 R6 ;,mm %A$A`:}``)A(A`+AȢ> 23 8? e)&A 6> 232A*٢> 23 8? e)'A 6? 23&A'A+A S)L:`;} 6> 4E 6(`910`3> s- ) 6 (L~' SECTORS 1-720) 23,A-AЍ(A)A2A.A/A5A6A0A7A` 6? <}23 4 爹8Aɛ߈8Aɛ ).A5A0.A5A 4 s*,A-A ,A/? 23 4 ,A(A-A)A` ݈8Aɛ=} 4 s*ˎ(A)A-A)A (A,AL)``6 s- )2A (L~'.!@ 6 )2A3A (&A'A 6 ,A>}-A S+ |+ |+4A : ɀR4A 8L.+ 8 :0 3A4A 54A (?} 8L* 5Ld( 6.A͈p s+ s+ s+Ԣ͈`*͈`+ 4 8/, , e)8 6+ 4X* 1l,',, 23@}B.DE m3Li:FORMAT:DISK NUMBER?PUSH "X" TO FORMAT DISK 1DISK 1 BEING FORMATTED, DENSITY:Ǜ S)9 6 R6L T TA} @@` a6ѩݢ@ 23(Li:OFFN/A 3AA4A1A*A1Ai1Ai*A*Aiy:`#n4An3AB}( h l,;1A0NEW DRIVE OR DENSITY:PRESS DRIVE #?, 8ɛ. e) J- T 0 C} J- R-L:Aj` 3A.3A .A` -b#A- 4XLi: V.Ls-`ҠԺآϠ̠D}B $A8"A#A%A 48A ;0 򩠝;`PRESS "X" TO CANCEL RESIDUP=bE} b. aLS.. 4X V.L: b.Lb.;ʈ`/ 6 0. 6â. 23 8ɛL:Y W .L|.N P .LF}|.800 эL|. RETRY X TIME(S); WRITE VERIFY:ƛy.;.ʈ` Select # error retries; verify (Y/N)f/ t2iG}@R N i k U/ 23Li:Lv3Ԡ٠LOAD:FILE NAME?0M0k0 t2iH4AsB 300 30080,00H}Li:10& 3 M0 3 k0ihAi ,i0 2 BD0EHI,iHD0E m3I}H"IHI0D0E O3M000⪍0 0k000ઍ0 0 Li:0莵00D0EJ}HILm3ASAVE:FILE NAME,START,END(,INIT,RUN)=D1EHI H3 W2 3*A 1 Li:lGO TO HEX ADDREK}SS= 8 6Z9 23 6{9 23 6@ 23 8ɛL: e) r7 5LJ1=U 1 4X& QL}b  1 Li:aalŠԠĺآϠԠ/)`` BHLm3tDBEJBM}Lm3 8Ўi`'LB ]2BLDBEHILO3 /2L64A5A`*A4A5AL2 /2 \34A5A *ALBɛ;,7MBɛ"N},:NB1MB*ALBA"DtB*A*ALB*ADtBȩ:tBȩiLBtBɛ6,2/ .*A*=*A֩#3 23Li:LBiLO}BsB5A4A`ŠϠDEHI B B VLi:`tm4ADBiE` V0` |3 86Li:HHH, AP  l% P}hhR S 9 9h`*A(A)A5ALB5Aɛ*,& -4).)A.(A )A)A*Aө3 23Li:)A(A`4Ϡ٠Q}Ġ̠80 8 8``5ALBD800HLB,ɛ5Ah`w4 23Li:ĠŠ 23L8 R}4H 6h`Ԅ ؠȱ8A)8Aȩ8A`8A ذ ٦Ԥ`8DAEHIB O3H`ʠ̠BʠĩS}ЌЍ`'A,A-A )6 8 :0)Aۥ(A`La6?͈` :0*A` lT}5'A Ȍ*A v50B*A v502Ԅ ݢԄ (۰ ؠ)͈`iˊi` 5U}4A 8` 8ˍ4AL8 5ˍ4A` 48A a?U?L23H h` Q?A? 23 86 S)Li:L6CV}OPY SECTORS 8 6i? 23 6? 23 6? 23L6=L23 6=L23 8ɛ`  L=9( )L79(` 4Lt2 23L4 23L4 6 s-W} t2i!A` 8 4YD9EHI H3'ALi7 8C 5L,7L (8LJ7P 08 C9L 7Z 6 5L 7EL: e) r7 l5L,7'A X}` 61AƝD?E3A,A-A )64A[W 48A?0  ?4A0Lu8ɀi 8鈍4A m4A m4A??1Y}A 10(3A)A(A L73A@ 23`1AL~7 Q80 ~7 6}@ 23PC 86PLP1A BDAEJNKLVZ}4A4A m4A m4A@?L7;5A5A͈`i͐`p栅3A٠ 6P DAE 2B[}HILO3}8 23@`  )` &¢&L23 9 S)Li:L6 )9L6 a6L6 6> 23 S9L6 6L6 Disk Drive Speed\}:___ RPM~~~Drive # X PRESS:=check drive speed=list error sectors=print error sectors=zero error sect]}ors=exit to main menuةj R- 'SR 4ح$Aiͭiʎ%Ab b. x, -D:E͍HI H3 ^}@ Aʚ 4 6> 23 2H 6hɛ=L5== 23iil  _}  (Lr}---***Ӡ***--- (C)1984 John Chenoweth & Ron Bieber distributed by Rana Systems Ġ`}|DENSITY D1: D2: D3:N/A D4:N/A||RESIDUP: BUFFER: VERIFY:|a} Š=FILE LIST <+OPTION=PRINT>  AKE SYS FILES b}ORMAT DISK  OPY FILE ECONFIGURE/ON  EW FILE NAME BVERT RESIDUP  ROTECT FILE ERIFY/RETRc}Y  NPROTECT FILE OAD FILE  ELETE FILE INARY SAVE  HOLE DISK COPY O TO ADDRESS  OPd}Y SECTORS PEED CHECK  EST SECTORS XIT SMARTDOS MWCNPUDKTFROVLBe}GSE6s#| .r&v'b )"&&&&**+-..//011ԠΠՠPRESS CHOICE OR FOR MENUCOPY WHOLE DISK Insert source f}disk and Λ Insert DESTINATION disk and Λ DONE!"E" TO EXIT;ANY OTHER KEY TO CONTINUE TO CONTINUESource g}drive # ?DESTINATION drive # ?Source drive is # XDestination drive is # XEnter first sectorEnter last sectorˠh}ŠXҾ Currently on SECTOR:SECTORS READ: SECTORS WRITTEN:ERROR SECTORS: EMPTY SECTORS:Seci}tor XXX:xxxxxxxxxxxxxxxxxxxBREAK KEY ABORT-128DEVICE TIMEOUT-138 DOESN'T RESPOND-139INPUT FRAMING-140 UNKNOWN ERROR-141 FRj}AME OVERRUN-142 DATA CHECKSUM-143 DEVICE DONE-144 ˠҠTEST SECTORS ϠӠDOUBLE-SECTORED Pressk} drive or for menu٠ŠŠXŠŠ٠K:P::E 2 1l,)1a ۏ꩐̠Eiw01`ɐLw`D LC' V0B tLp'C- r\N8m}*:{$ZF;t9_Is[[;YCax) aSҨ# i{EW.8 qm@8$1dagDn\J8hy^n}|1Qq{iJ5:#bhcUވ4m@pٜG(7x\Dɷ'm M,a؉A4"el2xRF"fe6OkEpo} hM_!;as]ԯ&0lodܑ16|NXӪ=kuGQ(:u)HjF}fL]R~cZH6$GDwe8iap}ygLCFri %YЀxɬ#vm(҆@.WQ &+0pļh1D2 LG:jX=2lQ?-]Չ(SA/q}˔08H|r`N@l!A"bP>QT7% o] 0`i΃ _M)u0jXF=+7~Qq$un\r}zkyg^L4&x=`9*}k62TJml%T́!T9'zy;([NA|m_FHe cH6$wes}SA/pJgU(YqrWE3!kY>c##nIyKXӪ=kuGQ(:`rYү$X3AWwK]%$zZt} 6cawy"029hdCVJ|O>BPf%5^!% isT#[:_c saO=+~lZH6$u}%0h %&̠EiwL&01D`ɐLwD˩%`-h`KR4A/ ӟjjRfTe  @|dyiI#\[LӼTQ6'UI^ ׸j+ & uwsIƚ玺,-nw}R& xCڰ$d`gY ~mw8=Y)}HgX 甒]&m\Jfz#@G%(YcjF/.x}HyZ#&ocv04` E{)´yF~~CI3벺,QUqDу (<"Rӧf"^vuqQ%)ju[lCy}'\!Rę5x:5AoRKjuɶ(m\б~-Ep=!*|ܿ$3zw[dER|jz}ɪd<-7NUWF,-S/#nTB`1%!|F|kB4܁ pm*Ixo2&ޯC}>?f/RWnXu"{}GlE?&-RQ^霰 6iWg %˯_z;rlA.ue GF]O왼D2Qvn;. A2~-9)^DCY^} Eyf#͗G|}.G^L?Ui0U8D0%tBd~g>(:#M|rJ33P&XJ+T@O1Zw_h|#hYoE0UdHzXˑWf.-H`~*}}2[Y7NwU쩋B.6 !R7γM2+5ɧ[ZdV yb$#!cF鵇Y%lvj2B:c>ʦ~6X`l+SݾRYWO$~}:$YpV%3_m{2' ݋.zf>ڣʓ~WmҙiHT㹥ջߤi1Z9B6*!qooQI-Rp 먆WmMfl09S^+*uQP"d}r\вsHqC[ 3_V. }&XI  Ts]tnǀD}O#wcB3mq`W,H+ɭO+xFJL$wH8]\MI3UMM}EEP &DAJqŤF+4aigUQwf+\5G/*=rZԭ42 6J=i(Q>U\g~Ύ}'[EygT ^c(HR] LV9,j˭T#/8bN@+9ʲh_AFW'_-XJEC0w,AO^}h 'S!7nvD}^Lb5{IњX&ֻ6 CNykEx`jv[a+5JJn|oJճ6 zW+n囎UxE"{5Ips%¤((Q^PX}OP~]Qwϐ<#M6Pp~,nb\Ǭ3엾 - TuIp}]&eMk*{YM AW~j_`2 :IK櫓._L`LJ#bD$USVc ^\`H-[f-+/p`a;Q1:rJMjs_Sg))Z~Z dZ}}1cf2TG׳D>Du^LAU:Lp_%O<{ 2%!@ZbQ綞4r2Ec hqzfxѢB,10"7CL7+J}vߚ\.^uu1}?S8Bn]oJНĉxdW:G2઒ECGn xTbg#w]MdV`?< AC$b:#5q2ZyC𽇪*}ssoYةǓK`IL1r< }Fʓ ,#v^#P[n}켮"F{V{9_]H&)K{Z`D3<<rbN䞆A }7/0@UX4 {LckQdb FqHK&ygUC1-N·ԡ)nהw9#3!#qb6& u +ZoCʹ}ha?Pq~csfTO''"He~v쌁|pȋ{feV HvkQZB=2!|E2lWD1:2w~a|ղ: ( 4F_+M O > '}e~OhWSl9}ޟL3")V@&ID hvJӊǮFtdVx7 $> feQZU'-y]2ޅ.# (¼4}?)vSo2`QرCB+աUaͻXs=9)uGT3(ve8ZF=4PtδLU_mi+L'Kg} *s [+%>vukJu/ҌvhX( )Šz<[j t+f9y%~Ʉ&@*Lѷ =f-X?Cg,Sns[}dI>zA W㈇5ފIs`QR 39@l[AY8 OlPz@=!+8%}&kYwiv'6.Bd .݁S_l{D1b}FbӻwSj)-ǚ8E򜹸ޞza+eHhNµ0x-ex o׭JRiI_C(n 3a(c_ }leX[@_lY7@[u/OlC*SiL .~W վtsDecmS.6f.-"[qeO\±Uxz}f=ש}@,({XY-z9[,: yJa}6a*2@qpȠkX<#u VX"N]WWC 4ӭTyr ڏ և}cl녌wtnv3ϴ,Bڛg}w J&7HfkaRKuu-˦. D}&}Pj>`+VGsYL|[:4*=D ~} }\BOlykh0]&ՈC̡5TFykmv<Q)C u x&4_DKPԲOXvzd?50Կo`$AgQe Y ,}>>^L1,XDfohBx 0bGq"O AjXeFW ".'B*>ƾnbJ&+Il/r,_N*J'}P@{)}eOȥv|$R).U\ %ET{zY)]Vu52bľVҔ~.uZ 6gSC4 ^/:lr@פίê71b}=>*iDMvUӶ/)ډ>KgeCvSJz=ߌ:8h DBr'W ߀QȣhLp \uy[̵u(I6t-Q}ݙǹ勝Mq!-gU/ g)BUB 4Œ}6"Q`5kK Էᓑy ]CZ1hsjLqzT=Y0=eegVIwHX!"T}`:jx6dbDFKdeYt [K7wn7JbCn:tQ{,c!OGd+AR4HSbщgB [C*i&/F />ϳu{3XGo##}Kѷe0G[*'H 䅗ؠs={_;u0ǍၫŬw'9OS?r5V笊Ô·'XW3QS}ԣc#k 4a{|_ROi} |U lM eIhzT3CI1p%fbJnm.{IoYk{kUuگbWSF b-*eNZɶH󓚨u~9;G}B9g'&D ߲̌ǖz9#^#A3O뛉n 7w6[?~;˩ɯs32T8{_ൃ*JT(uoP^,Q4"H"dq}ـC-*'m11Mkiυ i7 MSWoȋ7I `z{͎х,}fZ[6:kbG5#vdR@. o]K9'zhVD2 saO=+~lZH6$weS]/&3q^aw;(}(-1iZlDF3"<2R3?K Sy|PB1)q_v:h׵lkφ5"Y+üu%Xy?Yozn\J8&ygUC}1 r!ׁ=.ʴ|jX/B!" rPj.*}OY+5hzDV 2adR=09{^LzvfTD2Vچ=+ C}L!i{EW!3fpB,>{p[RYKcF!,Qz+mRLdy`kBeBZj7#D~z(jOd}gNc0 `r\.8 oyKU'1 vrAhSP|t (J}ٹoXlT aJwegw:/ИpLXi(_W4i9F:x#]XB7Q^_);nxJT&0gqC#,*Ň'}bGd <-?-R@2!*&]K9 \M1?hAhn}W8=6#ѳnu-d|o[Opb L&U6?2ewA}S=bL^(:ijKD)!d qz<97~wINՐ[Dvr |, b^M4('}pp58żX~ڄ=6x}Hy> +n~fC̖3Z-rgN;+FjM5%]t'J z ߺnI̜9 \lT*B۾`=af,6bV}gcAmi^F;>>hSͯ%&ObP vF Tgn̘3 8IL=hѴwCF"QM HP.ku]Kz^TT v53He_q3EH| } ̲w!^S z pWՅ~)1iCEX! OcC,m`M%B(x1]^A0y_v߉+jϢ4OqQ},) z֒J}:&F/xgnB%>LIL<$@=[_t;qISA5au]2.*'zhVD2 倫O=+~m} 7-6ehVȝ \LϤ@/VLp*&OcDԎ.g/[F6?CoUA0NkOŻ>}j:cQ9x}s WW;tsQ^ehz4$#1k$# IaCf [&Z%a:H9wy){~n2;S8}:Nmi4,Eaf sa=B*-U@d`>eAW/`K1G[R*jtFP" cM_);n}vY\0UCqih)Ņ.V4"Y{TY?`r\.8 oyKU'1dxSZ <*## 8AzZ ?#SA`}SR=09{^շ%Wrwtn =a=+P~P;23$I;ca(fT 5J^(_M{5*%!XFzI+mZG}zk Jxf(# UyC-? |NX*4kuGQ, X`U /z}u5$?RSZ_P!ebj\}]w@$eM +w"GbH<%}LdGGM.$ _O:)O})!r4Ec?F*,] ~H>$%x&]C˥2 ds_}v܉+:kQfu>XU?,vӂ.$y|P&4 guKY/=akDG.st&2@go:kPBtf@}uJn Q5r'K=* EmNP@p8vGSZ:e{I_-nVSK uxQ$ rz >+SGgrX +w}il_VkLd%4'Jc0^C Io]Q߲%j2VC1 r`N%}'ji S($eO*nRP~vdqA/t&td:~ٶzaW~22>cT# 9VDI0$bgN}a^{x 5_Z;uxiy>hP7: Y\7q9/2fTX1"3viEE3Sn $45#vcSV_1k}@E9| hK{rU!. sz6ǝ-UAx$/)w ^H˝I0KTd%dr*YXjlkP>,Y ~l[57g}ynݳ@,!7J_1v}(F|+sI4#`QwQ>, gl]I9> ]t~g9h1 W+HD{ >g\H1 bk} }nX%Y8Lh mE&^eat=+y"z[L^UeH$:e{I_-n|Xґ!W4tYP>I {m@ C}We 2.^s6qSM.(c>|Q\D2# pFT*8kyO]3y+\TS“P8N .<,};PY|!,\P}XpdÔu\Q9/h8a>g,ӯ#w%'( o 5kV%!R@ep0qF>_W~2S1ڽurHu(.tm}`H7{p`-ݾC4*3k{;U|QYCT,+iuc=j؍/ "U]*^ߔ$ aV,ލB5ĭbƜN;*K#|sР7"o}t_ɛ, $a;.aCQ'5 `vDZ(> l*aB;wd5-5 p^L:(G{hW~ XbkǏ.}J#V}!MMifeCA7*J f[eRFA*uXX=)Ω ~H(qޣC22 rqgN9"T=kA3 }ԗ#U*v _[C. em\K/{qUN.! HaM= 3lGH-p{ E;anI{BLsilΗ1!`}<4Wxm?`H#lR<~ˋ1M?#;LcwfzXvG8u ژ>,I2~qJ%P#TB1d$ u`uҲ:5xy^BL=x.{nW2~3!n4}vb=k-Hm3~m`Aӕ'CT/yux7uM)-|QX"}8:^}c0j'+cݩ mlH&p/e`BC Rv׍x+} 3XFs!T秣diɃ/Y }ofJ0'KZWRp!l3X/Q"ec?P h .eU/B&ȁpVM ({-i8lD}'9@|b=k?8 qYQx}9pfSC&3k^W=o{%`]M0M>79{Ŏa{pyik-|}Nw;*tpiw5*M3[ɕ,^úeuUHm :(I[|aO=*~с6Jw ^RIs0\yZjE^}ilΗ1!h4Ofٺ?(j[.Kȫ$ ds2&Mvo6('L(fnG.hS-q cփJS1&)/=]Uxx3}ؿ_`3u·*kPIF!;&AwdP[@' nGD^HxwZ d2 5zc\N`r^?6Q&ue hER\54}6 miL !Q4uyvLMnf 2,&+K?TB0n%q\dO97(?Zλ,sټWAPm|T oeLِ8f6 bÝU}J1L$ saNqѴwCx.^EcR.Juoo]K9dܷXJE3f^aJF<*;dJ:W|6.csj}~)I\)yi5lA3!M4hb k?8&{Kd%I(=hB7^(L;g{n7P"Y+ÿu X>,] `\D9%}gnuzN.tSk]Ї4"W|<@5x 4kWwkѬ:>O˵<rz`U opb^3h{XwĒ53]3} qDV_Gpc # wHjT|P9-Di[I Cg@˗2g"[+ jsQF}VQ_ x`8}=kkuGQ# `r\./F[F/8mVDHr~}k;aDV 2as]/9 zqZSIHlE<},[YxP~l&) I ,ec< :tclAUKGWg4:/wiQ1&) zJ:]M{q ;n}G5XɐY :(Ws-R@R=0z]԰$XfAx ;3`uA7k3Qe,$']I}SR=0fl~HZ$6}ewAS+ k"lH[6_'.w*VH/hcJ%6mI[%7jtF^0[sLL!'<o94%>tyڄ ,}ܻCAӟ:= W)sUx03 `'u8*t#Mk7bF';ZD|dI[@b6:8]1y)zSw͑0b s?ZN)#:EmN@}EcmSaH. 5p!e *U1hVg3:Ó?ZMmA>'Z k;dfXBl =dP”N*Ȋ[fF86i08}P?RT2o]8zaf1U oO+]Cve<";-v'۔@]o f}'bWWp6ξuiT=P~5}W\@5%Q~ehG' pPLRo7o ;V_xl_/;awdfoH? hwD :jXF4"}uHڄ=lG2(QƖ8 /^9{!MVݡ szO&:vc/+ X l X w6 / Angn #5ra t+}XZSKMwd'3{o~Lw*`SJ "rbz-D,ZSaCdVYT{_*Oķ( |wX]}dGc,81'6t|H}7jBhk Xw&^k7bX5$`SA5/f}i3j^Mλ2 wU}#?nZ5s5 J*vsܣ@*pE_-oa[!eO/T8>pQ :a DFK"$ sA%\|fhz)A,g}PXJ58ּ4bP(T2Ƕ'92{rTY&4 _:KvKE+!]@diA:ɨ{Ei3J8>iDզ2,}C7`[*Ae]Tю7%TOkIAmۯ E^F:$K?zhDvyh3iYQm}CIPC0@_ EqdM#}o8|5QDӐ H{ g;,o~J#~-_7bC@< AEQ#\*wlާmWJ#5hzD}V 2as]/9 l~FI,2 .s$[s8 AzfIKD)/ 5Dt9JM>=E 3!XFHC*:,c}M_);nxJT&0gqM>7>)׵$UuM4rY`%]lbCS2!*&]KygFe1`<*O}7$'#}ZH_AkA.Z pb^Lzh*%$WAS=bL^(:i{EW/ tP%0?d{,RQ-YVBl } ]Q;g|&QYV,~tbs?6kyO]3gRCP  Qp!V,`|qz"PAc"`-*O3l}N zs"!TL`}d?8eMyAudeh]/V _*IlziEzƣ O$Qv3}YRv(Xzpݳ}gלS7pVL: 01/ZAb5MNzh |"L}nY;&Amk@ Xk&17[<ġbeHD59< o}3fO%h2mͣ0 g va tj?-n[K,> JBQ:2O q7Cݑ*E#zkc^F!b| ɤ.$} em L%rC߃_Zg`戰( Y}\mn\ŵ5$|PcE5*PMoNȻ7'"pvB͘ 5FR}_ibgϻ3^SpeY8)-wl].00Uލ/۩MlXJy@~%vq?> tZʻ6Į!g} - .D' A+\ۜs{rW^+oedS;S_v'eTZ*v܆C3A0)^w;<d{RG3/t9YU@:D3d}MYWi#'etTFFs@wtV8-%/[OpA531>gG2nDX*0ڂ(yiTB4r!O?p f}*rз4&}TSC.A' w=K"Nn R <eaTMC$Y*$)v}2R/h F-:'X?`?d-Ԯ"v&8/} n 6Isheݒ1F]L#H|ikY@P9xs WW;&sh]"LN\j& SI定XMh7㣈w3}W)e,ph~$p|:X i3ҋɹiMA?2L 1Tr-\rb"Ï ܃h)jLJ"{Kif1 -rT}yPj+3~Hv|B㜼x+)]]#Ukfb/1؞ްLr3:1< f+)Ԕ'o -F@yJ\ZXI^lr@~9|}qka8CRvQk~|U1lK\:u|nMɳ1 Usge°(@t^9?Y`ڻjpF$_tNS?hLS@}HFh'/&8w0&~z܄JVNw0siMLA j=Q6J*Iug/2IuDZPg= iaW0Is釖jö}*F#}IPE#}PvW_6(2͙\buo5?آR} 4Ա^ SgxOw9!!o+vs},2 WcsG!]LrʌԘCy} 5h/D*C~`[q7XJơF 0*QY}nF۽0cʉO{Jy;#j 9= ?d]}azNñ)XFTbD4!gr[DF% (^}KO=6!tfCUso](Bo5 =$@4= -vjӴn؉ }}?mi5#ڀ338E:E0]^ID~?D9H2Yq]`4āzsK=ol\K"'zdTB*Z}:szK<("}k[G5S!vecC&l1o]+p8/jTE7r s|؉<&.ђl\86\"bdVʲ.q^"J }+u{kR΢3c!ufٴ>|4DmZ@7Z#}T,y5yM;(yZY?C#o~q ;)ewAS=b[I}B+-R@n9zjLɰ9,j~߆ lxr`<jtFP" cKD).SA0FK~[C`Q8lEsa=h@}G:&EOkuV_//TBCU'1dv@R8<ZMݫ@( J^E9)_,fk]Fh0%gA2Wިhs ǧh8>U}IުA0 i"]Ojk:5GGtD7/Zm\K%2zhVD2 saO=+~lZH6$weSA/} p^L:({iWE3!tbP%~~3AB*DLISLOBYTHIBYTREASCREETCHBASABYTEWANTTIMLOOBVTEEXTRB(HB(RB(SB1B1B1 }BsDAA  @ @@  +@%%6-F:A`,%F:Aa,$AV6- }%@6-%@%6-F:,%F:,$AV6-%6- 6-BsD&&;A(,9A(,9A(,$$ INPUT } A 40 CHARACTER STRING:#6-%@(-@B:,268,-@:7<,,3&8,!A'&68,-8,&A( }408, @2&68,-8,%@d0 @U5&8, @&68,-8,&@27 ;-@<- }@B:,F68,-F:%%8,$@,P%8,6-%@R U6-%@96-Z d6-%$A }n'!%A`6-' Ax @0 D:BITMAP8.BAS J3!5ROTLOOBYTCHANG ;@0,--@@'")67<,.>:,- }2.3)). PUT YOUR GRAPHICS ROUTINE HERE4.d6-?:C:,,i%-@A % An''104,162,0,17}2,193,2,189,194,2,157x''193,2,232,224,8,144,245,140,200,296,65,65,65,65,65,6533If you wish to rotate the colors }in registers22704 to 711 instead, change lines 110 and 120to read as follows:00110 DATA 104,162,0,172,192,2,189 },193,2,15700120 DATA 192,2,232,224,8,144,245,140,199,2 D:BOTSCR.BASO9=PPAGEXIBYTPG 6-A66-Ah -"  } 6-?:,(A'  IS A OF TEXTAMAKE SOME WORDS INVERSE2 @P<&&104,169,17,141,40,2,169,6,141,41 }F$$2,169,30,141,26,2,98,173,243,2P,,41,1,73,1,141,243,2,169,30,141,26,2,96 D:CHACT.BASd hSECCHKSNUBUFFEBUFFBUFF;}A(,;A(, 104,32,83,228,96o67@,.>:,*67A(,.967@,.Q67@,.>:,`6}7A(,.o67@,.&&SETS UP ARRAY SPACE AND FILLS IT??CHK$ IS FULL OF BLANK SPACES - CONTENTS OF UNUSED SECT}ORS%-A6A@"!% 66THIS POKES THE CIO CALL UP ROUTINE INTO PAGE SIX'Ai@'Ap}@#<<THIS POKES THE DRIVE NUMBER (1) AND READ FUNCTION (82)(*& ENTER A SECTOR NUMBER TO CHECK*-=! })!A @@=VALIDITY CHECK ON NUMBERS2=&Ax&+P:'AV,$AV,=AyP:'AV,3,,POKES LSB, M}SB OF SECTOR INTO 778, 7797: 6-C:,)6-&+P:'AV,$AV,:6-P:'AV,8ArAs9..POKE ADD}RESS OF SEC$ INTO BUFFER ADDRESS<(6-?:A6,(CALL UP CIO ROUTINEF) 4 NO DATA IN SECTOR) @@P! SECT}OR HAS DATA! @@ D:CKSECT.BAS*.!5 6-@@6-@0'6-@p36-@?6-@ I+}@[@@mAA @@% ,/@,%/(,%@}/%@2 @,/< @` D:COLOR2.BASI67HEXDECNUMWBINBNYTRANSMANUACBIBYTTO' 15=AE !}@@ @ A@ @ ByU ByUA(@ RR;@,;@#!},;@,;@,;@,;@,9@,128,64,32,16,8,4,2,1:-@@"$68,-( !}:A@ >:A%,86.0123456789ABCDEF86.@ABCDEFGHI!!!!!!!JKLMNO(e()(PRESS [OPTION] FOR HEXA!}DECIMALH( [SELECT] FOR DECIMALe( [START] FOR BINARY*2( TRANSLATIONS&6-@26-A@2"F:!}B2y,"@" A<"F:B2y,"@" AF"F:B2y,"@" AP @Pd\(#(ENTER H!}EXADECIMAL NUMBER6($0000 TO $FFFF:F6-R6-@\ AxJ-@B:,@6-$@%@:7@:7,,&@G! },,&@dD J6-}(!AU6.........( Ap. -@6@.6-@#??7IF INT(ACC!!}/BIN)= THEN BNY$(A,A)="1":ACC=ACC-BIN:GOTO 15067<,.06-%@ )()( HEXADECIMALDECIMALBINARY!"}( ( ( @@S((ENTER DECIMAL NUMBER-( 0TO 65535176-=6-I6-A@S A!!#}BU5 A @ A^-@@"6-P:',B67<,.7%@<%@,L6-&$Z6-'!$}@^ (!AU6.........( Ap. -@6@.6-@#3P:',"@!67:@q&F:B2R,,TIA"AF:@ ," @0D:CTIAGTIA.BAS(v19MCADATALINITE ??DEMONSTRATES 182- 184($B6-$B8) AS SUBSTITUTES FOR RESTORE-6}88182 ($B6) POINTS TO ITEM OF A LINE TO BE READ NEXT88DATA STATEMENTS HAVE ELEMENT NAME SEQUENTIALLV AND(NUMBER -7}IN CURRENT LINE2*;@,;@ ,*6.>:A%,d&&ONE-1, TWO-2, THREE-3, FOUR-4, 0n((FIVE-1, SIX-2, SEVEN-3, -8}EIGHT-4, 0x""<9-1>,<10-2>,<11-3>,<12-4>,1 #A"40ALF:A,"@ L READING L-9}INE: F:A,%AV$F:A,41A+! #F:A,  + A`  A`,   6-:}2 A. WHICH DATA LINE (1,2, OR 3)2@%! WHICH ITEM (1,2,3, OR 4)%J-@%@$T3AP:-;}'AV,3A&P:'AV,^A&@h " r A D:DATALN.BAS,m  +-@@! A AP! A CONT-@2AB1=}@&<AB@F$$THE NEXT LINES WILL BE DELETEDd  DELETING...  DELETING... DELETED!1>}D:FORCREAD.BAS0.:N 6-+@-@@/-@5@}/A%$@%#!@6-(-6-%@6-%@2!@6-<5A} A @p F,'6-%@(-@A, K @0 D:GTIA10.BAS4b ^rLOO +@7-@y',3/A7  @0 D:GTIA10.B9C}AS82'LOOLINTESSPAC ' +@ '0@@ -@@=E}-@@(--@@%),@%%%- - 26-%@< F= @p=WITHOU=F}T THIS LINE, SCREEN WILL RETURN TO GR.0 D:GTIA9.BAS<;"#[~MEMPROTECHIBYTLOBYTPRRESERV 8;@$,6-AH}A8NUMBER OF BYTES TO CHANGE$6-P:'AV,$6-&AV$+-@@$"'67,.>:,+ 767@AI}<@,.>:,767@<@,.>:,(6-?:C:,,20024,173,231,2,105,0,141,231,2,173,232,2,105<&&0,141,232,2,AJ}169,0,133,8,76,0,160 D:MEMLO.BAS@(  CHANGDLISB((B("K+@%@76-F:A`,%F:Aa,$AVK%@@x6-EL}%@%A*F:,"@6@"F:,"@y@x" @@$ D:MODE75.BASD|$%!5KEEPMBASLOOBYTUPDOWNUDOW IN} %%LINES 5 TO 70 SET UP THE PLAYER6-F:A,&@ ABByK+@%IO}@'A@x9AY@FKB2w@6-$AV(D-%A%A@'+ DCIP}LEAR OUT MEMORY FIRST2'6-A6-@'B2H<O-@"-%A%%1 OPLAYER GRAPHIIQ}CS INTO MEMORYF%%129,153,189,255,255,189,153,129P66LINES 100 TO 170 SET UP MACHINE LANGUAGE ROUTINEd-;@!,;IR}@!,$6-C:,-6-C:,n!-%@ "! x!-%@ "! ++104,104,133,204,104,133,203,IS}160,1,177//203,136,145,203,200,200,192,11,208,245,96,,104,104,133,204,104,133,203,160,10,17700203,200,145,203,136IT},136,192,255,208,245,96VERTICAL CONTROL"R:,"@" A;R:,"@-6-?:<%A%,IU};6-%@ A,&6-?:<%A%,&6-&@6$ D:MOVEPM.BASH[)ADDRESTOKEBYT6-B)y6-@  (F:,   6-F:,6-%MW}@! A( >:,! @ ( >:&A(,26-%@< @D:OPERATOR.BASLo%M`@(@@" >:A%,"AR@ !6-6-!6-%2QY}%-## PITCH DISTORTIONVOLUME#(-@(   (HR:,"@QZ}&6-%@2!AU>6-H @ 2HR:,"@&6-&@2 >6-AUH @ 6-H @ FHR:,"@&6-&@2 >6-Q\}@H @ PHT:,"&6-%@2!@>6-H @ Z @  D:PITCH.BASPz+,SECCHKCNTL00LOOSNUBUFFEBUFFBUFF@U^} &&;A(,;A(,9A , 104,32,83,228,96o67@,.>:,*67A(U_},.967@,.Q67@,.>:,`67A(,.o67@,.&&SETS UP ARRAY SPACE AND FILLS IT??CHK$ ISU`} FULL OF BLANK SPACES - CONTENTS OF UNUSED SECTORS4-A &68,-4EMPTY ARRAY%-A6A@Ua}"!%  THIS'Ai@'Ap@# A(-@A 2=&Ax&+P:'AVUb},$AV,=AyP:'AV,3,,POKES LSB, MSB OF SECTOR INTO 778, 7797: 6-C:,)6-&+P:'AV,$AV,:6-Uc}P:'AV,8ArAs<6-?:A6,F& 468,- & AP 68,- d-@Ud}A n 8,"  APx 8,  D:PRINTSEC.BASTY;Move XL OS ROM into RAM;;RAMROM--Installs the XL ROM-based; OS in RAM at the same address; space. This is useful for;Yf} making small patches to the; OS or for experimenting with; new design concepts, such as; multitasking, window; manaYg}gement, etc.;; By Joe Miller.;;This version is configured;as an AUTORUN.SYS file.;SOURCE EQU $CB ;Yq}|B"DOS SYSBF&DUP SYSlDISKCOMMBINBBITMAP8 BASBBOTSCR BASB CHACT BASB CKSECT BASBCOLOR2 BASBCONVERT BASB*COPYSECTBASB2CTIAGTIABASB5DATALN BASB<FORCREADBASB?GTIA10 BASBBGTIA11 BASBDGTIA9 BASBGMEMLO BASBKMODE75 BASB MMOVEPM BASBVOPERATORBASBXPITCH BASB]PRINTSECBASBeRAMROM ASMBRAMROM BASBREADDIR BASB REVBTOC BASBSAVEMSC1BASBSAVEMSC2BASBSAVEMSC3BASBSAVEMSC4BASBSAVEMSC5BASBSHFLOK BASBSTATMENTBASBSTATMENTBASBSTICK0 BASBSWITCHERBASBTOGGLE BASBVDSLST BASBVNTD1 BASBVNTD2 BASBVNTP BASBVSCROL BASBVVBLKD BASzero page usageDEST EQU SOURCE+2START EQU $0600 ;START addressOSROM EQU $C000 ;addrYr}ess of OS ROM startOSRAM EQU $4000 ;address of ROM destinationNMIEN EQU Ys} $D40E ;NMI enable registerPORTB EQU $D301 ;memory mgt control lYt}atch ORG START LDA #low OSROM STA SOURCE STA DEST ;initialize copyYu} addrs LDA #high OSROM STA SOURCE+1 LDA #high OSRAM STA DEST+l LDY Yv} #0 ;RepeatPass1 LDA (SOURCE),Y ;copy ROM to RAM STA (DEST),Y Yw} INY BNE Pass1 INC DEST+1 INC SOURCE+1 BEQ Swap ;If done Yx} LDA SOURCE+l CMP #$D0 BNE Pass1 ;skip 2K block at $D000 LDA #$D8 SYy}TA SOURCE+1 BNE Pass1 ;Until SOURCE = $0000Swap PHP ;save processor statusYz} SEI ;disable IRQs LDA NMIEN PHA ;save NMIEN LDA Y{} #0 STA NMIEN ;disable NMIs LDA PORTB AND #$FE ;turn off ROMs Y|} STA PORTB ;(leaving BASIC unchanged!) LDA #high OSROM SY}}TA DEST+1 ;set up block copy LDA #high OSRAM STA SOURCE+1 Y~} ;RepeatPass2 LDA (SOURCE),Y ;move RAM OS to proper address STA (DESY}T),Y INY BNE Pass2 INC SOURCE+1 ;move to next page INC DEST+1 BEQ Y} Enable ;If complete LDA DEST+1 CMP #$D0 BNE Pass2 ;skip block at Y}$D000 LDA #$D8 STA DEST+1 BNE Pass2 ;Until DEST = $000Enable PLA STA Y} NMIEN ;reestablish NMI mask PLP ;reenable IRQs RTS END START X|3Gd RAMROM - Install RAM-basednOS in an XL computerxby Joe MillerMarch 23, ]}1985 MOVING OS INTO RAM-A6A5"  6-?:A6, >:A%, RAM OS INSTAL]}LED PRESS RETURN TO TEST IT      POKE 57344,1  $E000=1   POKE 57344,0"-@@]},169,0,133,203,133,205,1696 192,133,204,169,64,133,206@160,0,177,203,145,205,200J!!208,249,230,206,230,]}204,240T 12,165,204,201,208,208,237^169,216,133,204,208,231,8h120,173,14,212,72,169,0r141,14,212,173,1,211]},41|254,141,1,211,169,192,133 206,169,64,133,204,177,203!!145,205,200,208,249,230,204 230,206,240,12,165,2]}06,201!!208,208,237,169,216,133,206208,231,104,141,14,212,40 104,96 D:RAMROM.BAS\g R;@ , &&@@D:*.*@ @` (**7@a}<@,4SECTORSA2 @ < d@ D:READDIR.BAS`TQgA ""800XL & 64K-600XL REV.B(UGS)BASIC TO REV.C CONVERTER.&&By Matthew J. W. Ratce}liff 4/5/85( THIS LOADER WILL CREATE AN2AUTORUN.SYS FILE FOR YOU.<##ADVISABLE TO MOVE DOWN RAMTOPF""WHEN IN THe}E RAM/BASIC, SINCEP""SOME ATARI GRAPHICS COMMANDSZ""WILL CLEAR RAM ABOVE RAMTOP.d(((i.e. POKE 106,PEEK(106)-4:GR.0-6e})n**(i.e. POKE 106,PEEK(106)-16:GR.7-11)x# +;@,))(!GET DOS DISK READY FOR REV.B TO C))(!Ae}UTORUN FILE AND PRESS RETURN KEY A ..@@ D:AUTORUN.SYS" Ae}*@ A!@!(** ALL DONE **9$(SAVE THIS LOADER AS A BACKUP6( JUST IN CASE!9HE(ERROe}R # F:A, AT LINE F:A,%AV$F:A,H##255,255,0,6,130,6,169,0,133,2$$169,6,133,3,173,250,3,24e}0,1,96))169,0,133,216,169,160,133,217,160,0((173,1,211,41,253,141,1,211,177,216$$72,173,1,211,9,2,141,1,211,104e}--145,216,230,216,208,228,230,217,165,217$**201,192,208,220,162,0,169,12,133,218.''160,0,189,95,6,133,216,232,189,95e}8((6,133,217,232,189,95,6,145,216,232B%%198,218,208,232,165,9,9,2,133,9L++96,223,168,234,224,168,240,225,168,17V((e}226,168,234,41,187,0,243,191,0,244`''191,0,245,191,0,246,191,0,247,191j%%0,248,191,0,249,191,0,226,2,227t2,0,6,-1e}D3:REVBTOC.BASd !SCREEFIRST CLEAR SCREEN +!@Y%%6-F:@,%F:@,$Ai}V-AU%- -@A -6-%@ @D:SAVEMSC1.BASht SCRLOO / +@/6-F:@,%F:@,$AV,-%Ay,48 ROWS * 10 BYTESm} - 1@5 D:SAVEMSC2.BASl.A>TBOTTOTORAMTOTESTEST Q6-B6-BhcQLOWEST AND HIGHESq}T ADDRESS TO CLEAR = $7530 & $8FFF16-F:A,1AP:%@'AV, 6-P:'AV, @(2@q}&AV$248 ROWS * 10 BYTES - 12 >:A%,A< +D:SAVEMSC3.BASphGQgSCREEMODTBYTSCCO%%6-F:@,%F:@,$AV.u}.@@ D:picturename/6-F:@,*@/SAVE GR. MODEP-@(6-F:Au}%,5*@9 PSAVE COLOR REGISTERS8-%A16-F:,)*@- 8@D:SAVEMSC4.BASt{  ==SBBYTML -;@,;@,-+@%@*6y}.your picture name*6-F:AY,--@@")67<,.>:,- #104,162,16,76,86,228$PLA,LDX,$10,y}JMP $E456( @@2AI@'AP@<ARF:@,QASF:@,cy}AV@puAW@0AX@7!!THESE POKES SET UP THE IOCB<>AY>TURN OFF THE SCREy}EN TO SPEED THINGS UPF6-?:C:,,@P'AY'TURN IT BACK ON AGAIND:SAVEMSC5.BASxm CW ##@@K:)@ A( >:, @ 2.3.4}}.$"AUA0$RETURN KEY9A(6-&A(9RESTORE TO NORMAL DISPLAYE"F:A,"*!}}@06-&@2ELOWERCASE TO UPPER'A@d'A$ D:SHFLOK.BAS|k)ADDRESTOKEBYT6-B!a  (F:,   6-F:,6-%@!} A( >:,! @ ( >:&A(,2)6-%@6-%@) @D:STATMENT.BASn)ADDRESTOKEBYT6-B!a  (F:,   6-F:,6-%@!} A( >:,! @ ( >:&A(,2)6-%@6-%@) @D:STATMENT.BASn7mLOOLOOBYT A 6-R:,%6-?:Ad<,%6-?}:A<,A AA3.4.5.d!!YOUR MOVE LEFT ROUTINE HEREi @n""YOUR MOVE }RIGHT ROUTINE HEREs @xAPA0A@!!YOUR MOVE DOWN ROUTINE HERE @YOUR MOVE U}P ROUTINE HERE @KKIF X <> 1 THEN NOTHING DOING. BRANCH TO YOUR OTHER ROUTINES OR TO 155 @%-A}dA"!% 33104,104,133,213,104,41,12,74,74,73,2,24,105,122133,212,96,104,104,133,213,104,41,3,76,23}7,6$ D:STICK0.BAS A 3 +;@,3(800XL BASIC SWITCHER$$ By Matthew Ratcliff 3/25/85,} , !GET DOS DISK READY AND PRESS RTN;8 A8@@ D:AUTORUN.SYS(#2" }A<*@ @Pd(@( BASIC SWITCHER READY.i)) !PUT THIS FILE ON ALL YOUR 'BASIC'n }PROGRAMMING DISKS. s%% SAVE THIS LOADER AS A BACKUP!x$$ UNEXPECTED ERROR F:A,1. AT LINE F:A},%AV$F:A,1))255,255,0,52,236,53,173,250,3,240,1##96,32,160,53,76,34,52,184,176))176,216,204,160,194},193,211,201,195//160,211,247,233,244,227,232,229,242,155,4**162,12,160,52,32,120,53,76,56,52,194))249,160,205,22}5,244,170,210,225,244))155,4,162,44,160,52,32,120,53,76,88 $$52,80,114,101,115,115,32,35,32**97,110,100,32,210,212},206,32,107,101''121,58,155,4,162,66,160,52,32,120''53,76,115,52,91,49,93,32,66,65,83&&73,67,32,160,207,206,160,1}60,155$,,4,162,98,160,52,32,120,53,76,142,52,91)50,93,32,66,65,83,73,67.**32,160,207,198,198,160,155,4,162,1253'}'160,52,32,120,53,32,203,53,201,508((208,41,173,1,211,9,2,141,1,211,169=%%192,133,106,32,160,53,76,187,52B))160,194},193,211,201,195,160,207,198G,,198,160,155,4,162,174,160,52,32,120,53L..76,62,53,201,49,240,3,76,79,53,173,1,211Q4}1,253,141,1,211,169,160V))133,106,32,160,53,76,235,52,160,194[,,193,211,201,195,160,207,206,160,29,155`,,4,162,222,1}60,52,32,120,53,173,226,168e""201,96,208,48,76,31,53,82,69j//86,46,66,32,45,32,195,239,238,244,225,227o%%244,160,193},212,193,210,201,160t))230,239,242,160,210,197,214,174,195y,,160,161,155,4,162,252,160,52,32,120,53~,,76,62,53,201,2}34,208,17,76,55,53,82,6986,46,67,155,4,162,48,160++53,32,120,53,76,71,53,29,29,29,29,1554,162,65,160,53,32,12}0,53**96,76,107,53,160,194,193,196,160,203&&197,217,253,32,32,32,80,82,69,83%%83,32,160,210,212,206,160,155,4*}*162,82,160,53,32,120,53,32,203,53,76,,0,52,142,68,3,134,208,140,69,3,132,209160,0,140,72,3,140,73,3**177,208,}201,4,240,6,238,72,3,200,208""244,169,11,162,0,141,66,3,76--86,228,162,96,169,12,157,66,3,32,86,228162,96,169,3},157,66,3,169((200,157,68,3,169,53,157,69,3,169,0!!157,75,3,169,28,157,74,3,76$$86,228,83,58,0,162,0,169,5,157}##66,3,169,0,157,68,3,169,4,157##69,3,169,4,157,72,3,169,0,157##73,3,32,86,228,173,0,4,96,2262,227,2,0,52,-1}D3:SWITCHER.BAS$%}yACONSOIOCB0PHDLEHDLPPEEDI } 2;@,6-B2y&+26-A86-B"6-Bt( 6-F:,6-F:%@,2} 6-F:,6-F:%@,<%% Text will print continuously.F%% Press SELECT to toggle outputP&# between printer a}nd screen.&(Z** "Get printer ready and press RETURNd6-@6-n7)  Press select to change outpu}t.76-%@xF:,@A %@(%@ 6-(F:,@}A` A D:TOGGLE.BAS*= 4STARPAGPGBYTTES 9%6-F:A`,%F:Aa,$AV9%@}A0-6-A6-%@#")- 72,169,4,141,1,212,104,64(9A'A@9}BBA2%-@A@! SEE % < @`dFFAnother example of a DLI changes the color of the botto}m half ofeDDthe screen. To use it, simply change the PAGE + 7 to PAGE + 10f44in the program above and replace line 30 w}ith:g5530 DATA 72,169,222,141,10,212,141,24,208,104,64 D:VDSLST.BASNVARNUAtU@ N%6-F:A0,%F:A1,$AVNThis gives you the start of the table.Q/-}F:A2,%F:A3,$AV&@Q(>:F:,&A($+F:,!A',,W* >:@'%+A($+F:,!A',,,. WLINES} IN BOOK ARE TO LONG / SPLIT HEREmmthis finds the end of the variable name table (remember table is end + 1). then PRINTs} characters < 128l6-W-F:A0,%F:A1,$AVF:A2,%F:A1,$AV&@l6-%+F:, A',}   VARIABLES IN USE D:VNTD1.BAS3NULOOW6-W-F:A0,%F:A1,$AVF:A2,%F:A3,$AV&@}'F:, A( >:F:,,' A0# >:F:,&A(,#6-%@%  "  VARIABLES IN USE% D:VNTD2}.BAS=O-AdF:A0,-AeF:A1,6F:Ad,"F:A2,3F:Ae,"F:A3,6&** >:F:F:}Ad,%F:Ae,$AV,,4.F:F:Ad,%F:Ae,$AV,!A'4 QF:Ad,"AU*Ad}GAeF:Ae,%@Q @* AdF:Ad,%@* @ D:VNTP.BASc$%UDLISSCRNLSCRNHLOBYTHIBYTSCRNLO %%6-F:A`,%F:Aa},$AV;6-%@6-%@;LSB/MSB OF SCREEN ADDRESS++(SCREEN ADDRESS = F:,%F:,$AV6-}6-(0R:,"@&6-%@@0 A2&R:,"@&6-&@@<+ 6-%A}V+6-&@F 6-P Ad!AU6-&AVn6-%@  }@@ D:VSCROL.BAS  BLINBYT %-AdA"!% 'AHA('AI@$$8,72},165,20,41,16,74,74,74,141(243,2,104,40,76,62,233 D:VVBLKD.BASK