  100 REM PURPOSE: VERIFY 'CONST' COMMAND
  110 REM  AUTHOR: HOWARD WULF, AF5NE
  120 REM    DATE: 2017-02-21
  130 REM    NOTE: OPTION VERSION BYWATER
  140 REM
  150 REM
  160 LET A = 1.234
  170 LET B = 4.567
  180 LET C = 8.901
  190 LET D = 2.345
  200 LET E = 6.789
  210 REM
  220 CONST F = A + B + C
  230 CONST G = B + C + D
  240 CONST H, I, J = C + D + E
  250 REM
  260 PRINT "A=";A, "B="; B, "C=";C, "D=";D, "E=";E
  270 PRINT "F=";F ; "G=";G, "H=";H, "I=";I, "J=";J
  280 REM
  290 REM
  300 ON ERROR GOTO 800
  310 REM
  320 LET A,B,C,D,E = 0
  330 LET A,B,C,D,F = 1
  340 LET A,B,C,G,D = 2
  350 LET A,B,H,D,E = 3
  360 LET A,I,B,C,D = 4
  370 LET J,B,C,D,E = 5
  380 REM
  390 REM
  400 PRINT "A=";A, "B="; B, "C=";C, "D=";D, "E=";E
  410 PRINT "F=";F ; "G=";G, "H=";H, "I=";I, "J=";J
  420 GOTO 999
  800 REM
  810 PRINT "ERL=";ERL, "ERR=";ERR, "ERROR$=";ERROR$
  820 RESUME NEXT
  830 REM
  999 END

