AT&T 6300 Programmer's Manual page 563

DEB Statements
The following program shows the use of a variety
of DEB features. It includes a setup procedure to
help you adjust your monitor for best viewing of
DEB effects.
1100 REM Display Enhancement Board
1200 REM Monitor Setup Program
1300 REM
1400 SCREEN 0,0,0
1500 KEY OFF:CLS
1600 REM
1700 REM The following is a way to easily center
1S00 REM the title text
1900 AS = "AT&T PC-6300"
1910 lOCATE 1,l80-LENlAS))/2;
1920 PRINT AS . 'Center text
2000 AS = "DISPLAY ENHANCEMENT BOARD"
2010 LOCATE 2,lSO-LENlAS))/2:PRINTAS
2100 AS ="MONITOR SETUP PROGRAM"
2110 LOCATE 3,lSO-LENlAS))/2:PRINT AS
;:!200 LOCATE 10,1:INPUT "Enter Monitor type
l'MONO' or 'COLOR')II;MS
2300 IF LEFTSlMS,1)
=
"Mil OR LEFTSlM$,1)="m"
THEN GOTO 2900
2400 IF LEFT$lMS,1)
=
"C" OR LEJ=T$lM$,1)
=
"c"
THEN GOTO 5000
2500 PRINT
2510 PRINT CHRS(7);"Can not use '";M$;"' as a monitor
type"
2600 FOR A~1 TO 3000:NEXTA
2700 GOTO 2200
2S00 REM
2900 REIVI Monochrome Monitor Setup
3000 REM
3100 D'M PAL(16)
3200
SCREEN10~CLS
3300 FOR A=OTO 15
3310 READ PALlA):PALETTE A, PAllA)
3-25