230
EXAMPLE PROGRAM
Section 6-7
4200 GOTO *E2AAGAIN
4210 *E2ASEND
4220 SEND$=SEND$+M$
4230 RETURN
4240 *ESC.21 ’ Normal display. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4250 RETURN
4260 *ESC.22 ’ Set inverse display. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4270 RETURN
4280 *ESC.23 ’ End inverse display. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4290 RETURN
4300 *ESC.24 ’ Set flashing display. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4310 RETURN
4320 *ESC.25 ’ End flashing display. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4330 RETURN
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 BX<0 THEN *E2B.X
4390 *E2B.Y
4400 LOCATE 43,1:PRINT SPACE$(36)
4410 LOCATE 43,1:INPUT ”Y COORDINATE(000–127)”,BY
4420 IF BY>255 OR BY<0 THEN *E2B.Y
4430 BX$=STR$(BX):BX$=RIGHT$(BX$,LEN(BX$)–1):BX$=RIGHT$(”00”+BX$,3)
4440 BY$=STR$(BY):BY$=RIGHT$(BY$,LEN(BY$)–1):BY$=RIGHT$(”00”+BY$,3)
4450 SEND$=SEND$+BX$+BY$
4460 RETURN
4470 *ESC.4 ’ Specify Displayed Characters. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4480 LOCATE 43,0:PRINT ”Write character string (MAX. 32 CHARACTERS) ––>|”
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 LX<0 OR LX>255 THEN GOTO *E7.X
4610 *E7.Y
4620 LOCATE 41,9:PRINT SPACE$(38)
4630 LOCATE 41,9:INPUT ”Y COORDINATE : ”,LY
4640 IF LY<0 OR LY>127 THEN GOTO *E7.Y
4650 LX$=STR$(LX):LX$=RIGHT$(LX$,LEN(LX$)–1):LX$=RIGHT$(”00”+LX$,3)
To Next Page
Loading...
