Texas Instruments TI-89 Tip List

*exp=next_expression_index(*exp);
return value;
}
void _main(){
unsigned char *ap,tag,*ap1,*ap2,*ap3,*expr[10];
short
f=1,c=-1,x,x1,attr,y,y1,NumArguments,bot,top,width,sindex,index,wi[10],tmax,bmax,i;
char *s,*si[11],*s1;
int error;
ERROR_FRAME err_frame;
WINDOW *w=WMAIN;
// clrscr();
InitArgPtr(ap1);
NumArguments=remaining_element_count(ap1);
if(NumArguments<3)
ER_throwVar (930);
if(NumArguments>5)
ER_throwVar (940);
x=GetInt(&ap1);
y=GetInt(&ap1);
ap=ap1;
ap1=next_expression_index(ap1);
if(NumArguments>3)
f=GetInt(&ap1);
if(NumArguments>4)
c=GetInt(&ap1);
if(f>2||c>4)
ER_throwVar (40);
if(f<0) f=1;
tag=*ap;
ap1=top_estack;
if(tag==LIST_TAG) ap--;
w->Flags|=WF_TTY ;
if (!(error=ER_catch(err_frame))) {
if(c>=0)
attr=WinAttr(w, c);
if(f!=1)
WinFont (w, f);
while(*ap!=END_TAG) {
if(*ap!=STR_TAG) ER_throwVar (130);
s=*si=GetStrnArg(ap);
index=0;
sindex=1;
tmax=f+2;
bmax=f+4;
x1=x;
while((s=strchr(s,174))!=NULL&&index<=10) {
if(tag!=LIST_TAG) ER_throwVar (90);
if(*ap==END_TAG) ER_throwVar (930);
if(*ap!=STR_TAG) ER_throwVar (130);
*s++=0;
si[sindex++]=s;
if(*ap==STR_TAG) {
push_parse_text(GetStrnArg(ap));
}
Parms2D(expr[index]=Parse2DExpr (top_estack, 0), &wi[index],&bot,&top);
top--;
bot++;
if(bot>bmax) bmax=bot;
if(top>tmax) tmax=top;
index++;
}
if(y>w->Client.xy.y1-w->Client.xy.y0) break;
y=y+tmax+1;
y1=y+bmax+1;
if(y1<0) continue;
for(i=0;i<sindex;i++) {
WinStrXY(w,x1, y-f-2,si[i]);
x1=x1+DrawStrWidth(si[i], f);
7 - 59

Texas Instruments TI-89 Specifications

General

Display size (HxV)	100 x 160 mm
Memory type	639K FLASH ROM, 188K bytes RAM
Compatible operating systems	Operating System 2.09
Battery type	AAA