Table of Contents
Advertisement
9100A-017
! ****************************************************************************
!
This is the main program body.
! ****************************************************************************
! *****open devices, print screen*****
t2u = open device "/term2", as "update"
t2o = open device "/term2",as "output"
print on t2o, "\1B[H\1B[J"
! *****get existinq cycle information*****
! *****this example has 17 lines in the writecycle file*****
! *****which are stored in writecyc string array*****
if (filestat file "writecycle") <> "" then
cycle = open device "writecycle", as "input"
print on t2o, "\1B[1;1fRetrieving Write cycle Information ..."
for n = 1 to 17
input on cycle, writecyc [n]
next
close (cycle)
! *****get name of file with address and data information*****
print on t2o, "\1B[1;1f\1B[JInput Name Of Address/Data File"
input on t2u, old_file
if (filestat file old_file) <> "" then
in_text = open device old_file, as "input"
! *****get file name of the file to store text file to*****
print on t2o, "\1B[1;1f\1B[JInput Name Of Output File"
input on t2u, new_file out_text = "open device new_file, as "output"
! ****Print out header information.
! ****DISPLAY line, and comments describinq signal names of the groups.
for n = 1 to 8
next
print on t2o, "\1B[1;1f\1B[J\1B[?251Building Vector Text File . . ."
build_vector()
close (in_text)
close (out_text)
print on t2o, "\1B[1;1f\1B[JVector Textfile Complete."
print on t2o, "\1B[2;1fCopy to Vector File."
else
print on t2o, "\1B[1;1f\1B[J" + old_file + " Text File Does Not Exist."
end if
else
print on t2o, "\1B[1;1f\1B[JWRITECYCLE Text File Does Not Exist."
end if
close (t2o)
close (t2u)
end program
7-24
print on out_text, writecyc [n]
This includes the GROUPS line,
Advertisement
Table of Contents
