:"DENISE"üN
:Disp "IS YOUR NAME DENISE?",""
:Menu(1,"YES",D,2,"NO",E)
:Lbl E
:Disp "ENTER YOUR"
:InpST "NAME?",N
:Lbl D
:Disp "","HELLO "+N,""
:
:Disp "SET TAX RATE"
:Disp "USE ARROWS"
:Disp "THEN ENTER"
:Disp ""
:.0675üY
:Repeat x>34
:getKyüx
:Y+(x==26)/10000-(x==24)/10000üY
:Y+(x==25)/1000-(x==34)/1000üY
:Outpt(5,15,Y)
:End
:Y+1üY
:Disp "ROUND ANSWER?",""
:Lbl K
:Menu(1,"YES",Y,2,"NO",N)
:Lbl Y:2üR
:Goto DENISE
:Lbl N:11üR
:Lbl DENISE
:
:Input "TOTAL=?",T
:round(T/Y,R)üA
:T-AüB
:Disp ""
:Disp "INITIAL",A
:Disp "TAX",B
:Goto DENISE
:
:
:
:
:
:
:

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)