REM 944BASIC '記録した座標の再生'
SCREEN 230,310,8,8
EVENT 100,999,1:REM 常駐時ｲﾍﾞﾝﾄ制御

DIM A(3,23)
LOADCSV 'KALOREC.CSV',A

WT=1000   :REM ウェイト
COLORFG 0,0,0

FOR I=0 TO 23

 IF STRCMP(A(0,I),'@END')=0 THEN I=23:GOTO *BR
 IF STRCMP(A(0,I),'@MOR')=0 THEN GOTO *SKIP1

 APL A(0,I)
 SETPEN 1,232,312
 FOR J=0 TO WT
  TMP=TMP
 NEXT J

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