REM 944BASIC '座標の記録'
DIM A(3,23)
I=0: MODE=1 :REM -1=低速, 1=高速
X=20:Y=20:MV=4 :MVは移動ドット数
COLORBG 192,192,192:CLS
SCREEN X,Y,32,14
EVENT 100,999,1:REM 常駐時ｲﾍﾞﾝﾄ制御
FONT 48
*LOOP SYNC
 IF PADA THEN GOSUB *INPTXT
 IF PADB THEN MODE=MODE*(-1)
 IF PADC THEN GOTO *FIN
 X=X+PADX*MV: Y=Y+PADY*MV
 SCREEN X,Y,32,14:MOVEAREA 0,0,0,0
 IF MODE=1 THEN COLORFG 255,0,0:MV=8 ELSE COLORFG 0,0,255:MV=4
 FOR J=0 TO 2
  PSET 0,J
  PSET J,0
 NEXT J
 PSET 1,1
 COLORFG 0,0,0
 GCURSOR 3,1
 PRINT X;
 PRINT ':';
 PRINT Y
 KEYWAIT
 COLORBG 192,192,192:CLS
GOTO *LOOP

*INPTXT
 M='': N=''
 SCREEN 80,80,96,80
 CLS
 GCURSOR 8,1
 PRINT 'X:';
 PRINT X;
 PRINT ',Y:';
 PRINT Y
 PRINT 'MORE識別子?'
 INPUT M,4,3
 IF STRCMP(M,'')=0 THEN M='@MOR'
 PRINT 'メモ(全角12文字まで)'
 INPUT N,24,1
 A(0,I)=STRCAT(M):A(1,I)=X:A(2,I)=Y:A(3,I)=STRCAT(N)
 SAVECSV 'KALOREC.CSV',A
 MES=STRCAT('記録しました(STEP ',I,')')
 MESSAGE MES
 I=I+1
RETURN

*FIN
 A(0,I)='@END':A(1,I)=4:A(2,I)=4:A(3,I)='終了'
 SAVECSV 'KALOREC.CSV',A
END