REM PC
*PRE-COMPILER
*
*DEV TRIAL RT
*BASIC (CS
*N
*     PRECISION 6
*
*
*
      OPEN 'SYNTAX' TO SYNTAX.FD ELSE STOP 201,'SYNTAX'
*
      FOR I = 0 TO 255
         ID = 'FN.' : I
         D = 'C'
         D<2> = "'" : OCONV(I,'MCDX') 'R%4' : "'"
         WRITE D ON SYNTAX.FD , ID
         ID = 'FNR.' : I
         D = 'C'
         D<2> = "'" : OCONV(I,'MCDX') 'R%4' : "0000'"
         WRITE D ON SYNTAX.FD , ID
      NEXT I
   END
