|
.Calculator
Sharp Plain
?輸入: @2,2,10 : L13
'----------------------------------------------------------
?得數: L13,22 : Hidden
'----------------------------------------------------------
?符號: @1,1,12 : L2 : Skip
?標記: @2,23,13 : L1 : Skip
'----------------------------------------------------------
?記憶: L13 : Hidden
'----------------------------------------------------------
?算子: L1 : Hidden
?子二: L1 : Hidden
'----------------------------------------------------------
?點數: L1 : Hidden : K1
'----------------------------------------------------------
?NL: L1 : Hidden
?Bgd: L64 : Hidden
'----------------------------------------------------------
?結果: @1,4,11 : R0,20 : Skip : /{SC$view_}{得數.-{點數}}
'----------------------------------------------------------
1: @-4,4,,15,7 : L0 : Push : &,~~1
2: @-4,6,,15,7 : L0 : Push : &,~~2
3: @-4,8,,15,7 : L0 : Push : &,~~3
4: @-4,10,,15,7 : L0 : Push : &,~~4
5: @-4,12,,15,7 : L0 : Push : &,~~5
6: @-4,14,,15,7 : L0 : Push : &,~~6
7: @-4,16,,15,7 : L0 : Push : &,~~7
8: @-4,18,,15,7 : L0 : Push : &,~~8
9: @-4,20,,15,7 : L0 : Push : &,~~9
0: @-4,22,,15,7 : L0 : Push : &,~~0
'----------------------------------------------------------
．: @-4,24,,15,7 : L0 : Push : &,~~.
'----------------------------------------------------------
＋: @-3,4,,15,7 : L0 : Push : &,~~+
－: @-3,7,,15,7 : L0 : Push : &,~~-
× : @-3,10,,15,7 : L0 : Push : &,~~*
÷ : @-3,13,,15,7 : L0 : Push : &,~~/
ふ : @-3,16,,15,7 : L0 : Push : &,~~^
←: @-3,19,,15,7 : L0 : Push : &,~k.bs
'----------------------------------------------------------
＝ : @-3,22,,15,7 : L0 : Push : &,~k.cr
'----------------------------------------------------------
M+: @-2,4,,15,7 : L0 : Push : &,~a.a
M-: @-2,7,,15,7 : L0 : Push : &,~a.m
MR: @-2,10,,15,7 : L0 : Push : &,~k.ins
MC: @-2,13,,15,7 : L0 : Push : &,~k.del
‥: @-2,16,,15,1 : L0 : Push : &,~s.f1
AC: @-2,19,,15,1 : L0 : Push : &,~f.k9
Cr: @-2,22,,15,1 : L0 : Push : &,~f.k10
Z: @-2,25,,15,5 : L0 : Push : &,~f.k1
'----------------------------------------------------------
$Window: {WH},{VV},8,28,,,Frame+Mover
$Box : 2,3,2,24,0,Box
'----------------------------------------------------------
$Open: {DO10}{S#12}{DO(i.resize_(F#(S#)_1),2,0,size:left+right)}
$Open: {DO16}{DO(i.resize_(F#(S#)_1),2,0,size:left+right)}
$Open: {i.title_{F#ふ_1},-1,5,15,-1,ふ}{i.title_{F#＝_1},-1,-1,15,-1,＝}
$Open: {i.title_{F#‥_1},-1,-1,15,-1,.0}{i.title_{F#z_1},-1,-1,15,-1,?}
$Open: {i.show_{F#1},show:show}
$Open: {I$點數_2}
'----------------------------------------------------------
$Funct: F.K1={EX*fkhelp}
$Funct: A.A={I$記憶_{@={記憶}+{輸入}}}{I$得數_}{I$標記_M}{DI}
$Funct: A.M={I$記憶_{@={記憶}-{輸入}}}{I$得數_}{I$標記_M}{DI}
$Funct: A.C={CT1_輸入,符號,算子,子二_}{DI}
$Funct: +={?C.lshift}{KB~a.a}{!?}{I$符號_＋}{I$子二_+}{DI}{?!_}
$Funct:
-={?C.lshift}{KB~a.m}{!?}{?@{輸入}}{I$符號_－}{I$子二_-}{DI}{!?}{I$輸入_-}{?!_}{?!_}
$Funct: *={I$符號_×}{I$子二_*}{DI}
$Funct: /={I$符號_÷}{I$子二_/}{DI}
$Funct: ^={I$符號_ふ}{I$子二_^}{DI}
$Funct: K.CR={?@{子二}}{I$符號_＝}{I$子二_}{DI}{I$輸入_{得數}}{!?}{KB~a.c}{?!_}
$Funct: K.INS={I$輸入_{記憶}}
$Funct: K.DEL={I$*標記_}{I$記憶_}
$Funct: F.K4=算式={?G"exp"}{I$*輸入_{&&1}}{?!_}
$Funct: F.K9=清除=*
$Funct: F.K10=返回={?@{得數}}{$$-2}{$$_{得數}}{KB~c.r}{?!_}*
$Funct: S.F1={??{點數}=6}{I$點數_0}{!?}{I$點數_{@={點數}+1}}{?!_}{KB~k.cr}
$Funct: S.F2={KB~f.k1}
$Funct: S.F3={KB~f.k1}
$Funct: C.Cr={KB~f.k10}
'----------------------------------------------------------
$View: {?@{算子}}{I$得數_{**{@={得數}{算子}{輸入}}_{點數}-}}{!?}{I$得數_{I$輸入.{點數}-}}{?!_}
$View: {I$算子_{子二}}{I$輸入_}
.
|
