Rem *** ulesanne MITSU 3 ***
Rem *** programmi algus. ***
Def Pos DROPPOS
DEF IO PART_AV = BIT,8
Ovrd 50
Spd 90
Rem — — — — —
*start
dly 1
GoSub *MP_2
dly 1
GoTo *start
End
Rem *** ulesanne MITSU 3 ***
Rem *** programmi lopp . ***
Rem
Rem
Rem ** SUBROUTINE *MP_2 .**
Rem ** ulesande lahendus **
Rem
*MP_2
dly 1
GoSub *WD_1
HClose 1
dly 1
HOpen 1
RETURN
Rem ** SUBROUTINE *MP_2 . lopp **
Rem
Rem ** SUBROUTINE *WD_1 **
Rem ** oota detaili . . **
Rem
*WD_1
IF PART_AV = 0 THEN *WD_1
DLY 3
IF PART_AV = 0 THEN *WD_1
IP_N_FO = 1
RETURN
Rem ** SUBROUTINE *WD_1 lopp **