【続き】
DIM BUF[16]
HP=100:MP=50:GLD=100:NM$="OTTA"
BUF[0]=HP:BUF[1]=MP:BUF[2]=GD
FOR I=0 TO LEN(NM$)-1
BUF[8+I]=ASC(MID$(NM$,I,1))
NEXT
SAVE "DAT:SAVEDATA",BUF
数値配列変数BUFに保存したい数値変数を代入し、
文字列変数のNM$はASC関数でキャラクターコードに
変換して数値配列変数に代入します。
保存したい情報が入った数値配列変数BUFをSAVE命令で
保存します。
読み込むときはLOADした数値配列変数の内容を
目的の変数に代入します。
文字列変数の内容はCHR$関数で文字に変換して
文字列に復元します。
DIM BUF[16]
LOAD "DAT:SAVEDATA",BUF
HP=BUF[0]:MP=BUF[1]:GD=BUF[2]
FOR I=0 TO 7
IF BUF[8+I]!=0 THEN NM$=NM$+CHR$(BUF(8+I))
NEXT