8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RPEGASUS.II(0(0' @&PRODOS }<(0& LOADER.SYSTEM'0(0(0*PEGASUS.II((.(. ț6 . ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F > S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X%& &&,&0`ŠӠֱЭԠŠҬîʎ1]&… (n^&Dž (\%T[&LD()8= (J 8'[&'\& ((ʎ1]&]&]&3223 h')L~&18]&"m11 2H22h2舌]&]&12H)M0 h10200I20h2 '`LE%12 `_'"L  <8# ȱ)ɀ  )' ` (Xp< @' )m''.'' M'i ``) ]'(j21 [& \&!` (\&[&i\(\&]( (S&$ (,^&S& … (ŅL&JJJJ`Ϡ'8`S&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* k)* ) v)L(`L* )L0) k) L( k)L0)8e` ,$`ee` `* ** '*` :* * '*`hh8`8`*ݑ*ݙ*`}*`e`H)hJJO*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@-vȱ@Hȱ@Ah@M@c-e J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD c ް(`( C)CJJJlB #-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllhh8` Qx")T'P) ɺiL; {)?mn | { {  ~ `l@Hȱ@IױHXATffȱH ɯȩ׍f5H)/@a)_ .0 :A[8@`,f׮Б` L` @>')I38f!g8h9iם`K8`@Nȱ@O@ FIiNȽבN)/ȩ/N`@[ WHJjjjZhA 'KI؍0JHi Y`ZC8` @ F3N@) G莅 ⭂i`0 Y; Yٝ٘ 0 W,}0 Y .H hȑNWȮ~ّN}W8`ٍّN΀0NN` G8`F@ 0 > cLK8` I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶 ܅I mIHHyHȘI Lܝ` @7@ ?@Ю׍')mי'ʈ@Eȱ@7ȱ@ACD:"L#M')5'I0ܢܽ =$'* 789FG ( Lv܅I& mIH` HE |E!0$% 'H"F#G 밳"# 밨%܈" T)Ii)܍&*܍'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`Ͷͷ)` H'` #Q'܅IHH''Ѝ'@`c8_ ``_ a% aQ8``܅I `c$܍%&c d8D`F` ]lH)HFȍ"HG# $%܍`&܍a!ܢ8* J8` L ܝ)I 'ܝ`8bi&F$G%`b܅IH3H c( c )_ȱH΀`b8eHI |SB0! YٙٙF"`ʈ d猂`8m0g`,0H hi PȽ΀hYٍ0GF8yאhFiG  $Y0 G01 E8`1ݒ00 Y Y0ʩ 谼 谷`12)1`0Y`ȎYi 0U`)8`΀`Y W xG 0A)H Yܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َX X8ʈX` 0ٝ)i `}~8`YR dNOc vNYمFمG < d0 FGLYc0 ٭O٭Nٽ8\]`H8`  ,cN O 8dc` NO `YٽJJJJ`dHYdhn)cNdjNdjNdjjNd.l CHqd v;dY٭n *jNlcۙ۰ڙک mm`Z8` C#llk k (`jkO .O .O .O8l۰*JNl۩ mmYٰNO`YJJJJ;i vYn vYٍnm0 Y k`H8`m m`nYٍqyٍoipB0Hn0oFpG h0`FG `ϩBxEDz0C ް(`(8`Zؑ@`M8`Z8@pؐʈIZ)Ns8NN tLy LZةC8`؍^)@ iZ)Nt8N^ysJ t^ ؅F Lo) +^%tJ(a *ZFإGؐ.` *tJHIH IL/FHGI ҭtJsjHIHB>IZؙJJ W: ELyHIHI`JKJK`FHIG ( ZȢ؝Ur؈JLs)eKM`Z)` J NJbs $b0 bJFJL8`JGBJ P ZFإG`BH PZFإG`,H ZhHB؅F  ؅GxDEZ؍0z0C ް(`(8` vL'J Z 6"L vH Z 6 Z9ؙ` @ P8`K8`Z[B8` Z ؈'JJJJحE) ) )_Ю ЪGZ8FZb $ ᭔ع+ؠr 2HZ  Zh8` Yٽ ٬Zؠ@`b_[[b (Z[  _ )8`)i п` H h)N$%Zrusv LL L F L 2 "pvJw )@zNJOK 2iKKvvss ttIJw u vJФ̭tJsjHFIH zHIGzxKE ް((H hH h8`8u@ȭv@L2Z8NrNO 8y ؍xrJLu`vRvʱLN1MOstMEKP/vMEKvL7L-yMx Ost,rpueNNO(`JNKOZL 2/ "P L8 y WZؑJ`L@uȱ@vZ `@Nȱ@OZ`Z؝rU}NINؐ` fRؽU؝N f % f؝RN؈` Z` H  Ph)N@ 1; L  2$ )bJ\] Y ) H 4hL )  )حtJsjIOHINHZ؊ PLvEvʱNLMOstMEKP%vMEKvL$ Ost,ru PreNNO ,(` C  7 2tJNHIOHIZ؊ }LE  *` AZ HN ع HO ؙ؊ؠIhHIhH } iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4Z͔ L @AZi ׭2` .Z #Zع؍0 YY)`.@+Z Zi 8` L )߹0 )p )@ ) ȩ Z؝ 0"# 방 $%"#FG Z؍:؍;؝< ؝7 N') N' Z)ح!n v`H@h`h`Z`N8`  ) 1ZȢ؝R@rRrZ@ʈL, KIJHZȢrZrrs)tJn 8 ΌZ ؍ ؍ >H8Z ع)ꭉJJJJZ ZȢ؝rI؈ 2h(8H ( h(8Hh(`Zؑ@`@Zȱ@ ` B@8Z'\]Y dYٍ]ٍ\ٍGHٍF8\:h];'JJJJ')'@` %I -E) | 0@')N8` @LL =@ ȹYP8` iY` %ם0 B %)( ȹ`8m8m@8` G8`F PE)@N8`')@J טyרם'')׍'89 밑 LȹL@ȅH@IL,0` G _=\] YH.E)N 0 >89')@LP8` >箈 ܩ' v LYyٙ٭yٙ٩`K CE8F9G 6%&N    ܮ `J HHZ hh` 0 @ L$L O[̌Tܝ ݝ0̌ȩF𸽚G  z 0` | ܅F݅G ` X Oͬ | 밽܅F݅G ` X* O% L`L뮈 ܍ݍ8`FHGHe eܙhGhF`@Bɼ>K@J5 79X(K 7XXKZ تKo`V8`no` on 7I9XX`)HJJJh`OeNeO࿰ 79XАO`@ȭ@` ON NJKO`HхhILhH),"x8 (8` ԍ`@ABe 2U,,CnZ1rIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠҠLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LNP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE   # L%  PEGASUS.II)* 0 )pHWX  ʆR80y  H IHH)ȱHWhHi'HII ݭ 4ȱW/h) hJIeRReWWHHx z   RЉhhJJJȐ&ʆIHȱH ȱHȱHH( ώ Ll q r s Ȍ Ȍ Ȍ D      h   HIIH) Hi'HȱH H ȱH   `L PEGASUS.II.1  _SW &S &SWSJZj p(iE WIWH WJ DHHDEB ׽@@`^T__hZYY H(TJ1\] Z ǽ^HhTDEDE`DEBFGхCEH , hE` ΠîN@'  /,=ȥ'ߊJJJJ H[H`A@ 7 <@@)*+0LL鷎귭෍ᷩ췭ⷍ㷍JJJJx L8㷍෩췍緍 ⷩ᷍H 㷍෍ `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y&꽌\8`&&Jjｌɪɖ'*&%&,E'з꽌`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 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@`  d@ŵõ`  \ 濭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- ( + Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠Ġ z#  u`ժժժժպժժժժժժժժծժժժժժժպժժպժժժժ `p<ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ~~?p`|?x @pժժժժժՁתժժժժժծժպժժժժժժժժժժժժժժժիժժ~@~p|?x|p~ժժժժժժժժժժժժתժժժժժժժݪժժժժժժժժժժժժժժժժݪժ~~p|`|px~ծժժժՃxpժժժժժժժպժժժժժժժժժժժժժݪժժժ~~p`|@pxժժժժ@p@ժժժժիժժժݪժժժժժժժժժժժժժժժժ~~p||px~ժժՎxpתժժժժժժժպժժժժժժժժժժժժժժժ~~?p|`|?px~ժիժժxpժݪժժժժժժժժժժժժժժժժժժծժժժժ @@@ժժժժժժժժժժժժծժժժժժժպժǿÃûǻÿëժվժ`p:@<8\~\:<<"ժժժժժժժժժժժժժݪժժժժժժժժժժժժժժժժժժժժժժժժ~~?p`|?x@pժժժժժתժժժժժիժպժժժժժժժժժժժժժժժիժժ~~p|?x|p~ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժתժ~~p|`|px~պժժժՃxpժժժݪժժժժպժժժժժժժժժժժժժݪժժժ~~p~||px~ժժժժ@pժժժժժժժժժժժժժժժժժժժժպժժժ~~p||px~ժժիՆxpժժժժժժժժժժժժժժժժժժժժժժժ~~?p||?px~ժծժժxpժתժժժժժժժժժժժժժժժժժիժժժժ ժժժժժժժժժժժժիժժժժժժժţ߽ժծժ`pF\B"bFժժժժժժժժժժժժժժݪժժժժժժժժժժժժժժժժժժժժժժժݪ~~?p`|?x@pժժժժժ֪ժժժժժժժժժժժժժժժժժժժժժժժ~~p|?x|p~ժժժժժիժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ~~?p@|`|?px~ժժժxpժժժתժժժժժժժժժժժժժժժժժתժժժ~~p~||pAx~ժժժժ@p`ժժժժݪժժժժժժժժժժժժժժժժվժժժ~~p||px~ժժկՇ@xpժժժժժժժժժժժժժպժժժժժ~~p||px~ժվժxpժժժժժժժժժժժժժժժժժժիժժժժժժժժժժժժժժժժժիժժժժժժժ�ﻁժիժ`pBbB<BB~ ժժժժիժժժժժժժժժתժժժժժժժժժժժժժժժժժժժժժժժݪ~~?p`|?x@@pxժժժժժ@pתժժժժժݪժժժժժժժժժժժժժժժժݪժժ~~p|?x|p~ժժժժժի(ժժժժժպժժժժժժժժիժժժժժժժժժժժժժժժժժ~~?p|`|?px~ժժժ xpժժժժժժժժժժժժժժժժժժժתժժժ~~p~||px~ժժժժպ@pժժժժתժժժիժժժժժժժժժժժժժծժժժ~~p||px~ժժծՁxp ժժժժժժժժժժժժժվժժժժժ~~p||px~ժպժxpպժժժժժժժիժժժժժժժժժժժժժժժժժժժժתժժժժժժժժժժժժժժժ﻽ýժիժ BBB >BFBժժժժիժժժժժժժժתժժժժժիժժժժժժժժժժժժժժժժժժת~~?pa|?x@pxժժժժժ@pܪժժժժժתժժתժժժժժժժժժժժժժժݪժժ~~p|?x|p~ժժժժժժժժժժժժժիժժժժժժժժժժժժժժժպժժ~~?p | `|?px~ժתժժxpתժպժժժժժժתժժժժժժժժժժժժժժժ~~p~||px~ݪժժժ՚xpժժժժժժժիժժժժժժժժժժժժժիժժժ~p||pxժժպ`p@ժժժժתժժժժժժժժժծժժժժժ~~p||px~ժժ xpծժժժժժժժիժժժժժժժժժժժݪժժժժժժժժժתժժժժժժժݪժժժժժժժתŽ뽽уժժ:BBB:<<"ժժժժծժժժժժժժժժժժժժժիժժժժժժժժժժժժժժժժժժת~~?p`|@pxժժժժժ@pܪժժժժժժժתժժժժժժժժժժժժժժתժժ~~p|?x|p~ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժպժժ~~?p|`|?px~ ժݪժժxp֪ժծժժժժժժתժժժժժժժժժժժպժժժժ~~p~||px~ժժժՊxpժժժպժժժժծժժժժժժժժժժժժժիժժժ|ժժ`pժժժժתժժժժժժժժժիժժժժժ~~p||px~ժժתպxpիժժժժժժժծժժժժժժժժժժժݪժժժժ||ժժժժժݪժժժժժժժݪժժժժժժժת罽ժժBHժժժժծժժժժժժժժպժժժժժժծժժժժժժժժժժժժժժժժժժ~~?p`|A@px ժժժժժ@pتժժժժպժժժժժժժժժժժժժժժժժժתժժ~~p|?x@p~ժժժժժժժժժժժժժծժժժժժժժժժժժժժժժծժժ~O~?p|`|?Apx~ժժժxpԪժգժժժժժժݪժժժժժժժժժժժպժժժժ~~p||px~ժժժՎxpժժժծժժժժծժժժժժժժժժժժժժժժժժժ`pժժժժݪժժժժժժժժժիժժժժժ~~p||px~ժժߪպxpժժժժժժժծժժժժժժժժժժժתժժժժ~p|?x|p~ժժժժժݪժժժժժժժתժժժժժժժݪժݪժ@<0ժժժժպժժժժժժժժպժժժժժժծժժժժժժժժժժժժժժժժժժ~~?p`|@pxժժժժժ@pժժժժծժժժݪժժժժժժժժժժժժժժժժ~~p|?x@p~ժժժժժՃժժժժժժժժծժժժժժժժժժժժժժժժծժժ~~?@p|`|?px~ժժժxp"ܪժժժժժժժݪժժժժժժժժժժժծժժժժ~~p||px~իժժժՆxpժժժիժժժժժժժժժժժժժժժժժժժժժ ժժժ`pժժժժݪժժժժժժժժժժժժժժ~~p||px~ժժݪՎxpݪժժժժժժժպժժժժժժժժժժժתժժժժ                     Q)QŮ)QĠ) ZR@ccc.d`@9()%a(ĠŮ)_.n`@9()%a(Ġɮ)_.x`@9()%a(Ġ)__S]a(à)_#a(ӠɠΠ)a(ΠŮ) N@"r KM6 d6?ed6?e d6?ea(ĠҬ)o(a(ԩΠ)2a(Щ٠)<R@F`@9()$P`@:()$<Sa(©Ҡ)Ua(ɩŠ)Wa( pUҟʠ{}NP>b.< -.. +) II3322(( //     3333  \\3333333*      33 cc33     ! -  11....  +)*)   II333334#2222(()(   ////            33333oo  \\333333333333333[\33*        33    !cc3333     vvvvvxxxupofffffdZZ[\[PPQQ]nlllllllllllqqqqqrrrrrrrrrrw~FFFFFFFJNNNO[jv|||wqf[WYYZYVFFFFyyyyyyyy`0uijtnntppcaSQRR                           xx FF FF FF(( ZZ xxnnnnnnnnnnnnxxxxxx <= 256 ** ; ; DETERMINE BITNUM. ; BSCL2 XCORD2,X BITNUM ; ; "CALCULATE" XAXIS / 7 ; XDV72,X DISP ; ASV1 YSV1 XSV1 1 YSV1 XSV1 ; ; ; ** CALCULATE DISPLACEMENT ** ; YAXIS #191 BSC #191 BSC YLOBYT,X BASE YHIBYT,X BASE+$1 ; XAXIS XAXIS+$1 BSCL2 ; ; ** HERE X-COORDINATE <256 ** ; ; DETERMINE BITNUM ; XCOORD,X BITNUM D HERE ; !; BITNUM - CONTAINS A "1" IN THE ; BIT POSITION CORRES- ; PONDING WITH THE BIT !; TO BE SET. ALL OTHER !; BIT POSITIONS CONTAIN ; "0". ; ; !; ** CALCULATE BASE ADDRESS ** ; BASCAL: ; ASVE CALCULATION ; ROUTINE. ; !; XAXIC-CONTIANS X-COORDINATE OF ; POINT DESIRED. !; YAXIS-CONTIANS Y-COORDINATE OF ; POINT DESIRED. ; !; BASE -TWO BYTE BASE ADDRESS IS ; RETURNED HERE. !; DISP -ONE BYTE DISPLACEMENT IS ; RETURNE27  28282828282828  29292929292929 ; ; BITCNV 0001020003 0000000400 0000000000 0005000000 0000000000 0000000000 0000060000 0000000000 0000000000 0000000000 0000000000 0000000000 0000000700 ; !; BASCAL- HIRES BAS1A  1B1B1B1B1B1B1B  1C1C1C1C1C1C1C  1D1D1D1D1D1D1D  1E1E1E1E1E1E1E  1F1F1F1F1F1F1F ;  20202020202020  21212121212121  22222222222222  23232323232323  24242424242424 ; XDV72 242424  25252525252525  26262626262626  272727272727C0C  0D0D0D0D0D0D0D  0E0E0E0E0E0E0E  0F0F0F0F0F0F0F ;  10101010101010  11111111111111  12121212121212  13131313131313  14141414141414  15151515151515  16161616161616  17171717171717  18181818181818  19191919191919  1A1A1A1A1A1A z#    ɮհ%"ձ  "à ͮ ͮ Π2Ԯ  Ů  Ԡ Ҡ" Π" Ϡ2 Ů Ġ%02040 ; ; ; XDIV7 00000000000000  01010101010101  02020202020202  03030303030303  04040404040404  05050505050505  06060606060606  07070707070707  08080808080808  09090909090909  0A0A0A0A0A0A0A  0B0B0B0B0B0B0B  0C0C0C0C0C02040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040 01020408 ; XCORD2 102040  01020408102040  01020408102040  01020408102040  010204081 01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  0102040810 ; XCOORD 01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040  01020408102040 XY,Y MINY,Y MAXM1 XE MAXM3 MAXY,Y Y+14,X MAXM2 Y+14,X MAXY,Y MAXM2 Y+14,X MINY,Y MAXM1 Y+14,X MINY,Y MAXM1 MAXM3 XE #252 MAXM4 K XE XB MAXM0 MAXM4 XB 00 XE 00 K 00 000000000  00000000000000000000  00000000000000000000 EY 00000000000000000000  00000000000000000000  00000000000000000000  00000000000000000000 X 00 ; MAXMIN#0 XB #2 K MAXM0 XB   #7 XE K Y+14,X MA5B5B5B5 MAXY B5B5B5B5B5B5B5B5B5B5  B5B5B5B5B5B5B5B5B5B5  B5B5B5B5B5B5B5B5B5B5  B5B5B5B5B5B5B5B5B5B5 MINY B5B5B5B5B5B5B5B5B5B5  B5B5B5B5B5B5B5B5B5B5  B5B5B5B5B5B5B5B5B5B5  B5B5B5B5B5B5B5B5B5B5 NY 00000000000000000000  00000000000CLR2 YAXIS YLOBYT,Y BASE YHIBYT,Y BASE+1 #0 #$7F (BASE),Y  (BASE),Y #38 (BASE),Y  (BASE),Y YAXIS YAXIS #161 CLR2  ; YT 00 %Y B5B5B5B5B5B5B5B5B5B5B5B5B5B5  252  B5B5B5B5B5B5B5B5B5B5B 00 LDELAY#$78 WAIT  LIDRAWX   #14 XAXIS LID1 #1 XAXIS+1 LID1 Y+14,X  #32 YAXIS LID2 BASCAL DISP (BASE),Y BITNUM (BASE),Y YAXIS YAXIS #161 LID2  CLR1 CLEAR #YL-32 YAXIS #Q BASE /Q BASE+1 TEXT  TEXT #0 TXT1 (BASE),Y TXT2 COUT  TXT1 TXT2 CROUT  ANS #A BASE /A BASE+1 FDEC PRBYTE TEXT  $Q "SAVE THIS FRAME? - Y OR N"  00 A " FRAMES SAVED" COUNT ADD,X WCOUNT+1 ADD+1,X WCOUNT  NCOUNT WCOUNT WCOUNT+1 NCOUNT+1 WCOUNT+1 #$BF STORA OVRFLO STORA WCOUNT+1 PRBYTE WCOUNT PRBYTE CROUT  NN 00 NCOUNT 0000 WCOUNT 0000 YEND 00 ; QUESD0  #1 AD0 AD0+1 #0 AD0+1 AD1  #1 AD1 AD1+1 #0 AD1+1 AD2  #1 AD2 AD2+1 #0 AD2+1 NCOUNT  NN NCOUNT NCOUNT+1 #0 NCOUNT+1  #40 STOR4 STOR1 STOR4 FRAME   W(AD0),Y  #32 YAXIS  NY,X YEND NY,X (AD1),Y NN EY,X (AD2),Y STOR2 YAXIS YEND STOR3 BASCAL   (BASE),Y #0 #$80 (AD3),Y AD3  #1 AD3 AD3+1 #0 AD3+1 YAXIS STOR2 STOR3 ACOMP1 #0 COMP1 NY,X #0 #38 COMP2 MINY+2,X  MINY,X COMP2 #0 COMP2 NN NY,X NN COMP3 NN NY,X COMP3 NN EY,X COMP5 K K #40 COMP0  ; STORE #0 XAXIS XAXIS+1 STOR1 #0 MINY,X 5 LDELAY LIDRAW X X #253 SCR1 QUES KBDSTR SCR6 KBD #$CE SCRL7 SCROLL SCRL7 #$D9 SCR6 ANS MAXMIN COMP STORE  HIGH 00 ; COMP #0 K COMP0 K #0 #2 COMP1 MAXY-2,X  MINY,X BASE YHIBYT,Y BASE+1 #0 #$7F (BASE),Y BUTTN1 SCR0 #0 X SCR1 #1 PREAD X #192 SCR2 #191 SCR2 YT #191  YT SCR2A HIGH SCR3 SCR2B HIGH SCR3 Y+14,X #YL SCR5 SCR4 #YL Y+14,X SCR 00 ; FRAME 00 ; LSTFRM#0 #$B5 LSTF0 (AD0),Y  #40 LSTF0  ; ; SCROLL#0 NCOUNT NCOUNT+1 XAXIS+1 CLR1 FRAME #1 SCR00 #130 HIGH SCR0 SCR00 #70 HIGH SCR0 HIGH  #32  YLOBYT,Y EXT TEXT BELL1 BELL1 LOOP ; ; $WARN "TOO MUCH TERRAIN . REBOOT"  00 BSAVE 84 "BSAVE TERRAIN,A$6000,L$3000"  00 $LAST "TERRAIN COMPLETE . REBOOT"  00 IINST "AT THE BEEP, PUSH BUTTON 1 TO BEGIN"   FDEC #1 FDEC  FRAME FRAME #21 MAK0 LSTFRM #BSAVE BASE /BSAVE BASE+1 CROUT TEXT #LAST BASE /LAST BASE+1 TEXT LOOP LOOP FDEC 00 ; OVRFLO#WARN BASE /WARN BASE+1 TEXT TTEXT #AD AD0 /AD AD0+1 #AD+$400 AD1 /AD+$400 AD1+1 #AD+$800 AD2 /AD+$800 AD2+1 #AD+$C00 AD3 /AD+$C00 AD3+1 #NXTLND WCOUNT /NXTLND WCOUNT+1 #0 FRAME #1 FDEC MAK0 BELL1 SCROLL $6000 ADD AD+$2F00 NXTLND $9C00 BELL1 $FBDD WAIT $FCA8 COUT $FDED CROUT $FD8E PRBYTE $FDDA PREAD $FB1E BUTTN1 $C062 YL 181 KBD $C000 KBDSTR $C010 ; ; MAKLNDHIRES ZEROC #INST BASE /INST BASE+1 q# $800 ; XAXIS $E0 YAXIS XAXIS+2 BITNUM YAXIS+1 DISP BITNUM+1 BITCNT DISP+1 BASE BITCNT+1 ASV1 BASE+2 YSV1 ASV1+1 XSV1 YSV1+1 BITSET XSV1+1 AD0 BITSET+1 AD1 AD0+2 AD2 AD1+2 AD3 AD2+2 ; ; AD           |hfjjijxYvyEbZY([kqh[k\ki\kjijkikfifgighihiii`]|y |e |xYvyEbZYeڭ^|]|6|5|| |]|\|y |e | |5|4|'y |dxYvyEbZYYeYd(йS 2l&lZkj|f4|h\>#'+/37;?#'+/37;? TSWP` ii```iiɐ`jLgj jlU S V T `l`  j[kj\kfhNdj8fjjjxYvyEbZYdLjjqfjjijjqh((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:))࿐M ``HHhh`((((((((((((((((((((((((  !!!!!!!"""""""#######$$$$$$$$$$%%%%%%%&&&&&&&'''''''((((((())))) @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  i  ݶ  佶 L Lk ` @ @ @ @ @ @ @ @ @ ` L `<  `ŠӠſ٠ҠӠx `` iὶ 8 ?ɡ` ⹍Mȑ&ȑɡ`     8 (з` 8 }  8  ? iiLK iiiiii m i (L+ *  m m ɿL `" ȠΠϠ(` { * ) LX F 8 M.b`  `  8  ɵ J P ` ` L7  a % `  8  & 8  = `dhl *  7 i* *  +  х L| L|ϠȠΠŠά̤ΠŠԠŠЬ      kġ Q`߰5 0      '&  .D# -#11  %% !7#   'CC!  ,  $""# 33   .'   '   0       ..('   ' #&     .D#  -#1111   %%  & !3:!7#    &' "- 'CC33!   , 68 *,$""  "&! #    3344     .'$#  ')%  ' #*-, lRRnnnnnn\FFFFP`p}wxzzzfffffQQQQFFFFFta]RRRRGFFFFFFFasgUFFFg}h]]eeedONUUUFFFKKKFFFYmrrrrebcrrfHFQ\n`0sgZPFFFF[izwg_^_MFFFNaccccqsb`aa                <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~(@ BB<~B > `B@0ee"""A~ ~ I**II*I*@`pxp`@@@  |*(46>>>>***>"6*""">$ 88>>>>*>><> ?:{> 7 6`HNɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&HOQ**+I`+hQ**O+i+$$! $%%#"%Nh`LLLL`ª`LQLYC0LXLeL    lmpJllsQYYȥmsQYYȥnsQYYȥosQYYV$Lp`ISHIP #SHIPX XS XS+1 XAXIS JOYPAD #$CA lsQYYȥmsQYYȥnsQYYȥosQYYVLo`V{Y{EbZWx\yv)sv)lp\ Flfp\$\FplsQYYpsQYYVL,p`V L(q{Y{EbZWx\y)s)l)m)nqrpo\)FmfqFlfpFnfr\$\norJmnqJ{EbZWx\y)s)l)mnp\#FmfpFlfn\$\FnpJlpnlmnpmlsQYYȥmsQYYȥnsQYYVLn` ooo`ooo`V{Y{EbZWx\y)s)l)m)nqrpo\)FmfqFlfpFnfr\$\norJmnqJlmpJlnnmj~f~h~hfqfdfCnH8fCnDnHDnnmn{Y{EbZ)Ydnn(: FnnmhDnhqhCnDniDnȌnmLnnn( FnȌnmLnhDnhCnnm(`n RfSg~hijknmCnDn al``V Luo{Yfllillqhllil{Y{EbZY(omqhompmipmjijkikfifgighihiii`~yt~et~{Y{EbZYeڭ~~~~u~t~~~yt~et~s~~~'yt~d{Y{EbZYYeYd(й Fn&wxyptu|}8~z{^`~a~(b  0[~|TLAl`b &f t~) Ji>f` "j?f>f` i>f`r+:t ;t`  &cjfUeLfcIjij` fcIjmUeLfɵ UeLfjf fcIjmUeU&Ue0f]g^gULff]g^gj`8逹u o n |i8}iLd 0}k cUek kLe0[~k kL@e` e%$YeZ R% $q q q $e e e }r`qe.Leqe!Leqeqeqeqe`堠 *p |UeI[}Wo}V *p |iQ}Lc0k}i~ vo ooo cUe}b ɇiL%dW$}V n |UeI}W$}V n |i}iL%dLe8}ic u vou ooo cUe=}b ɇiLdWG}V n |UeI=}WG}Vc u vo/B~2ci cQ~i)2cG~8-c7c ciȹ{Y{EbZyY]xYʼyY]xY`Y LD `i0` BiAʹ}i }i BA___y1 y9 Dc |DB`DD0D BiʎicI |iBLDD0L}L`E}{Y{EbZEiEi}yYȱYEiEȱYi`i}mE}}hhL@A?c0jijiLr? wA@`@L>? >@Ͻi}i=i}j ɹ i=i >Lii{Y{Ebrr+rL1 2 vo oL1CP vo o}Ue}W}Vioo n |UeI}W}V n |i`@t?u  C`^^ ^b`b`T!|8Te|{Y{EbZYe׭UT}|TS|{8Te,|8d{Y{EbZYYeYd(д&n z{|ye{Y{EbZYeڭye'yd{Y{EbZYYeYd(й&n tvx xGqvdv n{Y{EbZ)YIdnn('  Ȍ Ln0ڽ[~i$a %a[~[~![~ cUeI`~8%a`~WLj~8$aj~VkWyV8~~ikj~VyV8}}ikj~VLVi8kj~VyVi8kj~V niL |UeI`~Wj~V n |i[~Lbj0e[~I[~`~ɖP[~ a~`~Wmjk~j~V vo~ oooUe n |Ue`~Wj~V n |>``PP""}8~z{^`~a~(b  0[~|TLAl`b &#'+/37;?#'+/37;?U)P0P0U 0PP)RS` |TRWP`Y ZYYiYZiZ``bI`bcIc`bT`U`llbbbb  b k$% r ?r Dj`%$k $ k `v((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~