Object subclass:  #ITNdata
  instanceVariableNames:  'data'
  classVariableNames: 	  ''
  poolDictionaries:   	  ''
  category:   	      	  'Temporary'.
!


!ITNdata methodsFor: 'Updating'!

update

| dataFile nxtRec nxtObj |

  dataFile := VMSfile open: 'sys$login:itn.dat' mode: 'r'.
  1 to: 5 do: 	"Strip off the header"
    [
      dataFile nextLine.
    ].
  data := Dictionary new.
  [dataFile atEnd] whileFalse:
    [
      nxtRec := dataFile nextLine.
      (nxtRec size = 0) ifFalse:
      	[
      	  nxtRec printNl.
      	  nxtObj := nxtRec asciiObjects.
      	  data at: (nxtObj at: 2) put: nxtObj.
      	]
    ].
  dataFile close.
!


at: aString

  ^data at: aString
!!

Smalltalk at: #ITN put: (ITNdata new update).
!