コンソール版HSPの簡単なサンプル | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#runtime "hsp3cl"
/*
input p1,p2,p3 標準入力を取得
p1=変数名  : 情報を格納する変数名
p2=1～     : 変数に代入される最大文字数
p3=0～(0)  : 改行コード認識フラグ(0=なし/1,2=認識)
p3が1の場合はLFを、2の場合はCR+LFを改行と認識
*/
    mes "入力されたメッセージを表示します\n>"
    sdim res, 256
    input res, 256, 2
    mes "入力されたのは 「"+res+"」です "
    
    mes "終了しますか？ yを入力しEnterすると終了します"
    
*exit
    input res, 256, 2
    if res == "y" : end
    goto *exit
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX