TLAdvanced BASIC1.02(C)1987 Colin C Dean(B/B+/M)  LF L̀M`X@3*d+d,d- 7 7*+ 7 @ 7 S \ ЬЩ Ax>X*  L̀~ Escape HHHH hhhh`L`ک* .* +,-`ABASIC ! GO F800 oEscapehihiȱLH hhh(`H)H)Lb(L1 LLLo'о ) J 0KLHHHHH hhhhh`HHH hhh`HHHHH hhhhh` b H)ȑhJJ8jLX0X8JHjihiLɁ ɅLՄLYLɲLhhH 炢hh(`HH h(hh` 𕨈HHH 4HH  HHHHHHHh)JF*  yLL~H h.))A [LX -@!<$;?LJȱ Lv   . 0LLL  Ä B ABASIC L Ä B For help within Advanced BASIC, use its HELP command (file "BASHELP" must be in filing system library) L  N  ޱ  `8` LHHHH}hɂɄfL Ä B PAGE  ( B00 BLISTO option ) ‰ B TOP  $ BEDITO option  ‰ B LOMEM $ BTRACE flag  ‰ B END  $ BTRACE line  ‰ B HIMEM  $ BWIDTH  ‰ B Last ERR * ( BLast ERL  ‰ B Number of INSTALLed programs  ‰ B Number of LIBRARY programs  ‰ B Free space 8 ‰ B bytes For keyword info, type HELP For assembler info, type HELP [ L  LHʆ 0U $:( 0 .LsH .8}hʽ . @  oHELP file not foundhu  k kL p LŇ$0 Lkȹ L!@- . ]@)! w)A[Ȑ칀)A[ ĬȐLŇȹ Bū*Ɛɰȹ *Ŭ܈ ȩ فșƐɰȹ ж kL͇ hhhL $0 oNo HELP on keyword) L IKE k@'?@ N k b Q kh @H(`  ` _ _)` kA)`$0L~ Ld `  L$80ȹ! `BASHELP &L B = `' 腬 d L8嬅子 L` 0L (HJJJJ 7h) ii0LhhHH橱  0hhlHHH < 44L  L L  H膨 v LP7``Advanced BASIC(C)1987 Colin C Dean. v 1.02 : 0LӬ~PQLANDABSACSADVALASCASNATNAUTOAPPENDBGETBPUTCOLOURCALLCASECHAINCHR$CLEARCLOSECLGCLSCOSCOUNTCOLORCIRCLEDATA DEGDEFDELETEDIVDIMDRAWENDPROCENDCASEENDIFENDWHILEENDENVELOPEELSEELLIPSEEVALERLERROREOFEORERREXPEXTEDITFORFALSEFNFILLGOTOGET$GETGOSUBGCOLHIMEMCHELPINPUTIFINKEY$INKEYINTINSTR(INSTALLLISTLINELOADLOMEMCLOCALLEFT$(LENLETLOGLNLIBRARYLVARMID$(MODEMODMOVEMOUSENEXTNEWNOTOLDONOFFOFORIGINOROPENINOPENOUTOPENUPOSCLIOTHERWISEPRINTPAGECPTRCPIPLOTPOINT(POINTPROC POSQUITRETURNREPEATREPORTREADREM RUNRADRESTORERIGHT$(RNDRECTANGLERENUMBERSTEPSAVESGNSINSQRSPCSTR$STRING$(SOUNDSTOPSWAPSYSSUMTANTHENTOTAB(TRACETIMECTINTTRUEUNTILUSRVDUVALVPOSWHILEWAITWHENWIDTHELSEPAGEPTRTIMELOMEMHIMEMMissing ?ƏL d tL~` MɅ Lϊ MɅ L/    LԬӬ 0 =z Z(`Ӭ h (`Ӭ ֨$LӮӬڢӬڢ +Ӭ 3"Ӭ ʀӬ !πӬ ,Ӭ ӬHZӬԬլӠ zh`dYLdbɰKưJLKɅ7ɇɏ+ɔ*#ðLc L < 0hh`Li@LL | ɞ |+%LӢ ccode L~HZȱ9azh`ȱ9HJ 7 Ű a 7 ƈh`ȱ87ie889ȱ8b8 HȀz`  B `Led7ee8`d e `ddeLˤ#La橾 d )L6ϩL_ln 4LzüddYdZd[d\`=ݫ>ݲLod ) ڥ(H h()?JJ=95H hjjj LSS ChannelS hZ ʥ*R󽹽) ʥ-,+* ***e)) hLNL M,Lʥ*H *+* å*+h*LRSIMI>M)$9`ZH()?h:z(@A`ڢ LԬ4d2d3010L,- wl*1 w˅-./&0 *+,* ­0H-./(` ʢ [ M,LLʢ [L*ʈ` M, C 8  TNot found $)Zڠ z(J t ) ש hh(JLLFRLLL J hL J  `d*d+ LɋZ7 ɍȀ멋zLXũ%`Lp[]{} h $ p7`H$ p[]{} h ) Ő Ȁ $ PL̊|u GKmtt縢6 LK^ȴ㴛Z^b~֭H­@79 ήA8<=:;'6!ȹ)$9 ɽ<=`NT 9 LN*@+A0 ()LϘ0*`L LLμ`ƨ6ȱ9,77. ȱ9ȱ9 \ P7 z %ǩOnodd d!d"dRdSd_d`dbdc@ ԬȱȱLL(& <# tLudd < M: ɋ`XLzXnqLJ`LZ ,ɤ .ϢL l" ` l" l`3΢L) gLvhH)6:*L~H hL(jjj` Yϥ   dϢ) `LX@`' SH L-L@ " ޯ*$ 0`LE LrLqL*%(Ld]T3;< MHZ >zhy9 < B ;;;`>LGLW~걮׾d` Lü5)7Ɛ ɰ)b``89ZLdb$c0L6`ʱ`2GLȘe99:`H Rh`ɸ; : ɋ`$ L neQZH  h`*+,-*`@|LL@ѩLR!|LL)ҩL+H MBȱ Y h` h)` `PD M Lȩ $Y҅хԢ Hʥ8< dMd M(L) HHHMHVHWHکH  GLhhh? 9Ɂ 72  \?i<hhhh h h he'`dTVWdXHHH M TH -L: z-hhhz*HZ o R)hHUT B(ĺ*U e*Z X)Ф AzUHVHWHXHTH KhThXhWhVhUU XLT B)hLMT * e*Xh*- `,0-ą'7 [ " -б !LTLV7W8Xȥ*7ȥ+7ȥ,7ȄX`V7W8X,7+7*7X`hhچɤ' KHH * e*Hh*h+h, H0J h 8  h h Ch*h+h, h8h78887ڭɤ ' [hheLϰ 8 '`' 0L L.L\ ^ MLj 0\ S ] 糦\e fe p Ԧ\= R \ " L\\d g q Lz5Too many ȕs.No ȕ$07  ) 0%ie  ձ ɕ 糀Ɉ `\R \ L$ l o($ Ɍ ͈ 1` 0+ȱ *ie  ` 1  `hh *ZL 1 LwZLԥZZ 1 LwL# ԥZZLz  B B  ȱ /0Bad Ȏ+ȱ*ie e [ MLz(Lԥ[ ܵ [[LwL#( L( C ( K( i! M, :L ܵ H h( B" B " : L  ` Ɏ ܵ$0?     L +ȱ *ie   `  L.E1)E110Lɥ6ȱ6( (` 0 =` B=`+- ȱ=L~L B=L+-Lȱ= (' 亽J 1 @' '*+ 0 hhL ހ B=+ -LLȱ=*ʈ, C Ԣ hhL&L%LX J&*&+&,&-ȱ80@`Bad Binary<L1>HZ 4zh< ȱ>=jjjHȄ  ڨ 4Ϣ7 * 89: 7hڅ87%7$8P *&+&,&--f-(f-f,f+f*@`]:]`^^0 ]_^^0{^ Lh h No such /% ,Lȩȑȑ` `Ȟ*ȽN֪lֱTLn`LH tL~Lӥ,0Lɀ*-*H**h+ * - hH !  ,Lk L* ӥ'L66 hd9 && &8:697H h:98:9: &6 976LzȦ:66`<8 `LtȲ e`LD?- $Y ҥѺL# M)`; m8)e)d3<00S hS )@<-=7>2$P0-ZR 0 ze:e;h hz(@A`ɐɖRF4 LL* ԩ Lz Lɥ.01)10)LIå(H h( ʩ 6@ L(J A ^@ Lɏ l  u ԩLH M ȱ ɐ L~ Ȅ H l+H*H u  u ԩ h h 7 8 h Υ* + Lz M ȱ ɐ L~ Ȅ H l+H*H uh,h-  u+H*H uh,h-  Bɸ  hL l*H+H u*H+H ԩLH 7* h  ' 6  6 '  a H >Lzȩ Υ9 : 7 8 H  /* +L, -fi 7*  Υ9 : 7 8 Υ, - * + i ΢h** hLzȥL橇 L ML l+H*H uh,h-  u+H*H uh,h-  Υ9 : 7 8  Υ, - * + Lzɇ89R l*H d )L Ԝh6 ȀL ԩ- & Lz Invalid address ignored Lz C Ժ LY8 8  ԺYY GLzȽF L not ɨ l *H u ԥ*D L M*ɇ& l*H+H u ԥ*=+>) ԩҠ Lz +d=>=0+ȱ=*ȱ=e==>*H+H c8d9e:7d= h0+h*d,e-,+ ȥ*,Lǩ L ɒ<*i 9+i: *d+L̢LLine number reference Mɸ EL' l  u *9+:7L> 'O ~  6` B; hzzzH6  ( Lzȱ$L~cd6 )dc6L M$ɇEɈHɸȱ ɓ'L M : ɋ l* ʢ Ԁ% l* X(ڀ u*H hhL>ɸ<% l  u *9+:71 3 *7* 3 * 78*L> l  u  u  u  ԩ*`,-p(  ,-,-_ z./8*,+-+.*/+!( LzhL M: ɋ  +" 0d7870O7 BD B>= Bd9 9?@CDGHd=>dABEF7 Lz Ʋ7 `L55.*&"" Ɏɕ<`<`ȱ ɅL` Ɍ Ȁ ͭ?*H+H,Z ǭc ԥ*H+H,Z R .ݩ'  & LzȢ*H, ǭ&  C, h*   ɀLM Mɇ1Ɉ M3( Ӱ l ԥ*!+"( @ Lz ԩ ԩ ԩݢ2Lincore nameC M Hdd*~)+.H h LǢJ# 0 0 *`LOOS_  Variables: @ < tAH <[ thH *hH  H hzHĢLH % hH Hh` 㬩 㬢L)A t t ) names: t $0 / ` tL` )0  _ )0 {  tLzii  )LtH t t )h )DL headers:  $$1%(TeJeK .ݠ*@Zd Kـ*ȱ+ȱ6Z6*ȀL ȀL =  ~))B*i *,+i+-d.' & &d & &, J `018,0/-1 -/,.` 0. `Lȱ OLz l ԥ* ~$P0$eP* + .).h .. LǢ*L+,-%*! 9:e99:899LL^,hH" 6  Ȁh" L/ .Le9e:89ȱ9Z @d K٠6  Ȁz, ̩) L/ B(` B@\{X 9:8Z889(zȀz919Ș8e99:zȱ)Ȅ X)9:JLLL~Lq ) 4 B)L l  X  ԩ'*H u X ԩ h * d*L u uLzȥ*H Bȱɜh*`Ȅ l8I l XH*H u ԩ hLХ*H Bȱɜh*`Ȅ l8.LOut of range M ȱ ɐ L~ Ȅ H l ? : : : XȄ = Ԣ"! ԭ!L u*+`L!0#(mm @ 7mmmmh @Lzȩ ΢ ΢ `"{ ܢ * > ;q ܩ{ (  ܢ * > ;qJK ߥ0Ɂ!#L*+d,d-L= ܩvJKL#q ܩ{ (ݩ 5 ᩀ 5 ܩq (ݩvJK ܢ $ D{ ܢ $ D$L*+d,d-L=vwxyzvJKL$ { J ! ) 9 ܢ 9  ܩq (ݢ )q (ݩv J ݢ )!Lvl JL 8*+`*+d,d-L=JK`%)H L ԩ 6ڵ_ [: T:L%=7_{`,Z-H&LLx& g8*+8*+M T, >,0,2e,,-zh_ eeLzȊLx' e `  Ԣ 4) Lz -:,09  LRd,d-+,-* @'7H8H9H `LkLL( /A*+*L4No ț/Ț room4Bad ț/Ț program4Too many ț/Țs4Stack not empty)HHH  )0CD W? X X(+ d& )08   C  8*H+H,H-H B dLӢ*L*8( #hHH  6 X X( h -L  BH h; -,0 B +L+0Y ԥfghh*,-+*89 ! LO1-L----..-/0/.0/.h h GLArguments,hJJ *(*(* $'f*fifg*+,-#,0*H+H @@'   @  8hhLzȤ*`-+f78@R7ȱ87 ƀ Ơ7ȥ8, '  (Hȱh * Lv. =Hȱ bH Zzh ɀ  (7Hz (< X X X X X  (Lv/ AO HȱHȑȑHi ih  hhڀ*  Hȱh  (  Lv0 KH: hd77h   7(* H Hi ih  h(Lv19M. 0.  8*.Lޠ7ȱ8ȹ7-LO7ȱ87 6 W*Lv29:iH7r7Eq7Ed-87eih7:79779`L0H$Ph0`頊橠ȱȱȱ ee .8Ƭм` `ƨ0 8令`  B L ˽) ) L L  L oBad command BABasic` ) ‰L Q) `&L0<:K)H 1he?Lٽ0: G*A&)H AheL  L`L e` `{a)`|0 |0&ܽ|)ȊȑȑȑL襬ߩ |ŭx o|0 oB+ o ?8didH mƯh8 i H$ mh m oƮL" o o" oLK 0Ȅ`OS_WriteCWrite0NewLineReadCCLIByteWordFileArgsBGetBPutGBPBFindReadLineSWINumberToStringSWINumberFromStringWriteI