Code: Select all
100 DEFine PROCedure ListJobs(ch)
110 LOCal nj, n
120 :
130 n = 0
140 REPeat nj
150 n = NXJOB(n, 0)
160 IF n = 0: EXIT nj
170 PRINT#ch; JOB$(n)
180 END REPeat nj
190 END DEFine ListJobs
200 :
210 :
Code: Select all
100 DEFine PROCedure ListJobs(ch)
110 LOCal nj, n
120 :
130 n = 0
140 REPeat nj
150 n = NXJOB(n, 0)
160 IF n = 0: EXIT nj
170 PRINT#ch; JOB$(n)
180 END REPeat nj
190 END DEFine ListJobs
200 :
210 :