NT20S Bedienershandbuch

Kapitel 6 – Funktionen der Schnittstelle RS–232C
4340 *ESC.2B ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Set cursor position
4350 *E2B.X
4360 LOCATE 43,0:PRINT SPACE$(36)
4370 LOCATE 43,0:INPUT ”X COORDINATE(000-255)”,BX
4380 IF BX>639 OR BX255 OR BY|”
4490 LOCATE 43,1:INPUT C$
4500 C$=LEFT$(C$,32):L$=RIGHT$(”0”+HEX$(LEN(C$)),2)
4510 SEND$=SEND$+L$+C$
4520 RETURN
4530 *ESC.7 ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Draw Polyline
4540 LN=0:SL$=””
4550 *E7.X
4560 LOCATE 41,8:PRINT SPACE$(38)
4570 LOCATE 41,9:PRINT SPACE$(38)
4580 LOCATE 41,8:INPUT ”X COORDINATE(END AT 999) : ”,LX
4590 IF LX=999 THEN *E7.E
4600 IF LX255 THEN GOTO *E7.X
4610 *E7.Y
4620 LOCATE 41,9:PRINT SPACE$(38)
4630 LOCATE 41,9:INPUT ”Y COORDINATE : ”,LY
4640 IF LY127 THEN GOTO *E7.Y
4650 LX$=STR$(LX):LX$=RIGHT$(LX$,LEN(LX$)–1):LX$=RIGHT$(”00”+LX$,3)
4660 LY$=STR$(LY):LY$=RIGHT$(LY$,LEN(LY$)–1):LY$=RIGHT$(”00”+LY$,3)
4670 LOCATE 39+(LN MOD 5)*8,LN¥5:PRINT LX$;”,”;LY$;
4680 SL$=SL$+LX$+LY$
4690 LN=LN+1
4700 IF LN255 OR CX