1 REM Av: Mikael Lid`n <5651>    1986-03-30 16.30.36
2 ! MTASK.BAS, h|r till MULTASK.BAS
3 INTEGER : EXTEND
100 DEF FNMultask(A,B,Hl) LOCAL A$=20
110   A$=CHR$(62,A,6,B,33)+CVT%$(Hl)+CHR$(205,48,0,38,0,111,201)
120   RETURN CALL(VARPTR(A$))
130 FNEND 
140 ! 
150 ! Visa p}g}ende processer
160 ! 
170 DEF FNJobstat LOCAL J,A,T,Fl,Adr,A$=20
180   ; 'Jobb Nr','Tillst}nd','Tidskvanta'
190   ; '======================================='
200   A$=CHR$(62,11,205,48,0,201)
210   Adr=CALL(VARPTR(A$))
220   WHILE J<17
230     A=PEEK(Adr+J*8+2) : T=PEEK(Adr+J*8+3)
240     Fl=-1
250     WHILE Fl AND A AND 96
260       ; USING '##' J+1; : ; ,
270       A=PEEK(Adr+J*8+2) : T=PEEK(Adr+J*8+3)
280       IF A AND 32 ; 'Aktivt',
290       IF A AND 64 ; 'Vilande',
300       ; USING '###' T,
310       ; 
320       Fl=0
330     WEND 
340     J=J+1
350   WEND 
360   RETURN 0
370 FNEND