!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYS!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYSPP PP PP PP H(PP P@#HP$A#($AP(@ wZXC48 !H/MBMS((R > !ҡHM * Extra RETURN * !ʢH! D—!ǢsD!" ! D’!Ԣ0!ܢH!H/ڊY(Nʊ* [!6#6#s#r#* " 9D -*3[ R0!["!"9D (D( D!H/MNMY (R)un (B)asic (S)ave : CMDFilespec:ReplaceCreate it Y/N ? Save again Y/N K!(!(!(!Q(!(!x*)"@^#V#z^#V r+s~3#%)8;>е۵>BIX%14BENZehwz@JRY̹ Ǹи!NQB/25,Ehksvĵζ߸ M̷ڸ-J^lo7Nv}عѷ V[h: 8 +*@##"t:82Ť 6#621!A6#*@"Q!"z!"!"3"!H!mHPlʷ(:((ʕ" * >"#(~ S" Å*@"Q2!> "*z"["6*"*"3EŨ!@"T! " !"z!"!tHP>y>(I(:(+(!Ҭǰ*6+6+6!"@!§!"6!|H*6"6zʟN#F+!zʶB  Ũ++!@H*3R޸ٸ[@* R+++޸ٸ*¤[R "_޸*3'[8!)Hè* ~,!#~ ( #~ " :K+ I`8 * {" !N#F#^#V" CQSy*zr+s+++"z!V+^+!¶[3r+s+"z" *[ #ʝ" S ",:ҝ>*s#r#"(È*zV+^/>͘* " *3'Ũ>:%! ҝ" *3'ŨDM!+V+^+++zʶB !V͓ު!'ÓAڝ[Ý_WA!Aoq,(ڝWq(#͈>|!͘* [3Ũ" S3:>%A8[0( ("(7§ڧ͗*TŨ[3Ũ§ͰͅA! ;|ʧ+Ũ!z(+͓[3Ũ"T>Ø!(k"[T!@ʧ"T*|ʆ§ͦ#|>+(++|>#( #͹˱Ұͮ*3'Ũ^#V#+V+^s#r##ͨ)ʨ(!ŷ !!!ߨͅͰͅبAÓ>2'h(2'ߨh(!+2͓͵ͰͅͰͅبͰͨ!!Ó($A0 >| }Ұ k }Ұ|Ұ(;[3'##kͨ8" ͅ"êͰͬͅ͸ʹ!Ó (͵!/ÓͰͬ(ʹͼ!,Ó!G͓>B!M'(D !-@͘ު>>>/+Ø&[3*6+r+s"6>2*͵!޸Ð2h8 ͵!>!<͓ ͵!P!M! D>!-@>͘!Mî!*!̪Ó* #~W! !ø!̪ͅͰͅAͅ!(!͓*3##"3;&[3*6+r+s"6Ũ"3('+Ũ*͵>˰Ͱeͼ˰@ͅ!͓K"!ʓ;LEVEL1n!@>6#w#6p#p$(+*2B*l@R(8|,0"DM!qãq# *~! Kx,0ܱ(!BSl@#*S"S:S(](n!#S{w#w/2S#s#r#"!S$S<(#"S*!S w#"!S+w:$SG!#SN><~#pyp2S+++:vXnTINEn-* @"o!o" @ÊXâKBoPr^oG_BoPr>͂o_(/BoPrU'd!_r2v:v*S[X](!gu_r#rY( N *X"S2 v*S:SG~ #&6 #D(%T ͦo(~6 #= ~# Ir$]ͦo_r͵o08:8A8 [0  +:S2S͵o> o !ÎqØp> zͩwXw|} (pͱxxA? >(: x#))ڢq)5*j@[l@Rvp1B2@> qx*j@Rѯɯ&oox0:?#(N #UqHͲp͌p8 x p@ ^qbkO@ .@p.&} p p}E+-Wq͌p8^q¢qѯh(y '}¢qH(D((<͏|=}|pâq˰.eMT]y))O>G)o>g>O>G%~/w!m"j@2@1BÃsqxHOW? READY WHAT? SORRY BREAK AT1BpqOy1B9r!@x@~|Hs|}qy)y Ey*l@oz`i"l@*l@(o>g[j@x"l@wzoz !@6#BLIST RUNNEWCONTCLOADCSAVE;NEXTLETINPUT.IFONGOTOGOSUBRESET6RETURNREADRESTOREREMDATAFORQPRINT8SET:STOPENDCLSGOTOGOSUB"RNDGABrSMEMINT-POINT>TO`STEPkpTABAT}A$cB$h\>e= !B"l@qxx9r!,y8S@@{(!@!lrͽ~x)y£qS@> qOy*@"@^#V!"@my> qsx*@|(*@"@ͱxx)y 8" ( cz,ycz,y8 @{(( q# !@"@:pês pÜs!sKs[yB !p@!@t,&:h@("> xKh@> |?g6_"h@,;ͱxppyx}?o:h@?(0> > ~#}͟zͽ~)y£q*@*@!"@9"@ästx*@|x"@"@u x|(!rKsGu1us1u"@͟z*@-( (:(,(ͽ~: ͟zͦx"@! sKsx"n@!sx!"@*@"@"@ *@`h9> ~#(~+ ~ !9DM! wz*@x"@*@|x( ̈́z*@ͻ{|*@Q|*@{*n@u|uu8*@"@̈́z!x| GyҤsq!7sKs~uês{@"@# ~*@[y;*@!;v"@s@>?xvvʬx ("(,( w#}(6#}  ("(w#} , )$(}x!@.p ( ͟v8 = _v"@x!"@͟v8@_vSv@,B͟v8[@,:͟v82[@z BKw8"_vS@,, "@xãq *l@!?sKs_wQ|!,sKs=͛w7͛w0= ͛w!!> ͛w͛w͛w ͩwͫ|!!-!Q|+w+w|-9w͹|w*ẁ|/ w͒|!rwKs8ͻ{ͦp()x|x|¢qww[l@*j@RwxQ|>>>(R x,K x)E0B0 }&$0D!<7&= x?G  > ( x|/g .!(,Q|8={:ês Üs~ qOy[@z(%v~wcz>?xחOyq>>@@{( ( (q 8 { >{(BzBq*l@+G8 ݯG ">"Py ʜs##Q|~ > >0Az~> (>-ׯw>!~͠|0}|=!~͠|8͏|<~D( 9=6#>^qxw#+~?>+y! 8>w(y8Ox<z0GMz.Mz>Ex>+(>-xDx 80Ox0y>   >.~0#9 ogmyOyx y+w"@|("@"n@"@"@!A|/g}/o#9x*@|(*@*@*n@*@*@([@S@ !@Kz*h@ {w#|@  %a{F? x@0<0!00!{# Fͥ{?ͥ{?ͥ{/ͥ{:8x?GOW/7 [\]^ xw7 { ++#~+ ~N(4$|(|âq>G~nf'!0(q|!  n|&..cJ} }{D_z/?W7N|~(?}!} }N|~(-ʣqX}iͻ{~~ ͑}~ |0(TW ͻ{~(,(EͰ}(0yHG|}!| }~wbkkbH.tuutq |gnfNٯogO9F}yO}{D_|gRyO0O?j })0?RyO( (|̰}7z| 7?}(}Dy | }}(8= |}}yO07}~oRyO ~=).م~o| ~ãqV^^VFfnnfN>x|d~|¢qQ|d~̀||#Q|!@^#V#FUq!~V)0yO# !@}eo|ΰgyO} }@M~~xUq!E͌p8 ^q0âqy~| xRn"l@ qկ́ >*2<2<͡W͡_͡g͡o͡ :< 2ͩ= >ͩ|ͩ}ͩzͩ{ͩ~ͩ# yDͩ0|ǴW0  zفO! ! !&! !!:@2@Wn :< 2ͩ= >ͩ|ͩ}ͩzͩ{ͩ~ͩ# yDͩ0|ǴWSHIFT/up - ONE LINE UP ESC/2 - SECONDARY FILE INPUT | SHIFT/dn - ONE LINE DOWN ESC/8 - CLOSE INPUT FILE | SHIFT/rt -ZXCDM4!HTڻBʻS((R > !ҡHû * Extra RETURN * !ʢH! D—!ǢsD!"/! D’!Ԣ0!ܢH!HTڊY(Nʊ*/[!6#6#s#r#*/"/9D -*X[/R0!["!"9D (D( D!HTڻNʻY (R)un (B)asic (S)ave : CMDFilespec:ReplaceCreate it Y/N ? Save again Y/N K!(!(!w(!Q(!͸(!x*)"@^#V#z^#V r+s~3#>IQ`fƼȿӽֽ轮Ǿ,:fx5>b|[ֺٺ.2."#(~ S"/È*@"v2:!>(G> "*""[*"*"X!@"y! "1!"!t"!+Huc͞->(n-(:(("!ۮ*[+6+6!"@!֮!"[!H*["[zĥN#F+!z宷B  ++!oH*XRLG[@*/R+++LG*ۤ[R "ͺL*XL[8!XHè*/~,+!#~ ( #~ "/:K I`8 -*/"/!N#F#^#V"/CvSy*r+s+++"!V+^+![Xr+s+"-" *[/#̮" S/"-,:̮c*s#r#"(Ë*V+^T>DZ-*1"1*XL>:J+! ̮"1*XLDM!V+^+++zB !ĺ±-׷!±A̮[̮-_|A!Aoq-,(-̮|q(#-ͷ>|!DZ*1[X"1SX-:">JA8[0{( ("(7-{֮֮ͼ*y[X+֮߰ʹp! `|֮!z(+±[X"y>DZ-!("[y!@֮"y*|ʫ֮ձ#|>+(++|>#( #ݱ*XL^#V#+V+^s#r#-̮#)-(!3 !]!r!gʹ&߰ʹ+p±>2(2(!±߰&ʹ&߰ʹ߰.!±-($A0 c| }  }|(`[XL##-8" ʹ"ٱ߰۰ʹ!*± C(!±߰۰C(!±!±>-B!+L(D !-@DZ>>-cTDZK[X*[+r+s"[>2:*!Lÿ2:-8 !!± !!! D>!-@>DZ-!-ݱ!!±*/#~W! !1-!ʹ&߰ʹp-ʹ!(!̮±*X##"X+`K[X*[+r+s"["X(L*>߰͏밯@ʹ!}±&--#ʎp-G!±;( , !G±-@(R(;0< ά 01!ƽ± -ͷ!t±͒ ͧ ͬ!±![/w(+"(#6#"S/L--"(7!^ʙ!(=(0(C(a(@ʒѮ( !±!±-!±ʹ±!d!K.&߰ʹp±!)!=ʹ߰&-0 1p±ͷ#ʹ!M±.߰&ʹ߰&ʹ!}+±-"P(($̮S!±ʹ!±!ÿ*-"  ,(- ##"(-#9p!ٽ" ;-!ܽ±8 !!±-(!!ʹ!±>i>i-!`B(!\W( U!O(!t"1i@ʥڼ+G((̮_!M^#V鲪 ȷrk5@pD̮izk9 ͶBҷͷ÷ǮTԪǮǮǮgƪ˪ǮǮ!(!!D! !I!6!H!H*Lû Syntax For/Next Line # Error in line # Il+legal-Stmt Var Overflow Var Out of memory * VAR/CODE CONFLICT *Compiled size Basic size Variable size Pass 1,Pass 2,Pass 3 -) pͣ pͨ&pͭ߰-ͭp±߰-A ;+6;K߰-y sp͔ sp͞sp͙߰-++"A10+%+(ʹ̮_*/#~80 ̮_-Wgk)>">>>>>->>6*Xw#"X*X+V+^+~!+~"X豯*X+V++^+z"X & >#p & >+"X!Rp*X+++~*(!+~6!3!".!Һ)!$!ݺ!!!%!!ý!7->L*Xw#s#r#"X>*>">L>!>n&MhRKis*XGw#"X+c{ ձ!#±ʹ&߰.߰&.!˿±`:ޤ̮}=Ǯ![*l+lË́ ձlË́ ձ>#! !!!%.±*XL###-(E(((ײʓ+ʧʵ (ij88̮ݳʊʏ88(̮ʹ&߰ʹ&߰ʹpׇ_!±1a, ݻ»-( ʹݳ!%±ʹ1߰ͭ.±-!z(iz {(~2#B+ B((##ʹ(!E±߰ʹp-(++PYx .y(>w#(*B"6#6>Ѯ##y([`|Ѯ#E()Ѯ-6#6*R"PY|O!@ -08+ [0A0:0G-08 [0A0:8%($(#(!( _>{( -( 7y x*/"/Ҿھ#̮ !±̮߰*/-"/.̮߰.pO!o ±߰ʹ±-!.(!3(+!I(!\(!T̮.±.;̮߰.p!±Òfh(gp ba, luƒ²--!O( !I(RǮ--&͚&.±i͚!ƹ±i(*!±i*!±i+,ʹ!±͚&8 !!±(i !=!:降͚&̮ !i!f±i͚&͏i-#-1̮̮@*߰-!$!3!. !!-1±/>߰.!T±Ǯo&>DZ//:!O+±ǮǮʹ!I±-#-1̮̮ } DA~(#> ͠o +~ (w#*pD6 #mD6"s{ĺ!ƽ!""2t:@8]î!6 |E |R|!z(+z#|g}o|g}o|g}o+<_ogK_o J".a{G{: [ @}{(!?o&:*@͇C~d#͖C5w#>2@[!A"!A+| A<E))yO+| z {{{~w# x ɯ 0< o&!t"DM!˺z>=#+(#B@ = R8}!0# *!|> ( w#!V^R8<(0w###{ 0= 6")*#s#r"T#~0 8 ))))_!)%((-((+ #))))0 0_#)0 8~+ #}&;$ 6  O0 Oo0!|?gy?Fx3 w3 /w3!Ƞ+>3|3!"X86#N#F+z( )B^#V)^#V+) s#r:! @(!~{{!0zƽ|a}jƐ'@' dƽ> > O:=y3{! 84 6;!E)*~#~#"͠*^#V#"w#Rgo+ɯRgo+++zW| }!(#(!++++nM+*{(Gq#6"nM{yĆ(z(_x([+ K|( (+C}x x( A~w##+o&"!͠*w(#"yA(((~((( #((i&.'d ADPCompiled by ZBASIC+ 2.2 SIMUTEK INC. TUCSON,AZ (C) 1982 Andy Gariepy ? r#(& #8 'w+w  Br!!~(2(G~(#????G!o+!++ !B!!#(V#(P10++1(+0  '+~wy #++# !B!`6!͕!͕!  - 6!6# (+(.( 08:0w # (08:0w#6#6A( 9 oo# 'w+r2g#~ +# #~> (>-#~ >0#>.̓¯0  ~0#ăدo0o#!6 #w(.(# #w 6.# 60#6(.( (.( (#(w## ##(  ~:0 08w:8w+~.(:00061+ww# +ƽs#rl=(ͱ !!Ae!A>A>!AO2@2@6 !""!"ź2!H!(L!H*|*2¡(!KH!HT~N~Y !H*+͘(| #"!H*+͘(| #"!H*͘(R""ۤ "ź!H*͘(+ 㸷R"!H*&͘(}2!H*r㸷R!@ !5HT (!C(W ###"rÇ*@#| }( ")!#"@cLGٽ!|******************************* * ZBASIC 2.2 BASIC COMPILER * * Read manual before changing * * any of the parameters!! + * * Copyright 1982 SIMUTEK INC. * ******************************* Memory size limit or less Change parameters (Y/N) ? Max string array len Max regular string len Top of variable RAM Base address of object Maximum input length (W)arm or (C)o=+ld start Cold ? Warm ? Compile and Save only!-@tMemory size limit or less Change parameters (Y/N) ? Max string array len Max regular string len Top of variable RAM Base address of object Maximum ANOVA r-CCNET r5GMOUSE rNCSA r( , !ٸ͓@( (;0< ͤ Ѭǧ0!X͓ ͈!͓ } ͂ݬ!M͓![ w("(#6#"S '"(7!o+!?(=(0(C(a(@ݬkҢ( !IÓ͵!LÓ!;ÓߨͅبÓ!!ݹߨͰͅA͓ب!!ϹߨͅͰǧ0 AبÓ͈#ͅب!ߵÓߨͰͅͰͅب͸ʹ!Ó"&(($kҝ)!2Óõ+ߨͅ!#͓ب!Ð*" Ũ ,( ##"(K!k" ͵ͨ;!n͓k8 ͵!G!E͓(!,͵!/ͅ!JÓ>ϲ>ϲު!B(!W( U!(!"ɫ1ϲ@ ڗ"((ҝ_!^#V鍪騈+MAj\Kİ֦DUbfbbêZ/ʭ]ŭB!!ή!!֮ !!!H!H*޸M Syntax For/Next Line # Error in line # Illegal-Stmt Var Overflow Var Out of memory *+ VAR/CODE CONFLICT *Compiled size Basic size Variable size Pass 1,Pass 2,Pass 3 Ư) At Ay&A~Ͱ~ͻA͓Ͱ   ͰJ DAe +DAoDAjͰL"L}A0%(ͅبҝ_* #~80 ʝ_Wgk)>">>>>>>>6Ұ*3w#"3*3+V+^+~!+~"3͹*3+V+^+z"3ݰ >#ҰA˱ݰ  >+Ұ+"3!R͹˱Aб*3+++~*(!´+~´6!3!.!d)!$!o!!!!!U!ɵ>'*3w#s#r#"3>*>">'>!>n&MhRKis*3Gw#"3>õLk æ!ÓߨͅͰͰ+ʹ͸!]͓ب!x !>!I!ߨبÓߨhبõ*3'###͵((((L(*88ÝC[`88(ÝߨͅͰͅͰͅA͸بׇ_! ͻғ闵<ı󵖶رޱoT+( ͅبýC!ÓߨͅبͰ~ʹͻÓ~!ͻz(iz {(~2#Bͻ Bͻ(ͻ(##ͻͅ(ͻ͹!׶͓ͰͅA˱͹(ұ++PYŨx .y(>w#(Ũ*B"Ũ6#6>ʢ+##y([4;|ʢ#Ũ׶()¢6#6*R"ŨPYŨWO!@ 08 [0A0:0G08 [0A0:8%($(#(!( _>{( ( 7y x* ~" ud{tl|ØØ #7s{+V!Xͦ!""2:@8]î!6 |͂׶ |͂ͭR͆|z͂ͭ!z(+z#|g}o|g}o|g}oεͮ_ogK_o J".{G : [ @}{(!?o&:*@͇C~d#+͖C5w#>2@[!A"!A+| Aͮ<׶))yO+| z {{{~w# x ɯ 0< o&!"DM!˺z>=##BҶ = R8}!0# *!|> ( w#͆!V^R8<(0w#+##{ 0= 6")*{#s#r"T#~0 8 ))))_!ͻ%((-((+ #)))ͻ0 0_#ͻ0 8z~ #}&;$ ȷ O0 Oo0!|?gy?Fxŷ wŷ /wŷ!Ƞ+>3|3!"X86#N#F+z( )B^#V͑͑)^#V) s#r:! @(!~  !0 X|}Ɛ'@' X> > O:=y3"! 84 +6;!׶)*~#~#"2*^#V#"w#Rgo+ɯRgo+̓+̓+zW| }!(#(!͓+͓+͓+͓+nM*{(Gq#6"nM{yC(z(_x([+ K|( (+C}x x( +A~w##+o&"!2*w(#"yA(((~((( #((i&.'d ADPCompiled by ZBASIC 2.2 SIMUTEK INC. TUCSON,AZ (C) 1982 Andy Gariepy ? !""!"W2!/H!(޸!H*|*2¡(+!ϽH! H/NY !(H*4+(| #"4!AH*+(| #"!YH*(R""¤ "W!qH*( R"!H*}&(}2}!H*rR!Ľ !H/ (!C(W ###"r *@#| }( ")!#"@޸ٸk!{+|******************************* * ZBASIC 2.2 BASIC COMPILER * * Read manual before changing * * any of the parameters!! * * Copyright 1982 SIMUTEK INC. * ******************************* Memory size limit or less Change parameters (Y/N) ? Ma+x string array len Max regular string len Top of variable RAM Base address of object Maximum input length (W)arm or (C)old start Cold ? Warm ? Compile and Save only!-@Memory size limit or less Change parameters (Y/N) ? Ma+x sCONFIG PRV !]GBXL HIS mME BAT d6EDITOR EXE `RBZXCD48!HTژBʘS((R > !ҡHØ * Extra RETURN * !ʢH! D—!ǢsD!"/! D’!Ԣ0!ܢH!HTڊY(Nʊ*/[!6#6#s#r#*/"/9D -*X[/R0!["!"9D (D( D!HTژNʘY (R)un (B)asic (S)ave : CMDFilespec:ReplaceCreate it Y/N ? Save again Y/N K!(!x(!(!Q(!(!x*)"@^#V#z^#V r+s~3#pt&.=Cp|¼ż CU`l?Y8z}wιֹ ۹޹ *37RUYʻ;EP%xȽ#Vh.;D: 8 +*@##":82ꤷ 6#622ޤ1!A6#*@"v!"!"!C"X"!H!Hu͑Ф-(:(( -!ޤ088wʺ" */>"#(~ S"/È*@"v2:!>(G> "*""[*"*"X!@"y! "1!"!C"!+Huc͞->(n-(:(("!ۮ*[+6+6!"@!֮!"[!H*["[zĥN#F+!z宷B  ++!oH*XR)$[@*/R+++)$*ۤ[R ")\*XL[8!XHè*/~,+!#~ ( #~ "/:K I`8 -*/ƻ"/!N#F#^#V"/CvSy*r+s+++"!V+^+![Xr+s+"-" *[/#̮" S/"-,:̮c*s#r#"(Ë*V+^T>DZ-*1"1*XL>:J+! ̮"1*XLDM!V+^+++zB !±-´!r±A̮[̮-_|A!Aoq-,(-̮|q(#-ͷ>|!DZ*1[X"1SX-:">JA8[0{( ("(7-{֮֮ͼ*y[X+֮߰ʹp! `|֮!νz(+±[X"y>DZ-!("[y!@֮"y*|ʫ֮ձ#|>+(++|>#( #ݱ*XL^#V#+V+^s#r#-̮#)-(! !:!O!Dʹ&߰ʹ+p±>2(2(!}±߰&ʹ&߰ʹ߰.!l±-($A0 c| }  }|(`[XL##-8" ʹ"ٱ߰۰ʹ!± C(!z±߰۰C(!w±!±>-B!+L(D !-@DZ>>-cTDZK[X*[+r+s"[>2:*!)ÿ2:-8 !!± !!! D>!-@>DZ-!-ݱ!u!c±*/#~W! !-!ʹ&߰ʹp-ʹ!(!̮±*X##"X+`K[X*[+r+s"["X(L*>߰͏밯@ʹ!Z±&--#kp-G!\±;( , !$±-@(ʥ(;0< ά 01!± -ͷ!Q±o ͧ ͬ!±![/w(+"(#6#"S/L--"(7!;ʙ!(=(0(C(a(@oѮ( !±!±-!±ʹ±!A!(.&߰ʹp±!!ʹ߰&-0 1p±ͷ#ʹ!*±.߰&ʹ߰&ʹ!Z+±-"P(($̮S!}±ʹ!n±!iÿ*-"  ,(- ##"(-#p!" ;-!±8 !!±-(!w!zʹ!±>i>i-!=B(!9W( U!,(!Q"1i@ʥڼ+G((̮_!M^#V鲪 rk5@pD̮izH ݵĶǮTԪǮǮǮgƪ˪ǮǮ!(!!D! !I!6!H!H*)\Ø Syntax For/Next Line # Error in line # Il+legal-Stmt Var Overflow Var Out of memory * VAR/CODE CONFLICT *Compiled size Basic size Variable size Pass 1,Pass 2,Pass 3 -) pͣ pͨ&pͭ߰-ͭp±߰-A ;+6;K߰-y sp͔ sp͞sp͙߰-++"A10+%+(ʹ̮_*/#~80 ̮_-Wgk)>">>>>>->>6*Xw#"X*X+V+^+~!+~"X豯*X+V++^+z"X & >#p & >+"X!Rp*X+++~*(!+~6!]3!.!)!ڹ$!!!!!!!->L*Xw#s#r#"X>*>">L>!>n&MhRKis*XGw#"X+c{ ձ!±ʹ&߰.߰&.!±`:ޤ̮}=Ǯ![*l+lË́ ձlË́ ձ>#!û !!!.±*XL###-(E(((ײʓ+ʧʵ (ij88̮ݳʊʏ88(̮ʹ&߰ʹ&߰ʹpׇ_!±1ѹ> ̺кӺ׺ -( ʹݳ!±ʹ1߰ͭ.±-!z(iz {(~2ȶ#B+ B((##ʹ(!"±߰ʹp-(++PYx .y(>w#(*B"6#6>Ѯ##y([`|Ѯ#"()Ѯ-6#6*R"PY|O!@ -08+ [0A0:0G-08 [0A0:8%($(#(!( _>{( -( 7y x*/"/ƽǽǮ--!O( !I(RǮ--&w&.±iw!±i(!±i!±iw,ʹ!θ±w&8 !ȷ+!Ʒ±(i !!降w&̮ !F!C±iw&͏i-#-1̮̮@*߰-!!!  !׸!ݸ-1± >߰.!1±Ǯo&>DZ :ȶ!,±ǮǮʹ!&±-#-1+̮ } +DA~(#> }L +~ (w#*pD6 #mD6"s{͡!ͣ!""2C:@8]î!6 |͹" |͹Rѹ|Ź͹!z(+z#|g}o|g}o|g}o_ogK_o J"+.>{GX: [ @}{(!?o&:*@͇C~d#͖C5w#>2@[!A"!A+| A<"))yO+| z {{{~w# x ɯ 0< o&!C"DM!˺z>=##B = R8}+!0# *!|> ( w#ѹ!޾V^R8<(0w###{ 0= 6")*ƻ#s#r"T#~0 8 ))))_!%((-((+ #)))0 0_#0 8Ź~ #}&;$  辁O0 Oo0+!|?gy?Fx w /w!Ƞ+>3|3!"X86#N#F+z( )B^#Vܼܼ)^#V) s#r:! @(!~XX+!0Wã|>}GƐ'@' Aͣ> > O:=y3X! 84 6;!")*~#~#"}*^#V#"w#Rgo+ɯRgo+ν+ν+zW| }!(#(!޽+޽+޽+޽+nM*{(Gq#6"nM{yC^+(z(_x([+ K|( (+C}x x( A~w##+o&"!}*w(#"yA(((~((( #((i&.'d ADPCompiled by ZBASIC 2.2 SIMUTEK INC. TUCSON,AZ (C) 198+2 Andy Gariepy ? !""!"2!zH!()!OH*|*2¡(!H!XHTMNMY !sH*+g(| #"!H*+g(| #"!H*g(R""ۤ "!H*g( R"!H*ȼ&g(}2ȼ!H*rR! +!HT (!C(W ###"rV*@#| }( ")!#"@2)$Ͷ!ƻ|******************************* * ZBASIC 2.2 BASIC COMPILER * * Read manual before changing * * any of the parameters!! * * Copyright 1982 SIMUTEK INC. * **************+***************** Memory size limit or less Change parameters (Y/N) ? Max string array len Max regular string len Top of variable RAM Base address of object Maximum input length (W)arm or (C)old start Cold ? Warm ? Compile and Save + only!-@CMemory size limit or less Change parameters (Y/N) ? Max string array len Max regular string len Top of variable RAM Base address of object Maximum input length (W)arm or (C)old start Cold ? Warm ? ComP0D( D(D( D*g"!"g!L"I@þfBASIC/CMD-----------------------~ ~(ýâͫS 2 R 2!ͫ(w+W`cz2~, ͫ+_`c{:w#w#~ ͫ+W`cz2~, ͫ+_`c{:w#w#Ͳ~*"!#~ (:!h:+ʇ:W:_͌:W:DW2:_:D2^:O:2y2*:;:.>2>O>/G,>2>O|G:O>2>/G}O >2}O|Gé*::~>2>G>/O>2}G>/O:>2>G|O2}G|O!: ( 2y2:?2:_W:<2*: _z:DWWxG:(((($(*(.(2(68x_yW2>/_>W(>W>/_>Wy_>Wx_>/_xW>/_yW͌â_:W:G|DG:W͌W:_:GDG:_͌HAPEDRAWHAPEXDRAW"S!#~ݾ #W 2!*#~ݾ#W 2ͫA#~Tͫ+2ͫ+2mM #~A#~Gͫͫ+2;R#~O#~Tͫͫ+2*:G~< ((w#~c >>:W:_*:O+A#~cʂ  { { { { { { {…{ Ø Ø Ø Ø ;Ø Ø Ø ,Øzyy{y0yɯ`Čâ:{Z;0Oh&)<~0 6 ! ~ݶw! ~ݦR*D շRRRDM!8R#^#V~(^#V r+s!^^#UUUU~UqUTUPU5U#UUUUUUTTTTTTTTzTsTnT^TZTGTDT8TTSSSSSSSSSRRRRRRRRRRR!R~#3 U*V0D(@ D*tA"S*A"S!S"A*D"U*A"U!U"A!S"tA+"D"-V GRAPHICSS-90 Animation Basic (tm) Software Affair, Ltd. Copyright  1983, 1984 by Larry Payne For use with Model III TRSDOS 1.3 BASIC Version 01.00.00 (7(evTʡTʙTʄTJ##!S[-VRl&͚ ϸFzzS!SR*@d zS@S-VU2TÃϧ7#)~J#^#VO*V>*@#$D( DJ!S[@R[6V:2V(zz|z!.V4*V6D(( ͖U2)VϤ!)VoUϥ+! σ!"TFz!R)\Z^#V|+;![V##~ 8> T (8L(!(/RU!<"d`T#ng< RDMT!)VF !< R(DM!)VFˆ( !<\V!\VT]6!\ZU*@###~ (( (8 #^#V#) s#r!\VT]6 6!"D!"A(c) 1984 Larry Payn^Ve(c) 1984 Larry Payne(c) 1984 Larry PayneBASIC/CMD;j" :%t:.aj:ۈȯ2ۈ[ʚULOADER4Dedicated to: Pieter J. Plomp and Gary W. Shanafelt.4 Inspired by the article in TRSTimes - Sep/Oct 1991.`V![V+#~ ( a8_w~ #H(? 2V:1D !Z)W!Z ^#VV> :ͷWdS~ (#>=RV!m\V!^V!?_V-@V! WVI=-@!<" @>:~#: Key to continue, BREAK to end. :'D z!|Y:+D=( !YY(!6YèVfWv L!X:DQ(!Y`WS(HW!$D(D!"W"WLBASIC/CMD.BASIC:0 false FCB :>@!YS(!Y!A\VV~#fo~=:V=( 2R2R2R2U>@2R2R2R2U9S XX2V#~( ʮW>)2R>L2)V6(#6c#6)!R!R6X##6X!R!R6X###~wwModel 3 and TRSDOS 1.3. `X ZModel 3 and MULTIDOS 1.7. ZModel 3 and MULTIDOS 1.6. ZModel 3 and DOSPLUS 3.5. ZModel 3 and DOSPLUS 3.4. ZModel 3 and LDOS 5.1.x. ZModel 3 and LDOS 5.3.x. ZModel 3 NEWDOS/80 2.0. [Model 3`Y/4 and SUPERDOS 2000. [Model 1 and NEWDOS/80 2.0. odel 1 and TRSDOS 2.3. ([Model 1 and LDOS 5.1.x. 4[Model 1 and LDOS 5.3.x. @[Model 1 and MULTIDOS 1.7. N[Model 1 and MULTIDOS 1.6. [[Model 1 and DOSPLU`ZS 3.5. t[Model 1 and DOSPLUS 3.4. h[3ىQAXdXXXXYZ+ZqZNZBNcN.KTA2+NLN.E1C1LSmS.CMDc(c.EV7"NCN.TM8"NCN.BASICgg.EZ80gg.EZ80Jgg.EZ80JTU.TM8J"NCN.TM8J"NCN.BASICJBNcN.KTA2J+NLN`[.E1C1Jbc.EV7JLSmS.CMD == Universal GRAPHICS-90 ABASIC loader == (c) 1992 Simons Version 1.0 by Mathieu Simons. Release 05/18/92 Inspired by the article in TRSTimes - Sep/Oct 1991. Computer/DOS ==>>  UABASIC does not recognize the`\ DOS used.  If you have a DOS other than TRSDOS 1.3 then UABASIC/CMD is for you. In memory, it patches the original ABASIC/CMD to run with the DOS you use, on Model 1 or 3. The following DOS's are supported by this version : Model 1: TRSDOS 2.3, LDOS 5.`]1.x and 5.3.x, DOSPLUS 3.4/5, NEWDOS/80 2.0, MULTIDOS 1.6/7. Model 3: TRSDOS 1.3, LDOS 5.1.x and 5.3.x, DOSPLUS 3.4/5, NEWDOS/80 2.0, MULTIDOS 1.6/7.  Commands for UABASIC and GRAPHICS-90 CMD files. Use a DOS with BASIC/CMD, plus UABASIC/`^CMD and all the GRAPHICS-90 CMD files in any one of the drives. From Dos Ready type one of the following commands: UABASIC(ENTER) or UABASIC "filename/BAS"(ENTER) :goto ABASIC ready to run ABASIC program Files.  When you have written a fine pro`_gram and are willing to share it, you may give UABASIC/CMD to others with a different DOS to run your program. All the programs in the GRAPHICS-90 package are described in the manual and the supplementary documentation printed on a DeskJet printer by Gary ``W. Shanafelt. UABASIC/CMD seems bug-free but if it doesn't work as it should, please let me know and I shall try to figure out what the problem is. Mathieu Simons Weg naar zwartberg 141 B3530 Houthalen Belgium This endloader is the place to patch Mathie`au Simons Weg naar Zwartberg 141B-3530 HOUTHALEN Belgium. 089/385 070Please support the TRS-80 community. _____________________________________`V 1 or 3. The following DOS's are supported by this version : Model 1: TRSDOS 2.3, LDOS 5.R*D շRRRDM!8R#^#V~(^#V r+s!^^#UUUU~UqUTUPU5U#UUUUUUTTTTTTTTzTsTnT^TZTGTDT8TTSSSSSSSSSRRRRRRRRRRR!R~#3 U*V0D(@ D*g"S*g"S!S"g*D"U*A"U!U"A!S"g+"D"-V GRAPHICSS-90 Animation Basic (tm) Software Affair, Ltd. Copyright  1983, 1984 by Larry Payne NEWDOS/80 2.0 mods by G. Shanafelt, M. Simons Version 01.00.00 (7(evTʡTʙTʄTJ##!S[-VRl&͚ ϸFzzS!SR*@d zS@S-VU2TÃϧ7#)~J#^#VO*V>*@#$D( DJ!S[@R[6V:2V(zz|z!.V4*V6D(( ͖U2)VϤ!)VoUϥ+! σ!"TFz!R)\Z^#V|+;![V##~ 8> T (8L(!(/RU!<"d`T#ng< RDMT!)VF !< R(DM!)VFˆ( !<\V!\VT]6!\ZU*@###~ (( (8 #^#V#) s#r!\VT]6 6!"D!"A(c) 1984 Larry PaynVe(c) 1984 Larry Payne(c) 1984 Larry PayneBASIC/CMD.EZ80" :%t:.aj:ۈȯ2ۈ[ʚU:%I(!I@"R"R"R"U!V9SR\V BASIC hooks in RAM: 4173, 4194;loaded at 67DD &67FE. Zap ABASIC at 52C4, 52EB; 52CA, 52D3BBASUTILS00/00/00 Uf:\5xpH^BOOT SYS` ZXCD48 CMDBB"  ZXCDM48 CMDBB& GRBASIC CMDBB ! BITDEMO BASBB  NUMBCONVBASBB WHERE CMDBB]DIR SYS  LCASCONVBASBB ABASICN CMDBB  GAMMEN2 CMDBB DOSCHECKBASBB " ZXC48 CMDBB! UABASIC CMDBB# HXDXCONVBASBB LEVEL1 CMDBB$ OMNI BASBB HEXDEC BASBB SPIRAL BASBBLj'k'"SELECT THE CONVERSION THAT YOU REQUIRE BY TYPING IN THE NUMBER NEXT TO THE FORM YOU REQUIRE. 1. DECIMAL TO HEX 2. HEX TO DECIMAL"3k'A$:A$""10010:A$"1"A$"2"10010_k$':(A$)10110,10040:"* * ERROR * *":k8'"TYPE IN THE HEX NUMBER THAT YOU HAVE":J$kB'A(J$):A4J$""K1:10090kL'A4H$J$:H$((4A),32)J$4lV'K0:I5A4:J$(H$,I,1):(J$)65(J$)70J(J$)55:J(J$):J0J$"0"K1:10090Wl`'J0K1:KKJ2((4I)4):lj'K0K0:"ONLY ENTER HEX":"HEX :";J$:10050lt'20)"ADDRESS IN DECIMAL :"K:::10000l~'"TYPE IN THE DECIMAL NUMBER THAT YOU HAVE":Jfm'J65536ʲ"THAT IS TOO LARGE FOR A FOUR DIGIT HEXADECIMAL NUMBER------- TRY AGAIN. (MUST BE LESS THAN 65536)":10110rm'H$" H"m'I14:LJ(J16)16:L$"0123456789ABCDEF":H$(L$,L1,1)H$m'J(J16)::I13:(H$,1)"0"H$(H$,6I):n'20)"ADDRESS IN HEXADECIMAL IS :"H$::::10000Sj :1000jV$" 7 6 5 4 3 2 1 0"jBE$(3,140)" "j(J18:BR$BR$BE$:j2@333,V$:@397,BR$j<@0,:"DECIMAL BYTE";BjFB255120 kP"BYTE TOO LARGE!!"kZI11500:+kd@64,(208)3kn60=kxT128GkABTukA1BI$BI$"-"(4,32):BT$BT$"0":160kBI$BI$"*"(4,32):BT$BT$"1":BBTkTT2:T1170:130k@462,BI$k@724,"BINARY VALUE = "BT$l@853,"USE ANY KEY TO REPEAT"%l@917,"OR TO EXIT".lZ$=lZ$""210SlBI$"":BT$"":60ABDFIMNOPQRSTUVWXYZ[\]^_`abcdefghijlmnopqrstuvwxyz{|}Nj35j:"ENTER DECIMAL NUMBER TO BE CONVERTED";A:CA:(A0)(A65535)1:AA4096:B(A):DB4096:ECD:FE:GE256:H(G):IH256:JFI:KJ:LJ16:M(L):NM16:OKNkBB48:B57BB7:B48B48;kHH48:H57HH7:H48H48^kMM48:M57MM7:M48H48kOO48:O57OO7:O48O48k"HEX = ";:(B)(H)(M)(O)k33kV$"Y"1:k :"ENTER HEX NUMBER TO BE CONVERTED ? ";%l A$:A$""10:A(A$):(A);:ZZ1:11:Z413:10Fl Z1BA:Z2CA:Z3DALl fl A57AA7:A0A0zlAA48:A0A0lB57BB7:B0B0lBB48:B0B0lC57CC7lCC48:C0C0lD57DD7lDD48:D0D0mBB4096:CC256:DD16:FBCDA!m@320,1m"DEC = ";F9mZ0Nm33:V$"Y"9:m:"ENTER DECIMAL TO BE CONVERTED INTO < LSB > AND < MSB > ";A:BA:CA256:D(C):ED:FE256:GBF:G0G0mD0D0m" LSB = ";G:" MSB = ";D:33:V$"Y"26:>n:"WHAT WAS PRINT MEM WITH YOUR LARGEST PROGRAM IN MEMORY";AinB32696A:CB256:D(C):ED256:FBEn"POKE 16633,";F:"POKE 16634,";Dn 33:V$"Y"29:n!"MORE (Y/N) "n"V$:V$""34:n#o$" MICROHEX (C) C.BARTLETT 5 .JULY.1980 HEX TO DEC = 1 : REQUIRES LEADING ZEROS ON NUMBERS : WITH LESS THAN 4 DIGITS."o%p&"DEC TO HEX = 2 : NO SPECIAL FORMAT DEC TO DEC = 3 :CONVERTS DECIMAL NUMBER DOWN INTO :MSB AND LSB, USED IN POKE ROUTINES VARPOINT = 4 :ESF USERS, LOAD IN MEM AND"q'" :THE PROGRAM SUPPLIES POKE VALUES :FOR THE VARIABLE POINTER"*q("SELECT :"Kq)X$"":X$:X(X$):X$""41\q*X9,1,26,29dq+35<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<=Zj P%(141):60000kjP%(0)1000:j:(C) COPYRIGHT 1980 DISCOVERY BAY SOFTWARE CO.Qkd0,0,11005,16414,26365,-513,-402,7714,10816,16551,-32767,2304,11001,16561,8739,16614,22269,-515,-930,11469,24603,361,245,2557,-6659,8995,12926,16546,32291,-23758,9024,-386 le-15725,1740,14,-7389,3277,18176,3277,22272,3277,24320,3277,-18688,18464,10973,16614,6621,8368,-8942,-7195,-6622,-4800,-677,-8384,12513,7694,6156,-13030,12,30685,-8960,4131,-12810lf12,-18567,1824,-16669,8227,6396,7845,-10966,-6367,4358,16405,6145,-4864,-12880,457,-15407,6562,3277,-7424,-18567,-7392,23533,16614,10973,16614,485,5,2525,32477,-18688,10311,-8940zmg-8925,110,9181,26333,6400,-31874,9079,-30082,4215,-8724,-6614,-8896,110,26333,31745,10421,6404,3277,-8960,-6614,-8896,606,22237,-8957,-8935,-6622,-7872,6319,-626,-7199,-10626,-464mh14346,-10750,8967,1799,1799,-10618,-13520,10358,-10750,8967,-2589,20353,-527,20457]nTAB(,PRINT,CHR$,DATA,ELSE,FOR,GOTO,GOSUB,INPUT,READ,INKEY$,LEN,MID$,NEXT,POKE,PEEK,RUN,RETURN,STR$,THEN,USING,VAL,LIST,AND,RIGHT$,OR,mn00FFDB0026n250000000900160000011000002A1640221B40211600221640C9CDE303FE1AC03A0838E604C83E1AC95En00000001FFn 00FF7B0086wo 400000001D002A00000B2B0031004100600068006D0074007800530021002400002A1640224C00212A00221640C93A7B00B7280D3A7C00FEFF3806018813CD6000213640ACp 3D004000117D0006087E12231310FACD0000F5213640117D0006081ABE2017231310F83A7C00FEFF3805E13A7B00C93C327C00AFE1C9AF327C00F1327B00C900007Fp 00000001FF!pp00FFAE0053pq400000000F001C0000041300160039004C00002A1640221D00211C00221640C9CD0000FE15281BFE0C281CFE0B281DFE41D8FE7BD0FE5B3803FE61D82A5000ACB5C9218077pr120040000018082180201803210000225000AFC90000A7ps00000001FFq@00FEE4001EqA400000001B00A400000A330075007800A500B800C200C900CD00D200D9000011E703CD2C1B305B6069232323237EFE93205B23061AFD21E800115016E5D51AE67F284ABED5%rB40004000132012237EFE2C1A2806FE80300C18EFFE80300A131AFE8038FAE1E118DAD1FD7300FD7201FD23FD23D12310C87EB720182A164022AB0021A400221640C91E0E75rC400080002AA2402B22A240180821E70322A2401E02D511154021E706011800EDB0CDC901D1C3A2193AE500B72022CD0000FE61D8FE7BD0075F1600212600197E23666F3EDCsD2600C0000132E5007EE67F2322E600C92AE6007E2322E600FE80D8AF32E50001580009CB5CC83E28C900D6!sE00000001FF1s'00FFAD0054s'400000000F00320000041300160029002C00002A164022330021320022164021FF3F4E3E6077BE71C02A1E40225100213800221E40C9CD0000E67FC9381679F620FE6138A0s'130040000EFE7B300ADD6E03DD660479C37D04AFC3000028t'00000001FFt N00FE890079t!N4000000031004B000015350038006F003E00670055004C006A007D008B009700A000AD00B100B400B800CC00D600D900DD002301002A1640221F01214B00221640212601307u"N400040003600545D13014F00EDB0C93A2101B728663D282D3A2201FEB0280E2A20407EFE5F20063EB077322201CD1E01B7C82122013600FE012833FE0DC03E01322101AFCBu#N40008000C93A4038E6041F1F20202A23017EB728193C28163D23222301FEB020073E02322101AFC9FE26C0AF18064FAF32210179212601222301C9CD1E01FE042812FE207FWv$N4000C000C03A1038E6013E20C83E01322101AFC93E5ECD3300212601222301E5CD1E01E1FE0238F7FE04200D7E3C2802AF773E5DCD3300AFC9FE0820072BBE281E2B18169Av%N26010000FE20200B3A1038E6013E2028023EB04F7E3C28C77977E5CD3300E12318BDC30000000026010819v&N01017600FF89v'N00000001FFv00FDAC0057uw4000000055006E00002759005C00650068006F0075007A0081008700900095009A00A000A700AB00B200B500BF003A0140014901B501BC01D70174017B0185019701DC011Ax40004000E6011202CE00D100DA00EA00F200F800FF00FB01002A1640221902216E002216402A1E40224B02212702221E40C93A4D02B728122A4F027E23224F02FE0DC0AF6Cx40008000324D023E0DC9CD1802FE1FC02A20402252023680119400D57E325102368FE5CD1802E1B720173A4E023D324E0220EF3E10324E023A5102AEEE8F7718E1473A5132%y4000C0000277785D54FE1F200A3A8038B7CA7F01C36C01FE203066FE0DCADB01FE18282EFE192855014000FE0ACA9B0101C0FFFE1BCA9B0123FE09CA9C012B2BFE08CA9C4Ey400100000123FE01C03E0DCD3300D1C3191A2B7CFE3C300223C901FF3BED42444DEB3E802BEDB923C0014000097DE6C06F3E20EDA128FA2B7DE6C06FC92A5202C94FED5B25Ez400140005202137AFE40D0ED5352027BE63F200AD53E20063F131210FCD1EBE5AFED5279444DE1545D2BEDB8237723C97EFE8020053620CDC2017EFE20C0CD7F0118F77ECBz40018000FE80C8EB2A5202AFED52444D626BE523EDB02B36202B225202E1C9097CAAE6042802EBC9545D7DE6C06F0140003E80EDB120082B225202DFD8EBC92A5202EBDF80e{4001C000C8D8EB210040ED52444D626B3E80EDB12B2803626B77225202EBC9CD0E017EFE3E200123EB2A5202AFED52EB7AB7C07BFEEED0424BED5BA740ED534F0278B12874{400200000D7EFE203002C6401223130B18EF3E0D12324D023E18D1C9CD0000FE5B2803FE1BC0EE5BEE1BC9382179FE8020020E20FE0D20153A2240B7280521224018032A48#|ˆ0F02400020407EFE2020023680AFC300000010593|È00000001FFC|PÓ00FFB00051|QÓ4000000013002C00000617001D0026002D0046004B00002A16402238002A1B40223300214B49221B40212C00221640C93A4F00B72005CD00001803CD0000FE01C03A803824}RÓ10004000A720023CC93A4F00EE01324F00AFC90170}SÓ00000001FF#}ړ00FFBE0043}ړ4000000007004200000000111E00CD2C1BD20000AF606923230633862310FCFEA4C20000ED5BE6401B2AB14023232323010400EDB8ED53B14021CEFF1922A040CD4A1BC349}ړ02004000CC06EC}ړ00000001FF}݊P%(141):60000}P%(0)8536:~ ~ޓ00F4E30029~ޓ40000000A300B000004EA700AA00B200B500BC00C000C300CA00E000FC0005011A011D012001230136013A013E0143014A01500158015E016B0172017901810191019401B34ޓ4000400097019A019F01A501AB01AF01B501BB01C001C401C801CC01D301D901DF01E301E601EB01F901FF01020206020A02140218021B021F0225022B02310236023D025Aޓ400080004002430247024D02530258025E0262028A028F029902A102A502AD02BA02C002C502002A164022D70221B000221640C9ED7312033AD902B7280B3DCAC7013DCAE1Tޓ4000C000DE01C3C701AF329C4021DA02CDA728CDE303B728FAFE01200F3A8038B728F02AD702221640C3CC06FE0D20E3CD33003E0FCD3300AFCD1202CD9602CD6201FE55E2䀭ޓ4001000020F60606CD6201CD330010F83E0DCD33003E2A323E3C323F3C111D0B211D03221B03CD5401FE782853FE3C20223A3F3CEE0A323F3CCD540147CD54014FCD5401BAtޓ40014000814FCD5401814F10F9CD6201B928D321F2021819DF3006CD62017723C9210303180B3A4038E604CA350221EB02CDA728ED7B1203CDF801AF32D902C9CDF801FDC6ޓ40018000211D03FD7E01FE0420C5FD6E04FD6605221403CD5C02212503221B03AF4FCDA902FD7E07CDA902FD7E06CDA902AFCDA90279ED44CDA9022AA7402217033E013267ޓ4001C000D902AF321603C92A1703232217032B7EB7C03AD9023CE60332D9023E0DC93A1603B7CC8E02CD5C0238503A160347B72804FE403802064090321603AF4F78CDA928$ޓ40020000022A19037CCDA9027DCDA9027D806F7CCE0067221903AFCDA9022A1B037ECDA9022310F9221B0379ED44CDA9022AA7402217033E0132D902AFC9AF4FCDA902CDEBޓ40024000A902CDA9023CCDA90279ED44CDA9022AA7402217033E0332D902AFC9082A1403232214032B11FF7FAFED52CDD20BCDBD0F23ED5BA7407EB7280512231318F7EBECDޓ40028000365223364523364D2322170308C92A1B037EFE7837C8237E321603235E2356ED53190323221B03AFC9E5D5F52A17035F814F7B0F0F0F0FE60FCDCB027BE60FCD45Ԅޓ4002C000CB023600221703F1D1E1C9FE0A3802C607C6307723C9C30000000D52454144592043415353455454450E00425245414B0D00544150452052454144204552524FECޓ12030000520D005441504520544F4F204C4F4E470D00F3ޓ00000001FF:`V00:V10::I0141:P%(I):ijA(16414)256(16415):A32767AA65536tP%(1)A:V(P%(2)):V0VV65536~V1(V256):V0VV1256:16414,V0:16415,V1ŅQj:200vj@17,"NUMBER CONVERSION PROGRAM"j(@64,(64,61);j2@208,"(A).....DECIMAL TO BINARY"j<@272,"(B).....BINARY TO DECIMAL"jF@336,"(C).....HEXIDECIMAL TO BINARY")kP@400,"(D).....BINARY TO HEXIDECIMAL"TkZ@464,"(E).....DECIMAL TO HEXIDECIMAL"kd@528,"(F).....HEXADECIMAL TO DECIMAL"kn@592,"(G).....SPLIT DECIMAL TO DECIMAL"kx@656,"(H).....DECIMAL TO SPLIT HEXIDECIMAL"l@720,"(I).....SPLIT HEXIDECIMAL TO DECIMAL"/l@784,"(J).....EXIT PROGRAM"Cl@896,(64,61);vl@972,"PRESS KEY FOR THE SELECTED CONVERSION";lAA$"":AA$:AA$""170lAA(AA$):AA65AA74170lAA$"C"1300lAA$"E"QB$""lAA$"H"AA$"E":QB$"G"mAA$"I"1210mAA$"F"1300*mAA$"B"460SmAA$"D"AA$"E":BH$"H":QB$"":460smAA$"J"ʸ50::16396,201:ymm =****= DECIMAL TO BINARY CONVERSION =****=m"m,:"ENTER DECIMAL NUMBER ";:AA$"G"NO0"(LSB)";:AA$"G"NO1"(MSB)";n6X:X65535290Mn@A(X2):AAX2A:B(A2):BBA2B:C(B2):CCB2CnJD(C2):DDC2D:E(D2):EED2E:F(E2):FFE2FnTG(F2):GGF2G:H(G2):HHG2H:I(H2):IIH2In^J(I2):JJI2J:K(J2):KKJ2K:L(K2):LLK2L5ohM(L2):MML2M:N(M2):NNM2N:O(N2):OON2OGorPPO2(O2)o|Y$(PP)(OO)(NN)(MM)(LL)(KK)(JJ)(II)(HH)(GG)(FF)(EE)(DD)(CC)(BB)(AA)oAA$"G"NONO1:QB$"G":900oAA$"E"QB$""ʲ:"HEXIDECIMAL = ";:900pQB$"G"9000p:"BINARY = #"Y$:1590:2906p\p =****= BINARY TO DECIMAL =****=bpp:"4, 8, OR 16 DIGIT BINARY NO.";pAA0:AB0:AC0pAV$"":AV$:AA(AV$)pAA4AB0AA8AB0530pAA1AB0AA6AB1510:480qAA1ABAA:AA:480+qAA6ACAA:AAAB10ACMq:AA;:"DIGIT BINARY NO.";X$`q(X$)AA530q&Z1AA:X((X$,Z,1)):Z1AXq0Z2BXq:Z3CXqDZ4DXqNAA8630:AA16630qXqbYA8B4C2D1rl860::"DECIMAL ="Y:1590:460rvZ5EXrZ6FX,rZ7GX9rZ8HXHrAA16710NryrYA128B64C32D16E8F4G2H1r860::"DECIMAL ="Y:1590:460rZ9IXrZ10JXrZ11KXrZ12LXrZ13MXrZ14NXrZ15OX s Z16PXsus YA32768B16384C8192D4096E2048F1024G512H256I128J64K32L16M8N4O2P1s*860::"DECIMAL =";Y:1590s4AA$"G"290s>AA$"B"460sHAA$"F"1280sRAA$"I"1210s\BH$"H"XY:320:sf'tp =****= BINARY TO HEX CONVERSION =****=-tzCtD$(Y$,1,8):950YtD$(Y$,9,8):950ptD$(Y$,17,8):950tD$(Y$,25,8):950t1590:BH$"H"460:290tD(D$):D0D$"0"tD1D$"1"tD10D$"2"tD11D$"3"tD100D$"4"uD101D$"5"#uD110D$"6"5uD111D$"7"HuD1000D$"8"[uD1001D$"9"nuD1010D$"A"u$D1011D$"B"u.D1100D$"C"u8D1101D$"D"uBD1110D$"E"uLD1111D$"F"uVQB$"G"QQQQ1u`QQ1RR$D$:vjQQ2SS$D$:vtQQ3TT$D$:,v~QQ4UU$D$rvQB$"G"AA$"E"ʲ:"SPLIT HEX ";TT$;UU$;RR$;SS$:QQ0:1590:290vQB$"G"AA$"G"NO1FF$TT$UU$:QQ0:300vQB$"G"AA$"G"NO2SS$TT$UU$:X$SS$FF$:NO0:QQ0::"HEXIDECIMAL = ";X$:1310wD$;: w;w =****= SPLIT HEX TO DEC CONVERSION =****=Aw`w:"SPLIT HEX NUMBER ";SH$tw(SH$)41230wSI$(SH$,2):SJ$(SH$,2)wX$"":X$SJ$SI$:1310ww =****= HEX TO DECIMAL AND BINARY CONVERSION =****=w x:X$"":"HEXIDECIMAL NO. (4 DIGITS)";X$2x(X$)41300Lx(XX14:A$(X$,XX,1)bx2A$"0"A$"0000"xx<A$"1"A$"0001"xFA$"2"A$"0010"xPA$"3"A$"0011"xZA$"4"A$"0100"xdA$"5"A$"0101"xnA$"6"A$"0110"xxA$"7"A$"0111"yA$"8"A$"1000"(yA$"9"A$"1001">yA$"A"A$"1010"TyA$"B"A$"1011"jyA$"C"A$"1100"yA$"D"A$"1101"yA$"E"A$"1110"yA$"F"A$"1111"yNNNN1yNN11510:NN21520:NN31530:NN41540zBB$A$:XX:1320zCC$A$:XX:1320*zDD$A$:XX:13205zEE$A$QzX$BB$CC$DD$EE$:NN0~z:AA$"C"ʲX$;" BINARY ";:1590::1300z"AA16:550z,z6@896,"PRESS FOR ANOTHER CONVERSION OR TO RETURN TO THE MENU.";{@ZQ$"":ZQ$:ZQ$(31)20:ZQ$(13)ʒ:1600dj16561,254:16562,254:50lj:|j(&HFF00)j:jAM,OZ:V0:VD14404:VE14462:NN0:NP0:NI0:I0:CN0jMM256j:j 65385j65055k(14):"PRESS ANY KEY TO CONTINUE.";:D$4k""65050:(15):PkN(16548)(16549)256k$:"THIS PROGRAMME WILL CONVERT UPPER CASE LETTERS TO LOWER CASE"k)"BASED ON THE FOLLOWING GUIDELINES. ALL LETTERS WILL BE MADE"l."LOWER CASE EXCEPT THE FIRST LETTER AFTER ANY OF THE FOLLOWING"jl3"SYMBOLS: '";(34);"', '!', '.' '(', ')', '/', '-', '?'. ANY LETTER"l8"WHICH FOLLOWS A GROUP OF TWO OR MORE SPACES WILL REMAIN UPPER-"l="CASE. ALSO A SET OF LETTERS BETWEEN TWO ' MARKS WILL STAY"1mB"UPPER CASE PROVIDED NO SPACES APPEAR BETWEEN THE MARKS."9mG:cmLD$:D$"START UPLOW DATA NOW"65100nmQ65045mV:"TO USE THIS PROGRAMME IT MUST FIRST BE USED AS AN ASCII"m["FILE. THE PROGRAMME TO BE LOWER CASED IS LOADED INTO MEMORY":n`"AN THIS PROGRAM IS MERGED TO IT. THE TARGET PROGRAMME MUST NOT"ne"HAVE ANY LINE NUMBERS LARGER THAN 64999. AFTER THE MERGE IS DONE ENTER RUN 65000 TO RUN THIS PROGRAMME. WHEN YOU ARE DONE"-of"THIS PROGRAMME WILL AUTOMATICALLY DELETE ITSELF SO THAT THE TARGET PROGRAMME WILL BE READY TO BE SAVED."5oj:]ooDT0:IMMMM239:D:I,D:DTDTD:otDT28002DT26658DT25314ʲ"ERROR IN DATA STATEMENTS. CHECK VALUES.":oy65045p~:"YOU MAY RUN THIS PROGRAMME IN ONE OF TWO MODES: AUTOMATIC OR EDIT."Jp"IN AUTOMATIC THE PROGRAM OPERATES ON THE WHOLE TARGET PROGRAM"p"WITHOUT USER INTERVENTION. IN EDIT THE PROGRAMME MAKES ITS"p"CHANGES AND THEN GIVES YOU THE OPPORTUNITY TO MAKE ANY CHANGES"p"YOU WISH."#q(14):"WHICH MODE DO YOU WANT: (A)UTOMATIC OR (E)DIT?";BqD$:D$""65180:(15);dqD$"A"65360:D$"E"65175lq:Ar:"THE FOLLOWING ARE THE COMMANDS USED IN EDIT: LEFT ARROW - MOVES CURSOR BACK ONE SPACE RIGHT ARROW - MOVES THE CURSOR FORWARD ONE PLACE UP ARROW - STARTS EDITING OVER AT BEGINNING OF TARGET PROG."r" T - TOGGLES A CHAR. BETWEEN UPPER AND LOWER CASE AND MOVES THE CURSOR FORWARD ONE SPACE 'ENTER' - ENDS EDITING OF CURRENT LINE Q - ENDS EDITING FOR WHOLE PROGRAM"Es:"NOTE: ALL BASIC RESERVE WORDS AND SYMBOLS THAT ARE NOT BETWEEN"s"TWO QUOTE MARKS ARE SHOWN AS A GRAPHICS CHAR. (";(137);"). THIS"s"IS BECAUSE OF THE WAY THESE ITEMS ARE STORED IN MEMORY."s65045s:*tMM214,42:MM215,236:MM216,255:MM217,195:MM218,154:MM219,105t65260=t:tCN(NNC):CN128CN$(137):CN$(CN):CN34(N2NN)TG1TGtNN1:t:t(15)::NPN4:NN(NNC)(NNC1)256:NL(NNC2)(NNC3)256:NL6499965365:NN4:TG0 uX(NNC):u"OLD LINE:":NL4uX0NNN:65260iuNINNN1:(NINC)128ʲ(137);:((NINC));u:@512,"CHANGES:";(14)u :uV(VD)(VE):V1V(14417):V0V1065295u:uV64ʏN1NNʑ65245:CN$;:65295:65295u:-v#V32ʏNNPNN2:(8);:65245:65295:652955v(:v-V16V64:((CN96CN123)(CN64CN61))TGCNCN(32(95CN)):(8);(CN);:N1NC,CN:65305:65305v2:v7V1NNN:65260v<:vAV1265365vF: wKV8N(16548)(16549)256:65260:65295wPX(N4NC)gwU:(14);"DONE. DO YOU WANT TO RUN THE PROGRAMME AGAIN (Y/N)?";:D$wZD$:D$""65370:D$"Y"ʲ(15)::65055:D$"N"65370w_6500065515wd:wi10NC65536((NC65536)1): xn"ERR=", "ERR/2+1="21, "ERL=":)xs"START UPLOW DATA NOW"Pxx205,127,10,62,0,50,236,255,35,126xx}254,0,202,214,255,254,34,32,245,62x1,50,235,255,35,126,254,34,40,234x254,0,202,214,255,254,65,56,27,254x91,48,23,58,235,255,254,1,32,7y62,0,50,235,255,24,223,126,198,32:y119,50,236,255,24,214,254,32,32,61by35,126,254,0,202,214,255,254,34,40y183,254,32,32,17,62,1,50,235,255y35,126,254,0,40,118,254,32,40,246y24,180,35,126,254,0,40,106,254,32y40,11,254,65,56,166,254,91,48,162$z43,24,158,43,126,254,65,32,151,24Kz168,254,33,40,24,254,40,40,20,254pz41,40,16,254,45,40,12,254,46,40z8,254,47,40,4,254,63,32,8,62z1,50,235,255,195,24,255,254,39,194z24,255,34,238,255,35,126,254,34,32 {6,42,238,255,195,24,255,254,32,32/{6,42,238,255,195,24,255,254,0,32V{6,42,238,255,195,24,255,254,39,32|{220,195,24,255,35,126,254,0,40,6{35,35,35,195,8,255,35,126,254,0{202,154,10,24,242,0,0,0,0,0===============================================================>!gD!<?<6!?<@6!??6+!<6* @#6+  `~(6D6 `=2<<>^!2<w#> 2;<2=<2:<:<<d-Hc~ʙʴρ ;Vqʌʧ‚݂E= !D  !D , !D G !3D b !ND } !iD !D !D ΁ !D !ՁD  !D  ! D : !&D U !AD p !\D !wD !D !D܂ !ȂD-@ !<?<6!?<@6!??6+!<6m!<!!F>!*> Hp##2>#F> ʧ> f@f ?9 (#> <9 (+~O>[ < 9 8> ?@ 9 0> ? 9 0xw#?9 06!߈zʹut{ʹut!!|!gDI3>i 3 ʧw!!gD@!=gD!̈ @~ ʿ#õ6 !LjDDUMP 8000H 0000H 8000H TYPE IN NEW CHARCTER (OR TO END) =====> COMMAND TO BE EXECUTED =====> ENTER THE FILENAME FOR THE MENU =====> !qigDI MENU CREATOR - VER 3.8 BY A. HOOPER INSTRUCTIONS ============ WHEN YOU FIRST ENTER THE MENU CREATOR, A BORDER AROUND THE SCREEN WILL APPEAR, AND THE FLASHING CURSOR WILL BE HIDING IN TOP LEFT HAND CORNER. TO MAKiE IT APPEAR, PRESS THE RIGHT ARROW AND THEN THE DOWN ARROW. YOU ARE NOW READY TO FORMAT UP THE SCREEN EXACTLY THE WAY YOU WANT IT TO LOOK LIKE WHEN YOU EXECUTE THE ACTUAL MENU.... TO MOVE THE CURSOR AROUND THE SCREEN, USE THE FOUR ARROW KEYS ANDni PRESSING ANY VALID CHARACTER KEY, WILL PRINT THAT CHARACTER ON THE SCREEN !ԋwoȋWoȋgj 870eaj: 99: 65504: 50j:@470,"ENTER REST OF PROGRAMME HERE";:jDL131:DM191:DP176j W60:S63:A1:T959:U896:R62j@0,(63,DL);:65514jR64kRR1:@R,(W,DL);:WW6:RR66:AA1Ek XS T 64:@X,(DM);::TT1:SS61kk XT U 1:@X,(DP);::TT66k XU R 64:@X,(DM);:kUU61: A2 65510 : R398 65512k@470,"=**= TITLE HERE =**=";k X1999:k DL128 lDL128:DM128:DP128:65506j:"DOSCHECK/BAS" - DOS ADDRESS FINDER COPYRIGHT (C) 1981, LEWIS ROSENFELDER, "BASIC FASTER AND BETTER & OTHER MYSTERIES", IJG INC. ***************************************************************k1000:AZ:BA(2),DC(2)Ak :LOAD SEARCH2 ROUTINE INTO A MAGIC ARRAY...k 32717,-6902,-7715, 20189,-8948, 94, 22237, 6913, 33,-13568, 12345, 6401, 1320, 10731, 6379,-5132l 28381,-8956, 1382,-8935, 4725, 29917,-8941, 4206, 26333, 17937, 9032, 9054,-10922,-8763, 94, 22237l -8959, 2158, 26333, -18679, 21229, 21560, 28381,-8942, 4966, 24285, 5646, 6400,-11839,-14891,-16870, 1568l 8979,-2032, 8472, 28381,-8960, 358,-8925, 117, 29917,-8959, 4718, 26333,-8941, 3166, 22,-8935Om 4725, 29917, 6163,-8780, 2670, 26333, 17931, 24285,-8942, 4950, 29475, 29219, 28381,-8960, 358, 1048mm 46, 38,-15935,-25917,10mUS(84):X084:US(X):n<IA%(A1%,A2%)(65536(A1%A2%))((A1%A2%)32767)((0A1%A2%)((A1%A2%)32768))(A1%A2%)(((A1%A2%)32768)((A1%A2%)32769))sn=H2$(A1%)("0123456789ABCDEF",(A1%16)1,1)("0123456789ABCDEF",A1%(A1%16)161,1)n>H4$(A1%)վH2$((((A1%),2)));H2$(((A1%)))nd:" DOS ADDRESS FINDER ";(63,131)n"USR ROUTINE ADDRESS POINTERS:"@o0100:1110:2120:3130:4140:5150:6160:7170:8180soJ0:RE$"":KY$"":X10018010:KY$KY$(X):oC(0)0:C(2)&H4100:C(4)(&H40A4)(&H40A5)256:C(5)(RE$):C(6)1:C(7)0:C(8)(KY$)o9(US(0)):J9((C(0)))KpJ0ʲ"CAN'T FIND!":250:" USR0 USR1 USR2 USR3 USR4 USR5 USR6 USR7 USR8 USR9"spXC(9)C(9)182:"##### ";X;::pXC(9)C(9)182:" % % ";H4$(X);::p:"PRESS TO FIND DISK BUFFER ADDRESSES...":40500q,@192,(31);"DISK FILE BUFFER ADDRESSES:"q6" NOTES: 1. THE DISK IN DRIVE 0 MUST NOT BE WRITE-PROTECTED. 2. YOU MUST HAVE SPECIFIED AT LEAST 2 FILES UPON LOADING BASIC. 3. WE WILL CREATE AND THEN KILL A FILE CALLED 'XTESTX' ON DRIVE 0.Er@:"PRESS TO BEGIN SEARCH FOR DISK BUFFER ADRESSES...";:40500PrJX12rT"R",X,"XTESTX:0":X,0ASA$:BF(X)(((IA%((A$),1)))((IA%((A$),2))))r^C(0)0:C(2)վIA%(BF(X),600):C(4)BF(X):C(5)(RE$):C(6)1:C(7)0:C(8)(KY$)s_KY$(BF(X)):9(US(0)):J9((C(0)));s`J0DC(X)վIA%(C(9),3)Osh:"XTESTX:0":_sr@256,(31)rssSTBF(2)BF(1)swX115:"## = ";X;:A%վIA%(BF(1),(X1)ST):A%;", ";H4$(A%);" HEX",:s|:" PRESS TO DISPLAY DCB ADDRESSES...";:405005t}@192,(31);"DISK FILE DATA CONTROL BLOCK ADDRESSES:"t~:DC(1)0DC(2)DC(1)STʲ"CANNOT COMPUTE... THIS DISK OPERATING SYSTEM DOESN'T FOLLOW THE PATTERN OF MOST DISK OPERATING SYSTEMS FOR THE TRS-80!":uX115:"## = ";X;:A%վIA%(DC(1),(X1)ST):A%;", ";H4$(A%);" HEX",:#u2A* @!~ * @" @:T=!@""y2-2:@2!ͧ(*@",&*ͯ> 3[@ ͐~#շ3G!P~#3~#3> 3>3>3>3> 3> 3> 3:2@::@_ͩA!ͧ( :2@>2@No Error Found! Data examination reveals last set of data accessed was : !F:@2>2ͧ(!@"!@"j*@~(i!@"j!@"!ͧ(:2@No data statement found! BASIC,64512,DEFUSR0=&HFC13:X=USR(0):DEFUSR0=&HFD83 --------- Error Finder Ver. 2.2 By Mike Brotherton -------------------------------- X = USR(0) to trace data ---------------!D