SYSTEMS DQC3LSYSDEF BAS H_SYSROUT BQS(0vSYSTEMS.DOCp o "!#%$&('*)+,.-/1032465789:;<=>?@ACBEDFHGIJLKNMOQPRSTVUWXYZ\[]`^a_bu_edgcfhikjmlno S0'[Q\]]]˯#-BJZ{ Q<xKg}Z;,x> šZ-5~zucWWWWWWoD(%ײXZ#-B-l٦E]]]rDRo1g'θEe,jZ#R: v625vuu-ד ɖPj>fo1g'bXTkY>($[BvEeHKR}"θEe, suu-GijgyQZf\hQ;ˋX̍] W7vu- t+"w -BJKَXյlHKRo1g'Wa0\A_3[\ˊ6e8Zc(!h!`ڎ)RLiG "QvdV>յ| 'zVeFW򽬂`z/}X cZ #CS'O׃7WbO)?<#/ Lїی# >QQ~ƜV2յ|/>2(XgglgFJZA hkB1;k~lJ/DfY$|^r.}0W] '*Ys'ɖk^]ς*Ys'ɖk.g, ̔]]ޡ _Q~"PLյ|b!q0PLյ|/EWvl-Svu-߿!@e޶5wl(ϝO$W]APty-Se~H~+(ײ%QH)Q_p/O$8l\]˯FnjUt.,^Ť&`\/'\NEǴW E->k*ʀ.R?_O5ǵ<~ 2PIsZ~5:ZV/Ľl@0KdK)ezfUw*]>QMcV\wr-5z" iטQHw*]õUƲ4S3Q}µ<>3Q/Y$|tot-Zt֥kt`>q0 RbЮWcz!؀.SP>XqciOġ5\[eFkD6PVtY߮;u.)үS'Jר(?KtIa)0}r)]8g_ΚA1}¨w`mU(2n`}/> }(LkVtu%Y>T+C)]8ӵ<}SFŴ_ ؖ-ʀ.!t&`geFh>}(g.)SDʒյjt̶j%[tGR)P`1KH`t-L5|vWWWWWkY Ғ(ۿE]]]]]˯#-BJZ~q]]]]]]6}WE ǵ|kqؖkY?[(>Xq(e׶C1hWײ&4 ?Tġb~oH`etڶP"iݻ2n2Bw!T#P}H1LٵljAOt4ɵlׂ? ^i)k YHÎxLײA {˔Pe9X(,Xc_h>E=ZqI{t-[l>f f![ڔe6YȷYȖ6em -mJ}%\]rػx G`m)z˔+JoZ1Bm*ޕi Zee8 )z˔}5:[A)ejn7ޕYյ,Ä2\ YEs_2Eo)LWײPX#Poylr/OA?=յ,. %Rg WײZ(,ÑA;S\bD!lGe,jZ~iIR/O$8Z]-en?{_ö\re*bR f9EL|똽e֛ktg>AQ?c̵ BbS]`CGd1;;v$+5_V]˶O| vu-aƠ2|(&mKQ]I/󳄫kY3 D1/Ie~(m)\]rx!T#:S*2e9Lx D6$ )uje9L o *Ғ(/]]r !TgH)c_hHvWײ|HeȜV2}%kqUkl8l#ŵk\[$|`Z_AQ~[p-( (?ۖµ +i_sYMƜh>f}µ NԘO2.6ia_Z]l3˟fgF6- YNZ]Pijjel3ѿӵ,/ (?,*dZm`E唬4ٴ?6VkkY.l3˟foRLյld~ʌ6ZÎxLײA {˔Pe9X(,Xc_h>E=ZqI300 ' Data Parameters 301 BELL$=CHR$(7):WIDTH 80:WIDTH LPRINT 132:E$="END" 30 ESC$=CHR$(27) 'Escape Code CLS$=ESC$+"*"+"0" 'Clear Screen Code CLR.UP$=ESC$+"*"+"2" 'Clear Unprotected LI.ER$=ESC$+"T" 'Line Erase HOME$=chr$(30) 'Home NOR$=ESC$+"k" 'Normal Video REV$=ESC$+"j" 'Revese Video SWP$=ESC$+")" 'Start Write Protect EWP$=ESC$+"(" 'End Write Protect P.ON$=ESC$+"&" 'Protect Page On P.OFF$=ESC$+"'" 'Protect Page Off ROMADDR=(PEEK(&H40)-1)*256 'QDP Base Rom Address 303 X.ER=23:Y.ER=20:N#=551903297536.5# 304 DEF FNDI$(D#)=MID$(MKD$(N#+D#*100#),3,4) 305 DEF FNID#(I$)=(CVD(CHR$(0)+CHR$(0)+I$+CHR$(0)+CHR$(168))-INT(N#))*.01# 306 DEF FNPC$(X,Y,L,Z$)=ESC$+"="+CHR$(31+X)+CHR$(31+Y)+Z$+" "+STRING$(L,"_")+STRING$(L,CHR$(8)) 307 DEF FNLG(X,X$)=(X-LEN(X$))\2 308 DEF FNLPCR$(X$)=SPACE$(FNLG(132,X$))+X$ 309 DEF FNPCTR$(X,Z$)=ESC$+"="+CHR$(31+X)+CHR$(31+FNLG(80,Z$))+Z$ 310 DEF FNRD#(X#)=INT(X#*100#+.5#)/100# 311 DEF FNUB%(X$)=CVI(MID$(X$,2,1)+MID$(X$,1,1)) 'FROM STRING 312 DEF FNBU$(X%)=MID$(MKI$(X%),2,1)+MID$(MKI$(X%),1,1) 'TO STRING 313 DIM MO(12):FOR I=1 TO 12:READ MO(I):NEXT 314 DATA -1,30,59,90,120,151,181,212,243,273,304,334 315 DIM X(60),Y(60),X1(60),Y1(60),L(60),Z$(60),TIME(10) 316 DIM DESC$(10),LIN.REF$(10) 'CHANGE AS NEEDED FOR SORT vnSYSROUT.BASf   !"$#&%'()*,+-/.1032456789;:<o>=?@BACDEFGHJIKLMNOPQRSTUWVXY[Z\]_`^abcedi*2V c=\>n0}6 `[rÿ5mE P`;G !8Wn0}r5mEI7[ͦsM[QO?#o}N:Fed[O:Fe?#o-WH(˒+ sUyS%K֒-gn෪+sB׳o$+Yrmf+B2[~\kdi+[ ƿ3_0$:G rV'\VҾIf+B WѩlA"-ݩWt>:QX@_&>~~CC\sM7& R4ć (u (c,Mp}?;W>~x "_P\PF__P\Tu/(%;hؚtPQ 1?1 ΕcJ@AϷw//(.Q_P\4| F_k/(.q+s5״}0[-݃ x+8kD/ 5?#ouhD62lrM`@# n*:Wn{MD%wʕ@=Mjy2Wn{Mltyž}mJʕ@}zr#=%+7P{}M{Mlu士,r7 tNrhbOJtvw ~o>rmΕ'$=þ6ygA<-lK`+7P{}ts#^@/ttm?# iAg]{\&O[@_t%WniBoM^9 .SvtN&}kX.3r^#z}:>Oӫr6%aj&|>nCcʓ_\kghgp l+7=M6yΓrӤ6yΓ%ّ';rd皀3y z} O6yO8z}Q&e ~^ g]oqWHMvFKFHo˒+7nOz#%n lK@߹r9}- 29pmP|<]ΕVۥ ӍsKvWHnM^?} =W?7&/ko ~F|=PH:wt˱wހt7&y2Wc/f3%?#gghgp)05.e\P|c/f3333ndw&iO)[ t78E&`ߟ%aj4ioMkd5>}{5>ߟMv i]!FO#b$.etEӹHb$:"O#b$.r_i$I7&yx z}.Dܢ噿;4.yteg^ç^FeJ#H(&~Fߝz}Q%WneҳIVuptn-$={tn-Mɛl<}kd tӾ{19Q9?C;KᆩџMv {@V>Ta0(˒+7Z2ҳI֒сr#H^n$[]WYnM3M/zmv50kH7?#Ev S?5B[ca9_pZ+Hs5GM?#9N8ty2\H> 19З/q?`lr505Wn{47&y2\';rd5|i,D<=MJiDY?Vv |xo/1o}qɕz{zM{@z{?b)ק^ X?w5|i,DM{ӈ ~^ 7&)f\9p.ZGO#X\v{BIl.tmq^'sM@Uc/f3333nd޹暀ǭ|`Ly*rVck }* %;336L ~DT{&"xmTJ>@<+7yMO/dtΕzD)H:Ta0 =C\E&\}=b6saghgp)05Wghgp &קoM^s?46;O^v6%;\Tn6/(Sh0 1r+U&eT>yO&ק\wHtuGFh@ ȕloMMd\9MvȕFH/;{7B4^Fz,=>՛nsq4ҋ8z}EXʒkR =s?{n7?쒲w{mv5\q+xAwS:*.G0ȕ[L߹g26M(:s6+cӔجMS6 Z\4e 6+cӔ‚6;Wn6/(ΆQ) r+;\K\!;*$;BMvg26M(z{tͶDYrCŜl:# {A"-ʟS|zUy(Ky2\S7ܛ[9-S&~4J/(Ε[\暺Nghgp; AiF+G,vhl֑\S7T4eyLS`)[l0B; tgu< 2MiYG% )[f94e٬#Y䚺a7lCϋy2 }Ӕm AMSUYHid4MB\5u04e[Rhi!(lkkikdr+wG|Cr*aA*GN~KP\iȵ/Aqoh;(+zF^%(C4in;W^ 暺i'^ I)JW ɾ6yΓ^!]B"0M`s#$\S7=!1BK)̕z5iWOtMΕEiW#\^=+G0gd5\F pz%Wn?JagGwnRv&M 嚺IټWHz+7 { tM;lKv暺>ʭʀFS hr+|p?#ouX{J=d#^p}L^{͜v6٥썤PI6B%m$ݽvFRП+0m$io$)m${#)NIH Uw5'L=/Hu-S_5-_0`a(4ӂlK/ܹP)~3x + i*,8TTbw0U iAg] }5 FN`&8]YHWaNT2B}0U iAg] }5JFN@M 6C=xyxp=O 'LyZdB_sMaw?# SŇR~A a'  `+Œy} nSޑlCϨ'ӂeбX{FDqx&֞^'s.