1 '  This demonstrates the multitasking capability of MTBASIC
2 '  by allowing you to set the reschedule interval of multiple
3 '  LED flashing tasks.  While the LEDs are flashing an
4 '  incrementing counter will show on your terminal.

10  INTEGER X,Y,Z
20   INTEGER T1,T2,T3,T4,T5,T6,T7,T8,T9

310   Y=1
320  FOR X=1 TO 8
330  PRINT " ENTER RESCHEDULE COUNT FOR THE LED THAT IS SHINING"
332  PRINT " (A VALUE FROM 1 TO 50 IS RECOMMENDED) "
335  PRINT "THIS IS TASK #";X
340  PTAOUT Y
350  INPUT Z
360  START X,Z
370   Y=Y * 2
380  NEXT X

410  REM   OUTPUT TO THE TERMINAL WHILE LEDS ARE FLASHING
420  FOR X=1 TO 500
430  print x
440  wait 2
450  NEXT X
460  GOTO 420 

1000  TASK 1
1010   T1= PTAIN 
1020  PTAOUT BXOR(T1,1)
1040  EXIT 

1100  TASK 2
1110   T2= PTAIN 
1120  PTAOUT BXOR(T2,2)
1140  EXIT 

1200  TASK 3
1210   T3= PTAIN 
1220  PTAOUT BXOR(T3,4)
1240  EXIT 

1300  TASK 4
1310   T4= PTAIN 
1320  PTAOUT BXOR(T4,8)
1330  EXIT 

1400  TASK 5
1410   T5= PTAIN 
1420  PTAOUT BXOR(T5,16)
1440  EXIT 

1500  TASK 6
1510   T6= PTAIN 
1520  PTAOUT BXOR(T6,32)
1540  EXIT 

1600  TASK 7
1610   T7= PTAIN 
1620  PTAOUT BXOR(T7,64)
1640  EXIT 

1700  TASK 8
1710   T8= PTAIN 
1720  PTAOUT BXOR(T8,128)
1740  EXIT