6Ć32
100 COMMON USERNAME$
110 COMMON KYBD_RDY@, DISP_RDY@
:
900 USERNAME$ = "
910 KYBD_RD
Y@ = F
ALSE
:
1000 IF DISP_RDY@ THEN DELAY 10 TICKS \ GOTO
1000
1100 OPEN PORTB" AS FILE #2, SETUP=(0800H,
9600) \ CL
OSE #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 DELA
Y 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 DELA
Y 10 TICKS \ GOTO 2000
:
32767
END
100 COMMON USERNAME$
110 COMMON KYBD_RDY@, DISP_RDY@
:
900 USERNAME$ = "
910 DISP_RD
Y@ = F
ALSE
1000
IF K
YBD_RDY@ THEN DELAY 10 TICKS \ GOTO
1000
1010 ! Add initialization code as required
:
1200 IF NOT KYBD_RDY@ THEN DELA
Y 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 DELA
Y 10 TICKS \ GOTO 2000
:
32767 END
Comentarios a estos manuales