キャラデータのファンクションキーへの登録

CHREDなどで作成したキャラデータをPRGファイルに埋め込みたい時に使う。
変数CHにキャラ番号を入れて実行するとファンクションキーの1〜2番にキャラデータを登録する。

CH=4  '-- CHARACTER NUMBER
FOR I=0 TO 1
 K$=""
 FOR J=0 TO 1
  CHRREAD("SPU0",CH*4+I*2+J),C$
  K$=K$+"DATA "+CHR$(34)+C$+CHR$(13)
 NEXT
 KEY I+1,K$
NEXT