:.COFFEE CalCup 1.0  TIcoffee
:prgmAXELIB
:sub(6M7
:identity(FF008092BEA4A292BEA48092B68080B8B6C680FDB6C580C57F460838081007E0)
:
:[F0A8E8A8E8000000F0A8F0A8A8000000→Pic1
:[7CC6828282C67C007CFEFAD6EEFE7C00
:[7C82AA92AA827C00
:Lbl 0
:0→Θ
:"<fonct>v</fonct>Coffee"→Str9
:!If GetCalc(Str9)→Z
:.ARC
:UnArchive Str9
:If GetCalc(Str9)→Z
:1→Θ
:Else
:.CREATE 32 BYTE
:GetCalc(Str9,32)→Z→Θ
:0→{Z}
:Return!If Z
:End
:End
:
:
:ClrDrawClrDraw^r
:Fix 5
:
:Text(36,29,"TI-Coffee"
:StorePic ClrDraw
:Text(35,29,"TI-Coffee"
:DispGraph^r^r
:Repeat getKey(54):DispGraph^r^r
:End
:0→W
:If {Z}
:Goto CF
:End
:.INITIALISATION
:Lbl INI
:ClrDraw
:Text(20,19,"Setup language:"
:rref(18,18,56,9
:Line(18,18,18,39
:Line(73,18,73,39
:Line(19,40,72,40
:Pxl-Off(18,18:Pxl-Off(73,18
:Text(28,30,"<
:Text(58,30,">
:"English"→Str7
:[00]
:"French "
:[00]
:0→C
:DispGraph
:Pause 450
:Repeat getKey(54) or W
:getKey(15)→W
:If getKey(1) or getKey(2) or getKey(3) or getKey(4):Pause 360
:C+1^2→C:End
:Text(33,30,C*9+Str7
:DispGraph
:End
:C→{Z+1}
:0→{Z+3}
:
:1→{Z}
:Lbl CF
:If W:Goto END:End
:ClrDrawClrDraw^r
:0→S→L+1→T+7→E:{Z+1}→C
:If {Z+3}
:0→E:{Z+4}→S:{Z+5}→L:{Z+6}→T
:
:End
:"Settings→Str0
:[00:"Reglages
:[00:"Sugars:
:[00:"Sucres:
:[00:"Milk:  
:[00:"Lait:  
:[00:"Cups:  
:[00:"Tasses:
:[00:"Coffee !
:[00:"Cafe !  
:[00:"No !
:[00:"Non!
:[00:"Yes!
:[00:"Oui!
:[00:"Save prefs
:[00:"Enregistrer
:[00:"Reset  
:[00:"Reinit.
:[00:"Cancel  
:[00:"Annuler
:[00:"Coffee:
:[00:"Cafe:  
:[00:"Water:  
:[00:"Eau:    
:
:
:Goto A
:Lbl DRW
:Pt-On(2,2,8*C+Pic1
:Line(8,2,8,6
:Text(10,1,C*10+Str0
:rref(0,0,96,9
:Line(0,0,0,62
:Line(95,0,95,62
:Line(1,63,94,63
:Pxl-Off(0,0
:Pxl-Off(95,0
:Text(10,55,C*12+111+Str0
:Pt-On(2,55,E+16+Pic1:
:sub(BUT^r,64,39,30,7,C*9+73+Str0,1
:sub(BUT^r,64,55,30,7,C*9+135+Str0,1
:sub(BUT^r,64,47,30,7,C*9+153+Str0,1
:Text(3,12,C*9+19+Str0
:Text(32,12,S►Dec
:sub(BUT^r,30,12,7,7,0,0
:Text(3,24,C*9+37+Str0
:sub(BUT^r,30,24,17,7,5*C+(10*L)+91+Str0,1
:Text(31,36,T►Dec:Text(39,36,T+1►Dec:Text(35,36,"-"
:Text(3,36,C*9+55+Str0
:sub(BUT^r,30,36,14,7,0,0
:Pt-Change(88,1,Pic1+32
:ClrDraw^rStorePic
:Return
:
:Lbl 2
:Pt-On(X,Y,Pic0
:Pt-Change(X,Y,Pic0
:Pt-On(X,Y,Pic0+8
:Return
:
:Lbl BUT
:If r₆:Text(r₁+2,r₂,r₅:End
:rref(r₁,r₂,r₃,r₄
:Pxl-Off(r₁,r₂
:Pxl-Off(r₁,r₂+r₄-1
:Pxl-Off(r₁+r₃-1,r₂
:Pxl-Off(r₁+r₃-1,r₂+r₄-1
:Return
:
:Lbl MOS
:1:ReturnIf (X≥r₁) and (Y≥r₂) and (Y<(r₂+r₄)) and (X<(r₁+r₃))
:0:Return
:
:Lbl A
:48→X:32→Y→H
:sub(DRW
:DispGraph
:Pause 450
:Repeat W or (getKey(54) and sub(MOS,66,39,27,7))
:getKey(15)→W
:If sub(MOS,88,1,7,7) and getKey(54):1→W:End
:If sub(MOS,66,47,27,7) and getKey(54):1→W:End
:If sub(MOS,66,55,27,7) and getKey(54):DelVar Str9:Goto 0:End
:sub(2
:DispGraphClrDrawRecallPic
:If Y>0 and getKey(4):Y-1→Y:End
:If X>0 and getKey(2):X-1→X:End
:If X<95 and getKey(3):X+1→X:End
:If Y<63 and getKey(1):Y+1→Y:End
:If sub(MOS,30,24,20,7) and getKey(54):1→H
:L+1^2→L:End
:If sub(MOS,30,12,7,7) and getKey(54):1→H
:S+1^5→S:End
:If sub(MOS,2,55,47,7) and getKey(54):1→H
:E+8^16→E:End
:If sub(MOS,30,36,14,7) and getKey(54):1→H
:T+1^6→T:!If T:1→T:End:End
:
:If H
:Pause 120
:ClrDraw
:sub(DRW
:0→H:End
:End
:If W:Goto END:End
:Goto B
:.CLOSER
:Lbl END
:Fix 4
:If E
:1→{Z+3}
:S→{Z+4}
:L→{Z+5}
:T→{Z+6}
:End
:If Θ
:Archive Str9
:End:Return
:
:Lbl B
:
:Goto END