【サブルーチンとして使う場合】 @A FOR L=0 TO 1:DISPLAY L:CLS:NEXT RETURN GOSUB@Aで呼び出すとする。 これをDEF化すると DEF A FOR L=0 TO 1:DISPLAY L:CLS:NEXT END A(1文字)で呼び出せる