' BOB-3 Test Program   ....Provides a very brief exercise....
OPEN "com1: 9600,n,8,1,cs0,ds0,cd0,op1000,rs" FOR OUTPUT AS #1
PRINT #1, "{A17"; 'Clear the screen, in case we've been playing
PRINT #1, "{C1101"; 'Print title in center of 2nd line...
PRINT #1, "BOB-3 Test Program"
PRINT #1,
PRINT #1, "Time: "; TIME$
PRINT #1, "Date: "; DATE$
PRINT #1, "{U0{D0" 'Set background attribute for RAM & ROM chars
PRINT #1, "RAM characters are next... ";
PRINT #1, "{T4"; 'Prepare to print a few RAM characters
PRINT #1, CHR$(0); CHR$(1); CHR$(2); CHR$(3); CHR$(4); CHR$(5); CHR$(6);
PRINT #1, CHR$(33); CHR$(34); CHR$(35); CHR$(36); CHR$(37); CHR$(38);
PRINT #1, "{T0"  'Return to normal ASCII translation mode
CLOSE #1
END