REM 944BASIC '記録した座標の再生'
SCREEN 2,2,8,8
EVENT 100,999,1:REM 常駐時ｲﾍﾞﾝﾄ制御
MAX=23 :REM 最大ステップ数
DIM A(3,MAX)

LOADCSV 'KALOREC.CSV',A

COLORBG 255,0,0:CLS
FOR I=0 TO MAX
 IF STRCMP(A(0,I),'@END')=0 THEN I=MAX:GOTO *BR
 IF STRCMP(A(0,I),'@MOR')=0 THEN GOTO *SKIP1

 APL A(0,I)
 SYNC

*SKIP1
 SETPEN 0,A(1,I),A(2,I)
*BR
NEXT I
END