REM 944BASIC '付箋紙'
EVENT 100,999,1:REM 常駐制御

DIM A(0)  :REM ﾃｷｽﾄ。短文1行のみ。
LOADTEXT 'F1:\944BASIC\KALUFSN0.TXT',A :REM ﾃｷｽﾄﾌｧｲﾙはほかの場所/名前でもOK

X=20: Y=20   :REM 初期表示位置(X,Y)
W=180: H=17  :REM 付箋紙の幅と高さ
B=16         :REM 左端の幅
FONT 64      :REM フォントサイズ

SCREEN X,Y,W,H
COLORBG 239,239,239: CLS
*LOOP SYNC
 REM テキスト
 COLORFG 0,0,0
 GCURSOR B+3,2: PRINT A(0)
 REM 左端の色、とりあえず赤
 COLORFG 208,0,0: BOXFILL 0,0,B,H
 REM 付箋紙の端
 COLORFG 192,192,192
 LINE B+1,H-1,W-1,H-1
 LINE W-1,H-1,W-1,0
 IF PADA THEN MESSAGE A(0)
GOTO *LOOP