1  INTEGER I,J,K
2  INTEGER A,B,C,D
3  INTEGER T1,T2,T3,T4,T5,T6,T7,T8,T9
10  ERASE 
100  DATA 1,1,10,10
105  DATA 1,12,10,22
110  DATA 1,26,10,35
115  DATA 1,40,10,50
120  DATA 1,55,10,65
125  DATA 1,70,10,77
130  DATA 12,1,22,10
140  DATA 12,12,22,22
150  DATA 12,26,22,35
200  FOR I=0 TO 39 STEP 4
210  WSELECT I / 4
220  READ A,B,C,D
230  WINDOW A,B,C,D
240  WFRAME "_","|"
250  WINDOW A + 1,B + 1,C - 1,D - 1
260  NEXT I
300  START 1,30
301  START 2,50
302  START 3,70
303  START 4,90
304  START 5,200
305  START 6,100
306  START 7,50
307  START 8,30
308  START 9,100
310  GOTO 310
1000  TASK 1
1010  WSELECT 0
1020  WCLEAR 
1030  FOR T1=1 TO 9: PRINT "TASK 1": NEXT T1
1035  WAIT 5
1040  EXIT 
1100  TASK 2
1110  WSELECT 1
1120  WCLEAR 
1130  FOR T2=1 TO 9: PRINT "TASK 2": NEXT T2
1140  EXIT 
1200  TASK 3
1210  WSELECT 2
1220  WCLEAR 
1230  FOR T3=1 TO 9: PRINT "TASK 3": NEXT T3
1240  EXIT 
1300  TASK 4
1310  WSELECT 3
1315  WCLEAR 
1320  FOR T4=1 TO 9: PRINT "TASK 4": NEXT T4
1330  EXIT 
1400  TASK 5
1410  WCLEAR 
1420  WSELECT 4
1430  FOR T5=1 TO 9: PRINT "TASK 5": NEXT T5
1440  EXIT 
1500  TASK 6
1510  WSELECT 5
1520  WCLEAR 
1530  FOR T6=1 TO 9: PRINT "TASK 6": NEXT T6
1540  EXIT 
1600  TASK 7
1610  WSELECT 6
1620  WCLEAR 
1630  FOR T7=1 TO 9: PRINT "TASK 7": NEXT T7
1640  EXIT 
1700  TASK 8
1710  WSELECT 7
1720  WCLEAR 
1730  FOR T8=1 TO 9: PRINT "TASK 8": NEXT T8
1740  EXIT 
1800  TASK 9
1810  WSELECT 8
1820  WCLEAR 
1830  FOR T9=1 TO 9: PRINT "TASK 9": NEXT T9
1840  EXIT 
END