Rockwell Automation 57C610 Enhanced Basic Language, AutoMax - Manual (Page 72)

6Ć32
{KYBD.BAS task}
100
COMMON USERNAME$
110 COMMON KYBD_RDY@, DISP_RDY@
:
900
USERNAME$ = "
910 KYBD_RDY@ = FALSE
:
1000
IF DISP_RDY@ THEN DELAY 10 TICKS \ GOTO
1000
1100 OPEN PORTB" AS FILE #2, SETUP=(0800H,
9600) \ CLOSE #2
1110 OPEN PORTB" AS FILE #2,
ACCESS=NON_EXCLUSIVE
1120 ! Add initialization code as required
:
1200
KYBD_RDY@ = TRUE
1210 IF NOT DISP_RDY@ THEN DELAY 10 TICKS \
GOTO 1210
:
2000
IF USERNAME$ = " THEN
PRINT #2; CLRSCR$(2); CURPOS$( 10,10);
Please enter your name ;
INPUT #2 USERNAME$
END_IF
2100 DELAY 10 TICKS \ GOTO 2000
:
32767
END
{DISPLAY.BAS}
100
COMMON USERNAME$
110 COMMON KYBD_RDY@, DISP_RDY@
:
900
USERNAME$ = "
910 DISP_RDY@ = FALSE
1000 IF KYBD_RDY@ THEN DELAY 10 TICKS \ GOTO
1000
1010 ! Add initialization code as required
:
1200
IF NOT KYBD_RDY@ THEN DELAY 10 TICKS \
GOTO 1200
1210 OPEN PORTB" AS FILE #2,
ACCESS=NON_EXCLUSIVE
1220 DISP_RDY@ = TRUE
:
2000
IF USERNAME$ <> " THEN
PRINT #2 ; CURPOS$(20,10); Hello World,
my name is ; USERNAME$;
DELAY 5 SECONDS \ USERNAME$ = "
END_IF
2100 DELAY 10 TICKS \ GOTO 2000
:
32767
END