DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »testrun«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »testrun« 

TextFile

job erip 9 600 temp disc 2000 15  area 9 time 6 0 size 100000
;skip 37.1

mode list.yes
(i dynjobs
skip 37.  ,
++++ no ++++
testtext=copy message.no 37.1
end)

o ptestout
lookup platonpass4 platonpass5
testtext = edit testtext
g b/$410/  /, f
pascal80 outcont codelist.yes list.yes testtext
head 1
o c
lookup pass4code
if ok.no
(scope login ptestout
finis)

scope login pass6code
if ok.no
(

o passouttest
printdyn prelude
o c

ptestout1=spalte passouttest spalter.3 bredde.35 linier.45
passouttest=copy message.no ptestout ptestout1
scope login passouttest
finis )
scope login ptestout
finis



%



mode list.yes
( i testjobs
  skip 37.  ,
+++++ no +++++
testtext=copy message.no 37.1
end)


o ptestout
lookup  pass4z80 pass56z80
z80envir=set bs testz80env
pascalz80 lib.eplib list.no stop.5   testtext
lookup pass4code pass5code
head 1
o c

lookup pass5code
if ok.no
(convert ptestout
finis)



o passouttest
printpass4 
head 1
printpass5
o c

ptestout1=spalte passouttest spalter.3 bredde.35 linier.45
passouttest=copy message.no ptestout ptestout1 
convert passouttest
finis


%


job erip 9 273040  temp disc 2000 20 area 9 time 3 0 size 100000
mode list.yes
(i testjobs4
  skip 37.  ,
+++++ no +++++
testtext=copy message.no 37.1
end)


o ptestout
lookup platonpass3 platonpass4 
;lookup platonpass3 pass4z80
platonenv=set bs testenvir
;platonenv=set bs testz80env
pascal80 list.no stop.4 index.no testtext
head 1
o c

lookup pass4code
if ok.no
(convert ptestout
finis)



o passouttest
printpass3
head 1 
printpass4 prelude
o c

ptestout1=spalte passouttest spalter.3 bredde.35 linier.45
passouttest=copy message.no ptestout ptestout1 
scope login passouttest
finis
▶EOF◀