MPC2000 Reference Manual

【コマンド】

【演算】

【使い方】

DIMCPY

DIMCPY 1000 U(3)  60
DIMCPY X(1) aho(10) 10
DIMCPY MBK(1) Y(4) 50
DIMCPY X(3) MBK(200) 60
DIMCPY X(3) MBK(200~Lng) 60

【書式】

【機能】

DIMCPY arg1 arg2 count

MBK() X(),Y(),Z(),U() および定義した配列要素間でデータの転写。

【解説】

MBK() X(),Y(),Z(),U() およびDIM定義した配列要素間でデータの転写を実施。
DIMCPY MBK(1) MBK(100) 50のように同一の要素でもエリアが重複していなければ転写可能です。
なお、DIMCPYでMBKデータは、ワード型としてのみ扱います。
MBKデータをロング型とする場合は、~Lngを付加します。
ただし、DIMCPY MBK(1) MBK(100~Lng) 50 のような場合は、元も先もロング型扱いとします。

DIM   aho(300)
  DIM   baka(300)
  DIMCPY   1010 aho(3) 25
  FOR   i=1 TO 30
   PRINT   i aho(i)
  NEXT  
  S_MBK   100 50 30
  DIMCPY   12345 MBK(52) 10
PR "MBK"
  FOR   i=50 TO 65
   PRINT   i MBK(i)
  NEXT  
*test2
  FOR   i=1 TO 50
 aho(i)=i*-1000
  NEXT   i
  DIMCPY   aho(1) baka(100) 30
PR "BAKA()"
  FOR   i=90 TO 135
   PRINT   i baka(i)
  NEXT  
NEWP
  DIMCPY   baka(100) X(10) 20
  DIMCPY   baka(100) Y(11) 20
  DIMCPY   baka(100) Z(12) 20
  DIMCPY   baka(100) U(13) 20
PR "X()"
  FOR   i=5 TO 30
   PRINT   i P(i)
  NEXT
  DIMCPY   X(10) MBK(52) 20
PR "X->MBK"
  FOR   i=50 TO 65
   PRINT   i MBK(i)
  NEXT  
  DIMCPY   MBK(52) baka(70) 20
PR "X->MBK"
  FOR   i=65 TO 95
   PRINT   i baka(i)
  NEXT

[LASTMODIFY]2007-10-25 19:08:00

[CREATEDATE]2007-10-23 19:05:57

MPC2000 Reference Manual -R5.11-