Sunday, April 25, 2010

HTBasic


> SUB Fishermans_grill
> DIM Query$[100], Answer$[100]
> INPUT "Have you been to this place before? It is located in Sungai Ara...", Query$
> SELECT Query$
> CASE "Yes"
> INPUT "Is the place recommendable to visit?", Answer$
> CASE "No"
> INPUT "Do you wanna join me to try it out?", Answer$
> CASE ELSE
> DISP "Nevermind, I go alone..."
> END SELECT
> SUBEND

No comments: