.Program SHOWM1
C ----------------------------------------
C ????? ??????? ??? ??-01 ? ???
C ----------------------------------------
C ?????? ???????:
C 1 GO.HOME - ??? ? ?????? ?????????
C 2 GO.TV - ??? ? ????????? ( 1-8 )
C
C ??????????
CALL INIT
C ????
RETURN
C ------
C
PRINT 'Robot is ready'
C
10 PRINT '$'
C <==> ??? - ???????? ???????
CALL SWITCH.
JUMP 101
JUMP 10
C 1 ??????
CALL GO.HOME
JUMP 101
JUMP 10
C 2 ??????
CALL GO.TV
JUMP 101
JUMP 10
C 3 ?????? - ??? ?? ?????
RETURN
C ------
C
101 CALL ERROR.
JUMP 10
.End
C
C
C ????? ???????
C
C
.Program GO.HOME
C --------------------------
C 1 ??? ? ?????? ?????????
C --------------------------
C ?????? ???
C
GO #HOME
C ==> ???
SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ????
101 RETURN
.End
.Program GO.TV
C -----------------
C 2 ??? ? ?????????
C -----------------
C ??????:
C PAR1. - ????? ????? (1-8)
C
IF PAR1. = 1 THEN JUMP 10
IF PAR1. = 2 THEN JUMP 20
IF PAR1. = 3 THEN JUMP 30
IF PAR1. = 4 THEN JUMP 40
IF PAR1. = 5 THEN JUMP 50
IF PAR1. = 6 THEN JUMP 60
IF PAR1. = 7 THEN JUMP 70
IF PAR1. = 8 THEN JUMP 80
C ???? ? ??????
SET ERRORW. = ER1
JUMP 102
C ?????? 1
10 LOCATE #P = #P.1
JUMP 90
C ?????? 2
20 LOCATE #P = #P.2
JUMP 90
C ?????? 3
30 LOCATE #P = #P.3
JUMP 90
C ?????? 4
40 LOCATE #P = #P.4
JUMP 90
C ?????? 5
50 LOCATE #P = #P.5
JUMP 90
C ?????? 6
60 LOCATE #P = #P.6
JUMP 90
C ?????? 7
70 LOCATE #P = #P.7
JUMP 90
C ?????? 8
80 LOCATE #P = #P.8
JUMP 90
C
90 GO #P
DELAY 1
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C --------
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program INIT
C -------------
C ??????????
C -------------
C
C ?????????? ??????????? ????
CALL INID2.
C
SPEED% 100
TOOL
C
C ***** ???? *****
C ?????? ??????
SET ER1 = 50
C
C ***** ??????? *****
C
C ??? ??????
SET MAX.FR. = 3
C
C ===== ????? ?????? ????? ????? =====
C
IF START <> 0 THEN JUMP 99
C ???????? ????? (START=0)
SET START = 1
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
99 RETURN 1
101 RETURN
C ------
.End





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.