Untitled
public text v1 · immutable(* test program ... it sux*)
out "(Y/n)? ";
a = in(ch);
if a=="y" | a=="Y" :
b=1
else
b=0
;
out b+"\n"
(* compiled to SADOL2:
!"7(Y/n)?:a;0?|=a"1y=a"1Y:b1:b0!+b"1
*)(* test program ... it sux*)
out "(Y/n)? ";
a = in(ch);
if a=="y" | a=="Y" :
b=1
else
b=0
;
out b+"\n"
(* compiled to SADOL2:
!"7(Y/n)?:a;0?|=a"1y=a"1Y:b1:b0!+b"1
*)