日本Mテクノロジー学会事務局
〒260-8677
千葉市中央区亥鼻1-8-1
千葉大学医学部附属病院
企画情報部 鈴木隆弘
事務担当:土井俊祐
Tel: 043-226-2346
Fax: 043-226-2373
HOME > Mテクノロジーについて > 他の言語との比較

Mテクノロジーについて

資料4.BASIC vs MUMPSの対応表

 BASIC  MUMPS
  AUTO
  BLOAD
  BSAVE
  CLOAD
  CONT
  CSAVE
  DELETE
  EDIT
  FILES
  FORMAT
  KEY LIST
  LFILES
  LIST
  LLIST
  LOAD
  MERGE
  MON
  MOUNT
  NEW
  NEW ON
  REMOVE
  RENUM
  RUN
  SAVE
  TERM
  TRON/TROFF
  WIDTH


  BASIC

  CLEAR
  DATA
  DEF FN
  DEF INT
  DEF SNG
  DEF DEL
  DEF STR
  DIM
  END
  ERASE
  FOR ...TO ...STEP
  GOSUB
  GOTO
  IF ...THEN(GOTO)
  IF ...THEN ...ELSE
  INPUT
  INPUT WAIT
  LET
  LINE INPUT
  LINE INPUT WAIT
  LPRINT
  LPRINT USING
  ON...GOSUB
  ON...GOTO
  OPTION BASE
  PRINT
  PRINT USING
  RANDOMIZE
  READ
  REM
  RESTORE
  STOP

  BASIC

  SWAP
  WHILE...WEND
  WRITE
  SWAP
  WHILE...WEND
  WRITE

  CLS
  COLOR
  CONSOLE
  SCREEN
  COLOR@
  LOCATE
  CIRCLE
  LINE
  PAINT
  POINT
  PRESET
  PSET
  WINDOW
  GET@
  PUT@
  VIEW
  ROLL
  MID$
  CLOSE
  FIELD
  GET
  INPUT#
  LINE INPUT #
  LSET
  RSET
  OPEN
  PRINT #
  PRINT # USINGG

  BASIC

  PUT
  WRITE #
  HELP ON/OFF/STOP
  KEY
  KEY (n) ON/OFF/STOP
  ON HELP GOSUB
  ON KEY GOSUB
  ON STO GOSUB
  STOP ON/OFF/STOP
  ON TIME$ GOSUB
  TIME& ON/OFF/STOP
  COPY
  WIDTH LPRINT
  ON PEN GOSUB
  PEN ON/OFF/STOP
  COM ON/OFF/STOP
  ON COM GOSUB
  CHAIN
  COMMON
  DSKO$
  KILL
  NAME
  SET
  BEEP
  CALL
  DEF USR
  ERROR
  MOTOR
  ON ERROR GOTO
  OUT
  POKE
  RESUME
  WAIT


  BASIC

  ABS
  ATN
  CINT
  CDBL
  COS
  CSNG
  CVDI/CVS/CVD
  EXP
  FIX
  INT
  LOG
  RND
  SGN
  SIN
  TAN
  ASC
  CHR$
  HEX$
  INKEY$
  INSTR
  LEFT$
  LEN
  MID$
  MKI$/MKS$/MKD$
  OCT$
  RIGHT$
  SPACE$
  STR$
  STRING$
  VAL
  SEARCH
  SPC

  BASIC

  TAB
  CSRLIN
  POS
  WINDOW
  POINT
  VIEW
  MAP
  EOF
  FPOS
  INPUT$
  LOC
  LOF
  DATA$
  TIME$
  LPOS
  PEN
  ATTR$
  DSKF
  DSKI$
  ERL
  ERR
  FRE
  INP
  PEEK
  USR
  VARPTR


  BASIC

  =
  -
  +
  *
  /
  ^
  ¥
  MOD
  NOT
  AND
  OR
  XOR
  EQV
  IMP
  =,<,>
  =<,<=
  =>,>=
  <>,><
  $
  %
  !
  #
  &O
  &H


  -
  VIEW
  VIEW
  -
  ZGO
  -
  ZREMOVE
  X ^%
  D ^%RD [VIEW 3]
  VIEW
  -
  O3 U3 D^%RD [O3 U3 V3]
  PRINT
  O3 U3 PRINT
  ZLOAD
  [X ^%]
  VIEW
  -
  ZRENOVE
  -
  -
  -
  DO,XECUTE
  ZSAVE
  [D ^% COM]
  -
  O $I:72


  MUMPS

  W*2
  -
  -
  -
  -
  -
  -
  -
  QUIT
  KILL
  FOR I=○:○:○
  DO
  COTO
  IF
  IF,ELSE
  READ
  READ:time
  SET
  READ
  READ:time
  O3 U3 WRITE
  O3 U3 W $J(...)
  *
  *
  -
  WRITE
  WRITE $J(...)
  $RANDOM
  -
  ;
  -
  BREAK

  MUMPS

  -
  FOR...QUIT:condition
  -
  -
  FOR...QUIT:condition
  WRITE

  W *27,26
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  $EXTRACT
  CLOSE
  *
  S A=^A
  *
  *
  *
  *
  OPEN
  *
  *

  MUMPS

  S ^A=A
  *
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  O 3:80
  -
  -
  -
  -
  DO
  *
  *
  ZSAVE
  -
  VIEW
  W *7
  ZCALL
  ? ?
  -
  -
  S $E=“ERR+2^STAT”
  VIEW
  VIEW
  -
  HANG


  MUMPS

  -
  -
  -
  -
  *
  -
  -
  -
  -
  *
  -
  -
  -
  *
  *
  $ASCII
  $CHAR
  -
  READ*A
  $FIND
  $EXTRACT
  $LENGTH
  $EXTRACT 
  -
  -
  $EXTRACT
  -
  -
  -
  +A
  -
  -

  MUMPS

  -
  $Y
  $X
  -
  -
  -
  -
  -
  -
  -
  -
  -
  $HOROLOG
  $HOROLOG
  -
  -
  -
  VIEW
  *
  $ZERROR
  $ZERROR
  $STORAGE
  -
  VIEW
  -
  -


  MUMPS

  =
  -
  +
  *
  /
  ^
  ¥
  #
  ’
  &
  !
  -
  -
  -
  =,<,>
  ’>
  ’<
  ’=
  文字
  整数
  単精度
  倍精度
  8進数
  16進数
ページトップへ