Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/21/storeu.ctl
There is 1 other file named storeu.ctl in the archive. Click here to see a list.
;test of simula system using the storeu directfile program
.del test.daf
.load store,storeu
.save storeu
.start
 test
 direct
 get
 jacob
 put
 jacob
 palme
 put
 mats
 ohlin
 put
 lars
 enderin
 put
 stefan
 arnborg
 put
 ingrid
 wennerstr`m
 put
 olle
 bj`rner
 put
 elisabeth
 }gren
 put
 claes
 wihlborg
 direct
 get
 jacob
 get
 claes
 get
 stefan
 get
 lars
 stop
.run storeu
 test
 put
 1*char(1)
 1 1 ~
 get
 1*char(1)
 put
 200*char(33)
 33 200 ~
 get
 200*char(33)
 put
 2*char(27)
 27 2 ~
 put
 2*char(27) again
 27 2 ~
 put
 aaa1aaa
 27 1  ~
 put
 aaa2aaa
 27 1 ~
 put
 aaa3aaa
 27 1 ~
 put
 aaa4aaa
 27 1 ~
 put
 aaa5aaa
 27 1 ~
 put
 aaa6aaa
 27 1 ~
 put
 aaa7aaa
 27 1  ~
 put
 char(13)
 13 1 ~
 put
 petter
 wikstr`m
 direct
 get
 petter
 get
 aaa7aaa
 get
 aaa1aaa
 get
 aaa2aaa
 get
 ingrid
 direct
 replace
 lars
 eriksson
 get
 stefan
 get
 ingrid
 get
 lars
 r
 lars
 enderin
 get
 lars
 get
 ingrid
 get
 olle
 direct
 stop
.del test.daf
.del storeu.rel,storeu.lst,store.rel,store.lst,store.atr