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