DRAW на РМУ

Для расширения графических возможностей ПК "Корвет", стоящих на РМУ, предлагаю программу, отчасти заменяющую функцию DRAW.

    10 LINE (470,20)-(470,60),7
    20 LINE (440,40)-(500,40),7
    30 LINE (440,20)-(500,60),7
    40 LINE (500,20)-(440,60),7
    50 CLS: PRINT "ВВЕДИТЕ КООРДИНАТЫ НАЧАЛЬНОЙ ТОЧКИ"
    60 INPUT X,Y: PSET (X,Y),7
    70 LOCATE 54,1: PRINT "H    U    E"
    80 LOCATE 54,3: PRINT "L         R"
    90 LOCATE 54,5: PRINT "G    D    F" 
    100 INPUT Z$: INPUT X1
    110 IF Z$="L" THEN A=0-X1: B=0
    120 IF Z$="R" THEN A=X1: B=0
    130 IF Z$="U" THEN A=0: B=0-X1
    140 IF Z$="D" THEN A=0: B=X1
    150 IF Z$="F" THEN B=SQR(X1^2/2): A=B*1.5
    160 IF Z$="E" THEN B1-SQR(X1^2/2): A=B1*1.5: B=0-B1
    170 IF Z$="G" THEN B=SQR(X1^2/2): A=0-B*1.5
    180 IF Z$="H" THEN B=0-SQR(X1^2/2): A=B*1.5
    190 IF Z$="K" THEN 50
    200 IF Z$="N" THEN 220
    210 LINE -STEP(A,B),7: CLS: GOTO 70
    220 BEEP

От редакции. Есть и другой путь решения этой проблемы, например пользоваться операционной системой "Корнет", позволяющей работать на РМУ с Бейсиком РМП.