IMD 1.18: 8/08/2017 8:55:29 CBX86-000033 C BASIC16 (XENIX) 1.3   0 ( ) *!+",#-$.%/ &0 '/usr/src/cmd/cbasic/instructions 664 3 3  1055 2717320271 6152 peed. Future ver- sions of the system should be both faster and smaller. CBASIC-16 also will be extended slightly b *) break;; esac done if test -z "$*" then echo "bas: no input file specified" exit fi cbas $O $V $* if test -z "$U" tem appropriately using tar. Each file will automatically be placed in the appropriate spot and given the correct permis 5033 2737554575 12176 oth in the syntax accepted and in run-time support functions. We are anxious to receive any and all feedback from user/usr/bin/cbas 777 3 3 - sions when this command is issued. RELINKING CBASIC-16 Files cbas.o and rbas.o contain the unlinked versions of s includ- ing comments positive, negative or neutral. We will also be re- ceptive to suggestions regarding future di 121640 2726404213 6361 the com- piler and run-time, respectively. They may be linked with your local C run-time libraries as follows: while test $1 do case $1 in -o) shift U=$1 V="-o $1" shift;; -p) T="$T $1 $2" shift shift;; -t) T="$T $1" O="$rections for extension of the CBASIC-16 system. The CBASIC-16 Distribution Disk contains: instructions -  ld -i -s -o /bin/cbas /lib/crt0.o /usr/src/cmd/cbasic/cbas.o -lc ld -i -s -o /bin/rbas /lib/crt0.o /usr/src/cmd/cbasic/rbas File: /usr/src/cmd/cbasic/instructions ******************************************************** O $1" shift while test $1 do case $1 in [0-9]*) T="$T $1" shift;; *) break;; esac done;; -*) O="this file bas - a shell file to run cbas and rbas cbas - the compiler cbas.o .o -lcbasic -lm -lc . Each file will automatically be placed in the appropriate spot and given the correct permis * * * HOW TO INSTALL CBASIC-16 Version 1.3 $O $1" case $1 in -h) cbas -h ; rbas -h ; exit ;; -\?) cbas -? ; rbas -? ; exit ;; -*) H="help";; esac shift;;  - the compiler without the C run-time libraries rbas - the run-time system rbas.o - the r0܃Swu\0PfUWV8p+X6Z6\dž0>Rt6XV^R:\- sions when this command is issued. RELINKING CBASIC-16 Files cbas.o and rbas.o contain the unlinked versions of * * * *************************************************** *) break;; esac done if test -z "$*" then echo "bas: no input file specified" exit fi cbas $O $V $* if test -z "$U"  run-time system without the C run-time libraries cbasic.1 - UNIX Programmer's Manual sV;ssRp70㋗x~f>X}X}XX|E)}=㋟&the com- piler and run-time, respectively. They may be linked with your local C run-time libraries as follows: ***** CBASIC-16 Version 1.3 is a full release of the 16-bit CBASIC sys- tem. It includes all functions described inthen U=`basename $1 .b`.i fi rbas $O $T $U 1 V="-o $1" shift;; -p) T="$T $1 $2" shift shift;; -t) T="$T $1" O="$ection CBASIC(1) libcbasic.a - run-time library cbasicdemos - directory containing demonstration program;Xu#X00>\D\=㋗ua>X}X}Xdžڃ?u9wu郆 ld -i -s -o /bin/cbas /lib/crt0.o /usr/src/cmd/cbasic/cbas.o -lc ld -i -s -o /bin/rbas /lib/crt0.o /usr/src/cmd/cbasic/rbas the CBASIC Reference Manual as well as the enhancements described in the UNIX Programmer's Manual section O $1" shift while test $1 do case $1 in [0-9]*) T="$T $1" shift;; *) break;; esac done;; -*) O="s INSTALLATION To install this release of CBASIC-16, login to the system as "root" (super user); next, type |;Xu鋞W}+t\v.iRZ\p㋟x|#)}㋟&みu /usr/bin/bas 775 3 3 CBASIC(1). This release also fixes the bugs found in previous versions. CBASIC-16 has yet to be "tuned" for space or s$O $1" case $1 in -h) cbas -h ; rbas -h ; exit ;; -\?) cbas -? ; rbas -? ; exit ;; -*) H="help";; esac shift;; the following command: tar xv The release disk contains full UNIX path names so as to install the sys0 ( ) *!+",#-$.%/ &0 '㋷&\㋗x>Rtw7RZ;wF>Rt6XRSZ>Xu'X;AW>GWAVvv7~O;>+~V~uv>uo>~5WKX+9f:8Z<;.;:7VWg=}WVWogVWgƅUcNWVW6Uf2u.>>PWVW>GWc_F~F>9~~>t1>~%W67~>>t->un3Wp4P67,677PE%W>~_W<W2VWb=~GvWVW 0-*dUWVFP~ u >9>|dUWV WdU>RtR#Z>TtRZ>Vt y㋗ )㋗ )W0㋟ <u>uz>C9>CtC>t~9>}vWwW6f2TF>9~|ݿ WS&6B{t6C&6C&G"P&{W&>tg>u`v~W6f2T72W~=:7[UWV>!9~tvFPvH%WF~>!ZUWVj3>j3|j3uZ>j3h2UWV>~_WVW2WOb2u.>>W2W>GWZ4QdUWV6b2PX=uW]>GWY#dU㋗6 [B)}ڋ&㋖9t㋟6 ㋷&!UWVv^W/W-YmUWVvrWEYmUWVvF(>t W6.Uv_UWVBV<B>B~BmP67W;?_UWV>Z2u'_BWf~WfHF؍vފV~%t~$u ^^~WW6f2BThUWV+>D>D>t 6+WhUWV M>狽t4>j3>狽r4>b2>>l3u >>l3빃>u7:j3 22PFv^![h2F~|4WV6d2"X=uW/>GWYcUWVWW4Od2u)WW >GWfYcUWV>l3u|W/YmUWVF*䘘mUWV~9~+ ~0|emUWV~A|~Z ~z~a}+9mUWVv^[FFB 27B2f:BƇ:B2.;>76B扼;6B[Z<> 26B扼8>B6B扼9F~2P4F2W`#>DDuuWJ#6#>t#>uW6f2SW6f2SJhUWVD !FCV~ |#F>>2 tj3j3>j3tj3 222222<u2>2uj3>t7>}>2 t>th2Wn3W`7p46b2Wh2WMl3>uyh2W-a=|j>~u7h2W7P67"/|/ N~umUWV W)6B'+FCP)>C>C>C6C)>t%;Ct W!*6C$>t8~t+W@;F}>0gUWVP67Wtx^UWVv^7[7v^:[:v^.;[.;~狽;v扼;v^Z<[Z<~u>t}~u>D~W6f2`SDF=w?.w PW6f27SD 2>DWW6f2SD6D26>2 u 2 >2 t2rYxUWV< t>2tRYUWV2>2u;YUWV>2\t+"YU//P PUW 67::~>>l3u+bUWV>u&6d26W4WM;t DW}%W)>CB6B^% W %>tY%u W)VlUWVFFFЋv62Ё?VF2;F}8v扼8v^f:[f:~狽9v扼9]UWV~狽 ~t->B~>X}+~>B+~>B+~G>B>B>BW6f22 i K gUWV>t0>u)W6f2R>D4|W6f2RDNgUWV ^VF~Nu/gUWV>u>WVu YUWV+~>Z2>79~ttF-2>2u>2uc>u0>t)>79~uh2W7Pv n3WpbUWV+>>>>>>|bUWV>u >| V4MbUWV+3WWqWWMqvv> 62WCWiFCF؊:C#kUWVFPtk#+UWVD~t>tF~W6f26B>BGWF>BG>Bv!.~t>B>B~9>Bt!W6B~t>B>B>B?]UWV>u|F't9>t2/|/F*//PF*PY~ ufUWV~PF^ufUWV>u>t>t 4PvvvvJ~uX ;u2>2u^XUWV>u0>t)>79~uh2W7Pv n3Wp4PvvbUWV+҉WF>9~|6f2_=u)WVW>GW a>tv>ul>t\3VWh2Whh2W/|/ //P POF~;~ο$W~H>9>|vvv$WZH>9>|\UWVvW,RfUWV>u>t>t vWRffUWV+WeFV~W&\FW PWcW~WWvvpXUWV~tR%W/WbCvZ%W/WQCWUWV F >>l3>ue(WWU~9>|Z@+҉raUWVF~狽C~uv-\~}~~uF~@|͋>~u +>hƅg2oW/VW%IWh2W2/,/Wq^>t Wh2W Wh2W$hVWh2WgWh2W>tn~tXF'/|/ //P POF~;~ο$WGvvv$WGvv$WG&\UWVcW~WWcfUWV W WWW WWW WBP^^?-tF^u^+һ.{F~"+W3F~9~|6L땿>av[~=UWV?vv `UWV27`UWVb2/d2/WW)IWIuxgh2WRUF=t/W^/W ^>tWzx>un;W>u~t>t>t7>79>7}->un3Wp4P67677P%W67I7P W WF~6P WP>~*WXWW|)W"+(W`WVz>t?W40 ( ) *!+",#-$.%/ &0 '>>>>>u>~5WWTWTFj(WP Tt6 "W>GWcLW{T=@~V~6C|6CCG [GHUWVCG%jHUWV>C狽C>Cu+/CW:Cu'CW>C WnEu:Cut FPRUWV^2FPwt FQFUWVF\2fCBZ<CBZ<CBZ<C>B狽8>D>B狽8>DVCUWV~6B扼8ACUWV~6B扼8+CUWVB.4$2=22E02 22:222##-$$2Ƈ2u=>2Fu>2Nu>2t 2M0 6("W>GW:LVWRT=}WVWSVW5TƅUc>t6$"W,>~5VWSH>C}UWVC FPACu#+W67(W>GW=CW>C W(ECCWCCW>C2;Fۋ~OFvtv~F2;F2>2u>23~ \2+=QF#v vvV:CUWVBV.;CUWVBV.;BUWVBV:BUWVBV7BUWVBV7BUWV~6B扼82J0L>2'u~s2=<tg=bt=ct2>2u"t33W2P2>2u,W+WVWSFm(WVP>St6""W>GWKVWS=@A6("W>GWjK$6"W狽C6C|>C>C6C扼C{GUWV>CEjGUWV6CCW V[WPGUWVCWu+2GUWV>C}!G~F2;F}ԃ~| ~d\2[UWV>2 uy25PUWV27P67(WPUWV >2 ~+BUWVCP6Cv~BUWVCP6CvdhBUWVCP6CvJNBUWVCC?BUWV~W`(BUWVF2>t~W667(Wt>2%t>2 t >j3tHu2Ƈ2uN6ځ=t=!u=#uO=$uO=%ug~Pp(W/W@=u=u-=u=%u= u="u=&UWVCVWGUWV>CEFUWV F>C=~uF~ WF狽C~9~u}v扼C1F~~~PF2؋!HF2Ƈ22Ƈ22؋!FeFFFF2F؋FvF^F[8tN^u ؋92t >2 u>2u 22 7=2Ƈ2> |Z>>(WV67p(WBuh=(u~vRF(W~W,Rt6"W>GWJvR=@~6("W>GW\JvW}~~Nt~9~uߋ}v|~UWVaFF?>C WF؋C6C|>C W(؋>CCFV8V~^t4v^[8W~ ~G~~O~~9~~2Ƈ2BFF؋G0FF؋G2*=|222L0>B?>CC AUWV>t>C>CFCPbAUWVBu;6C>AUWVPa)AUWVF~2PF2;F}D>GW@>b26扼r4>j36扼t4j3!,2 L)\>u>Rv2WQ>u9/WveQFt@FFvF^F[u^Gi(WW{Qu6&"W>GWIFUWV>t FPFUWV+CC CCBCB2C+>>CB#B10B#C>tp>u2Ƈ2UWV+220 22>X2u>>7>7>7>2u7>2"t >X2ur2F02X2D>2u36C8Ct(Wv+AUWV>Cu(Wm+(WE>Ct@UWV>Cu (WW>Cu ]Wu@UWV>t >t >t(>t>tfqF=~>\2t}~>ƃ>tFDv扄>\2uҀ>2>tW2WsQa+>>>X27j37:2 tS"UWV>X2uA22؊222؊262 2W 3W W  WC (WCWBCCJ1W7$W-+W:EUWV>uC>u F67(W 2622P2+҈2[72N>X2u2<"uu>2"uu u2E02+҉V`2^2>Cu (W>Cu ]WKWyu@UWVCCPrZ@UWV>C } CP CCPG/@UWV W4th2F~|도%_&&&&&ut `e2Ƈ2,tm>tƇ6?UWV>uF2Ё? 2>2|X2SUWVtSUWV22`SUWV22MSUWV2P9SUWV>2a}+ >2zPEUWV>uC>u >uDUWV}WFPDUWVF*PF*PsDUWV20u %2>20tlt>^2u*F2>2ht>2HuX~u667(W(>`2u2F2;FC8Ct_>Cu>Cu pW\>Cu8>Cu1WpW>u W+CP(W>Cu~u (W ~DžCF~@|W^C*WQC6DC(W PFG>E+G6| 6| 6|E+SUWV>2.t+SUWV>tt 22RUWV2PlRUWVvuu u+RUW~WDUWV>t"> Cu>u67aW+_DUWVB:CB:CB:CB.;CB.;^21ă~u^2Fڀ>2 t>2+t>2-uC^2t2LuuMru>2 uH^2HCuFP>CuFPFPAo?UWV Wt>Cu:WC>Cu,W:WW?>>IUWVF~FFF^uF%?HUWV>C=>CHUWV>C>C=>CHUWV>C狽CHUWVF&A2PQH=~2P>H=)>2Et>2eu`2^2umuFRUWV>2 uX2.RUWV2>CB.;C>B狽8>C>B狽8>D>B狽8>CB7CB7CB7C>B狽;>C>B狽;>C>B>^2uM>^2|4 <.u 22>2u 2>\2t2>2tf2غ02 2Oiu2-$=w@0 ( ) *!+",#-$.%/ &0 'CPt FP?UWV~uW~uWW6>UWVF~tC8Vt (WCPCPk+W>~߀uYE>t@~}t6Vڀu]}uT>C|~}t<~}uEW-0~}딃~t:UWVC}C)WeI>~}u>^t )WB6W~u ~E>Cv| 9~}UWVzq Wa6Bt6C6CUP')WK2P022؊~%W2>C|C>_:Ct5>CuO<u:W BupW>Ct<)WoCPCCP4UWV>C uL> WYCPN>UWV~uW~uWW$X>UWV>Cu >CupW >Cu:W >Ct ~}t~EF~}~UWV>CuWW/UWVWWWvW/UWVX)WȃWr6Bt9>t21u+>u$>2u>7O>7>7C7O9UWV>tW6WPZ~PJB:At B ' 2WB-;:Cu>Cu )WH>}>CP}Pm[WgCt ?)WWQ>D>CKF6C;| B)WveCt E)WC%?؊VC>CPt>C[t>UWVCP>UWV;W=UWV>Ct (WA>Cu 6C&FPW}=UWV>Cvȃo)Wȃvȃ{)Wȃ~~ sWʃʋ~>\/UWV>t>t)Waȃv|ȃ|~f~~^t(>Ct;Ct!)W t $)W]8UWV>t;>ttW-')W+>t=u *)W8UWV+WCP\6WR>u>C6| M BCZ<6W!>u >C6| CCP3>Cu>CupW>CLu H)WCt CPCP3UWV>tMBƇ:6B{P!CPC@PC>C?uFPFPU=UWV>Cu 6C>t "W1W>t )W*W=W<W>Cu :WCP#=Udv.HW6BtEt;Ct:)WC"6C2Wb>Ct 6C +W7*>CtsFPt.t7FZt>C6|"8U|>Cu>Cu:Wg>Ct )WC>t:W#FG~E~>v|~?~>=>E>C>C3UWVCC>tAWJ-FG~E~>v|^G~?~>=>EC6WVB>BP| )Wo>Cu )W>Cu :WBBP2^W9W Ct e\>Cu׃>tCC>C9>C}>Cu 2W(">Cu 6C>C>CP!WVWWWpF2 ~PF^u>X2u+W7UWVW>t>Cu)>C|>y >Cu )W)>Cu >CupW>Cu>Cu :W'CPbBڀ-;uY

B;)W&Ѓ5>CuB| >C>C6| 3UWV~u+WWI>t6>Ct[W>} >C׈CCP~t&>EPB~}u>^t )W6W~u z>Cv|~E0<~}UWV>C9>Cu8C@6Ca6Cƿ W6BF=u)WV롿 Wa똿_W W W} WuWkC@} 6CWO6Cr.W?+WZ6BuMF~2P0F2;F}$WC6CW-;upW>CuB-;u :WBC-;CP>Cu W+.W+WB +W'w+WB17W`>u 2UWV>~}t^t K)W~t<>Ct5>C9>Ct>t>C;>C>t N)WBƇ:6B&F>~ >}>>}u~t>};>Cu9 )Wd~>;UWVC>t:W|5WWWWWܿWֿWпWʀ>CtW+WW'.+WWW+WWW+WWW++WP=7UWV>t*>Cu ,WH>Cu pW+W>Cu$Wԃ>Bu>Cu pWr#W;u ]WZ`WPOPE)WBBdBSSSjBBSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSC>Ct~t6W~u*C~}u>t Q)WU~E>Cv| ~} >C1~}2UWVvFG~E~>v|~?~>=>E>C6| T;UWVC}C)Wa>Cu )W>WW W뽀>Cu )WkCPCP>CuW0W>Ct)W. WCP€>Cu 6CjpWB6UWV6WQ WW=>C>C6BFCP\>C>C>C6C>t ;Ct 0)W6CSSSSSSSSSBSBBC:CCCICOCfCpCvC|CCCCCCCCCCCC"DSZDuDDDDD#E^EdEoExEuE~EEF F*FFGvGG[HdHiHH ^h>t`We+FG~>v|v>Ct[W~u ~E~E~?~>=>~t WCu :W>~}u4^t )WX7W~u ~E:~}UWVC>t:W4FG~dfWj\ W WZCP6B:>t )W>C>CBu CP$0 C;t )WP>t&~t 3)Wq>C Ww5UWV>C u.>C>C6CCCPP5UWVC%5vu .RW6WD:T >Cu )W>Cu :W7W̋>C>C>t CP>Ct %>E>C6| 1UWV>t/^G~}~>Cv| VڀtG0UWVFC}CT)WE~>v|~?~>=>E>C6| ^:UWV>Cu )W>Cu :W7W>u UCP!Wt>u)WW6Bu+WW[+W6CU >D>DUWV>C uR>C>C{:Ct6ru%>Cu>CuB+҈C.;pW6)WCPC*u$>Ct>C} 9)W0 ( ) *!+",#-$.%/ &0 'W>C>C+WYCP>tCCCC >Ct)W8 +W2+W, +W6C)WQW+W6.W0F~狽9Ct6C*Wa>Ct6C*WL>Ct6C*W7>Ct6C"*W">CtW)*W >C>C>C>C>Ct܊EHEMu5UtVV5EPEM}%}uMUt eM Et*lUWV~VHUWVv*W~ W~EP^W*R^W*R~u5u*WoUWV*WYF~狽C~u9=vB>Ct )W 6CC-WP W0W9 >C>C>tG>Ct)W6D蛸P߃>~4/|6/^<*[//P^<*P F^B9~t6׺>> -*W蟺0*W蕺>t sW舼7*Wz>t~>>t*F~~NC*W VH>H=%tG=u9>Ht+R6HR+HR6H =uHH&HHHH G=-uGH=0uGHW H>*W/Fvk~};~tҋ~}~~uF~@|+WVUWV6B!+W>B| 5+WF~Z<Cu6D胸@PjWcW 6Bt +Wރޅu P&݃>u P+W6C>tUWVO/W&UWVYRWABW v[0F~Nu\UWV~|~~+?UWV~a|~z~~A|~Z~+F~~ۿWۃWۃ6-܃Wۃ3Wۃ Wۃ Wۃ>u衼J*W޹+>>/WHH=.uGWH>HG+һ._^RTRz Rpd Rf6 R\6H6HHRHRH P~;~.;P~:P~9~8~8~7Pvn+WkF~狽9~u?>W+>>(mWR'W߃ hW6>UWV~0|~9~+UWVF~PtL~PFt8~P^t'~PFhtMWjWjW>Cu_c*WW8ۃWA+W6Cf*WkWkW߿eW߿eW>>>>6HHH*H[tHH HHHuH~/HHHuqHHHu^RR<@;F}Ϳ+W'F>B9~X+WrUWV+W6C66,W>uC,W>~u ,W$~Ct )WnW߃WUnWg>u?WvBڀ-;tY

B;*W˃ cWf,~P7u+~PFdt~NuʿUWV~VVN~-M| * WIЋ|^ƈF ueWb,谷dx*WU>HtgW;fW4HH߃>Ht WzoW>Ct@ R R6H6HHRHR+H6H>HtHBRRHRHR"#HH?H"_`6`L``=u=u=u5WU,W^G=w,.=Vw,W(},W,W쿉,W濑,W࿙,WVV%V+V1V~uEP~u u u,WA ~}smddWdW=߃4W>tW+W߃&WBڀ-;uY

B;΃} V9Vu+ ^FVUWV~v F~u28VVL| * VЉV|GNuFV9VrȋFU>C>C6CN݃WHڃ>C>C+W݃+>C>C@{*WP3-/'!>Ct 'Cu=tR%H+=tS=u~=tmR=uH=ulP R= ui=uM=um=uFG=dt~} W,W#~u,W~=9UWV%-W6C6B6B6BD-W CPCPCPh-WCPCPCP*W˃B-;u ]WރWރ#>tW+W<߃%W75W0 +W4>CuWCpPWV~v F~u9?VVL|*G V*PGNuۊT u FV9VrFBUWVgFu"+Rv{/Rx/Rp+WCWW]WCWԿW+W%~*W>Ct*WyW%*W7܃>t*Wu=ou=uu=xuO R=u=uC=uHUH6H+6H;6H};+҉V>HuډV6H6HvV6H-W6C6D6C-W6D6D-W/|/ //P P~ >B:P>B:P>B:P-W<>ރbWZރlj:W0C@P>Ct W$ރ1+!%*W>Ct g6CWW/R R/RRRRVRF;Ft=u~uFWRVRFUWV2 Pvv>u *W܃~WMكZ>CuW+W.ك6BC3>CuW+Wك6B׿*WV?MIIIJ J-JMJA UWV>Hu>Ht>Ht H0HvUWV~ǙPR6H6HǙPR6H6HHHu=tWB.;P>B.;P>B.;P.W>B8>B8>B8$.W>B8>B8G.W/|/ /| *W;>u+>C>C>C>C*W݃>6CF;>CG>>C9>>>29>>]F; UWVv~WvT^W t+kUWV/W~Wv%/ t+>UWVFB~~F~W~JGJMJSJSSdJJJSJJJKjKSKKKKKSKKKLLLK$L-L>LsL|L|LS|L|LLLLLLSSS8M?MEMKMMhMMMMSSSSMMSMM } Hփ0 HփWHzUWV6H4+H6H>H]UWVHH6HH(|s"H-H6H>H/P P 6C6C6C6C6C`.W /|/ //P P UWV6C6B6B6B.WC 2W2P|F~݃F~~6C݃>C>CGɃ>C}CP6C*WDɃ>>C>C>C>C>Ct >~mWvN| ^+F FP+PFUWV~UtMUt U@tV EuM}uUtMMMMjPqPxPSPSPPPPPSPSPSPPPPPPQQQ QSQQQS&Q;QDQMQShQQQQQQQQQQ RRR(RS.R5RJRkRRRRRR0 ( ) *!+",#-$.%/ &0 'ރ6H>HUWV>Hu=6H>HHHUWV>Hu=6H>HHH(|s"H-H6H>Hރ6H> Ӓ܋_#tGË܋_#ør ܋_ t ã FWVv P UWVVR <PRFPR PR^G[Y+ӉFVVR|FwF/| Jt| Ku\ ㋗/,+*t)(kD'&%$+#"! "#$%()*UWV~>055UWVvVփV>HuHH>0V9Vv;r~V09Vuߋ׃;uցHUWV~+6H=*uHGHHt=0|=9Gƹ ËHUWV~>UWV~0UWV~"U[;0s bP;r&0f^_]USWVF y;V u>Rȋv~ } ރV+~yރƋ׍f^_[]øPV\ ㋗/VvVVFvVIF~t8;~ ;~u.||(;~| ;~u|}FVVRCD2 UWV~v:|u,-./0126! :; @[TEHIJNOvV;VuVV[960v60wUWVvDtV@D+ƺFvto;tkv~VBVV9VsWV~v8v *PGN^ O|^ ڋF  v v F~}P=-u̓~ 0uNj^ O|^ ڊ*G뫋^ ڊ*Gv~ y Vރ+V y ^ V;| 9~ v+~ F+USWVv ~Ǚ+Fȋƙ+F ȋ+эf^_[] +EE +UWV QRR^GPR FVQRR^GPRFV~|~sQFQRSUWXYZ9^VVv^[FFVNu;s+V;r F+ƺNj؋HUWV~Wv}+^ O}v *PG:N}(^ O|^ ڋF  v v N~uQ UWV~UtMeUt(VVFUSWVF y;V u.ȋvF y+ yڋ™f^_[]Ëv~ yރ+V y^ ;| 9~ v +~Vn^FHv<PRvv_ [F<PRvvn^ƙ<Fƙ^7FPRFVpPR H~?>]45UWVv+60>0UWV90PRmNWAW6060[Y60>0EUWVv tWv,UWVvtWvVREP FEUuI/u /P& tME D D렺R։UtڀM+҉VV"+։VV~5 +FyЋǍf^_[]UVvN^#0^s F]@Rd|0~r(FV;V=|;Fw6Vx)FVF۾F|~sHPWFVN~~6H~>HV7=nu*0+ +( vhUWV~+V8uGuUWV~v~GuOGFuFUWV~vF:uGu+NvVEPs FEVF5V9Vt M Vi UWV~Uu8Ut/+։V~$5EvVEP ;Ft MtttGww j;lb2=v7NLMB  r]^4gi0F9(0~*0^BF^7FHHmUWVHH0GFu^G b0HGFGFGFG^^\VP؊+UWV~v~GFuFsUWV~v~FGFtFV9V}GFV9V|F,UWV~+ +ҋ UWV/ W;>&0r UWV~UtDU@u;WkEP }Ut uU t@oVCHX<`BkG6thZs~5pRKYId[tnLaqmM_tj;tlx0GFGFGFn^7Wn^dRW~n^dRWhn^dRWR^ d|E2E3FGu܍O_V60;^s F܋_r#tã Fã H+ø6.UVW~ vEeE UWV~u+^+t+^=at=rtU=wuVv[tRRv F}> Fu Vv dtb2={v7NFEr]^4gi@oVC\WHX<`BOkG0^W dRW+HUWVFunhmUWV~G~ |F 0 GF 0G(UWVtc&'N^_^]s FÓ܋_0#tظr0܋_؉0ã FË܋_SXs Fã0+ËlFR+PRv[ tR+Rvp F~}aEVUtM^?ruMM׋ UWV~RW6UhZsT5pRSYI[QnLa qmM_FP?ytKJVV>0>HtUHt%5tV;wV;r=;w;>0t+H>H~F H+ccO_w000#t tۍ\p0[r u  FUPSQRVWF-_pP0__^ZY[X]~t|V|RW w UWV/ ;>&0r+UuO 9܋_UWV~}~߉~F# UAjDzxA}|3e:9f8>u8i107/.-R)H;vŋHRu.HV9H롋HRVU008^߉0;v H0׃ 0 ( ) *!+",#-$.%/ &0 'ccc, uncovers %d error recovery discards char %d reduce %d production %d CBASIC-16 Version Serial No. ӷ Copyri 1122222222222222222222 int fno;{ switch (fno) { default : fprintf (stderr, "Erroneous CALL; call invocation is #%d\n", fno); RC = d Bb7    ;   ght (c) 1982 by Digital Research, Inc. (Sysgen: (This is a PRERELEASE of Version 1.3c24444337766889955:<;;==>?BB@AACCDDEFFGGHIIJJMMLLL-1; } /* end switch */} /* end caller */ cbas: error: %s Stub(%s) trace(%s) FDFDFD%s Unable to close 'call direct UU    G  G   N     B      <=Ch NNOOOQQQPPKKRRSSUWVVTTXXYY!ZZ[\__]^^"``#aa$bcc%%%or' file: Compiling 'Call Director' file: Compilation output file: cc -c -O cc -c -q -O 2>&1compilation error   R  <  U O4 ZyhyYuyyyySnyyyy @dfee&g hhii j'()*+,,kllm-/.n oooo0s occurredno errors detectedwUnable to open 'call director' file: %s FU case %d : RC = %s ( ); break; mp !"#$%&'()*+,-./0123pc4yyyJyh@yH =H=yyyyyP_y:9K4select_headcaselse_headconstant area: code size: data sr.Double+%d (double *) *(REGA.PInt+%d) REGA.Double+%d, 12:34 Jan 01, 1981%d%5d Page 03:30 Jun 1, 1982 Source 4tR`4yzmq56MNOP\#yy 33y2.-,y+JycGy*yytmt area: variable area: *<AQGFKLPBTNOCDEIJHXRrU[qZWpS\YVsvwxz{|     &&file: No intermediate file generated Intermediate file: Call director file: rcbas: unable to open source file]WZ[dsxn78gh_yyyyHyyyyyy<0yyy#~~y)#~yyyyc(yy?ACVX Boq)4H\ /* CBASIC-16 'Call Directo: Unable to close source fileUnable to close intermediate filewcbas: unable to open intermediate file: Error: Input linT}k<KLXjbuvH))<yyyRyyyyyyr' Routine */ #include typedef union { /* Overlay type for an object */ int *Int; /* integer */ double e too long in line Error in writing intermediate file%1d.%c%c%1d.%c Invalid serial number on this compiler! Please contaciSU{|~lor9:;=?@BEDFGHIJQVYf^yP}|zyxvutskjhcb_ZYXWPOJGEDBA?>:%9876541*Double; /* real */ char *Char; /* string */ int **PInt; /* subscripted variable */ } ARG; ARG mpr; /* Base of the%Ce^-W&IYM\Skpx0gLVjam>?yXq$D`E[t your distributor%s: VOSE*"," ." 0" 2" 4" 6" 8":"<" >"@"B" D" F"H">ACawestate %d, char 0x%x yacc stack overflowsyntax errorerror recovery pops state %d/.-,('&%$"!  variable area */ARG REGA; /* Stack at the time of call */ extern int RC; /* External 'return code' */ caller (fno)voJfu=c( /  &w 0 ( ) *!+",#-$.%/ &0 'K" N"Q"T" W"Z"]"`"c"f"i"l"p" t"!x""|"#"$"%"&"'"("4x smlcmp1=%4x smlcmp=%4x srlocsp=%4x srlocmp=%4x typesp=%d typemp1=%d typemp=%d subtsp=%d subtmp1=%d subtmp=%d smlcsp=%4x sTR%NOLISTCONSOLERESTORESAVEMEM%INCLUDECOMMAND$CONCHAR%CONSTAT%EXTERNALLPRINTERRUNERRORRANDOMIZEINITIALIZE^ Error FDFDFPFPFPFNFUFNUFINNCCESUThis program contains unmatched statementproduction DLFAMFMFFISNISFUFEMF)"*"+","-"."/" 0"1""b2"3"4"5"6"!7"8"9":"";"(<"#mlcmp1=%4x smlcmp=%4x srlocsp=%4x srlocmp=%4x mlprtloc=%4x mlfunction=%d mlassign=%d mlbase=%4x mlfuncno=%d Parse Stacks: %s in line %d at position %d ^ Warning: %s in line %d at position %d Warning: %s in line %d ULWarning: invalid character @ ܃Swu\JTP3UWVvWW_t-UWVvWwtUWVvvvMFMFUFIEPMThe FILE statement will not be supported in the futureIFCVCVIPMSMFUFUFITforrepeatwhileselectdefno="P>"Q?"@"cA#$B#%C #&D#'E#F#)G #H%#*I*#+J/#K4#,L9#-M>#.NC#/OH#PM#QR#0R sp=%d mp=%d mpp1=%d base=%x i hash type subt elin epos smlc tokn var varc accum(%d)=%s %4d %4d %4d %4d %4d %4d %4x %(s) ignored in line UL%5d%c %scbas: %s 'cbas' options are: c - don't change source program's case C - don't com蘋UWV+v^[FFG|ەUWVvW"t666666"WtF>~3F~|F error detected %s%5d End CBASIC-16 Compiler MSBUFF/RECS ignoredUFNDUFMSUFCS - LocalCSUF %4x: lnk=%4x plnk=%W#1S\#Ta#2Uf#3Vk#q#w#RW}#IX#4Y#|#Z#5[#6\#]#7^#_#8`#Sa#9b#:c#;d#4d %4d %d:End Parse Stacks ========== TEST ========== /bin/shsh-c(null) F Fpile the '.c' call director file h - print this list i - inhibit production of intermediate file l - produce a listivvXWs^*RfWsF~9~vſlWsF>~9F~|FvvnWs~PP|WisF~4x loc=%4x typ=%2x subt=%d %2d:%s Symbol Table: ..... infinite on link ..... End Symbol Table PARSE STACK (%##<e#=f#>g#bh#i$Tj $?k$l$Um$}%$n,$~3$;$BoC$CpK$DqS$\$re$sn$&0ng on standard output L - produce a listing, overriding all %NOLISTs o f - intermediate file will be named 'f' O f - cal9~vWTsF>~LF~|FvvW(s^*V | RW s WrF~9~vWr鈔Ud): P i hash symloc srloc var type subt eline epos P%4d %4x %4d %4d %3d %3d %3d %3d %3d P%cP P==tw$u$Gv$Vw$Hx$Iy*r& .!!!!!  END ^%t%%%%&F&y&&&'2'f''''(8(#(M:/Day Mon 00 00:00:00 1900 SunMonTueWedThuFriSatJanFebMarAprMayJunJulAugSepOctNovDecHHHl director file will be named 'f' t - produce code for tracing during execution ? - print a one-line summary of this lisWV>GW PW*R>PP6Wr WWrW| P Pz6==================================== ====================================================== FOR dump forroot=%d foraddress=)*+,-/:;<=>^ASEQGEGOGTIFLELTNEONORTOABSANDASCATNCOSDEFDIMENDEXPFORFREINPINTLENLETLOGNOT i hash type subt elin epos smlc tokn var varc accum(%d)=%s %4d %4d %4d %4d %4d %4d %4x %toptions are: -cChilLoOt? Use -h for more detailsinput filename of form 'name.b' requiredintermediate filename of form 'naW\r6nWHr6| P Pz6W r6Wq64|%d simplecase=%d forroot = NULL fa=%d flink=%d glink=%d kind=root for while repeat select UNKNOWN outside=%d boOUTPOSRC%REMRNDSGNSINSQRSUBTABTANVALXORBUFFCALLCASECENDCHR$DATAELSEFENDFILEGOTOINT%LINEMID$NEXTOPENP/usr/bin/rbas 777 3 3 me.i' required'call director' filename of form 'name.c' required'call director' filename already assignedinput must come from P PFzjUWVFV*V~;}狽FtF@u)vWnWqnUWVFttom=%d top=%d caseicp=%d forvar=%d = %s resolved=%d ====================================================== Machine StEEKPOKEREADRECLRECSSADDSIZESTEPSTOPSTR$THENWEND%LIST%PAGEBEGINCHAINCLOSEDATE$FLOATGOSUBINPUTLEFT$LOCALMAT 126372 2726510130 6403  a filefilename may be no longer than 64 charactersNULL.i.ccbas: illegal option: '%c' .bNULLITUSBNCSInclude nestingV*V~;} 狽钿UWV V2qV(q+拴tu拴xt7tzxack Information: sp=%d mp=%d mpp1=%d base=%4x typesp=%d typemp1=%d typemp=%d subtsp=%d subtsp1=%d subtmp=%d smlcsp=%CHPRINTUNTILUSINGWHILEWIDTH%CHAIN%EJECTCOMMONCREATEDELETEREMARKRENAMEREPEATRETURNRIGHT$SELECTSYSTEMUCASE$VARP too deep near line file: for-headerTOone-zeroMMMFMFMFMFMMMFSNMSOOMFNUINNIRUREINWEWUINOFBFMCMCIU 0 ( ) *!+",#-$.%/ &0 'vW:Vp G|RVpaUWV+^Rv%PiVpu$| P PxFG>>3u> ~6  ][ut C>u;0 ^ >9> sh^uY^^?-tF^u ^+һ.G 4Ӌ~6+WuF~9~|+WWKF~~=~W炃@PUWV6l6>5~UWVCQ Q?ut+~UWVQ Put+~UWV>=t+UWV+W䇃FV~WbrFW PNW}W~WTW}W~W\W}N UWVWv|UWVvpVKp+^Rv%PtV&pt t u$| P PoxFG|銑UW>~u<~uy8>6t>7t>`t>u?36 vHP6 6 ]FP6 l>.tӀ>M{$vPhxWv-t+>&~~[ vЉ>F~PuӋ~~}~Pt{~UWV>=t+_~UWVP Pt|+:~UWVP nPt|+~UWV% WvUWV>u60'w>=GW}@P v0>=GWP}6," W60Uu60$ WWVcFdFcFFcFccTcc踇|cc{WFccWoo UWVun<t>tF>t W_~tg Wa~u W a v W` W`~~$|F vЉ>F~PHus6HW}+WWJQ = u=u=u~P~UWV%}UWVV"t >>}UWV+W&}FV~WgFP Ws% W e+WWVE2F=t K WFFF~ tFPvvvN WWe FPvvY WWe >UWV^W*R^*RWCoF36^*F[}⸈P^*PFw^u顐UWVWn66sPsPFi W`;Fu;Fu;Fu:Ft W W>t>+>W+W6UWV~MWW'j=uz=u~~}~PuF=u=u4= uU=uI=t=u}UWVF>=~Wu~GWNFF ~>?:}UWVv W[>t6 Wp[ Wf[~> vv`>4u| W6WW WWy.WoPeM<WXjWN6666Wn>~>~>9~r9vvWnv~~Fv^[FFF~|~~~9~v|^ڊF*vF*Ph=u.^W t">}t >}> ( W=髁UWV>M|ڊF*6=toFCvJ@Py0vPˀ>0u6JW+WWI>$t.W60Fu6LWH+ WY[+WW:|UWVKOnOj@:O O6s}W+WOAO=@ O N s}+[b WD)W"+bF~Džx~Džt~DžzF~|F=t u WFFu+~F_bbvW7n ~t~OWh~9~w]FtS~~=~FWWm~~WmF*PQh=u"W t+ WWW2?NUWV WWW1{q|UWV>u$NN?NNr~W*u >u>t W TN WzFsF~ tFPvvvx WWad FPvv WWFd jW6s u W'> >> FFF#~5"Wm~=nFFF~9~|տ&WmF~9~|~5F+W{mFݿ/Wlm UWV_UWV ^VF~Nu߀UWVv>t62 W6^60> W6^ W阀UWVB釀6$t6$WWh+WW;HWFUWV>u V <*uH+:%G|6,>r kNN{UWVFKNoN{UWV4NFYN{UWV~9~}  ~9~{UWVFWsUF~<r Wv[F<$u߿W6 d  >9> r W<*u>u~9~+ ~0|UWV~A|~Z ~z~a}+ÎUWV~tbWWlvjWWl镎UWV FnUWV>ttUWV>L V&v{VG~+VV>3UWV6u VT Vv+2sUWVW60[,u60WWg+WWG龉UWV+WvN=u頉Wv4t+UWMF Mq} FMF MqR{UWV ~~Wzzx~}v|>zWo{UWVF;~ W+PF;~ W+PF;~ W+PF;~ W+P{>> >> F +>0>$>>&~6JW+WW'L~~F~~5FF~9~|~GW]|u +VwUWV>>>>9>s^ W[WW=UWV>>>>9>vp W%WWl=UV>2u/6,@WW2WY2=t+>r12| rr2UWV6 r[ UWV6 [6 v.GFPR[YӉFV6H>~?~}G;V~|";FvG;V};Fsw   s>>T%>>+6@;s W>>G~~uvbF#vWv~~5v߂F~9~|ՋV~~ƇF~9~|2^WV~=;>s^=>?cUWV66VLUWV66@6UWV~W6'666~W x[GUWV UWVZO* NjΈUWV^^W* ׋騈UWV^V*^V*W醈 0 ( ) *!+",#-$.%/ &0 '>ELF3MqFL6FL>=L LFLp~>ELFLp8떋>ELF~Lp| }=~ A W FVڀ? u"6Wa[FkFUWV>kUWV>t D W#>>G WI>5u$^W*JVt^W ~OW,>>=?>5uY^W*BV~>^*RFF?+tڀ?-tڀ?etڀ?EuFˋ~+~L}W Wvq WF~t~u2 8@9F~=t=u(~FWVF~u0nut W>=~>=?Q,t W>5F;F|>5t> WWW7q>>>yUWV+W1xyUWV6LxtH W^WWw7yUWV~|kUWV >9> r d W> UkUWVVF8kUWVw.d+kS+Z+_+g Wvvpj~~>~?F^VWtUWV>?~>Fu D F0GtUWV~^*BV^*N~hfUWVW.PPfUWV>t9f0WWdWc|* >~+~~;}~uG~?^w5.&>=~#>=~+?>=~Oޯ&&&>=~W3~>~>~~9~w~9~s+~WyUWVWv8gFu W WF*yUWVvt vdh yUWVUWVF~ t~u F< t>u> >>~"t"F,*~"urF<,t~ujF"TFVu{t^t+UWV^*V^*V~~ W~~~WFF^G~t~GW~GWwR EЉV+Wc>t WvDWO>UWV~G> ~>"6 [$^؀?\u n W$eUWV"FFv~GWvWك^V^^Ga~?FoUWV6Q>t !W !WF-! ^G e W@ u >I>WFF66~GWԃ^G^~? jUWVi~t~GW~GWhg^VV~?sUWV^t3^*RWFFvvi~?>"F+һ.1"ڀ#tڀ.u#F~uċ^FHAe"W:Vtɋ^VFԋ"ڀ#tڀ.uF ^VoUWV>t+!W>5 F-! ^GV n>=UWVN W~9>|G;>~>t >9>}^W* ~tWA~~F~9~|‹~5gFxUWVF>=~u FFFFV >F>~]>~VFPڃu~ t~.t~-t ~+t 616/>u}sUWV>=tWu>=OW+OsUWV~u+>s^*UWV^%sUWV^%sUF"#u럃11u=t=u=t=t=.u"v"[FF b=uV=uN=uv=ta;UWV"" WxnUWVvt^k>t>9>|>u>9>|~~ tFP>t >9>t FP^>~>~FF>="x W~GW WT@PR~WzwFF9F|@FV+;~|;vw iUWV>9~tW~tB>&u3r W6$;u6$t WWiG&>>~>>&t 6P iUWWV#^tv^*[F^urUWVJDrUWV>=~tQ>=~u2v^[8|-FFu~t> >">"gdUWV>$~WF~Nu q W~\t ^VFvW[FF ~!t F^VumUWV6 W>=GW?Fu >gW+PRv&<=u 8 W56vT=[vH=PR; W W ~~6~~W>5nvF~>~>؋~?F>=~^^~?&F~9~~܋~~>V A;d;g_~W;E_x;^-^ F 5;.;1_~!;D; Wv ;;_~^u ^t'v^[8~>=u{ArUWV^V>u~~/t~&uFHcUWVv~FF"=!t=&t!=/t3^Fcv^[FvF^F[u͋^Vt WL W6vU]mUWVFvFvrkt+vlu(mUWV>t5!W-! ~t ~?vUWV F>=~uF>=~~=~F|d~ W8>=~~=;~|~} ? WJ:; Wv ::^~:: Wv ::^~:: Wvn" :z:}^P>~P^:Vt+UWVFA^?\u*>9~~+q>tvFF ^VFW$~~Nu t WWFtd=#t_=$t-=*t(=- W  W~tlUWVF~狽tt\~zT~t[~Džz~Džtve WFmr~=GnFFnF~=9?}: W~+~W  W>5 ~m:: WvB* U:N:Q^~A:d: Wv):L: Wv-F ~~N^? tF^vAtFF>9~~ʿUWVu>t W>=~+>=~7>=>Wuڋ>=>Wzt<=.td=\u%vW][FF 1"W:Vt!^VF"ڀ#tڀ.uF~ti^Fb"#tUWV^~Džx~DžvF~}\lUWVWGlUWVFvWW3:uuF  WaWF~9~|FnFuUWV6J9H>=YHuUWV6#>9>u>=~>==~F~gUWVvL]=L}W Wv`9F~~^F? tNv]=L} W Wvŋ~~~P؃uVtn*;V|*VF^?\uFNF>9~~~O~~~;>~eFvt~pU 0 ( ) *!+",#-$.%/ &0 '%FvptbUWV~~~~^F^uFWNNv^[~ t^? uF^-F Nu F^ t6 WуSUWVF>tIvI>9>r.6 Wу WAӃ6~PFу^uSUWV>0FoF+FH]Y0f ///b FTF/j //S~/FT /FjTF/~u!~z6>=?[? 6>=+?[> =!ЅtWz΃>붋> =ǙυDu W===~t/6^*BRF[v>5M~6|EB3XUWV~u ~u6Wv>~~ N^,NN~~ u~9~t ^ u+aUWVF(4K4w W( W+@ * + ) * ) F; }~t>tt{Ӌ~> W҃+QSUWV> t#>,t> t> t> t>u3>M|7[* 6~u ~u>&}F]//| FG/j/~>&>&~փ~t ~t ~u++~t ~u ~u++t>됋>UЅu>=~F>=;~}b>nF> =׉? 6>=#?[$6=u~u W Wy׃~u0>u @=up>}t >}>X WL~uL>u?=t+~>5!W&F& vЉ>&F^ u؀>; -u >&߉>&F^0NF~|-aUWV6FFFFFF"2ЉuaR>"uJ>M|7[* 61Љt"tZ>rP>~;~|v1~t~t F^-^ F&, ^V^^&Ƈ, >&( +~~~t ~u~t++>= ?[ >tJM 1 T # F ҃Pσr P>5>5tF~t>}u Wփ>5F>E>>E9WUWV+Wv~6|WUWVWvFFFFFFFvFF"?-t+V"F 23"W~+~֍3+3+WM|7[* 61Љue,t t>r6WH[.UWV>~~t~t ~u0~tM~t ~u~t+WW~t~t+v+vWvv3tvTvvQ~t~P܋=K66ă[?6̓>>=?pjvY >5؃u(>5؃u>5>>}>>u&FV>u~t W W>5$6Du W/փ+Wvv6$=u F=#u=$u=*tp=,u=-th=.u=^uF~u""?-uFN~tN~ux~+~+>&O~t ~RUWVQUWV>=>O>QUWV^ӅtQUWV6ȃQUWV>>>O> >@>>t ~u^-^t F^u>&}_~t~9~uG6&;tFv~t+~t ~9~|%*~G;~u ^G-^G-~95؃ w>| Wf̃>G6扼6Ã >狽>|x W&Nh b  W փ{VUWVWvA>}>u WՃ>u~t W W>5 $6Du WՃ+u~tS+RFFFF~tFFFF>"~FtF~~c+~~u~tN 1>>>>pQUWVW.W.W u4W+WW+3WWWW/WWO<WWO~}^G0~u ^.F~u^V^uv^? u0^[FFы>&W Wv!9F~t~t^tR 2P݃gP݃>udn>=~Wv>5>5f>5>5 Qau S뎿WkW6WFHPRVPR6X$=u WgՃUUWVF~G~F^t^N^? t>u^ u+~1UR 1V2l,1V ,V1,1F11"1J i1U}jFF ^ FF<WWO<WWO<WWO<WWO<W W{O<W WmO<W W_O<WWQO6Dv-^ F~tVڀ? u1*F~t!~u^? uFVڀ? tG$^FUWV~9~|~~ Wك~u u k P^P>uW66ƒP蜵y>O> ] >t:>>O+~v>>9>r6 WAӃWԃ>u&>t6,WӃ~G~F6~PF~9~|~t ^ F^0FF~uC+~܉~ڋ~߉>&}W Wv~u ~u~tF 1.1*"Fvȃ>+>W+W6jσ_PUWVVVt2ЋV?W6W[V@t F=}v t>YUWV F^wg.=F~狽tt F~~~| W?ك>=~>=~~8>=~ً>=AK ߅u>=~u1 Wуt# vz >t FF~狽;>|~狽;>}ʋ~҃^uTUWV>tD~>t+>>>9>r6 W҃W3ԃ>u+>t6,W{҃01~>&>&~փ~t ~u ~u++;~| v=^~t~t F^-^ F&Ƈ, >&( +~.QSh"JG"v M";FFo">"Fc"F2"Fȡ'"FL""F@"F"F/GЅtWWσ~>ۿ W1ÃWWJ<<<~G~^u W؃Wv>=t W؃~u W؃~u+~~^?]5_̅t(A=A|6*_AF[6sAF[>O>6"We҃^Ft6~PFE҃^u>u6"W'҃1TUWV>u6 W҃>9>r~~t4~t ~u~t+WWvvv`tvvv0SF^u~uZ /0Tu^ /F!닡!+G|Ѕt!!oЅth!ЅuхtWσ!E!!!}!v.= Wv*6Dum>}tF>}> WE؃C Wvf*6D>}u$ WvG*6 0 ( ) *!+",#-$.%/ &0 '+WWSW-fY/W)݃>5+W M |rVV;~WFZ}. IFnFZ3FY~O~ڍ  F2ӍF 2} F+WV>5W/>u;+W>t%ĿWWW+WzW6؃u>=uVW3C-F F<~|у~|*FꙹȸtVW3FR.-F$ FؙȸtVWw3,F" VvF6}%FeVVM@F6=6UWVFF u7F6u4zPFs Bo@}ӡ`"[>E$@So˅t >ʅt >>x .j{3F~O~ڍF D2 F21F F F2F  F22F2y2F2l2F Fx >=u WP#>=GWW>#>=>PRAE636@[>5Ѓtk>5Ѓ>FFF0.F-g-FF~~؍FtUWV,FFuF,~F{,FSFtw6gVV?R@6~F @C6{F*-646F5F Q7*gS?(+>=;>} >=#ǿWǃ>5ǃWȃG F2L2F2?2Fw222 1Fl F; F[2F6N20FJ FUWVF 0 h ?5wW6蜻PDċ>'6݅t+[u6|* R4#[tFq-F~WFZ}) IFnF=2FЙڃw[.aF-F;F:F+F5FF .7m56G5UF5}FF 6&"Ft5F 6>=;>}oȋ>5*uSv~PW WI' W;6 W}Ʌu>ʅtW_ȃx2V Vw:UWVr F 0~F 0F WF  B V V&:UWV+WF   w +WWg vv>O>>O> >>>W*tz6W*[^F,FF+Fa```FF,FF,,F,,F,w,F,j,F,FUWVFaZ]5}DFNq=r3Fp6Ia4HF 5ÍFL aȋ>=W>=~WӃt Wǃ^W*Vԋ~W΃FF>=~^V V9UWV:FZ F v# FG J0~F; )0F] ~ ~ F# "B1FA z F 0}p~WF XRVF-=w#.AS>=>aË>WS:S,SWxFFFFGzGGGGG;HDHSHgH{HFp ?F,D,F|,7,Fo,*,+Fd~uZF&)+u4("F +}V$VZ5F545VVJ>UWVFF5F&F5.t5F56g5F5>^VW^G~+W\@>5ԃF뛿WW݋>~nؠ  Ƈ >! u H!!W WӃ .- F F Z5F0F ~W~ F0 , F z F09/m5F .F _5FҍF F4/FHHGHHHHHHHII9I?IHIIIIIIIJJCJXJgJnJJJJJJJJK KMT3K9KxK~KKKKKLLLL.L@LmLLLLLLM%M9MMMMM4&F),FFF+UWV"rF*uv~<zj*F*Fj}*~Z5F5FM5FFYFSN45Fl5V'5F_5^5FR5f 5FE5n53F:F F)5V'V~>S>=GW߃6>5>5كFUN"࡮(k=|+6,= ~ ~ҁ~ F t- FY0Fv ~ ~F? -/Fa F0 FP0FO J F=0B/F00:/F#02/NNNNNNNNNNNO0O9O?ODOOOP'PPPPPQQ]Q1Q8Q?QEQLQcQQQQQQQRR'R@RRRRRRUWV~t茭v+BU("~jVV3ZUFu+FtFCf20FڍF&F/)*F;F F*+F):=UWV F3}F3u+F 3||VV(=F 9FVPR9F ~3t mC[E6Z0=vBaC[> =~64N;~W ~} W,ƃ6=?G[]F0*/F 0F F j/F/b/F/Z/F/R/F F F/V V8UWVO FWVvvvv+WWAUWVYRWABW66 vA6[0F~NuAUWV~|~~+AUWV~a|F+2*F +**F*FF*R*F*J*F*B*FvڍFFv*b*FF*Q)Fo]3[F {4xDFiv~##utF"3FDFjF -eF 6>=3?[6蘽P>5!f>=;>u+~>=>>u<9>~39>}*~u!>s v.|.< F` c.~(!# Vq V7~WF5 X * $ FI  F5/F4 N F -~z~~A|~Z~+iAUWV~0|~9~+KAUWVF~PtL~PFt8~P^t'c& UWV-FQT)~gFE3)Fg~WF2Ug& !FFF)tF7)F 4(!-UWVF2~F2FFVV+<UWV"aF2|(!~u Wt܃Wă6ăă~t+WKX>=>O6扼>5уt W%Ń>5Ft F/F N  F.-F &VW4F.F n<~<)F ~PFht,~P7u+@~PFdt~NuʿUWV`Wkv膿W @UW0 ( ) *!+",#-$.%/ &0 'F(F~WF& FVVH2UWVF(9(VV2UWV~W>Wv9~aƈG^ O|v ^~tV;u+G^ ^ vj.s+RVRvPRVRv^V6>{-UWV6Ke-UWV66P-UWV6=-UWV6+->j}Ã.>"|øP***[t( **uxuq&u^RR RF^ 0F^Vc(UWV~vFFGFu= u%= u= u=%t^O}M^7[*Iv1UWV~VVN~-M| * WЋ|^ƈF u΃} V9Vu+ ^FV1UWV~FV^Grrr&s&s&s&s&s&s&s&s&s&s&s&s&srrrH#UWV~v ^ ~~cu ~0uuFF~suFL| i*UWV,UWV~,.F}FG t-uF+tOFFIF8FF #} F$ R6$6&R*R=H6$>$t&BRRR*R#**?*"Uxxxx y=u=u=u=GF=%tF=*tvGFFFF FFGF^uۃ~uF0u~luGFF#~huFeUu~ |}uUtuFVFV~ u'R+PREPc/ȋڋƙ+FV ƙ)FVUu8~3* VЉVڊ#Ft~uF~cuFE~[u?F8^#Fu1tVGN~!L| * VЉV~n(u"FFFڊGu.t8FFF"}!F#(&"FNFڊGuFFtR% +=tS=u~=tmR=uH=ulP R= ui=uM=um=uFG=du=ouGF~[u W4^tV VF~uVRvvvvv t ~tF~u~tv^O|ƙ;V|+;Fr$E+;V|;FwVV)U+ҋ0Ut Uev vvEP.FVEAUt8WQUtuƒ~t~~ VvE^ ^ t;~t~ctGB"+UWV~F=^uFG+~tF|EteuNG+t-uFOFع F؊Gu~}VډV؋VVF~} FVډV֋FnF=}=uu=xuO R=u=uC=uU6+6;6 };+҉V>"uډV6(6,vV6 ^7[* vЉV t׃ t҃ t̓uvR}vЉVV9Vud~uYvvpV&UWVP~EeUv vvEP.FV;Ftz;FutoUWVvt}vD^Wt4vtދV+PRvDPGց]t~t FFuO!UWVv~Wv^W t+!UWVW~Wvq tFFFFV։VFF"FFtFF"F~uЃ~}FF" F|F"UWV>u>t>&t 0vUWV~ǙPR66ǙPR66u=tW } ct ~st~[u%vv vv~t^7+R +FVFF~et~fuFF ~ouF ~xuF~FF4.FVL|WsFQ^Wt1+^Wtvtt^Wuv4^+w뗺ǙVvVv‹/UWV~v+z!UWVFB~~F~W~Wv3N| ^+F FP+P F-!UWV~~u3}u-E VFFnPFcN RFw~}F@.!FbF1VUV*UWV~tv ^.vփ0 փWjUWV6*4+*6>MUWV**6(|s"-6>ރ6>^ O|^ 7[* v Ћ t؃ tӃ t΃-ufFƈG^ O|^ 7[* v ЋN{~tFV؃FV F~u28VVL| * V|ЉV|GNuFV9VrȋF7/UWV~v F~u9?VVL|*G+Utu95wu95t; UWV~UtMUt U@t VEuM}uUt܊EE^z*UWVr*UWV~ uF~5v~ ^7[u~ +*UWV^V~ uF~R|RUWV>*u=6>**UWV>*u=6>**(|s"-6>ރ6>UWVuv VK^+uAN^ O|)^ ڊ*%.t~ u~tF1v KЋN}}u~ua| V*PGNuۊT u FV9VrF.UWV,Fu"+RvRRRo, R,RRQ-RRA-Mu5UtVV5EPEM}%}uMUt eM Et*lUWV~V*V,>v^i>~t ^-F>|5^0F~t ^.F|ډ||AV9|}|+F;|}ɋ^FG~+6$=*u$G**d=0|=9Gƹ Ë$UWVVRVRv F v~t-Ff~ A|FF~u FV/~ u FVFV҉FVFVVFv0| 90a| fWVR.F;Ft=u~uFWR-VR-FD.UWVPvv,.UWV~WvW.UWV~Wv=%tG=u9>t+R6,R+R6 =u"&( G=-uG"=0uG(W  >$$=.V)v ^0FNu+ ^FGF;V|^VI)UWV^V~ uFRRv^V JV^?0u N N~~| V+V  ~}e~}_NFG.FF FGFV 9V|eF~} VډV-+FF7ƙFVvvetEt~t~ t~u~uFƈG^ O|^ 7[* v AЋ+t-t0}iv-UWV~FA~~FFGuvVvvVb-ktiUWV>W+_E-UWV6UWV[uGW&>$G+һ.Kx^RTRz Rpd Rf6 R\6$6&R*R( 6>t ^-F=0u^FG^.F ^FGN^eF>| ^+F^-Fډ^ 00 ( ) *!+",#-$.%/ &0 ' 0FF 0]~=0t.F~|FF0FGV9Vu.FFV 9V~V9V |0FV F ;V|.F|.uN *u 6V>XZ&\$ Ċ\+++Ұ^ O*t !7!!W GV UWVv+6>V\ ㋗VvVVFvVIF~t8;~ ;~u.||(;~| ;~u|}FVVRCDUWV~v:|ouvdNJ݊Ί xtJqwrtst$߀ ǣ\[߿Vƪy]ËD tփV>ZuZZ>V9Vv;r~V9Vuߋ׃;uցvV;VuVV[96v6FUWV~v8v *PGN^ O|^ ڋF  v v F~}P=-u̓~ 0uNj^ O|^ ڊ*G뫋^  UWV90PRmNWAW66 [Y6>= UWVv tWvH $ UWVvtWv0  UWVu +EE +UWV QRR^GPRFVQRR^GPRFV~|~sQFM t2쁀pڀĀPtX x utxDM2 tc t쀀*pĀP2ɭ̀\FG]UWVvDtV@D+ƺFvto;tkv~VBVV9VsVVv^[FFVNu;ڊ*G^ O}v *PG:N}(^ O|^ ڋF  v v N~u+UWV~UtMeUt~+V8uGu UWV~v~GuOGFuF UWV~vF:uGu+ N؊+UWV~Vn^FHv<PRvvC[F<PRvvR^ƙ<Fƙ^7FPRFVpPRT"WWW ‹tY[_v[6\3;s\ u;w;R3V tPX tZ tZ]蕒sOs+V;r F+ƺNj؋\TUWVWvvv F/+UWV+Wvvv F(VVFvVREPFEUuIu P tMEjj렺R։UtڀM+҉VV"+։v~GFuFk UWV~v~FGFtFV9V}GFV9V|F$ UWV~+FGu U~|0~r(FV;V=|;Fw6Vx)FVF۾F|~sHPWFVN~~6R~>VV7=nu$+ +VXZ\sO+VXZXZ‹VD ^E `3ۋ  ʋU tU3D t tUWV~ }F ~ O|F N+^?`F=@~^F*FLVRF:L F+FVV~5vVEP/FEVF5V9Vt M VCUWV~Uu8Ut/+։V~$5EvVEPWV6܋UWV>܋>6V UWV6܋U.]UWV>܋UW]UWV64 UW"F9"~$^BF^7FXHQUWV.BGFu^G \.GFGFGFG^^X PD t U t3ɋ tU tыD t t X P t&`ʋ t&^3ۋD tU tӋDFuzFLVRFs FNvF*n 0[GaFu~sO^;Ft M +ҋUWV W;> rUWV~UtDU@u;WkEPT}Ut uV>a^܋?\ t f UWV>=܋EUWV6 ,UWVy>UWVa6>6VrGFGFGFn^7Wn^dRW~n^dRWhn^dRWR^ d|E2 tU t ʃU3E t&^ڋD t&`ڋD tU t ՋD&`E t&^^&`ŗZ^ UWVظ FF:F^a|-FPFuOFbF2|ӋV `V~u~^?~`s`;vwKsEU tEeEhUWV~u+^+t+^=at=rtU=wuVv[tRRvlF UWV=6Ua]UWV%6U]UWV >Up]릍~+~~UWV>zUWV>VUE0^W dRW+.fUWVFunLmUWV~G~ |F 0 GF 0G UWVy t3 u v* xty$ ֋>E*E ֋>+UWV6֋DL3 t%v ݑ*͊r"tπ yߍFFVRF߃ ߍFߍF 0F밁~rGvހ2N^(^0~`w^1^~}>(u VvlFR+PRvtR+Rv&F~}aEVUtM^?ruMM׋UWWV6F>6VjUWV>U]UWV>U]UWV6U]뺋MVËMD t:w t*܀FnFPAu+VBVN}׋UWVvUWVVV>>ZtU^t%"xy;utUWV6C֋D t *w++ITD΀ك~y؃UWVՋ>VF u `v0F^?9` UWVvV]4]~ V UWV~Wv}+ UWVv>V]*V~RW4~t|VRWQUWV ;> r+Uu)UWV~e)܋_8wّ͵PW2̀ tg| tыˋ3wtJr$|, t֊͊ߊ2wt$Gu?t 5tV;wV;r=;w;>t+^>^~F ^+R^;vŋ^Rxu uE*"y ؃ *ƀuڀ UE+EMUWV#WbWWjWUWV("WP t)^ p](">V6F $ttVQ UWVv>V] t*-w+~ V" 6V~ ȋ6V>XZ\UWVv PUWVVRg<PRFPR{PR^G[Y+ӉFVVR|FwF/| Jt| Ku\ ㋗^?t Xp$4L\ts uy*4L\ts3 uvNt ً3u.^V9^롋^RVU8^߉;v \׃UWV~>55UWVvV0 ( ) *!+",#-$.%/ &0 '~UWV("W~Pb!܋_ø܍O_V6;^s(܋_d in line %d in file "%s" Error Warning 'Stack underflow''Stack overflow' rbas: abnormal interrupt (%d) detected at lP(<PdxH½p "&*.26:>BFJNRVZ^bfjnrvzv6rh E^M2`1kHP +YP(\M2`j` memory=%u mcd=%u mda=%u mpr=%u sb=%u mbase=%u %4x %5u %7d %9g dims: %d lims: (resetting to 5): %u : %u r#tã(ãj+ø6^%X RUVW~ vN^_^]s (Ó܋_#tظine %d rbas: Possible bad ADDRESS or bad parameter PCPCOF - (underflow)OF - (overflow)forstmt. should ~ "&*.26:>BFJNRVZ^bfjnrvzPKr1vy]}zDŽ5"M֨wA_z3_탇ĘW"aۢu瓎{n"X2 p!Bo>12:34 Jan 01, 1981rbas: %s z 'rbas' options are: b - don't emit the usual 'banner'r܋_؉ã(Ë܋_SXs(ã+Ë܋O_w0#t tۍ0[r u never get herezPCfree_fsa errorOM - (string)FRE is unsupporteddimension #SB - dimension less than oneOM - (array)AE~ rbas: error: %s trace(%s) memdump (%u) memory=%u mOxؖ3333VGz]؎c]FfffffNGMbK h - produce this display p f - LPRINTER output sent to file f t - trace the entire program t # - tra(UPSQRVWF-P__^ZY[X] Ӓrightmost subscript value is SBsubscript number has value SBSLMPSSSSPCGG'peXQsףp= #zL} 51_cd=%u mda=%u mpr=%u sb=%u mbase=%u %4x %5u %2x %4x %5u %s %4x %5u %c ? pc = %u instr =?"0̎Onh:;o0 |!f rffff^I D؀ce all lines >= # t # #' - trace all lines between # and #' ? - print a one-line summary of this list (tracing is on܋_#tGË܋_#ø r ܋_ t ã(USWV^v Ǚ+ȋƙ+Fȋ+щGfcPCrIS%ld FLRF Improper input -- reenter: ODImpossiblewrbas: Unable to open printfile: %s %-18.10g %-18.11g  %s %u %u accum = ra = %5u rb = %5u fadfmifmufdiexpiadimiimuidiixpincnotandborlodstoxitpopdu}= ףlK=ur@07ffff K7Z%:85@/bin/shsh-c"floatily possible if the program was compiled with -t)options are: -bhpt? Use -h for more detailsintermediate code input must com^_[]f^_]USWVF y;V u>Rȋv~ } ރV+~yރƋ׍f^_[]øPv~ y Vރ+V %-18.12g %-18.13g %-18.14g %-18.15g %-18.10g %lf%lf%lf- String too LONG for conversion pxchstdrcpscpicpingcinstistsilscatprortndimsubrdvwrvwstrdfrdbecroutrdnrdswrnwrsfilconrstnegresreng stack underflowfloating stack overflowPC PC e from a fileintermediate code filename must be of the form 'name.i' stdoutrbas: illegal option: %c pstdoutrbas: Unably ^ V;| 9~ v+~ F+USWVv ~Ǚ+Fȋƙ+F ȋ+эf^_[]USWVF y;V u.ȋvPCPCPCPC PCUNNSNN%22.14e 000000e %03de-%03dNFNFfcreat. should nevepdatdbfnspbrsbrcbfcbfncvbrcndrsdrfedredwclsabsintrndsgnsincosatntansqrtabexpfsairnlogposinpascch(null)jje to access printfile: %s IVrrbas: Unable to open intermediate file: %s Additional space required: bytesrrbas: UnablF y+ yڋ™f^_[]Ëv~ yރ+V y^ ;| 9~ v +~ +FyЋr get hereIFDFRL - improper RECLrOErwNACUDUCEDEarNAISRUarNAISEREREREFPCPCPCrlftlenmidrgtcvtvalrensizformatronckoexrdefboladjusgepcfdlptlptclipdm1opncrtdm2lidpptwidflisadin e to open chain file: %s IV%1d.%c%c%c%1d.%c%c03:30 Jun 1, 1982IV%1d.%c%c%c%1d.%c%cNMIVIVCFCCCDCPNMIVrbas: Waf^_[]UVvN^#^s(]CBASIC-16 System Version Serial No. ӷ Invalid serial number on this system! Please contact your distributor%1d.%c%c%1d.%cDZNEDZGLRGUFtab value: TL %upcixtcalcmdcstccrchnvaddaysysextcomendlodlitx%2xlitwic.?.rcddm3igl FCB Table: # recl eofadr fM:/Day Mon 00 00:00:00 1900 SunMonTueWedThuFriSatJanFebMarAprMayJunJulAugSepOctNovDecZZPCPCPC rning -- there was 1were %d syntax error in the source program IVIVPCPCPCPCSun May 12 34:56:78 1981xDWDW%5 Copyright (c) 1982 by Digital Research, Inc. (Sysgen: (This is a PRERELEASE of Version 1.3c 1.3c %u LNUFACOIOIat line UNUFUF? %s IXUFUFCALL number = - Erroneous CALLo{TXI$WV?I ܺ:X9fp name %6d %6u %4x %4x %s === End FCB Table === %1x%1x%s %1x%1x%14.7g*%14.7g (%d:%d) ======== vardump ======== 0 ( ) *!+",#-$.%/ &0 '(\u{PC   AAAAAA>4qt&qvWzx>&qunvW>qu~t>$qtqW@=}XqWqW-qW#ƅqc_print _print_d _error cret pWwW|)W"+wW`qWVz>$qtwW4wW<XqW2qW=~GwWR ;wF>ot6oApR>ou'o;{>otbpR>otmpR>oBBBBBB  Floating Point Not Present vWqWu.>&q>qvWqW>4qGWF~RsvW6F>s9~|ݿ WS&6{M:/Day Mon 00 00:00:00 1900 SunMonTueWedThuFriSatJanFebMarAprMayJunJulAugSepOctNovDecZZPCPCPC qW 0-*UWVFP~ u >(r9>*r|fUWV WTUWVxWWDu.>&q>qxWt y㋗xh)㋗xh)W㋟f㋗e[B)}ڋZ㋖9Xjt t6&6&G"P&vW&>qtg>$qu`vwW6QW~WC~W9HF؍vފV~%t~$u ^/usr/src/cmd/cbasic/cbas.o 664 3 3 W>4qGWUWV6=u6xW]>4qGWUWV6=uRxW/>4qGWUW㋟e㋷Z!UWVvuWWUWVvuWUWVvuWUWVF*䘘UWV~9~+ ~M:/Day Mon 00 00:00:00 1900 SunMonTueWedThuFriSatJanFebMarAprMayJunJulAugSepOctNovDecZZPCPCPC ^~WwW6UWV+>>>qt .r6.r+WUWV W`#>uuWJ#6.r#>qt# 224034 2726477775 10647 VtxWXqWu)&qvxWXqW >4qGWf`UWV>u>qtWW<6WW"0|UWV~A|~Z ~z~a}+aUWVv^[FFN~u$quwW6 wW6xrUWV !FV~ |#F>qu>$qt}~u>~*wW6 >quyW =|j2q>&q~u7WP6" | P P&qxW 6:)>>>6)>qt%;t vW!*6$>qt8~t+W}% vW)>6^% W % 462 2726556117 6716 F=w?.G P/wW6 2>W>wW66ZwW6 9  UWV>qt0>$qu)jwW6:~>&q>u+UWV>$qu&66"rWWg;"rt xWQUWV+>Hq>>q>Fq>Dq>Bq>@q.UWV>$qu >qtY%u vW)~UWVFFFЋvЁ?VF;F}ݿWW=FF؊# UWVF>4|lwW6vUWV ^VF~NuUWV>qu>0qt9>&qt2 |F*PF*PZn/(UWV8+o6o6odž>ot6oVoRV;soR7>"r| "r"r"rVUWV+3WWxWqWqvv> UWVqq.q0q2q+҉Pt#+UWVD~t>$qtF~svW6F>s9~|6=u)&qvW~ u*rUWV~PF^umUWV>qu>0qt>&qt vwWHBUWV>qu>0qt>&qt vw㋗b~f>o}o}oo|E)}=㋟Z㋗Xj;ou#o>oDo=qJqRqVqrrr$r"r rr&r(r@+҉*r,rPs&UqW>4qGW>4qtv>,qul>&qt\0q3qWWPWFƅo>vW/qW%IavWe__.SYMDEFZT _caller(caller.oUì,, HUWVWvWCAWUWV+W FV~WFW PrwWW~WxwWW~WwWrwUWV Wmua>o}o}odžZڃ?u9wu郆|;ou鋞W}+tovWVF~狽~uv~}~~uF~@|͋>0r~u +>2r>0rv~=UWV?vvW2/,W>&qt vWWvWWqWWvWWWF=t4qWWLL number = - Erroneous CALL)9IY_caller"_crlf  W|pWqW WpWpW WBPwW,r,rP*r>,r~pW.9 pRoop㋟b|#)}㋟ZみXju ㋷Z\㋗b>otw7p0 ( ) *!+",#-$.%/ &0 ' UWVUWVWpW)IpWIuxW>4qGWCvv7~O;>Tq+Et>euumuUWV> uUWV>qt FPUWV^FPwt FPW6IP W WF~PF>$r9~~>.qt1>&q~&qW6u>t>tfغ0Oiu-$=w@.$=E XqWFWXqPt6|W>4qGWsXqWi=@~6|W>4qGWJqW@=}XqW~0qo~uv>&quo>Tq~5FyWX+lnoFFUWVFf&q.q>Rqt->&quWP6,6PW>r~=:UWV>~|9~tvFPvW:####Ƈu=>Fu>Nu>t M JL>'u~s=<tg=bt=ctqW-qW#ƅqcVq>.rt6|W,Tq>Tq~5qWqWFWqPt6|W vv>qu>quqz>9>t>PqtTq~9>Tq}vWF(>.rt W64q0*UWV;F>u>3~ +F#v vv~F;F}ԃ~| ~d[~>~|UWV>|u>UWV>r~_Mr>r狽>>r狽>>r>>u"t33WP>u,W+W>JqtLq~W6&r6 W>4qGWqW=@A6|W>4qGWz$q6|W64qQ=t=!u=#uO=$uO=%V>~mP6KyW;UWV>uƇ>UWV> uy5UWVP6WsUWV > ~+\F؋h|HFƇƇu >r>빃>ru: PFv^|[F~|> t>t t>%t> t >tHuƇuN=v .&! >t > uug~PWW=u=u-=u=%u= u="u=&uh=(uq~vFW~W6扼6[>6扼>6扼F~P4F@;F}>gUWVP6NyWt,UWVv؋R|FeFFFFF؋FvF^F[8tN^u ^t4v^[8W~ ~G~~O~~9~~<u2>u>qt$r>$r}> t$r$r> u &r &r> t4>u  =Ƈ>r |Z>q>&q#WV6pGWBF~PF;F}D>4qGWt6|W>4qGWv=@~6|W>4qGWlvqW_vWR>Vqu9/Wv;Ft^[v^[v^[~狽v扼v^[~狽v扼v^[~狽v扼ƇBFF؋GFF؋G*=|LƇUWV+>u&rxUWV< t>tUWV>uUWV>\t+UWVuUWV+~>>9~t>6r扼>6r扼!r, L)\>qu>*qt&q >(qt >qt&q(>&qt@FFXqvF^F[u^GiWqWu6|W>4qGW>qtqWWa+>$r>&r>UWV~狽xh~t->~>o}+~>+~>+~G>>>6>GWF>G>v!.~t>>&r>>>>u>"t >urFD>u36&r6W P+҈[tF->u>uc>&qu0>qt)>9~uWPv WPvvvvJ~uX ;u>qtfqF=~>t}~>(rƃ>qtFDv扄6q>uҀ>thF~|T%/&O&i&|&&ut `: tTq"UWV>uA؊؊РЁ?>|DUWV6UW>~9>t!W6~t>>>UWV>qu|2qF' | P PF~;~>u2<"uu>"uu uE+҉V>0u %>0tlt>u*F>u UWV>&qu0>qt)>9~uWPv WPvvvvpUWV~tWWvWeƇ,tm>qt.q$rƇ?UWV>quF~DžF~@|W0r*W60rDV"UWVUWVPUWV>a}+ >zUWV>.t+UWV> qtο)W*r>(r9>*r|vvv,W*r>(r9>*r|RqiUWV>qtn~tXF' | P>ht>HuX~u6&r6W(>uF;F^1ă~uFڀ> t>+t>-WUWV F >r>>qu,rWqWu~9>Tq|ZTq^^?-tF^u^+һPW P0rG>0rE0r+G60r| 60r| 60r|0rE+?>0r>2rZUWVF~FFF^t UWVPlUWVvuu u+fUWVF&APO=~P<=)> P+F~;~οPWvvvSWvv{WUWV>Rqt7>9>}->&quWP66uCtLuuMru> uHHuM>|4 <.u >.K q,qF~|+W3F~9~|64q$q땿>&q>(q>&q>(q>*quTq>Tq~5XqW0 ( ) *!+",#-$.%/ &0 'uF%?(UWV>=>UWV>>=>UWV>狽UWV~6|6G [GUWVG%E>62r| BUWV>u W>u :W7W>2ru UUWV}WeI>2r~}狽>>狽>>狽>>狽>>u+҈pWWP*u$>t>} W>|C>_:t5>uO<u:W B~uWW6UWVF~t8Vt |WPP WYPNfUWV~uWUWV>狽>u+/W:u'W> Wzu:ub>}UWV FPBu#u>^t WB6W~u ~E>v| ~}UWVWr6t9>qt21u+>Rqu$>u狽>>狽>:UWV~6扼%UWV~6扼UWVVUWVVUWVVupW>t鿾WoPPUWV> uL>t WWQ>>KF6;|~uWW$u >upW >u:W >tUWVPUWVFq;Wq+W6[W>4qGWW> WWW>狽6|>>6扼UWV>>O>>Rq3UWV>HqtW6WPZt(>t;tW t W]UUWVVUWVVUWVVUWV~6扼UWVP6v~fUWVP6v ăWvet ǃW%?؊r>Pt>[t>Lu ʃWt PPUWV>t WA>u 6&FPW}FqUWV>uFPFPUmUWV>u 6>EUWV6W V[WUWVWu+zUWV>}iUWVVWVUWV>EFUWV FWV>Lqt;>qttW-W+>qt=u WUWV+WsFPt.t7FPFdLUWVP6vJ2UWV#UWV~W` UWVF؋PWFF؊UWV>qtMƇ6{P!P@P>?>>vUWV>qtAWVFqt "W1W>Bqt )W*W=W<W>u :WPUWV>P| Wo>u W>u >=~u'~ WF狽~9~u}v扼1F~~~}~~Nt~9~uߋ}v|~UWVaWX߃ P+WP>>qt>q>62r|UWVWWWpF ~PUWVFPmUWVFPt+UWVWW>?> mUWV>qt>>FFG~E~>2rv|^G2r~?~>2r=>2rE62r| >>62r| UWV~u+WWI:WP2^W9WUWV؊UWV}WI>2r~}FF?> WF؋6|> W(؋>FV8V~dUWV>qt FPUWV+F^u>u+WUWVW>Lqt>u)>|>@} 6WO6r.W?+WZPFUWVu;6"UWVPa UWV8tgWv+UWV>ujWm>qt62r>t[W>2r} >׈P~t&>2rEP7W`>2ru kUWV>2r~}tu>^t W6W~u z>v|~E~}UWVƇ6&F>2r~ >2r}>2r>2r}+>Lq>Jq#10#>qtp>$quW 3W W  W ^W6uMF~P0F;F}$W6W+WP=UWV>Bqt*>u +mWE>tUWV>u pWW>u ]WuUWV>u sW>u ]WKWyYUW^t ̓W~t<>t5>9>t>qt>;>>qt ЃW>t~t6W~u*u~t>2r};>u9 Wd~>2rUWV>qt:WFG~E~>2rv|2r~?~WOJ1W7$W-+WUWV>Lqu>qu FPUWV>Lqu>qu >$qu"r,WH>u pW+W>u$Wԃ>u>u pWr#W~UWV6WQ WW=>>6VPr>UWV> } P PGUWV W48t_>u>u pW\>u8>u1~}^ru>qt ӃWU~E>v| ~} >~}2UWVv>qt`WqFG~>2rv|>2r=>2rE>62r| 8UWV}Wa>u W>u :W>2r~}u4^t WXUWV}WFPUWVF*PF*PsUWV~WtUWV>qt">u>Lqu6FP\>>>6>qt ;t W6>qt&~t Wq> WwWpW>Psu W+PvW>u~u yW >uFP>uFPFPAPsSv>t[W~u ~E^r~E2r~?~>2r=>2r~t W>2rE>62r| UWV>qt/27W~u ~E~}UWV>qt:WFG~E~>2rv|2r~?~>2r=>2raW+CUWV>狽>>狽>>UWV> u.>>6PPUWV%UWV> uR>>{:t6ru%>u>UWV Wt>u:W>u,W:WWPt FPUWV~uW0 ( ) *!+",#-$.%/ &0 'r^G~}~>v| VڀtGUWVF}փWk+W>2r~߀uYE>qt@~}t6>GɃ>}P6WDɃ>2q>>>>>t >&q~&qm>t6Wa>t6WL>tW6u+WW[+W6U >>zq Wa6t6PPPPPPSPPPSP QQQS8QQQQQQQQQQQQQQSQRR;ReRRRRR"UWVvW~ W~EP^W*R^ >t>W8 +W2+W, +W6AWQW+W6>t xW 6C-WP Vڀu]}uT>|~}t<~}4ruEW~}딃~t ~}^rt~EF~}~UWV>u6W7>t6W">tWW >>>>>t뼃>2qt62q׺>2q>4q W蟺W蕺6UP')WK(sP0؊s%WsPJAt  ' W*R~u5u!WUWVYWF~狽~u9=viW{Fvk~};~tҋ~}~~W0W9 >>>LqtG>t{WLq6蛸P߃>u6胸@PjWcW 6WWUWVWWWvWUWVڃWȃvȃWȃvȃWȃ~~ s>2qt sW舼Wz>2qt~>&q>&qt*F~6q~rńW&F~~ۿWۃWۃ62q-܃WۃW:u>u ,WH>2r}>P}Pm[WgP\6WR>2ru>62r| uF~@|W>8UWV6W%>| WF~P~~P~P~~t +Wރޅu P&݃>Lqu P+W6>LqtLq~W*ZW@W@WWʃʋ~>2q`UWV>qt>qtWaȃv|ȃ|~f~~^dv.mHW6tEt3Wۃ Wۃ Wۃ>$qu衼̄W޹Pq+>q>q/WMWjWjW>u_WW8ۃM 6W!>2ru >62r| P3>u>upW|>u>u:Wg>t /W>q~~PvWF~狽~P(WF~狽@;F}Ϳ,WsF>9~X/WZTU@W>Bqu?>W+>Dq>Bq(mWR'W߃Fq hW6>t WnW߃WUnWg;t:WC"62Wb>t 6 +W*>t u>Nqt NqeJq\>u׃>NqtWA+W6WkWkW߿eW߿eW>"q> q> q>"q qeWb,谷d>qt:WFG~E~>2rv|2r~?~>2r=>2rEy >u 2W)>u >upW>uWVXWE662r60rW/>0ruņW>0r~u nW ~u5W׆W^G=w,. VW(Dq>Bqu?WvڀtP>W˃ cWf߃DqsmBqddWdW=߃4WC>9>}>u 2W(">u 6>>P!>9>u8@6a6ƿ WWU>tgW;fW4߃>t WzoW>t@>>6N݃WHڃ>>+W݃>u :W'PbڀuP>5W&Ѓ5>uupW>uu :WWW WWWUUUUV~uEP~u u u$W ~}t~} WYWo~u`W_~=9UBq>DqtW+W߃&WBqڀuP>W˃u ]WރWރ#>Dq6F=uWV롿 Wa똿_W W W} WuWkWWWWWܿWֿWпW+>>@WP3-/'!>t '+WWW]WWԿP>u W+.W+W +W'w+Wu ]WZ`WPOPE8WAWVWH6666ƇW. PPPWPPP W666*W66MWtW+W<߃%W75W0 +W4>uWCpPރbWZރlj:W0@PHq>tPsW+WW'.+WWWPs+WWW+WWW+WW W뽀>u WkPPW+W%W>tWyW%NqW7܃>Jqt WNq>Jqu W܃~WMكLqZ>uWA4BSSS:BcBSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsBS|BBB CCCC6C@CFCLCRCXC^ | P P>P>P>PfW>P>P>PW`>>t W$ރHq1+!%W>t g6WW|W;>quq+>>>>*W>uW0W>tW. WP€>u 6jpWdfWj\ W WZP6:+W.ك63>uW+Wك6׿WVMQIkIIIIIJJJJ#JSS4JiJoJSJJJJ:KSQKbKlKvKKSKKCdCjCpCCCCCCCS*DEDODUDgDqDD.E4E?EHEEENEEEEErFFFGG+H4H9HfH ^hvu .RW6WD:T >>>W8>>ɈW | P P66666W  ݃>6q6F;>G>6q>9>8q>8q>9>:q>:q]F;>>qt W>>Bu P$0 ;t #WPP!Wt>qu&WKKKKKKKLCLLLLLSLLLLRL[LbLsLLSSSMMMMOM8MUM_MkMSSSSMMSMMMMMM:PAPHPSOPSVPxPgPxP~PSPSPSPPPPu ;W>u :W7W̋>>>qt P>t %W>>+WYP>qt0 ( ) *!+",#-$.%/ &0 '| P PUWV6666!W WPSW|F~狽P~~A}|3e:9f8>u8i107/.-,+*t)(kD'&%$+#"! &wd BP~~P~~P~P~PvW~狽G~4 |6^*[P^*P 112222222222222222222224444337766889955:<;;==>? "#$%()*,-./0126! :; @b7    ;    UU    G  G   N<=F^u | P PF>9~WUWVщWrlUWVYRWABW vBB@AACCDDEFFGGHIIJJMMLLLNNOOOQQQPPKKRRSSUWVVTTXX[TEHIJNOQRSUW     B         R  <ChZyh[0F~NuUWV~|~~+UWV~a|~z~~A|~Z~+UWV~0|~9~+UWVYY!ZZ[\__]^^"``#aa$bcc%%%dfee&g hhii j'()*+,,kllm-/.n oXYZ9^?  U O4  !"#$%&'()*+,-.yYuyyyySnyyyyyyyJyh@yF~PtL~PFt8~P^t'~PFht,~P7u+)~PFdtooo0>]45 /0123pc44tH =H=yyyyyP_y:9K4#yy 33y2.-,y~Nuʿ@RdtttGww j;lb\VR`4yzmq56MNOP\]WZ[dsx+JycGy*yyyyyyHyyyyyy<0yyy#~~2=v7NLMB  r]^4gi@oVCHX<`BkG6thZs~P3n78gh_T}k<KLy)#~yyyyc(yyH))<yyyRy5pRKYId[tnLaqmM_tj;tl dtb2={v7NFEtXjbuviSU{|~lor9:;=?@BEyyyyyyP}|zyxvutr]^4gi@oVC\WHX<`BOkG6UhZsT5pRSYI[QnLa qmM_F%Ce^-W&IYM\Skc&'ccDFGHIJQVYf^>ACawestate %d, char 0skjhcb_ZYXWPOJGEDBA?>:%9876541/.-,('&%$"! P?ytKJAjDzxpx0gLVjam>?yXq$D`E[voJfu=c( / ccc0 ( ) *!+",#-$.%/ &0 'x%x yacc stack overflowsyntax errorerror recovery pops state %d, uncovers %d error recovery discards char %d reduce %d proELETEREMARKRENAMEREPEATRETURNRIGHT$SELECTSYSTEMUCASE$VARPTR%NOLISTCONSOLERESTORESAVEMEM%INCLUDECOMMAND$CONCHAR% extern int RC; /* External 'return code' */ caller (fno) int fno;{ switch (fno) { default : fprintf (stderr,MFMFMMMFSNMSOOMFNUINNIRUREINWEWUINOFBFMCMCIUFDFDFPFPFPFNFUFNUFINNCCESUThis program contains || |!|"|#}$}% }&}'}(})}*}+"},&}-*}..}/2} 06}1:}>}bduction %d CBASIC-16 Version Serial No. ӷ Copyright (c) 1982 by Digital Research, Inc. (Sysgen: (CONSTAT%EXTERNALLPRINTERRUNERRORRANDOMIZEINITIALIZE^ Error %s in line %d at position %d ^ Warning: %s in line %d at po "Erroneous CALL; call invocation is #%d\n", fno); RC = -1; } /* end switch */} /* end caller */ cbas: error:  unmatched statementproduction DLFAMFMFFISNISFUFEMFMFMFUFIEPMThe FILE statement will not be supported in the2B}3F}4J}5N}6R}!7V}8Z}9^}:b}";f}(<k}#=p}P>u}Q?z}@}cA}$B}%C}&D}'E}F})GThis is a PRERELEASE of Version 1.3c sition %d Warning: %s in line %d ULWarning: invalid character(s) ignored in line UL%5d%c %scbas: %s 'cbas' options %s Stub(%s) trace(%s) FDFDFD%s Unable to close 'call director' file: Compiling 'Call Director' file: Compilation ou futureIFCVCVIPMSMFUFUFITforrepeatwhileselectdefno error detected %s%5d End CBASIC-16 Compiler MSBUFF/REC}H}*I}+J}K},L}-M}.N}/O}P}Q}0R}1S}T}2U}3V}}}RW}IX~4Y ~|~ are: c - don't change source program's case C - don't compile the '.c' call director file h - print this list i tput file: cc -c -O cc -c -q -O 2>&1compilation errors occurredno errors detectedwUnable to open 'call director'S ignoredUFNDUFMSUFCS - LocalCSUF %4x: lnk=%4x plnk=%4x loc=%4x typ=%2x subt=%d %2d:%s Symbol Table: Z~5[~6\#~])~7^/~_5~8`;~SaA~9bG~:cM~;dS~Z~a~<eh~=fo~>gv~bh}~i~Tj~?k~l~U@select_headcaselse_- inhibit production of intermediate file l - produce a listing on standard output L - produce a listing, overriding al file: %s FU case %d : RC = %s ( ); break; mpr.Double+%d (double *) *(REGA.PInt+%d) REGA.Double+%d,  ..... infinite on link ..... End Symbol Table PARSE STACK (%d): P i hash symloc srloc var type subt eline epos m~}~n~~~~Bo~Cp~Dq~~r~s~t~uGv VwHxIyRyyyzJ{{||F|L| headconstant area: code size: data stmt area: variable area: rrrrAQGFKLPBTNOCDEIJHXRrU[ql %NOLISTs o f - intermediate file will be named 'f' O f - call director file will be named 'f' t - produce code for tra12:34 Jan 01, 1981%d%5d Page 03:30 Jun 1, 1982 Source file: No intermediate file generated Intermediate fP%4d %4x %4d %4d %3d %3d %3d %3d %3d P%cP P====================================== ======================= END !SkȀ'TAt#()*+,-/:;<=>^ASEQGEGOGTIFLELTNEONORTOABZWpS\YVsvwxz{|     &&ssssssst*tHtetttttcing during execution ? - print a one-line summary of this listoptions are: -cChilLoOt? Use -h for more detailsinput fiile: Call director file: rcbas: unable to open source file: Unable to close source fileUnable to close intermediate f=============================== FOR dump forroot=%d foraddress=%d simplecase=%d forroot = NULL fa=%d flink=%d glink=%SANDASCATNCOSDEFDIMENDEXPFORFREINPINTLENLETLOGNOTOUTPOSRC%REMRNDSGNSINSQRSUBTABTANVALXORBUFFCALLtt"u$u&u3u=u?uPu^uquuuuuu /* CBASIC-16 'Call Director' Routine */ #include typedef union { /* lename of form 'name.b' requiredintermediate filename of form 'name.i' required'call director' filename of form 'name.c' requiilewcbas: unable to open intermediate file: Error: Input line too long in line Error in writing intermediate file%1d.%cd kind=root for while repeat select UNKNOWN outside=%d bottom=%d top=%d caseicp=%d forvar=%d = %s resolved=%d ==CASECENDCHR$DATAELSEFENDFILEGOTOINT%LINEMID$NEXTOPENPEEKPOKEREADRECLRECSSADDSIZESTEPSTOPSTR$THENWEND%LIOverlay type for an object */ int *Int; /* integer */ double *Double; /* real */ char *Char; /* string */ int **PIntred'call director' filename already assignedinput must come from a filefilename may be no longer than 64 charactersNULL.i.%c%1d.%c Invalid serial number on this compiler! Please contact your distributor%s: VOSE|| | | | ==================================================== Machine Stack Information: sp=%d mp=%d mpp1=%d base=%4x typespST%PAGEBEGINCHAINCLOSEDATE$FLOATGOSUBINPUTLEFT$LOCALMATCHPRINTUNTILUSINGWHILEWIDTH%CHAIN%EJECTCOMMONCREATED; /* subscripted variable */ } ARG; ARG mpr; /* Base of the variable area */ARG REGA; /* Stack at the time of call */ccbas: illegal option: '%c' .bNULLITUSBNCSInclude nesting too deep near line file: for-headerTOone-zeroMMMFMF| | ||| ||| | ||| ||| |||||||0 ( ) *!+",#-$.%/ &0 '=%d typemp1=%d typemp=%d subtsp=%d subtsp1=%d subtmp=%d smlcsp=%4x smlcmp1=%4x smlcmp=%4x srlocsp=%4x srlocmp=%4x typesp=%d )x))hyHHXXXhXXxXXy typemp1=%d typemp=%d subtsp=%d subtmp1=%d subtmp=%d smlcsp=%4x smlcmp1=%4x smlcmp=%4x srlocsp=%4x srlocmp=%4x mlprtloc=%4x m)x()X h 8 XHXy y    y lfunction=%d mlassign=%d mlbase=%4x mlfuncno=%d Parse Stacks: sp=%d mp=%d mpp1=%d base=%x i hash type subt elin eposIx8hhh h Y8 h h؇ȇy y y  smlc tokn var varc accum(%d)=%s %4d %4d %4d %4d %4d %4d %4x %4d %4d %d:End Parse Stacks ========== TEST ========== Y؇ XXXhXhXXhxxXXy h h hhY y XhxXhhh h YȀ؀)Ih h hhY hYiiyh Yh Y8(h h )II8xȆ8I؇HX)yXh (x؀  )HHh yI0 ( ) *!+",#-$.%/ &0 'HHI)hhhhh8 x؄x؄؄hh y I 8Ȇx8))I))h h hh  X8 ؈H8hhhxh88HH)8x hx8x(88Ȅ hȀxXHHx8x(h y hyȆ yyh ( 8XxHX؇x؇؋h؇ȋXxhXxȌhhHxHHHxx8)Ihh8hhh hhhXH(x8XhxxXhHxXXhX،hxxxhȀx؄)I)IIhh h h yh 88XhXXhhxhhȀhI)) hhh  hh h hh880 ( ) *!+",#-$.%/ &0 'hXXh H x ȋ ȋȋ ȋȋ   XX  ؇ xx hh y 88  8H xX XXX h   h   ؊(((8(X X  ȋ hh8(x x h Xh xx   ȋ Ȋ  h h y   hX ȋȋ   y؊h h     Xh8hh ȋ  x yhȋ   h h(( ( ȋ h  ؋x   x x hh،Xh h  ؋   X88X؇X(ȋ  ( h  h  H0 ( ) *!+",#-$.%/ &0 ' h hh XX؇h   XXy   XX 8hx ( XXXXX XXX  ؊؊hhhxhX ؋  Ȍ،hhȋ Xh h Yh؇x؇X؇hxXhxXxX h x ؈ XhXhhh h YH8(xhh H h؋ x H (  h h Yh xhXhxhXXX h hxx  h ؇h h h h Y  x h X    h ؋  hhhh h YX0 ( ) *!+",#-$.%/ &0 '0 ( ) *!+",#-$.%/ &0 'gram.obasinc.obasrtn.obascom.o baspar.obascan.obassym.o('basgen.o*basynt.o@debug.oSfzy.oVYvfzy.oY_yylval _yyval _yyexca#Z_yyact#Z_yypact#b_yypgo#e_yyr1#f_yyr2#xh_yychk#Xj_yydef#m_yydebug#o_yyprodn#o_yysems#o_yyv ,_yychar#o_yynerrs#o_yyerrfl#o_yyparse"chkstk _printf _yyerror"Ncret _yylex"_yyseman"_titleli#|p_serial#p_serialn#p_copyrig#p_sysgen#p_prerele#p_version#q_pass1#q_pass2#q_listpro#q_debugln#q_lowerto# q_Lowerto#"q_nointfi#$q_lstflag#&q_Lstflag#(q_LSTFLAG#*q_autocom#,q_invalid#.q_header#0q_errorco#2q_RC#4q_datact _chainsi#6q_forstmt#>q_randomf#@q_fileio#Bq_fileout#Dq_inputst#Fq_gosubst#Hq_firstst#Jq_commstm#Lq_indecla#Nq_pass2en#Pq_token _subtype _funcop _intvalu _hashcod _nextcha _Nextcha _lastcha _accum "_Accum "_cont _compili _ulerr#Rq_notinte _hexc _expo _pno0 ( ) *!+",#-$.%/ &0 '#Tq_o_optio#Vq_fpin _fpint _fpcc _intfile#Xq_inpfile#q_ccfilen#q_sourceb _sourcep _eoflag "6_findlab"87_resolve"7_dupcom"7_process"88_gen_ils"8_gencon"9_put_fie"9_mldefin"F:_gen_par":_parm_su"0;_che_hashsp _hashmp _hashmp1 _eposmp _eposmp1 _epossp _elinmp _elinmp1 _elinsp _smlcsp _smlcmp#y_lng3#y_lng4#z_lng5#J{_lng6#{_lng7#|_lng8#|_lng9#F|_lng10#L|_rwoffse#R|_rwcount#h|_lis_zourceb _zeparat _eoftrue#r_stackfc (_incldfl#r_incldle#r_sourcee _dskoutb _disksel#r_idiskse# r_buffptrck_p"@;_funcgen".<_enter_p"<_gensele"N=_gencasl"=_gencase"4?_relop"A_selectp"Z>_gencasg"?_gencend" @_comp"@ _smlcmp1 _srlocsp _srlocmp _nargs _outlth _calltp1#Rs_ctplth1#s_calltp2#s_ctplth2#s_errorms"__iodxDUWVveWWUWVv fWUWVvvvUWV+v^[FFG|UWt_er"_list_wa":_list_li"_gnc"_getchr"._getnobl"x_skip_to"_c_char"_check_c"_warning"_msgprin"#"r_linebuf _lineptr#$r_ullp _ulline _tokenli _tokenpo _actualp#&r_lineno _maxpl#(r_countli#*r_cou_special"2A_dump"S_dump_st"T_dump_ps"T_fordump"nU_dump_sk"nV_Dumpps"X_test"DY_srand _rand _ISasciib _fprintf _stub""_trace"8_low"N_isadigi"^_isaalph"|_move"_externl"_sttypes"-_normal_" /VvfW666666(fW`F>~3F~|Fvv^fW4^*RlfW"F~9~vſrfW_strcmp _rindex _putinac"_putandg"^_putandc"l_last_ac"_numeric"_lowerca"_decimal"_conv_to"_letterntpa#,r_separat _hash d_symloc _srloc _var _tokn d_type d_subt d_eline _epos d"Y_ISalpha"Y_ISdigit"Y_on"3_gen_on_"(4_gennext"D4_gen_nex"4_genrepe""5_genunti"5_genwhil"6_genwhex"6_genwend_stsubtm"-_stsmlcm"-_getaddr")_err_sp"D._setaddr"<(_setsubt")_setype"v)_getsubt")_C_Lup_o"_strcpy _lookop F>~9F~|FvvtfW~PPfWF~9~vfWF>~LF~|Fvv"_alphanu"_spoolnu"<_abs _setup_n"_emitdat"_next_di"_conv_ac"_get_num"_error_i" _lookup"0 _lno_varc _onstack P_onsp _varinde _sp _mp _mpp1 _nolook _iflabln _tabfunc _extcoun"6_findlab"87_resolve"7_dupcom"7_process"88_gen_ils"8_gencon"9_put_fie"9_mldefin"F:_gen_par":_parm_su"0;_che"v(_C_Lup"_enter"(_emitcal" _fclose _print" _crlf", _exit _title" _strlen _fflush _strfW^*V | RfWi fW]F~9~vfWHBUWV>GW PW*R>PP6f"P,_malloc _gethash"'_nextent"(_access_"(_ht_of_s"((_getype"b(_getlen"f)_getres")_unlinkk")_relink"f* _callcou#.r_commcou _codesiz _prtct _fdact _ecodesi _onstmt _smem _smemsiz _nullstm _stck_p"@;_funcgen".<_enter_p"<_gensele"N=_gencasl"=_gencase"4?_relop"A_selectp"Z>_gencasg"?_gencend" @_comp"@cat _system _fopen _stsrloc".._stsmlcs"-_sthashs"._gencal1" _gencal2"8_generat"+_gentwo",_genclt1"W WfWW | P P6fW6nfW6 |_emitcon"*_genexte"+_literal":,_copy",_stsubts"-_sttypem"-_sthashm"._err_mp"^._err_mp1"x._countpr"._litload _mlprtlo _mlp _defsave _hashtab _aptradd _byteptr _addrptr _printna _symhash _symtype _special"2A_dump"S_dump_st"T_dump_ps"T_fordump"nU_dump_sk"nV_Dumpps"X_test"DY_srand _rand _ISascii_ungener"+_genclt2"P _fill" _charout" __flsbuf _print_d"& _print5_"P _datefcn"z _time _ctime _strncpy P Pz6fWl6fWX64 | P P*$UWVFV*V"._stlooku"._lookup_"._stifnam"0/_enter_c"X/_set_cl"~/_compile"/_chktyp2"/_chktyp1"/_chktyp4"0_chktp4a"80_chk_mlfunct _mlassig _mlbase _mlfuncn _forcoun _rptcoun _whlcoun _selcoun _forroot#0r_foraddr#2r_selecty/usr/src/cmd/cbasic/rbas.o 664 3 3  _printch" _open_so"> _close_s" _close_i" _setup_i" _read_so"2 _fgets _echo_li"_write_i" _fwrite _set~;}狽dhFtF@uhvhWuWuUWVFV*V~;} 狽e iUWViVtyp5"l0_chktp5a"0_binary_"0_setup_f"r1_sub_len"1_subcalc" 2_gen_sto"^2_check_a"2_store_v"2_setupin"2_line_in"2 _seladdr _simplec _innerca _selhead#4r_caselse#^r_msg1#r_msg2#r_msg3#r_msg4#r_msgptrs#r_fun 177124 2726507646 10664 _fla"B_emit"d_initial"_sprintf _in_symt"('_in_scan"_in_syn"*_renitva"_free_st"n_free _reiniti"iV+拴u拴t7W@iV1 G|XiV!UWV+^_gen_rea"63_get_fie"X3_gen_on"3_gen_on_"(4_gennext"D4_gen_nex"4_genrepe""5_genunti"5_genwhil"6_genwhex"6_genwendcopc#r_funccod#s_functyp#(s_fortype _commuta#Ps_typesp _typemp _typemp1 _subtsp _subtmp _subtmp1 _set_epo"_main"_fzy"VY_vfzy"Y_set_var"j_error"_scanner"P!_copysta"h_synthes"A_lng1#Ry_lng20 ( ) *!+",#-$.%/ &0 'Rv%PoiVu$ | P PFG|UWVvviV+^Rv%t C>u;0^>9>sh^uY>~u<~uy8>6t>7t>`t. :jӋ~nt+UWVnt+UWV>=t+kUWV>=t+OUWVW~WZjW|W~WbjWgTj^UWVmWv!mWv-UWV>du6PziVt t u$ | P PSFG|DUWVe5F/F)F#FF>u?36vHP66]FP6l>.tӀ>un<t>tF>t mW~~[d vЉ>dF~PuӋ~~}~PtdFd vЉ>dF~PC n<9|+*UWVn|+UWV%UWV%UWVV"t >>=GW@P>=GWP6(mW6u6*mWW+WWVE8jF=t QmWTd|diWFiW UWVUWV^W*R^*RiWF36^*_~tgmW~u mW vmWmW~~$ |sPsPmW;FuHus6NjW}+WWJ! Q = u=u=u~PlWW9=uz=ud~~}>UWV+WFV~WFPnW+nnW tUWVF>=~Wu~GWKFFFF~ tFPvvvTmWdWd FPvv_mWdWI >>vv`>:ju| W6dWF[ }P^*PFj^u[UWViWK666666iW)>~>~>9~r;Fu;Fu:FtmWmW>dt>+>W+W6NUWV~M|^ڊF*vF*P=u.^W~PudF=u=u4= uU=uI=t=u=toFCv@PvPF ~>d?*UWVvnW>dt6dnWnW~nW+WW:UWVdW W"dWy4dWoPeMBdWXpdWNhmWD)W"+bF9vviWv~~Fv^[FFF~|~~~9~vFu+~FviW ~ t">}t >}> .nW=UWV>M|ڊF*6F*Pk=u"W t1nWWW>u6PjW+WWI>t.W6]Fu6RjWH+WWH^it6RjW$+WWH>@n}W+W@n}+[>ZWWUWV>u$rj~Dž~Dž~DžF~|F=t {mWFzFsF~ tFPvvv~mWdW t~OWh~9~w]FtS~~=~FWjWT~~jWDFFF#~5(jW$~=nFF2?>UWV W,UWV~PF~^u UWVv4nW6UWV ^VF~NuUWVv6 @P6P.W6FlW@P6u1lW6t6lWW+WW;H?adZW~W*u >u>toWn"oWd UWVFFPvvmWdW jW6u mW'>>>WUF~ r mWF~9~|տ,jWF~9~|~5F1jWFݿ5jWUWV~9~+ ~0|UWV~A|~Z ~>dt6d8nW66DnW6 WUWVBdwUWV>dtdUWV>dRnV&v{FUWV>u lV <*uH+:%G|6J 8js8UWVlW6(u6lWUWVFUWV~9~}  ~9~UWVFF } FzF tqv[F<$u߿W6d >9>r mW<*u>duF;~mW+PF;~mW+z~a}+}UWV~thjWWvpjWWUWV FtjF +>>>>~6PjWVG~+VV>#UWV6du VZnVv+u +VwUWV>>>>9>sW+WWGUWV+Wv=uWvt+UWV>8ju/6@WWW8j=t+>fUWV ~~WTuu~}v|>uW3-UWVv.XGFPR[YӉFVPF;~mW+PF;~mW+P{>>>>ws+WW'L~~F~~5jFF~9~|~GWQ>G~~uv.F#|lWv~dnW[WW=UWV>>>>9>vvnW%WWl=xUWV~=;>s^=>?SUWV668j| pUWV6[WUWV6[6x[G9UWV+UWVZO* 6H>~?~}G;V~|";FvG;V};Fs>EF~Fx6F>>T%>>+6@;s mW>>>3u>~6][u~5vF~9~|ՋV~~ƇF~9~|2^^^?-tF^u ^+һV5UWVNj UWV^^W* ׋UWV^V*^V*WUWV+WFV~WFW PTjW0 ( ) *!+",#-$.%/ &0 'h>=]oVFPM~>E@F:78떋>E(F"| }%oWWW7AS>>>6W[FyFUWV>eUWV>t JpW#>>MpWI6UWV>9>r jpW>>>=?>5uY^W*BV~>^*RFFvv,~~>~?F^VWUpWvqpWF~t~u8pf_F~=t=u(~F^*BV^*N~"UWVW~>=?Q,t pW>5F;F|>5t>>~+~~;}~uG~?UWV+WUWV6tNoW^WWw7UWV~~>~>~~9~w~9~s+~UWVVFUWVw.4+#+*+/+mpWUWVF~ t~u F< WV>?~>Fu JoUWV~u^t+UWV^*V^* UWV>t/WWW|* RЉV+W>t WvW^w5.&>=~#>=~+?>=~O&&&>=~W3FFv~GWvWك^V^^GaUWVWvrFu ]oWFXUWVvt v@:UWVkoWFo$!UWV F~=ut>u>>>~"t"F,*~"urF<,t~uQF"TFV8Vt΀~tUWVk>u >I>V~~ oW~~~WFF^G~t~GW~GWw~t~GW~GW[g^VV>UWV~G>~>6^؀?\u tqW$UWVF+һ.O1ڀ#tڀ.u#F~?UWV6Q>dt W WF-^GUWV>dt+W>5 F-^G~tz~=~=~FF~=GnFFF~9~|F6^^*^W* ~tWA~~F~9~WFF66~GWԃ^G^~?UWV>~]>~VFPڃ~?>UWV^t3^*RWFFvv~?>UWV>=tWu>=OW+~uċ^FHwW:Vtɋ^VFԋڀ#tڀ.uF ^VF#uS11u=t=u=t=tV>=UWVNd W~9>d|G;>d~d>dt >d9>d} W2UWVvt^k>dt>d|‹~5ztUWVF>=~u FFFFV >F>~>~FF>="~oW~Gu~ t~.t~-t ~+t 616/>u>UWV>d9~tW~tB>u3xpW6UWV~u+^*UWV^%UWV^%zUWV#^tv^*[F^=.uv[FF b=uV=uN=uv=ta;UWVu~t>>>UWV>~9>d|>du>d9>d|~d~ tFP>dt >d9>dt FP^F^VuUWV=GWFWoWT@PR~WFF9F|@FV+;~|;vw oW ~~6~~W>5nvu6zpWW>>~>d>t 6UWVp~^-uAUWVJD/UWV>=~tQ>=~u2v^[8|-FF^u ^t'v^[8~WF~Nu wqW~\t ^VFvW[FF ~!t ~/t~&uFH)UWVv~FFu >gW+PRvr=u >pW56vV[vJPRApWW:W6vUWVF~>~>؋~?F>=~^^~?&F~9~~܋~~>~?&UWV F>=~uF^ Fpxu~kcpWvpRKH~>6pWvp%~>=u{UWV^V>u~P>~P^:Vt=!t=&t!=/t3^Fv^[FvF^F[u͋^VtFF ^VFWdt5W-~t W W~tdUWVF>=~~=~F|d~ oW8>=~~=;~|~} ?oWJveoWFmr~=GnFF pWv p~pWvn(p~pWvB0p~+UWVFA^?\u*>9~~+>tvvAtFF>9~~ʿUWVu ^VUWV>~~Nu zqWWFtd=#t_=$t-=*t(=-t<=.td=\u%vW][FF 1W:V~狽t\~r~`~Dž~Dž~Dž~DžF~}UWVnF~=9?}:oW~+~W oW>5oWF~9~|FnF UWV6pWvskpWva ~~N^? tF^F8UWVv*=L}WpWv>t oW>=~+>=~7>=>Wuڋ>=>Wztn*;V|*VFt!^VFڀ#tڀ.uF~ti^F#tUWV^%FvpUWV~~~~^FWUWVFvWWuuF  W=~ GpW FVڀ? u"J>=UWV6#>9>u>=~>==~>5u$^W*JVt^W ~OW,F~~^F? tNv=L} WpWvŋ~~~P؃uVڀ?+tڀ?-tڀ?etڀ?EuFˋ~+~L}W^?\uFNF>9~~~O~~~;>~eFvt~UWVF~u0nut oW>= 0 ( ) *!+",#-$.%/ &0 '^uFWNNv^[~ t^? uF^-F Nu F^ t~~ N^,NN~~ u~9~t ^>9>r.6 WуrWAӃ6~PFу^ufUWV>}~t>t{Ӌ~> rW҃hq~Fxpqqjg~]FW NFHFB~u~u ~u>}F#P F =+?[> =!ЅtrWz΃>붋> =Ǚυt>됋>UЅu>=~F>v>5~6|EB UWV~u ~u6Wv>=u~uqWqWy׃~u0>u= u+UWVF}qW.qW 0q1q/q0q/q FAqF vЉ>F^ u؀>+'UWV> t#>,t> t> t> t>u3>M|7[* 6Љua>"uJ~>>~փ~t ~t ~u++~t ~u ~u++~;~|v1~t~t F^-^ F=;~}b>nF> =׉? 6>=#?[$6>= ?[ >dtJ up>}t >}>XqWL~uL>uz=t+~>5_tF~t>}uqWփ>5/Aq-u >߉>F^0NF~|cUWV6FFFFFFFFFFFFFvF>M|7[* 6Љt"tZ>rP>M|7[* 6@Љue,2q^V^^Ƈ2q>.q+~~~t ~u~t++~~t~t ~u0~tM~t ~u~t ҃Pσr P>5>5уP܋=K66ă[?6>E>>EUWV+Wv~6|UWVWv>}>>uFV>F?-t+VLq~+~֍+WF=#u=$u=*tp=,u=-th=.ut t>r6W[.UWV>UWVUWV>=>O>UWV^Ӆ+WW~t~t+v+vWvv3tvTvv~t~t ~u^-^t F^u>}_~̓>>=?pjvY >5؃u(>5؃u>5>5؃ wd>d| rWf̃u~tqWqW>56Du qW/փ+Wvv6f=u qW փQUWVWvA>}=^uF~u?-uFN~tN~ux~+~+>O~t ~u~tS+RFFFF~tFFtUWV6ȃUWV>>>O>>@>>>>>>vUWVW4dW4dW t~9~uG6;tFv~t+~t ~9~|%*~G;~u ^G-^G-~9~}^G0~u ^.F~u^V^>G6d扼6Ã >d狽>d|x rW&Nh b tR 2P݃gP݃>dudn>u qWՃ>u~tqWrW>56Du rWՃ+W6WFHPRPR6=u rWgՃFF>~FtF~~c+~~u~tTqXq@,\u:rW+WW+3WWrWdW)ZWW WW  WW WW WW Wuv^? u0^[FFы>WqWvF~t~t^-^ F~tVڀ? u1*F~t!>=~Wv>5>5f>5>5 Qau S뎿rWku u k PUWVF~G~F^t^N^? t>du^ u+~>t:>>dO+~v>>9>r6 q,wFqi"`PqYV}jFF ^ FF~9~|~t ^ F^0FF~uC+W W W W W W W WW6dvvȃ>+>W+W6jσeUWV~u^? uFVڀ? tG$^FUWV~9~|~~ qWك~>UWV F^wg.duW66ƒP蜵y>O>] }K ߅u>=~u1 WWAӃ rWԃ>du&>t6,WӃ~G~F6~PF҃^uUWV>tD~>dt+~܉~ڋ~߉>}WqWv~u ~u~tF!F~>>~փ~t ~u ~u+VVt2ЋV?W6W[V@t F=}v .!Sv F狽t F~~~| qW?ك>=~>=~~8>=~ً>=~>ۿqW1ÃWWJ<dt FF~狽d;>d|~狽d;>d}ʋ~d?]5_̅t(>>>9>r6 W҃ rW3ԃ>du+>t6,W{҃6"We҃^Ft6~PFE+;~| vs~t~t F^-^ FƇ2q>.q+~~~t4~t ~u~t+WWvvvFFFȡFFFFЅtrWWσd닡}w|Ѕtrf`ou qW؃Wv>=t qW؃~u qW؃~u+~~^v.=qWv6Dum>}r|6r[6"r[>O>+WWSW-fY/҃^u>du6"W'҃UWV>u6 W҃>9>r6 WуUWVF>tIv`tvvvF^u~u`qudqFFoF+FHlqЅthdPЅuхtrWσ0-'! Rz6>=?[? 6>tF>}>qWE؃CqWv6D>}u$qWva6Du qW뻦=P==~t/6^*BR1[!0 ( ) *!+",#-$.%/ &0 'W)݃>5+W M6. # &r}ӡq"*r}ӍFtsmj}s`FZFT~O~ڍFGs@t9F30F*F$FFsF sFdt%ĿWrWW+WzrW6؃u>=u>=u rW>=GWrW>=>dȸtVWxuFoFFdF^FXtQFKF~~؍Fʅt >>x>{gyqSe]sFsFFtFsFsFsFFFFsFFPRE636[>5Ѓtk>5Ѓ>5wrW6蜻PiDċ~FFtFFtF~WF FF}zFЙڃw[.`t\FrFF FF mrrUlsF}FF ?QI+>=;>d} >=#ǿrWǃ>5ǃrWȃ>=;>d}oȋ>5*uRUWVFskhbs[TMUWVXtF~FFWFB >'6݅t+[u6|* R[t+WWg dvvd>VFPF:FC@Ft4F.F(F"F`g```F FFtFtFtF&"FF {UWVFgr`]}DFTLCrr9ps2F,$aPrWWW;6 W}Ʌu>ʅtrW_ȃdx aȋ>d=rW>=~UWV+WF UWV:FtFn\tgFa^~FURFL~ ~ F=t6FO>>O>>>>W*tz6W*[^XRVF-=w#.StFtFFFtFtFtFtFy~uZtlFfcu4"HFr ÍFtsxsFsUWVFFF sWӃt rWǃ^W*Vԋ~W΃FF>=~^^VW^G~+W\@>5ԃ0`t)F# }p~WF  FF FF~WdtF FhtF>=>daË>drWR SRrWHFcFFFFJGcGvGGG HH#H7HKHQHZH]GgHpHvHHHHHHH IIIVIIIIIIIIJ(tSFMJ}t@92u u%FFFF UWV"XuFu\u<`uPuFsFsF$sxFr,skFeF_FY4sRFLd~dnؠƇ> uHWWӃ~>dS>=GW߃6>5>5F .FFҍFFF~ ~ҁ~ F tltqFkFe~ ~FYVFPFJFDF>0t7FJ7J>JTJjJtJJJJJJJTK KHKNKcKiKoKKKKKKKL=LcLvLLLLLL M]MqMMMMMMN\NeNvN|NNNNO OOO}OOOOzPPPPPFFPu~"du@uFFFyqheFڍF\FVSlFFF UWV |sF}sFu+sF |sكFUN"2.r+(|+62r [E66rd1(t*F$ tFtF tFFFPtFHtF@tF8tFFFP-QQQQQQ3QeQrQQQQQQQQRRRRRRRUWV~t茭vUWVvvvv+WWUWVYRuLFFF@F:F4 u-F'u FuF FpuF8uF0uF(uFvF FVPRF tF{xpgF aYPFJv~##utF.+F%[> =~64N;~rW ~} rW,ƃ6=?G[]6>=3?[6蘽P>5!UWVptF|.ttF~!xt~WF FWABW v[0F~NuUWV~|~~+UWV~a|~z~~A|~Z~+UWV~0|~9~+FFHuFF UWVtuF~gFF~WF FFjFeF !s-UWVsF~FFFf>=;>du+~>=>d>du<9>d~39>d}*~u!>d~u Wt܃rWă6dăă~ttFFN|twFqnFtt]FWFQNtGt@F:7F1&VWFUWVF~PtL~PFt8~P^t'~PFht,~P7u+)~xuFtF|uFFF~WFtli F`YRUWVFGD<93UWV"sF|!s~WF FsFF~O~ڍsF+WKX>=>Od6d扼>5уt rW%Ńd>5+WV>5W/>du;+W>F n<~<)FVWFF<~|у~|*FꙹȸtVWF-FFؙPFdt~NuʿUWV\sF}%FeF=UW"0 ( ) *!+",#-$.%/ &0 '0)"CBASIC-16 System Version Serial No. ӷ Copyright (c) 1982 by Digital Research, Inc.t your distributor%1d.%c%c%1d.%cDZNEDZGLRGUFtab value: TL %u LNUFACOIOIat line UNUFUF? %s IXUFUFolitx%2xlitwic.?.rcddm3igl FCB Table: # recl eofadr ffp name %6d %6u %4x %4x %s === End FCB Table === %   i ȅ ȅ ȅ program IVIVPCPCPCPCSun May 12 34:56:78 1981xDWDW%5d in line %d in file "%s" Error Warning 'Stack under (Sysgen: (This is a PRERELEASE of Version 1.3c 1.3c P(<PdxH½pfff{TXI$WV?I ܺ:X9v6rh E^M2`1kHP +YP(\M2`1x%1x%s %1x%1x%14.7g*%14.7g (%d:%d) ======== vardump ======== memory=%u mcd=%u mda=%u mpr=%u sb=%u mbase=%u  i ؅ ؅ ؅ i flow''Stack overflow' rbas: abnormal interrupt (%d) detected at line %d rbas: Possible bad ADDRESS or bad parameteffggg ggggg g$g(g,g0g4g8g= # t # #' - trace all lines between # anɉ i ɉlue SBSLMPSSSSPCGG'peXQsףp= #zL} 51_cPCrIS%ld FLRF Improper input -- reenter: ODImp %4x %5u %s %4x %5u %c ? pc = %u instr = %s %u %u accum = ra = %5u rb = %5u fad}= ףlK=ur@07ffff K7Z%:85@d #' ? - print a one-line summary of this list (tracing is only possible if the program was compiled with -t)options a i ɊيɊيɊossiblewrbas: Unable to open printfile: %s %-18.10g %-18.11g %-18.12g %-18.13g %-18.14g %-18.15g %-18.10g %lffmifmufdiexpiadimiimuidiixpincnotandborlodstoxitpopdupxchstdrcpscpicpingcinstistsilscatprortndimɉ re: -bhpt? Use -h for more detailsintermediate code input must come from a fileintermediate code filename must be of the fo ي   ɉ ɉ %lf%lf- String too LONG for conversion PCPCPCPC subrdvwrvwstrdfrdbecroutrdnrdswrnwrsfilconrstnegresrepdatdbfnspbrsbrcbfcbfncvbrcndrsdrfedredwcls Ȇ( (  rm 'name.i' stdoutrbas: illegal option: %c pstdoutrbas: Unable to access printfile: %s IVrrbas: Unable to open int i ɉ(ɉPCUNNSNN%22.14e 000000e %03de-%03dNFNFfcreat. should never get hereIFDFRL - improper RECLrOErwNACUDUCEDabsintrndsgnsincosatntansqrtabexpfsairnlogposinpascchrlftlenmidrgtcvtvalrensizformatronckoexrdefɉ(ɉɉ (ermediate file: %s Additional space required: bytesrrbas: Unable to open chain file: %s IV%1d.%c%c%c%1d.%c%c03:30 JuɉيɊɉEarNAISRUarNAISEREREREFPCPCPC Invalid serial number on this system! Please contacboladjusgepcfdlptlptclipdm1opncrtdm2lidpptwidflisadin%upcixtcalcmdcstccrchnvaddaysysextcomendlod ɉɉ ((((n 1, 1982IV%1d.%c%c%c%1d.%c%cNMIVIVCFCCCDCPNMIVrbas: Warning -- there was 1were %d syntax error in the source#0 ( ) *!+",#-$.%/ &0 '    )Ȉ9i9 Y  ي ( يɊ يy H (  ()  ɉ  Ȉ  HHH  Ȉ       (؅ȅ ؈  ((ȅxxhhx(  x x )9 I  ȅ؅ ؅ȅ؈ ؅؅( ȅ xhXȋ xx x I ȅ؅ ȅȅȅ  i y  Ɋ   ȅ )9 Y(ي ي ȅ؅  ٍ ( ( ي ي ȅ؅(()Ȉȅ9   Y ɉɉ  i  i y 9  ȅy y( Ȇȋȋ i  ) 9 ɉ  ɉ ي ȅ((؅ȅ (iiɊ  ȅ ي )ȅ y$0 ( ) *!+",#-$.%/ &0 'ȅȅ ((ٔ يɊ؅xȅyy ȅɌ؅ȅȅ ȅي يɊ ي  ي ي xxx  ȅȅɊ ي  ي يɊي hXx ȅ؅يɊيɊy  ȅȅxxhXx x )ي؅ ȅ؅Xh؅ȇ؇8( hxhh؅ȅȅ9 ؅ Ɋ ȅȅ y ؇ (((((Ɋ(  )9 I9Y ؅؅ȅhȇ9Ihxh xxx  ȅxx ي    9 ȅȅȅxxx  xx؇  (    xxxxhxx%0 ( ) *!+",#-$.%/ &0 'x ي  ɐɊيy)))))yȅȅ؅H8 X H X  9 يɊ  )))))Ȇ ((hȅ Ɋ8 8   HيɊيɊ(ȅȅ((؅ ȅ؅ ي؅ȅ؅(8 X H X  8 8    ؅ يɊيɊيييٗ ؅    ي ȅ ȅ 9؇(8؇ H X H X  H 8 9  ي  YɊ  ؅ ɊيɊيɊ؅ȅ؅ (   )ȅ يɊ ي ȅ  YX H X      (h يy  ي  يɊي؅؅ȅ؅؅؅ȅ 9  ȅȅيɊيɊيɊيɊhh hh hh  Ih h ȇȇhɊ؅ȅ؅ȅ؅؅ȅ؅ (   ٍيɊȅȅȅيɊ Ihȇȇȇh IhيɊيɊȅ؅((  8XH  yيɊȇȇȇȇȇhh ȅ(( 9( y8 X  ȅȅ ((((hȅ (8((8(H Hy&0 ( ) *!+",#-$.%/ &0 'ȅييY) Ɋي ي ي X Ɋ يɊيɊ Y)IɊي ي ي   Ɋȅ  ȅي يYȅ 9Ɋ ɐ ɐɊي ɐ ɐɊي( 9 ي ɐɊ ɐ ɐɊ Y ي يɊ Ɋ Y؅؅ȅ؅((ٗ ي  X يɊi   يI ي ي يɊي يɊX Ɋي (ȅȅɊي Ɋ Ɋ Ɋي Ɋ ي يي X Ɋ iيɊ  8ȅɊيI   ي ي يɊ  ي  ي9ɐI ي ȅ ȅ ȅIɊ yɊ  ييɐي  ي    ي ɐ  ɐIɊيY 9Ɋȅ ȅ(( ي Ɋي يɊي  ٗɊ )  ي 9ي يٗيɊ ٗ  ɊيɊ Ɋȅ I ي  ɊيɊ ɐɊ ٗɊي يي   ي  ي ي ي (h؅(ȅ((( ɐ  ɐIɊ Xي) ي ي9ɐI يɊ ي ي يɊ Y Ɋي )ȅȅي  Ɋ ٗɊيي  ي ɐ ɐɊيي ɐ ɐ'0 ( ) *!+",#-$.%/ &0 ' _overflo _underfl _accum _pc _rereada _memorys _smsize _rprts _rdatas _rcodes _rcobarinc.obarcom.obarbld.obarrun.o6barith.oZbarsto.otbarstr.o!bargio.o'barfio.o|0bardns _max _sbrk0 _mbase _st _sb _mpr _mda _mcd _memory _substac *io.oT_ISascii"T_ISalpha"T_ISdigit"Tfac _atan2"Ufsub fadd ning"_popsk"R_push_st"_set_dat"_move_ra"_move_rb"_flip"_load_ra"F_ra_zro"h_rb_zro"_ra_zro_"as well as being "tuned for speed." Future releases will contain these en- hancements. This version provides all __filbuf _ungetc _fmt _fmptr _fmlth _digb#q_expon _iformt"|0_fmnextc"1_finds"1_findn within strings). -C Don't automatically compile the "call director" program which is produced when a CALL/usr/man/man1/cbasic.1 644 3 3 _rb_zro_"_ra_nega"_rb_nega" _ra_neg_"0_rb_neg_"B_comp_fi"T_datefcn"~_m_str"z"_sysfcn"_nstr"!_systemthe features of pre- vious versions as well as some additional features. Each argument must be a filename ending wit"2_stdoutp"3_commacp"3_mkdigs"4_floor"$cfsubs _ceil"citof _pow"Xfmuls fsubd _set statement is used. (The user must compile this program prior to linking with the rest of the calle 131263 2726514400 7666  _s_free""_catch_s" _overund"Z_signal _check_o"_load"`_compi"_comp_fp"_initran"_ftime _srah `.b' containing a CBASIC source program; they are compiled, and each produces an intermediate file whose pfcb"<_fcreat"L<_fdelete">_fifend"?_rdb",?_rdf"?lmul _wntfile"r@_wstfile"RA_edw"B_df_read"Bd programs and the C run libraries.) Automatic compilation is always inhibited if any errors are nd _forstmt".fstd faddd _ifsa"t_sbrk _free_fs"_brk _in_fsa"_gets"_rels"name is that of the source program with `.i' substituted for `.b'. Rbas is the CBASIC run-time system. Rbas exp_edr"DD_uncond_"LD_cond_br"fD_absolut"D_get_par"D_setup2e"D_fzy"hT_vfzy"T_execute"Efdivd faddsdetected in the CBASIC source program(s). -h Print a short summary of the valid options and their Xen_FRE":ftol _free_ar"V_dimensi"almul _subscri"N_store_n"h _store_s" _load_st"n!_conc"!_getstrlects a single argument which must be an intermediate file produced by the compiler. This file is loaded and executed ftoi _rand fdivs _sin"[_cos"[_atan"U_tan"__sqrt"^_exp"a_log"Yltofix (CBASIC-16 Version 1.3) 1 CBAS(1) CBA CBAS(1) CBAS(1) NAME cbas, rbas, bas - CBASIC-16 compiler and run-t""_alpha"#__ctype_ _numeric"(#_upper_c">#_fixstac"x#_comp_st"#_patlng _sourcel _source _pattern _esc. Bas is a short shell command file which drives both and rbas. Bas accepts the same arguments as does  _caller _exit _main">T_ISascii"T_ISalpha"T_ISdigit"Tfac _atan2"Ufsub fadd )0 ( ) *!+",#-$.%/ &0 'S(1) interpretations. -i Inhibit production of the intermediate file(s). This option is usefput instead of being directed to a file. Error messages for both the compiler and the run-time system appear onde for tracing the course of ex- ecution. (See the option descriptions in the section below.) -?  CBAS(1) PEEK and POKE SAVEMEM INITIALIZE ault file. -t Trace the entire program. This option is only effec- tive if the source program was compilul for just checking the syntax of a CBASIC program. -l Produce a compilation listing on the standard out the standard output. The run-time system expects its input to come from the stan- dard input; it sends its output Produce an abbreviated one-line summary of the valid options. The following options are interpreted by rbas Some of these facilities may be implemented in the future if there is sufficient demand in the 16-bit environment.ed with -t. As each statement is executed its number is printed on the standard output. -t number put. Normally compiles silently except for error messages. -L The "-L" option produces a compilation listin to the standard output. The effect of the LPRINTER command is to redirect the stan- dard output to a user-specifi: -b Eliminate printing of the standard "banner" at the start of execution. This option is especially  FILES file.b input file file.i intermediate file file.c call director C source file file.o  Produce trace output for all statements whose numbers are greater than or equal to the specified one. Thisg on the standard output in a manner similar to the "-l" option, but all %NOLIST compiler directives are iged file. The compiler exits with zero if no syntax errors were found and exits non-zero otherwise. The run-time useful if it is desired to use the CBASIC execution as a fil- ter. -h Print a short summary of the call director C object file file.p LPRINTER run-time output file SEE ALSO CBASIC-16 -- A Referenc rsion 1), Dig option is only effective if the source program was compiled with -t. -t number1 number2 nored. This option is particularly useful during development of a program when determining the location  system exits with zero if a normal exit (stop or exit through the bottom of the program) occurs and exits non-zero  valid options and their interpretations. -p output Normally any output directed to LPRINTER by aital Research, June, 1981. DIAGNOSTICS The diagnostics produced by CBASIC are intended to be self-expla Produce trace output for all statements whose numbers lie in the range [number1 .. number2 This option is  of run-time er- rors is important. -o output Name the intermediate file output. This file must have otherwise. The SYSTEM predefined function may be used to achieve many of the same effects that a CALL statement w CBASIC program will be produced on a file whose name is the same as the intermediate file with `.p' natory (assuming the Reference Manual is handy). BUGS This CBASIC system is modeled after the 8-bit PL/M implemen- ta only effective if the source program was compiled with -t. -? Produce an abbreviated one-line summar a name ending with `.i'. -O output Name the "call director" emitted source file. This fould achieve in other versions of BASIC. In particular, any UNIX command (or sequence of commands) may be issuesubstituted for `.i'. This option overrides the default name and allows this output to be directed to an tion, so there should be no major outstanding bugs. However, like any new software product there are un- y of the valid options. Bas interprets all valid and options correctly: it passes appropriate options ile must have a name ending with `.c'. It will con- tain the C "call director" which is produced when CALL d via SYSTEM. Thus the entirety of the UNIX command interpreter (the shell) is available to the CBASIC programmer duarbitrary des- tination. The print file name need not end with `.p'. The name `stdout' will cause LPR doubtedly minor buglets lurking here and there. The maximum size of any array is 64000 bytes. The FRE function to the compiler or run-time system as necessary. OPERATIONAL CONSIDERATI The compiler expects its input from a file statement(s) are used. If this option is not specified, the name of the `.c' file will be the same ring execution. UNSUPPORTED 8-BIT CBASI The following commands and features found in 8-bit CBASIC are not supporteINTER output to be produced on the standard output instead of being Xenix (CBASIC-16 Versionis non-functional; it always returns 16000.0 bytes. It will not be supported in the future. The system usually ; it will not ac- cept input from the standard input. The compiler's print output is sent to the standard out as the name of the intermediate file, but with `.c' substituted for `.i'. -t Produce additional cod in CBASIC-16: INP and OUT Xenix (CBASIC-16 Version 1.3) 3 CBAS(1)  1.3) 2 CBAS(1) CBAS(1) directed to the def*0 ( ) *!+",#-$.%/ &0 ' cannot successfully recover from running out of disk space. The maximum integer is 32767; the minimum integer is -32 which is made at the bottom of the loop. Examples: REPEAT PRINT "X" UNT which describes the language and run-time. As updates and improvements are made to the system this sec- tion of  statement (which terminates the range of the SELECT). If the SELECT expression is numeric, each of the subsequeetween the REPEAT statement and its corresponding UNTIL is repeated until the value of the expression following the 767. +32768 and -32768 are represented as real numbers. Comparisons for equality between real numbers is alwaysIL 0 REPEAT PRINT X X = X - 1.0 UNTIL X <= Z the Programmer's Manual will contain their descrip- tions until a revised version of the Reference Manual is publnt CASE expressions also must be numeric. If the SELECT expression is of type string, then each of the subs UNTIL is non-zero. The zero test is performed at the bottom of the loop, so a REPEAT is guaranteed to execute risky. For example, FOR X = 0.0 TO 99.9 STEP 11.1 appears innocuous; but if 11.1 or 99.9 are not re TIME = 0.0 TIME.EXPIRED% = FALSE% REPEAT TIME = TIME + 1.0 ished. This section will also serve to clarify and amplify some portions of the Manual. 1.3 Program Identificatequent CASE expressions also must be of type string. If no CASE expression matches the SELECT expression, execu-  at least once. Variables used in the UNTIL expression may change during the execution of the loop. The Upresented accurately in the computer, one too many or one too few iterations may occur." The position repo IF CONSTAT% THEN RETURN REM ANSWERED IN TIME UNTIL TIME >= LIMIT TIME.Eion Numbers CBASIC-16 prints a header consisting of two lines of the following form: ... Version V.Rs Ser tion continues after the CEND. If a CASE ELSE statement occurs within the range of the SELECT, its statements wilNTIL expression should be of type integer. This will reduce execution time and also reduce the size of the in- trted for syntax errors is the first scan- ning position at which the compiler has detected that an error occurs. XPIRED% = TRUE% RETURN REPEAT GOSUB 100 REM ACCUMULATE INTEREST Uial No. SN00100 01:40 Jan 26, 1982 ... Digital Research, Inc. (Sysgen: 23:00 Jan 25, 1982) The "V" is the versl be executed if no other prior CASE expression matches the SELECT expression. Xenix (CBASIC-16 Vermediate file generated by the compiler. If the expres- sion is real, the value is rounded and then converted to an  In some cases, such as SE and US, this is column one even though the error seems to occur later in the line. NTIL ACCOUNT.IS.INACTIVE% REPEAT INPUT LINE STRING$ IF STRING$ = CONTINion number. This writeup describes ver- sion 1 programs. The "R" is the release number. The "s", if present, indiersion 1.3) 6 CBAS(1) CBAS(1) SELECT statements  integer. A string expression will result in an error. 4.15 UNTIL Statement Xenix (CBASIC-16 Version  An erroneous CE error may occur (and associated bad code Xenix (CBASIC-16 Version 1.3) UE$ THEN RETURN UNTIL FALSE% 4.16 SELECT Statement [] SELECT SELECT cates that this is a prerelease of the ver- sion V.R system. The "SN00100" is the serial number of your copy of the and other control structures such as FOR, WHILE and REPEAT may be nested to any depth. A GOTO or GOSUB into the ra1.3) 5 CBAS(1) CBAS(1) [] UNTIL An UNTIL statement denotes the end of the closest unmatched REPEAT statement. An UNTIL statement must ompilations of a multiple compile utilizing several SELECT statements. This problem may be avoided by separately ng. The expression is evaluated and is then matched against subsequent CASE expressions. The statements headed  that this version of the system was created. 2.6 Executing a CBASIC-16 Program CBASIC-16 source statements may be jump out of the SELECT. A GOTO or GOSUB into a SELECT with no prior jump out will result in erroneous results anbe present for each REPEAT statement in a program. Branching to an UNTIL statement means branching to the test  compiling each such program. REFERENCE DOCUMENTATION The CBASIC-16 Reference Manual is the definitive document by the first matching CASE expression are selected for ex- ecution; then the program continues after the CEND  as long as 255 charac- ters. 4.14 REPEAT Statement [] REPEAT Execution of all statements b+0 ( ) *!+",#-$.%/ &0 'd/or a run-time execution error. An ON GOTO or ON GOSUB statement is equivalent to a SELECT statement using intege print "Unexpected values encountered; x ="; x; " y ="; y stop CEND SELECT must match the type of the SELECT expres- sion, numeric or string. The SELECT expression is neither rounded nor t supervisor If the EXTERNAL statement is used, it must appear prior to the first occurrence of a CALL statemment should not have a statement label al- though no syntax error is generated if one is inserted. A branch to sur-valued expressions, but the SELECT statement is more flexible regarding its handling of the "otherwise case." left$ (string$, 1) CASE "a", "e", "i", "o", "u" print "Found a vowel" CASE runcated in the case of attempting to match in- teger with real expressions, so the user is advised to utilize ent. It is recommended that all EXTERNAL statements be grouped together and placed just after any COMMON statementsch a label will generate erroneous results and/or a run-time error. 4.19 CEND Statement [] CE ON GOTO and ON GOSUB generate slightly more efficient code than SELECT. There may be no statements between a SELELSE print "Found a consonant" CEND DEF fn.precedence% (operator$) mixed mode expressions with some care. In par- ticular, matching real values is always risky. If more than on that may be in a program. Every program which is to be CALLed must be declared in an EXTERNAL statement in everyND The CEND statement terminates the range of a SELECT. There must be exactly one CEND for each SELECT in a progECT statement and the first CASE statement. SELECT statements utilize the stack to store the results of calcu SELECT operator$ CASE "^" fn.precedence% = 5 e expression is specified in the CASE statement, the subsequent statements will be executed if any one of th program in which any CALL oc- curs. All EXTERNAL statement(s) must be identical and must occur in identicalram. A branch to the label heading a CEND from within a SELECT statement is preferred to branching to a label lating the SELECT expression. This stack space is released by the associated CEND statement. Thus if SELECT s CASE "*", "/" fn.precedence% = 4 CASE "+", "-" Xenix em matches the SELECT expression. The CASE expressions are examined in order, from left to right when performing order in all portions of a collection of separately compiled CBASIC programs. This is most easily accomplis just after the CEND. Examples: SELECT n% CASE 22 print "This istatements are executed followed by branches out of the range of the SELECT without passing through the CEND a (CBASIC-16 Version 1.3) 8 CBAS(1) CBAS(1)  the comparisons. A CASE statement should not have a statement label although no syntax error is generated if one hed by putting the EXTERNAL declarations in a file which is %INCLUDEd in each separately compiled program. All progr the twenty-second time" CASE 34 print "This is the thirty-fourth time" CEND  program may run out of stack space. Branches out of a SELECT followed by branches back in and subsequent execu fn.precedence% = 3 CASE "." fn.precedence% = 1 is inserted. A branch to such a label will generate erroneous results and/or a run-time error. 4.18 CASE ELams making use of CALL must be (re-) compiled at the same time. This means using a single command to compile all s SELECT x^2 - y^2 CASE z^2 + 2.5, 3.79e5 * x y = sqr (x) - k - tion of the CEND statement will avoid this problem. Thus GOTO, GOSUB and function calls all may be used withi CASE ELSE fn.precedence% = 0 CEND FEND 4.20SE Statement Xenix (CBASIC-16 Version 1.3) 7 CBAS(1) uch programs. Although CBASIC-16 retains and uses 31-character names, UNIX loaders typically only utilize the first  x = x * 5e14 CASE 0.0 x = 0.0 y = 0.0 CASE z^2 - n the range of a SELECT. 4.17 CASE Statement CASE [, ] ... The CASE statement p EXTERNAL Statement ] EXTERNAL [, ] ... The EXTERNAL statement informs the compiler CBAS(1) CASE ELSE The CASE ELSE statement provides a mechanism to specify a group of state8 characters of an external name. The compiler passes the entire name (trun- cated to 31 characters if necessar2.5, -3.79e-5 y = sqr (k) + x x = x / 5e14 CASE ELSE rovides one or more expressions which are to be matched by a prior SELECT expression. Each of the expressions  of the names of all externally supplied (non-CBASIC) programs which are later to be linked with the run-timements which are to be executed if none of the prior CASE expressions match the SELECT expression. A CASE ELSE state,0 ( ) *!+",#-$.%/ &0 'y and discarding any trailing "%" or "$") to the loader when it generates the "call director" program. Routi the fact that only a single "call Xenix (CBASIC-16 Version 1.3) 10 CBAS(1) ernally defined programs written in languages other than CBASIC. If the value of a user-defined function is irrele names of CALLed programs must conform to UNIX's rules for external names. This means that such a program name mERNAL statements must be identical and must ap- pear in identical order in every program containing a CALL. The extene names declared in an EXTERNAL statement will not automatically be changed into upper case as are names for o CBAS(1) director" can be generated by the system during one compila- tion. vant (it is invoked only for its effect; e.g., a function which opens or closes one or more files, or one which positiay not contain a ".", although such a name is entirely legal within CBASIC. Integers, reals and strings all may be trrnal program must be compiled and then linked with the CBASIC run-time supervisor. Use of a CALL statement causes trdinary CBASIC variables; they will be used exactly as they appear in the source program and are passed to the UN After the CBASIC program(s) have been compiled by and the "call director" program has been compiled (by the "ons the printer in some fashion), it may be invoked through the use of a CALL statement. The number, types and ansmitted to exter- nal programs. An argument which is an expression is trans- mitted "by value". This means the CBASIC compiler to emit a "call director" program which is used to interface between the CBASIC run-time environIX loader in precisely this form. This is accomplished by turning off "case conversion" within an EXTERNAL statementcall director" and the CBASIC run-time supervisor must be linked to your externally supplied programs and the C order of the trans- mitted arguments must correspond to the declaration of the function in its DEF statement. If hat the expression is evaluated and its value is placed on the CBASIC run-time stack. The stack entry is then ment and the external run-time environment. This program will automatically be compiled by the CBASIC compiler (via, so a REMARK or REM must be spelled entirely in upper case if it is to occur on the same line as EXTERNAL. Itrun-time libraries. Then the resulting run-time supervisor may be invoked in exactly the same manner as Priothere are no arguments, the enclosing parentheses are omitted. The function is ex- ecuted and if it returns normallytransmitted to the external program. An argument which is a variable (or a reference to a single array element) is t a call to if there are no errors in the CBASIC source program(s). This automatic compilation may be inhibited th is important to remember that EXTERNAL names must follow UNIX's rules for such names. This means that, for example, r to transmitting the name of a CALLed program to the "call director" it is truncated (if necessary) to 31 charac- , execution will resume im- mediately after the CALL statement. Examples: CALL SYSTEM ("echo Removing ransmitted "by address". This means that the memory address of the variable or array element is transmitted trough use of the "-C" compiler option. The "call director" program is normally placed in a file whose name is t a "." is illegal in an EXTERNAL name (although is is en- tirely legal within a CBASIC name). 4.21 CALL Statementers and any terminal "%" or "$" is removed. CBASIC will not change the case of a CALLed program name. It will be files; rm *.tmp") DEF FN.close.almost.all (max%) FOR i% = 1 TO max% CLOSE i%o the external program, and thus it may be modified by the invoked program. This is the mechanism to use inhe same as the CBASIC intermediate file ex- cepting that it ends with a `.c' suffix rather than `.i'. The name oft Xenix (CBASIC-16 Version 1.3) 9 CBAS(1)  transmitted exactly as it appears in the CALL statement, and this appearance must be identical each time and identical  NEXT i% FEND CALL FN.close.almost.all (max.file.no% - 1) The CALL statement  order to return values to a CBASIC program. The VARPTR predefined function (see below) may be used to transmit  the the "call director" file may be specified through use of the "-O" compiler option. All CBASIC programs which  CBAS(1) [] CALL ( [, ] ... ) [] CALL The to its appearance in the EXTERNAL statement in each program in order for correct execution to occur. Note that is also used to execute an externally supplied program written in any language following the C calling conventiaddresses of variables as well as addresses of individual array elements. Many programs written in languages such asutilize EXTERNAL and CALL must be compiled at the same time using one command. This re- quirement results fromCALL statement provides a mechanism for invoking user-defined and predefined CBASIC functions as well as ex- t this treatement of the case of names is independent of the set- ting of the case ("-c") compiler option. Allons. Each such program must be declared in an EXTERNAL statement in every program containing a CALL. And all EXT-0 ( ) *!+",#-$.%/ &0 ' C have the con- vention that a "return code" is set to indicate the success or failure of an invocation. CBASIC  (i%) = i% / 10.0 s$ (i%) = "string #" + str$ (i%) next i% call calldemo (m% (2), y (3), s$ (4)) te for any given CALL. Thus it is the programmer's responsibility to ensure that each argument is in appropriate */ /* It is NOT recommended to modify strings since CBASIC-16uments to a C program" print "============================================" print print print "Constants maassumes that a CALLed routine will return such a value as an integer, and the Call Director automatically stores thfor i% = 0 to 5 print using " m%(#) =## y(#) =##.### s$(#) = '&' "; \ i%, m% (i%), i% form for transmission to the CALLed program. In particular, there is no automatic conversion of integer arguments to will */ /* not be able to properly reclaim string storage after such a */ /* modification is made. Moreover, erroy be transmitted:" print "----------------------------" print call calldemo (5, 3.5, "constants may be transmittis value in the global variable "RC%". Therefore, a CBASIC routine may examine the contents of RC% to determi, y (i%), i%, s$ (i%) next i% print print "Return Code value as a result of the last call:"; rc% print "--- reals values, nor trunca- tion of real arguments to integer values. An error in the number, order, or types of argneous results may occur.*/ /* */ /* 'calldemo' will doued") print print "Variables may be transmitted and their values changed:" print "-------------------------------ne the correctness of execu- tion of its CALLed routines. The example shown below will clarify the use of RC% and-------------------------------------------" print print print "Fin!" print end uments may cause an addressing or segmentation error during execution. This will in turn generate an "abnormal inteble its integer argument, square its real */ /* argument and will leave its string argument unchanged. */ Xenix ----------------------" print n% = -12 x = -4.5 s$ = "variables may be transmitted and changed" call  the assumption made by the Call Director. (The Call Director assumes that each CALLed routine will execute a >> THE CALLED PROGRAM, WRITTEN IN C << >> contained in file Calldemo.c << /*===================rrupt" run-time error. It is important to NEVER attempt to modify or return a string value to a CBASIC program (CBASIC-16 Version 1.3) 13 CBAS(1) CBAS(1) calldemo (n%, x, s$) print using " n% = ### x = ####.### s$ = '&' "; n%,x,s$ print print "Expressions may b "return ()" statement to return its value. The global C variable "RC" -- "_RC" actu- ally -- is availab============================================*/ /* */ /*  since this will, at best, cause string storage to be lost; and at worst, will cause your program to abort with a  /* */ /*=============================================e transmitted:" Xenix (CBASIC-16 Version 1.3) 12 CBAS(1) le for use within the CALLed environment; but the Call Director demands the "return" statement since it assigns to  Demonstrate CALL and passing arguments to a C program */ /* core dump. CBASIC utilizes the standard UNIX memory allocators in order to obtain space to store strings, but strin==================*/ #include typedef union { /* Overlay type for a CBASIC-16 object */  CBAS(1) print "------------------------------" print call calldemo (5-n%,x/2.0,"expressionsRC at the conclusion of invocation. Examine an emitted Call Director routine if further clarification is Xenix  */ /*===============================================================*/ /* gs are stored uniquely in order to conserve storage using an internal structure which will be corrupted if strings  int *Int; /* integer */ double *Double; /* real " + mid$ (s$,10,19)) print print "Array elements may be transmitted and changed:" print "----------------------- (CBASIC-16 Version 1.3) 11 CBAS(1) CBAS(1)  */ /* 'calldemo' is a prototype program. It demonstrates that it */ /* is possible to traare returned or modified by an external program. Examples: >> THE CBASIC-16 CALLING PROGRAM <<  */ char **Char; /* string */ } ARG; calldemo (i, x, s) ----------------------" print dim m% (5), y (5), s$ (5) for i% = 0 to 5 m% (i%) = i% y necessary.) The CBASIC compiler cannot determine the number, order, or types of arguments which are appropriansmit CBASIC-16 integer, real and string */ /* arguments and to modify them. */ /*  >> contained in file calldemo.b << external calldemo print print "Demonstrate passing arg.0 ( ) *!+",#-$.%/ &0 ' /* the prototype program */ ARG i, x, s; { printf ("calldemo:\n"); printf ((as shown above). 5.2 PRINT Statement Xenix (CBASIC-16 Version 1.3) 15 CBAS(1) integer argument value: 5 real argument value: 3.5 string argument length: 28 string argument valucode value is"; RC% 6.2 VARPTR () VARPTR returns the address of the variable as an integer. An errnt length: 9 string argument value: "string #4" m%(0) = 0 y(0) = 0.000 s$(0) = 'string #0' m%(1" integer argument value: %d\n", *i.Int); printf (" real argument value: %g\n", *x.Double); p CBAS(1) The default format in which numbers are printed differs in e: "constants may be transmitted" Xenix (CBASIC-16 Version 1.3) 14 CBAS(1) or occurs if the argument to this function is not a variable. An array is an acceptable argument. Element zero of) = 1 y(1) = 0.100 s$(1) = 'string #1' m%(2) = 4 y(2) = 0.200 s$(2) = 'string #2' m%(3) = 3 y(3) rintf (" string argument length: %d\n", **s.Char); printf (" string argument value: \"%s\"\n", (*s.Char)+1); CBASIC-16 from the default format in the 8-bit version. CBASIC-16 uses the C run library's "g" editing for default  CBAS(1) Variables may be transmitted and their values changed: ------------- the array should be transmitted for useful results to be obtained. In this case the address of the dope vector of = 0.090 s$(3) = 'string #3' m%(4) = 4 y(4) = 0.400 s$(4) = 'string #4' m%(5) = 5 y(5) = 0.500 s$( *i.Int += *i.Int; /* double the integer argument */ *x.Double *= *x.Double; /* square the re printing. Utilize the USING modifier for precise control over the manner in which numbers are to be printed. ---------------------------------------- calldemo: integer argument value: -12 real argument value: - the array is transmitted. See the "vardemo" program (dis- cussed briefly in the above section on CALL) for further5) = 'string #5' Return Code value as a result of the last call: 0 ---------------------------------------------- al argument */ return (0); /* send "0" to the Call Director */ } >> COMMAN 5.3 LPRINTER Statement LPRINTER will cause any buffered output to the LPRINTER file to be transmitted. 5.4 CON4.5 string argument length: 40 string argument value: "variables may be transmitted  details on the proper use of VARPTR. 7.2 Function Definitions The FEND statement now issues an automatic "RETU Fin! The CALL facility alone does not allow for the transmission of elements of arrays "by address", since CBADS FOR COMPILING THE CBASIC-16 SOURCE, << >> COMPILING THE C SOURCE, LINKING THE RESULT << >> TO PROSOLE Statement CONSOLE will cause any buffered output to the LPRINTER file to be transmitted. 5.12 CONCHAR% Pr and changed" n% = -24 x = 20.250 s$ = 'variables may be transmitted RN"; thus it is no longer illegal to "fall through" a FEND. 9.3 CLOSE Statement [] CLOSE TheSIC creates a "value" result during the process of array subscription. The VARPTR predefined function may be DUCE A NEW RUN-TIME SUPERVISOR, AND << >> THEN EXECUTING THE RESULTING PROGRAM << cbas -l calldeedefined Function CONCHAR% returns the next character from the standard input. No character is returned, however, and changed' Expressions may be transmitted: ------------------------------ calldemo:  CLOSE statement may occur without a file identification number. This form of CLOSE will close all currently open used to override CBASIC's "value" generation process; and thus array elements may be both transmitted to and modmo.b cc -c Calldemo.c cc -i -s rbas.o calldemo.o Calldemo.o -lcbasic -lm -o newrbas newrbas calldemo.i  until a newline is issued since UNIX buffers its input and characters are not available one-at-a-time. 6.2 integer argument value: 29 real argument value: 10.125 string argument length: 30 string argumen files (with the exception of stdin, stdout and stderr) and Xenix (CBASIC-16 Version 1.3) 1ified by the CALLed program. A program demonstrating the use of VARPTR is in- cluded on the distribution media ( >> THE OUTPUT RESULTING FROM THIS EXECUTION << Demonstrate passing arguments to a C program ============ String Functions The SYSTEM predefined function automatically places its return value in the globally accessibt value: "expressions may be transmitted" Array elements may be transmitted and changed: --------------------------6 CBAS(1) CBAS(1) all IF ENDs will lose their meaning. A close files vardemo.b and Var- demo.c). The commands for running the vardemo program are the same as those for calldemo ================================ Constants may be transmitted: ---------------------------- calldemo: le "return code" RC%. An example usage is: call system ("rm foo") print "removing 'foo' return ------------------- calldemo: integer argument value: 2 real argument value: .3 string argume/0 ( ) *!+",#-$.%/ &0 'of this form is performed automatically at program termination. 9.7 FILE Statement The FILE statement is curre modifier to precisely control the manner in which numbers are to be printed. Appendix B - Compiler Errors  which have been generated by COBOL, FORTRAN and PASCAL are now immediately accesssible in CBASIC. The FMS provides rthe reference manual: AE -- An attempt was made to reference an array element prior to subscripting it.  CBAS(1) director" file emitted by the compiler for program(s) con- taining CALL statement(s). ntly supported but probably will not be in future releases since it is of such limited usefullness. 9.9 PThe following compiler error messages should be added to the reference manual: CE -- CASE ELSE is not the laecord locking, sequential, relative and indexed access as well as other features. Documentation on the FMS is  IS -- Improper seek. This error occurs if an internal seek operation on a file fails. It can occur if the I If this option is not used, the name of the emitted file is the same as that of the CBASIC intermediate file, butRINT Statement [] PRINT # , ; The PRINT statement has been extended to allst case in a SELECT statement. IN -- Improper nesting of FOR, WHILE, REPEAT and/or SELECT statementsavailable by issuing "man cbasicfs". The interface package itself resides within /usr/lib/libcbasic.a and is/O statement attempts to perform a seek on a non-file. IX -- Appearance of this error message indicates that  with a `.c' suffix in lieu of `.i'. This filename must end with a `.c' suffix. Appendix A - Converting to CBASIC-ow the above form. This statement positions the file so that the next sequential write will occur at the specif. MM -- This error also occurs if a numeric SELECT statement contains a string CASE, or a string  accessible via the -lcbasic loader option. 12.2 CBASIC-16 Compile-Time Options The "-C" option inhibits t the version of the system you are using is not up to the current release level. In particular, you have executed16 It is important to remember that UNIX uses the newline (NL) character to separate lines both within CBASIC-16ied record. This form of PRINT statement should be used rather than the older "READ # , ;" form for positioning a file prior to a write. This form of the PRINT statement should be used to append irst CASE statement. RE -- The expression immediately after UNTIL is not numeric. RU -- An UNTILL statement(s). Automatic compila- tion is also inhibited if any errors are detected in the CBASIC source progra During a read from a file or from a data statement an improperly formatted number or string was encountered. RL that way by CBASIC-16. Thus if a file is transmitted from an 8-bit en- vironment to UNIX all carriage return line fe to the end of a file. 10.9 CBASIC-16 -- Ryan McFarland File Management System Interface Under license w statement occurs without an associated REPEAT statement. SU -- A CEND statement occurs without an associam(s). The "-L" option produces a compilation listing on the stan- dard output in a manner similar to the "-l" optio -- An attempt was made to create or open a file with an improper record length. For instance, using a record ed combinations should be changed to newlines. Otherwise, the data statement: DATA abcde ith Ryan McFarland, Inc., and Digital Research, Inc., an interface package is available which allows a CBASted SELECT statement. WN -- This error no longer occurs as there is no longer Xenix (CBASIC-16n, but all %NOLIST compiler directives are ignored. This option is particularly useful during development of a length of zero. UN -- A print using statement has a null format string or the escape character is the las will yield a six-character string, the last character of which happens to be a carriage return! Note that IC programmer access to the RM File Management System. Utilizing this interface any file which has been created w Version 1.3) 18 CBAS(1) CBAS(1) a limit on the  program when determining the location of run-time errors is important. The "-O filename" option specifies the namet character of the string. Appendix D - Key Words The following additional words are now reserved by CBASthe default format used by PRINT differs somewhat in CBASIC-16 from that in the 8-bit version. Utilize the USING ith the FMS may be read and/or written by a CBASIC program. In particular, this means that files and data basesnesting of WHILE statements. Appendix C - Runtime Errors The following runtime error messages should be added to  of the C "call Xenix (CBASIC-16 Version 1.3) 17 CBAS(1) 00 ( ) *!+",#-$.%/ &0 'IC-16 and therefore may not be used in programs for other pur- poses: RC%. Xenix  0 cend fend rem ********************************************************************* def fn.error (s$) rem Report an eput: Parenthesis-free expression using * rem * ^ * / + - integers * rem * No unary operators accepted. * rem *tos%) = vstack(vtos%) + vstack(vtos%+1) case "-" call fn.decr vstack(vtos%) = vstack(vtos%) - vstack(vtos%+1) caseem True if s$ is alphanumeric def fn.alphanumeric% (s$) = "a" <= s$ and s$ <= "z" or \ "A" <= s$ and s$ <= "Z" or \  (CBASIC-16 Version 1.3) 19 with an improper record length. For instance, using a record rror condition print : print "ERROR: "; s$; " *********" fend rem ********************************************************** No parentheses accepted. * rem * Each expression resides on a single line. * rem * e.g., 3 + 94 * 5 / 8 ^ 3 * re "." case else call fn.incr vstack(vtos%) = val (sym$) cend fend rem *********************************************** "0" <= s$ and s$ <= "9" rem ********************************************************************* def fn.scan$ rem length of zero. UN -- A print using statement has a null format string or the escape character is the las*********** def fn.decr rem Decrement the value stack if vtos% > 0 then :\ vtos% = vtos% - 1 :\ else :m * * rem * Output: The value of the expression. * rem * * rem * Notes: The program continues until end-o********************** rem Main Program rem ********************************************************************* print The scanner repeat rem Acquire an input line if inline$ = "" then \ print : print :\ input "Expression? "t character of the string. Appendix D - Key Words The following additional words are now reserved by CBAS\ call fn.error ("Evaluation stack underflow") :\ vtos% = 1 fend rem ****************************************************f-file. * rem * No error detection is done. * rem * * rem ********************************************************* print tab (20); "A Simple Desk Calculator" if end #0 then fin while true% tos% = 0 : stack$ (tos%) = " " tos% = 1; line inline$ inline$ = fn.skip.blanks$ (inline$) until inline$ <> "" s$ = "" inline$ = inline$ + "." rem Attach a termi/usr/src/cmd/cbasic/cbasicdemos/calc.b 664 3 3 ***************** def fn.incr rem Increment the value stack if vtos% < vstackmax% then :\ vtos% = vtos% + 1 :\ ************ false% = 0 : true% = -1 rem Standard definitions stackmax% = 10 rem Maximum depth dim stack$ (stackmax%) : stack$ (tos%) = "." vtos% = 0 outline$ = "" : postline$ = "" repeat sym$ = fn.scan$ outline$ = outline$ + sym$ + " nal symbol ch$ = left$ (inline$, 1) if fn.alphanumeric% (ch$) then :\ repeat :\ s$ = s$ + ch$ :\ inline$ 12263 2726505072 13035  else :\ call fn.error ("Evaluation stack overflow") :\ vtos% = 1 fend rem *************************************** rem Operator stack vstackmax% = 10 rem Maximum depth dim vstack (vstackmax%) rem Value stack rem *****************" ch$ = left$ (sym$, 1) if fn.alphanumeric% (ch$) then :\ call fn.eval (sym$) :\ else if fn.prio% (sym$) > fn.p = fn.tail$ (inline$) :\ ch$ = left$ (inline$, 1) :\ until inline$ = "" or not fn.alphanumeric% (ch$) :\ else :****************************** def fn.eval (sym$) rem Perform one operation postline$ = postline$ + sym$ + " " select sy**************************************************** def fn.tail$ (s$) rem Trim leading character if len (s$) > 1 then fn.rio% (stack$ (tos%)) then :\ tos% = tos% + 1 :\ stack$ (tos%) = sym$ :\ else :\ while fn.prio% (sym$) <=\ s$ = ch$ :\ inline$ = fn.tail$ (inline$) fn.scan$ = s$ rem Return next symbol fend rem ************************m$ case "^" call fn.decr vstack(vtos%) = vstack(vtos%) ^ vstack(vtos%+1) case "*" call fn.decr vstack(vtos%) =tail$ = right$ (s$, len (s$) - 1) :\ else fn.tail$ = "" fend rem ************************************************************ fn.prio% (stack$ (tos%)) :\ call fn.eval (stack$ (tos%)) :\ tos% = tos% - 1 :\ wend :\ tos% = tos% + 1********************************************* def fn.prio% (s$) rem Compute operator priorities select s$ case "^" frem ********************************************************************* rem * * rem * A Very Simple "Desk Calculator vstack(vtos%) * vstack(vtos%+1) case "/" call fn.decr if vstack(vtos%+1) <> 0 then :\ vstack(vtos%) = vstack(vto********* def fn.skip.blanks$ (s$) rem Skip leading blanks while left$ (s$, 1) = " " or left$ (s$, 1) = chr$ (9) s$ = fn. :\ stack$ (tos%) = sym$ until sym$ = "." print print "infix was: "; outline$ print "postfix is: "; postline$ n.prio% = 4 case "*", "/" fn.prio% = 3 case "+", "-" fn.prio% = 2 case "." fn.prio% = 1 case else fn.prio% =" Program * rem * * rem ********************************************************************* rem * * rem * Ins%) / vstack(vtos%+1) :\ else :\ call fn.error ("Attempted division by zero") case "+" call fn.decr vstack(vtail$ (s$) wend fn.skip.blanks$ = s$ fend rem ********************************************************************* r10 ( ) *!+",#-$.%/ &0 ' print "value is: "; vstack (vtos%) inline$ = "" wend fin' print : print : print "Fin!" rem *******************n.scan$ outline$ = outline$ + sym$ + " " ch$ = left$ (sym$, 1) if fn.alphanumeric% (ch$) then :\ postline$ = postlenthesis-free expression using * rem * ^ * / + - identifier * rem * No unary operators accepted. * rem * Ex input "Expression? "; line inline$ inline$ = fn.skip.blanks$ (inline$) until inline$ <> "" s$ = "" ch$ = left$ (inline$, 1************************************************** :\ stack$ (tos%) = sym$ :\ else :\ while fn.prio% (sym$) <=ine$ + sym$ + " " :\ else if fn.prio% (sym$) > fn.prio% (stack$ (tos%)) then :\ tos% = tos% + 1 :\ stack$ (tos%) = pression ends with . * rem * e.g., a + b * c + d . * rem * w*x-z*y+34*k1. * rem * * rem * Output: print print " Calculate n such that: n = a^3 + b^3 = c^3 + d^3" print "from Wirth, 'Systematic Programming, An Introductio) if fn.alphanumeric% (ch$) then :\ repeat :\ s$ = s$ + ch$ :\ inline$ = fn.tail$ (inline$) :\ ch$ = fn.prio% (stack$ (tos%)) :\ call fn.eval (stack$ (tos%)) :\ tos% = tos% - 1 :\ wend :\ tos% = tos% + 1sym$ :\ else :\ while fn.prio% (sym$) <= fn.prio% (stack$ (tos%)) :\ postline$ = postline$ + stack$ (tos%) +Postfix form of same expression. * rem * * rem * Program continues until end-of-file. * rem * No error detectionn', pg 137" print print "the correct answer is: 1729 = 10^3 + 9^3 = 12^3 + 1^3" print "after 61 candidates are exa left$ (inline$, 1) :\ until inline$ = "" or not fn.alphanumeric% (ch$) :\ else :\ s$ = ch$ :\ inline$ = fn :\ stack$ (tos%) = sym$ until sym$ = "." print print "infix was: "; outline$ print "postfix is: "; postline$  " " :\ tos% = tos% - 1 :\ wend :\ tos% = tos% + 1 :\ stack$ (tos%) = sym$ until sym$ = "." print  is done. * rem * * rem ***************************************************************** def fn.tail$ (s$) rem Tmined" print dim j (13), p (13), S (13) nc% = 0 i = 1 : il = 1 : ih = 2 j (1) = 1 : p (1) = 1 : S (1) = 2 j (2) = 1 : p.tail$ (inline$) fn.scan$ = s$ return fend rem ***************************************************************** def fn.pr/usr/src/cmd/cbasic/cbasicdemos/postfix.b 664 3 3 : print print "infix was: "; outline$ print "postfix is: "; postline$ wend fin' print : print : print "Fin!" tlrim leading character if len (s$) > 1 then fn.tail$ = right$ (s$, len (s$) - 1) :\ else fn.tail$ = "" return fend rem ***** (2) = 8 : S (2) = 9 repeat nc% = nc% + 1 min = S (i) : a = i : b = j (i) if j (i) = i then :\ il = il + 1 : gio% (s$) rem Compute operator priorities select s$ case "^" fn.prio% = 5 case "*", "/" fn.prio% = 4 case "+", " 6376 2726505100 13607 ine$ + sym$ + " " :\ else if fn.prio% (sym$) > fn.prio% (stack$ (tos%)) then :\ tos% = tos% + 1 :\ stack$ (tos%) = ************************************************************ def fn.skip.blanks$ (s$) rem Skip leading blanks while left$ (oto srch if j (i) = 1 then :\ ih = ih + 1 : j (ih) = 1 : p (ih) = ih * ih * ih :\ S (ih) = p (ih) + 1 j (i) = j-" fn.prio% = 3 case "." fn.prio% = 1 case else fn.prio% = 0 cend return fend rem *****************************sym$ :\ else :\ while fn.prio% (sym$) <= fn.prio% (stack$ (tos%)) :\ postline$ = postline$ + stack$ (tos%) +s$, 1) = " " or left$ (s$, 1) = chr$ (9) s$ = fn.tail$ (s$) wend fn.skip.blanks$ = s$ return fend rem ******************* (i) + 1 : S (i) = p (i) + p (j ( i)) srch' i = il for k = il to ih if S (k) < S (i) then i = k next k until S (i) = m************************************ rem Main Program rem ***************************************************************** /usr/src/cmd/cbasic/cbasicdemos/power3.b 664 3 3 ********************************************** rem True if s$ is alphanumeric def fn.alphanumeric% (s$) = "a" <= s$ andin print using " ##### = ###\^3 + ###\^3 = ###\^3 + ###\^3"; \ min, a, b, i, j (i) print print using " ##### candid dim stack$ (10) rem Operator stack print print tab (20); "Infix-to-Postfix Translator" if end #0 then fin rem ***************************************************************** rem * * rem * A Simple Infix-to-Postifx Translat 1631 2726503757 13337  s$ <= "z" or \ "A" <= s$ and s$ <= "Z" or \ "0" <= s$ and s$ <= "9" rem **************************************ates were examined"; nc% peat nc% = nc% + 1 min = S (i) : a = i : b = j (i) if j (i) = i then :\ il = il + 1 : g while 1 tos% = 0 : stack$ (tos%) = " " tos% = 1 : stack$ (tos%) = "." outline$ = "" : postline$ = "" repeat sym$ = for * rem * * rem ***************************************************************** rem * * rem * Input: Par*************************** def fn.scan$ rem The scanner repeat if inline$ = "" then \ print : print :\ 20 ( ) *!+",#-$.%/ &0 '/usr/src/cmd/cbasic/cbasicdemos/power3i.b 664 3 3 %) n% = n% - 1 primal% = 1 composite% = 0 for i% = 2 to n% primes% (i%) = primal% next for i% = 2 to n% / 2 if prim + ###\^3"; \ min%, a%, b%, i%, j% (i%) print print using " ##### candidates were examined"; nc% ) if j% (i%) = i% then = il + 1 : goto srch if j (i) = 1 then :\ ih = ih + 1 : j (ih) = 1 : p (ih) = ih * ih * ih * ih :\ S (ih) = p  1550 2726505153 13500 es% (i%) <> primal% then goto 10 for j% = 2 * i% to n% step i% primes% (j%) = composite% next 10 next for i% = 2 to  :\ il% = il% + 1 : goto srch if j% (i%) = 1 then :\ ih% = ih% + 1 : j% (ih%) = 1 :\ p% (ih%) = ih% * ih print print tab (10); "Truncated series for SINE (THETA)" print print print "Degrees", "Radians", "SINE" print data (ih) + 1 j (i) = j (i) + 1 : S (i) = p (i) + p (j ( i)) srch' i = il for k = il to ih if S (k) < S (i) then i = k nexn% if primes% (i%) = primal% then :\ print i%, :\ count% = count% + 1 next print print print/usr/src/cmd/cbasic/cbasicdemos/power4.b 664 3 3 3.14159265358979323, 90.0 read pi, limit for THETA = 0.0 to limit step 5.0 X = THETA * pi / 180.0 SINX = X * (1.0 - X*Xt k until S (i) = min print using " ##### = ###\^4 + ###\^4 = ###\^4 + ###\^4"; \ min, a, b, i, j (i) print print usi "There are"; count%; "primes under"; n%+1 end a Sieve" print input "Find primes under n = ?"; n% print dim primes% (n 1660 2726503764 13340 /6.0 * (1.0 - X*X/20.0 * \ (1.0 - X*X/42.0 * (1.0 - X*X/72.0 * \ (1.0 - X*X/110.0))))) print THETA, X,ng " ######### candidates were examined"; nc% = nc% + 1 min = S (i) : a = i : b = j (i) if j (i) = i then :\ il print print " Calculate n such that: n = a^3 + b^3 = c^3 + d^3" print "from Wirth, 'Systematic Programming, An Introductio%) n% = n% - 1 primal% = 1 composite% = 0 for i% = 2 to n% primes% (i%) = primal% next for i% = 2 to n% / 2 if prim SINX next end i%) = primal% then :\ print i%, :\ count% = count% + 1 next print /usr/src/cmd/cbasic/cbasicdemos/sieve.b 664 3 3 n', pg 137" print dim j% (13), p% (13), S% (13) nc% = 0 i% = 1 : il% = 1 : ih% = 2 j% (1) = 1 : p% (1) = 1 : S% (1) = 2 jes% (i%) <> primal% then goto 10 for j% = 2 * i% to n% step i% primes% (j%) = composite% next 10 next for i% = 2 to /usr/src/cmd/cbasic/cbasicdemos/sort.b 664 3 3  1061 2726505165 13223 % (2) = 1 : p% (2) = 8 : S% (2) = 9 repeat nc% = nc% + 1 min% = S% (i%) : a% = i% : b% = j% (i%) if j% (i%) = i% then n% if primes% (i%) = primal% then :\ print i%, :\ count% = count% + 1 next print print printprint print " Calculate n such that: n = a^4 + b^4 = c^4 + d^4" print "from Wirth, 'Systematic Programming, An Introductio 3423 2726505207 13100  :\ il% = il% + 1 : goto srch if j% (i%) = 1 then :\ ih% = ih% + 1 : j% (ih%) = 1 :\ p% (ih%) = ih% * ih/usr/src/cmd/cbasic/cbasicdemos/sine.b 664 3 3 n', pg 137" print print "the correct answer is: 635318657 = 134^4 + 133^4 = 158^4 + 59^4" print "after 11660 candidate% * ih% : S% (ih%) = p% (ih%) + 1 j% (i%) = j% (i%) + 1 : S% (i%) = p% (i%) + p% (j% (i%)) srch' i% = il% for k% = il% 621 2726505173 13026 s are examined" print dim j (160), p (160), S (160) nc% = 0 i = 1 : il = 1 : ih = 2 j (1) = 1 : p (1) = 1 : S (1) = 2 j  print print tab (17); "Calculate Primes using a Sieve" print input "Find primes under n = ?"; n% print dim primes% (n to ih% if S% (k%) < S% (i%) then i% = k% next k% until S% (i%) = min% print using " ##### = ###\^3 + ###\^3 = ###\^3(2) = 1 : p (2) = 16 : S (2) = 17 repeat nc% = nc% + 1 min = S (i) : a = i : b = j (i) if j (i) = i then :\ il 30 ( ) *!+",#-$.%/ &0 'print print tab (20); "Heapsort and Quicksort" : print print "after Wirth, 'Algorithms + Data Structures = Programs', pg 75, 8n.setup (n) dmy = fn.printary ("original array", n) dmy = fn.quicksort (n) dmy = fn.printary ("array after quicksort", n) prinhen :\ w = a (i) : a (i) = a (j) :\ a (j) = w : i = i + 1 : j = j - 1 until i > j if i < r then :\ s = s + 1 : stl (s) = i : str (s) = r r = j until l >= r until s = 0 return fend n = 100 dmy = fn.creat 1+2+3+4+5 3*4*5 3/4/5 2^3 3^2 5^5^5 10^30 1/10^30 1000-200+30-4 1000 - 23 * 10 ^ 31 / 29 y ("array after heapsort", n) dmy = f0" print : print def fn.create dim dat (n) for i = 1 to n : dat (i) = int (rnd * 1000) : next i return fend def fn.t : print "Fin!" a (i) : a (i) = a (j) :\ a (j) = w : i = i + 1 : j = j - 1 until i > j if i < r then :\ s = s + 1 : stl (s) = i : str (s) = r r = j until l >= r until s = 0 return fend n = 100 dmy = fn.create dmy = fnn.setup (n) dmy = fn.printary ("original array", n) dmy = fn.quicksort (n) dmy = fn.printary ("array after quicksort", n) prinsetup (n) dim a (n) for i = 1 to n a (i) = dat (i) next i return fend def fn.printary (s$, n) print : print date$; tas = s + 1 : stl (s) = i : str (s) = r r = j until l >= r until s = 0 return fend n = 100 dmy = fn.creat .setup (n) dmy = fn.printary ("original array", n) dmy = fn.heapsort (n) dmy = fn.printary ("array after heapsort", n) dmy = ft : print "Fin!" a (i) : a (i) = a (j) :\ a (j) = w : i = i + 1 : j = j - 1 until i > j if i < r then :\ b (30); s$ nn = 10 for i = 1 to n nn = nn - 1 print using "#######"; a (i); if nn = 0 then print : nn = 10 next i prin/usr/src/cmd/cbasic/cbasicdemos/sieve.data 664 3 3 n.setup (n) dmy = fn.printary ("original array", n) dmy = fn.quicksort (n) dmy = fn.printary ("array after quicksort", n) prins = s + 1 : stl (s) = i : str (s) = r r = j until l >= r until s = 0 return fend n = 100 dmy = fn.creat t return fend def fn.sift i = l : j = 2 * i : x = a (i) while j <= r if j < r then :\ if a (j) < a (j+1) then  11 2720577651 13650 t : print "Fin!" a (i) : a (i) = a (j) :\ a (j) = w : i = i + 1 : j = j - 1 until i > j if i < r then :\ /usr/src/cmd/cbasic/cbasicdemos/postfix.data 664 3 3 :\ j = j + 1 if x >= a (j) then :\ goto fini a (i) = a (j) : i = j : j = 2 * i wend fini' a (i) = x return s = s + 1 : stl (s) = i : str (s) = r r = j until l >= r until s = 0 return fend n = 100 dmy = fn.create dmy = fn 144 2716146320 14246 fend def fn.heapsort (n) l = n / 2 + 1 : r = n while l > 1 l = l - 1 dmy = fn.sift wend while r > 1 x = a (1) : /usr/src/cmd/cbasic/cbasicdemos/calc.data 664 3 3 a (1) = a (r) : a (r) = x : r = r - 1 dmy = fn.sift wend return fend def fn.quicksort (n) m = 12 dim stl (m), str (m 200 a*b*c. a+b*c+d. a+b+c+d+e+f. a^b^c^d^e^f^g^g. a+b*c^d^e/f-g. X^2 + Y^2. a*X^2 + b*X + c. fter heapsort", n) dmy = f 131 2726510016 13446 ) s = 1 : stl (1) = 1 : str (1) = n repeat l = stl (s) : r = str (s) : s = s - 1 repeat i = l : j = r : x =n.setup (n) dmy = fn.printary ("original array", n) dmy = fn.quicksort (n) dmy = fn.printary ("array after quicksort", n) prin a. a*b. a*b*c. a+b*c+d. a+b+c+d+e+f. a^b^c^d^e^f^g^g. a+b*c^d^e/f-g. X^2 + Y^2. a*X^2 + b*X + c. fter heapsort", n) dmy = f a ((l + r) / 2) repeat while a (i) < x : i = i + 1 : wend while x < a (j) : j = j - 1 : wend if i <= j tt : print "Fin!" a (i) : a (i) = a (j) :\ a (j) = w : i = i + 1 : j = j - 1 until i > j if i < r then :\ 40 ( ) *!+",#-$.%/ &0 '50 ( ) *!+",#-$.%/ &0 '60 ( ) *!+",#-$.%/ &0 '70 ( ) *!+",#-$.%/ &0 '80 ( ) *!+",#-$.%/ &0 '90 ( ) *!+",#-$.%/ &0 ':0 ( ) *!+",#-$.%/ &0 ';0 ( ) *!+",#-$.%/ &0 '<0 ( ) *!+",#-$.%/ &0 '=0 ( ) *!+",#-$.%/ &0 '>0 ( ) *!+",#-$.%/ &0 '?0 ( ) *!+",#-$.%/ &0 '@0 ( ) *!+",#-$.%/ &0 'A0 ( ) *!+",#-$.%/ &0 'B0 ( ) *!+",#-$.%/ &0 'C0 ( ) *!+",#-$.%/ &0 'D0 ( ) *!+",#-$.%/ &0 'E0 ( ) *!+",#-$.%/ &0 'F0 ( ) *!+",#-$.%/ &0 'G0 ( ) *!+",#-$.%/ &0 'H0 ( ) *!+",#-$.%/ &0 'I0 ( ) *!+",#-$.%/ &0 'J0 ( ) *!+",#-$.%/ &0 'K0 ( ) *!+",#-$.%/ &0 'L0 ( ) *!+",#-$.%/ &0 '