PROGRAM HELP

Subject: PROGRAM HELP
From: Enrico Ng <enricong@THEPENTAGON.COM>
Date: Sat, 26 Oct 1996 11:32:35 -0500
In-Reply-To: <>
I have not made my TI-Comp link yet so I typed the following program in
to my calc.


:ClLCD
:Disp "Tennis, v1.2"
:Disp ""
::Pause =


:0=FCHit
:1=FCMov
:9=FCx
:9=FCX
:1=FCY
:.1=FCXs
:1=FCYs
:ClLCD
:Lbl RET1
:If Mov:Then
:Outpt(8,1,"                     "
:Outpt(8,x,"---"
 ^
I GET AN ERROR HERE, AT THIS LINE






:0=FCMov
:End
:X=FCXo
:Y=FCYo
:Y+Ys=FCY
:If Y=F98
:Goto PADDLE
:X+Xs=FCX
:If (X=F921)+(X=F71)
:=FAXs=FCXs
:If X<1
:1=FCX
:If X>21
:21=FCX
:If Y=F71
:Then
:=FAYs=FCYs
:1=FCY
:End
:Outpt(int Yo,1,"                     "
:If Yo=3D1
:Outpt(1,20,Hit
:Outpt(int Y,int X,"o"
:0=FCIt
:Lbl RET2
:1+It=FCIt
:If It>2
:Goto RET1
:getKy=FCA
:If (A=3D=3D24)(x>1)
:Then
:x-1=FCx
:1=FCMov
:End
:If (A=3D=3D26)(x<19)
:Then
:x+1=FCx
:1=FCMov
:End
:If A=3D=3D11
:Goto END1
:If A=3D=3D15
:Then
:Repeat getKy=F80
:End
:End
:If A=F80
:Goto RET2
:Goto RET1
:Lbl PADDLE
:If int X=F7(int x+1)
:Xs-(.1)Hit=FCXs
:If int X=F9(int x+2)
:Xs+(.1)Hit=FCXs
:Xs-.5+rand=FCXs
:If (X=F9x-.5)(X<x+3.5)
:Then
:=FAYs=FCYs
:7=FCY
:1+Hit=FCHit
:Outpt(1,20,Hit
:Goto RET1
:End
:ClLCD
:If Hit=F9HiHit
:Goto HI
:Lbl END1
:Outpt(7,1,"Score=3D"
:Outpt(7,7,Hit
:Outpt(7,10,"High=3D"
:Outpt(7,15,HiHit
:Outpt(7,19,HitNm
:Outpt(8,1,"(Enter) Rerun Prgm"
:Stop
:Lbl HI
:Disp "Enter Name"
:Disp "(3 letters)"
:InpST "->",HitNm
:HitNm+"   "=FCHitNm
:sub(HitNm,1,3=FCHitNm
:Hit=FCHiHit
:Goto END1


I also found this program


:"SND"=FCSND
:"SND"=FCS
:" "=FCOLD
:ClLCD
:Outpt(3,2,"Chat CommunicaTIons")
:Outpt(4,3,"by Ted Cannelongo")
 ^
I GET AN ERROR HERE, AT THIS LINE




:Outpt(5,1,"v1.1   3-6-95   TI-85")
:Pause =


:ClLCD
:Input "Unit 1 or 2? ",U
:If U=3D=3D2
:Then
:"ONE> "=FCNME
:Goto WAIT
:End
:If U=3D=3D1
:Then
:"TWO> "=FCNME
:Goto PRMT
:End
:Lbl PRMT
:InpST "> ",SND
:If SND=3D=3DOLD
:SND+" "=FCSND
:SND=FCS
:Pause =


:Lbl WAIT
:Input "CBLGET",SND
:If SND=F8S
:Then
:NME+SND=FCD
:For(X,1,iPart (((lngth D)-1)/21),1)
:Disp sub(D,21*(X-1)+1,21)
:End
:Disp sub(D,((X-1)*21+1),(lngth D)-((X-1)*21))
:SND=FCOLD
:Goto PRMT
:End
:Goto WAIT


Please help
-- =


Enrico Ng <ng@usa.net>