日本語エディト機能のサンプル
CH=G@SETUP(400,100,16,1)
S@IMESETMODE(1)
S@IMESETEDITMODE(1)
LOOP
G@CHRCLEAR(CH)
S@IMEGETEDITSTR(0)
MX = 0
I = 1
LOOP
MOJI$ = S@IMEGETEDITSTR( I )
IF MOJI$ == "" THEN
BREAK
ENDIF
ST=S@IMEGETEDITSTATE( I )
SWITCH(ST)
CASE 1:
G@FONT( 24 , 0 , 0 , 3 , "MS 明朝" )
BREAK;
CASE 2:
G@FONT( 24 , 0 , 1 , 3 , "MS 明朝" )
BREAK;
CASE 3:
G@FONT( 24 , 0 , 2 , 3 , "MS 明朝" )
BREAK;
ENDSWITCH
G@PRINT(CH,MX,0,MOJI$)
MX = MX + LENG(MOJI$)*12
I = I + 1
ENDLOOP
WKEKKA$ = S@IMEGETEDITRESULT()
IF WKEKKA$ <> "" THEN
KEKKA$ = WKEKKA$
ENDIF
G@FONT( 24 , 0 , 0 , 3 , "MS 明朝" )
G@PRINT(CH,0,64,KEKKA$)
CUR=S@IMEGETEDITCOLUMN()
G@PRINT(CH,12*CUR,32,"^")
G@FLIP()
ENDLOOP