OPEN "I", 1, "items.txt"
OPEN "O", 2, "nitem.txt"
n = 0
WHILE NOT EOF(1) AND n < 48
  INPUT #1, id$, ca, p, c, cat$
  n = n + 1
  PRINT #2, "inum(" + LTRIM$(STR$(n)) + ")=" + CHR$(34) + id$ + CHR$(34)
  PRINT #2, "  ca(" + LTRIM$(STR$(n)) + ")="; ca
  PRINT #2, "  a(" + LTRIM$(STR$(n)) + ")=";
  aa = 3.5 * RND(TIMER) + 1!
  PRINT #2, USING " #.###"; aa
  PRINT #2, "  b(" + LTRIM$(STR$(n)) + ")=";
  PRINT #2, USING " #.###"; (p - .498) / .14
  PRINT #2, "  c(" + LTRIM$(STR$(n)) + ")="; c
  PRINT #2, "  cate(" + LTRIM$(STR$(n)) + ")=" + CHR$(34); cat$ + CHR$(34)
 
  PRINT "inum(" + LTRIM$(STR$(n)) + ")=" + CHR$(34); id$ + CHR$(34)
  PRINT "  ca(" + LTRIM$(STR$(n)) + ")="; ca
  PRINT "  a(" + LTRIM$(STR$(n)) + ")=";
  PRINT USING " #.###"; aa
  PRINT "  b(" + LTRIM$(STR$(n)) + ")=";
  PRINT USING " #.###"; (p - .498) / .14
  PRINT "  c(" + LTRIM$(STR$(n)) + ")="; c
  PRINT "  cate(" + LTRIM$(STR$(n)) + ")=" + CHR$(34); cat$ + CHR$(34)
WEND
CLOSE
END