DIM t$(20, 6)
CLS
f1$ = "charact.dat"
OPEN f1$ FOR INPUT AS 1
DO UNTIL EOF(1)
  c = c + 1
  FOR j = 1 TO 5
    INPUT #1, t$(c, j)
  NEXT j
LOOP
CLOSE
' print routine
FOR i = 1 TO c
  FOR j = 1 TO 5
    PRINT t$(i, j),
  NEXT j
  PRINT
NEXT i

' demo of get a new name for a character
PRINT "Hello Player"
INPUT "Character Name"; n$
PRINT "old value="; t$(2, 1)
t$(2, 1) = n$
PRINT "new value="; t$(2, 1)
' demo of how to change a value stored as character
s = VAL(t$(3, 5))
s = s - 8
PRINT "old value="; t$(3, 5)
t$(3, 5) = STR$(s)
PRINT "new value="; t$(3, 5)

OPEN f1$ FOR OUTPUT AS 1
FOR i = 1 TO c
  FOR j = 1 TO 4
    PRINT #1, t$(i, j); ", ";
  NEXT j
  PRINT #1, t$(i, 5)
NEXT i
CLOSE
END