04 ' APPLIED TECHNICAL SYSTEMS ; SAMPLE PROGRAM FOR RS232 DISPLAYS
06 ' ADDRESS TEST FOR AE DEVICES ON COM 1, DISPLAYS "AD #" REPEATEDLY
10 OPEN "COM1:2400,N,8,1" FOR RANDOM AS 1
20 FOR A = 0 TO 15
21 ADDR$ = STR$(A)
22 IF LEN(STR$(A)) = 1 THEN ADDR$ = "0" + STR$(A)
30 PRINT #1, CHR$(0); CHR$(0); CHR$(17); CHR$(A); CHR$(0); "AD"; ADDR$; CHR$(0); CHR$(0); CHR$(0);
35 PRINT MID$(STR$(A), 1, 4),
40 FOR B = 1 TO 9000
45 NEXT B
100 NEXT A
105 GOTO 20
110 CLOSE 1
115 SYSTEM
120 END