NEW
100 REM IOTEST.BAS, FOR THE
110 REM INDUSTROLOGIC, INC.
120 REM SBC-1. THIS PROGRAM
130 REM TESTS AND DEMONSTRATES
140 REM THE LED-8 DISPLAY.
150 REM
200 PRINT CHR(12);
210 PRINT "Industrologic, ";
220 PRINT "Inc. SBC-1"
230 PRINT "LED display ";
240 PRINT "test program"
250 PRINT "Version 1/13/99"
260 PRINT
270 PRINT "Displaying date ";
280 PRINT "and time on LED ";
290 PRINT "display unit..."
400 DPRINT "THE DATE"
410 PAUSE 100
420 IF INKEY=27 THEN END
430 DCLOCK2
440 PAUSE 255
450 IF INKEY=27 THEN END
460 DPRINT "THE TIME"
470 PAUSE 100
480 IF INKEY=27 THEN END
490 DCLOCK3
500 PAUSE 255
510 IF INKEY=27 THEN END
520 GOTO 400
RUN