10 REM      ***************************************************
20 REM      *****                                         *****
30 REM      *****     VIDEO ATTRIBUTES - OSBORNE EXEC     *****
40 REM      *****                                         *****
50 REM      *****      FEBRUARY 1984 - H. M. HAWKINS      *****
60 REM      *****                                         *****
70 REM      ***************************************************
80 REM
90 PRINT CHR$(&H1A): REM CLEARS SCREEN
100 PRINT:PRINT:PRINT:PRINT:PRINT  
110 PRINT TAB(28),"    MENU SELECTIONS"
120 PRINT
130 PRINT TAB(28)  " 0. WINDOWING "
140 PRINT TAB(28)  " 1. BLINKING CURSOR "
150 PRINT TAB(28)  " 2. STEADY BLOCK CURSOR"             
160 PRINT TAB(28)  " 3. BLINK UNDERLINE CURSOR "
170 PRINT TAB(28)  " 4. STEADY UNDERLINE CURSOR "
180 PRINT TAB(28)  " 5. INVERSE VIDEO ON "
190 PRINT TAB(28)  " 6. INVERSE VIDEO OFF"
200 PRINT TAB(28)  " 7. REVERSE VIDEO"
210 PRINT TAB(28)  " 8. NORMAL VIDEO"
220 PRINT TAB(28)  " 9. DEFINE BACKGROUND.
230 PRINT
240 PRINT TAB(28),"ENTER SELECTION"; 
250 A$=INKEY$:IF A$="" THEN GOTO 250
260 IF A$="0" THEN 290
270 ON VAL(A$) GOTO 490,510,530,550,570,590,610,630,650
280 GOTO 90
290 PRINT CHR$(26):PRINT TAB(28)"WINDOW FEATURE"
300 PRINT:PRINT:PRINT TAB(20)"THE SCREEN CONTAINS 80 COLUMNS AND 24 ROWS."
310 PRINT TAB(20)"YOU MAY DEFINE A WINDOW BY SELECTING THE"
320 PRINT TAB(20)"BEGINNING AND ENDING OF THE COLUMN & ROW"
330 PRINT TAB(20)"BY ANSWERING THE PROMPTS WHICH FOLLOW."
340 PRINT TAB(20)"THE WINDOW YOU DEFINE WILL SCROLL ON THE SCREEN"
350 PRINT TAB(20)"WHILE THE REST OF THE DISPLAY WILL BE FROZEN."
360 PRINT TAB(20)"FOR EXAMPLE, A SMALL WINDOW IN THE MIDDLE OF THE"
370 PRINT TAB(20)"SCREEN, 4 BY 12 SPACES, CAN BE DEFINED BY USING"
380 PRINT TAB(20)"THE SEQUENCE 8-30-12-42.  TO RESTORE THE FULL"
390 PRINT TAB(20)"SCREEN, ENTER THE SEQUENCE 24-80-24-80."
400 PRINT TAB(20)"REMEMBER TO PRESS 0 (ZERO) TO SELECT THE"
410 PRINT TAB(20)"MENU SELECTION - THEN ENTER THE NUMBER SEQUENCE."
420 PRINT:INPUT"ENTER BEGINNING ROW (1 TO 24) THEN PRESS <RETURN>";BR
430 PRINT:INPUT"ENTER BEGINNING COLUMN (1 TO 80) PRESS <RETURN>";BC
440 PRINT:INPUT"ENTER ENDING ROW (1 TO 24) PRESS <RETURN>";ER
450 PRINT:INPUT"ENTER ENDING COLUMN (1 TO 80) PRESS <RETURN>";EC
460 PRINT CHR$(27)+"z"+"5"+CHR$(BR+32)+CHR$(BC+32)+CHR$(ER+32)+CHR$(EC+32)
470 PRINT CHR$(27)+"s"+"5"
480 GOTO 90
490 PRINT CHR$(27)+"."+"1"
500 GOTO 90
510 PRINT CHR$(27)+"."+"2"
520 GOTO 90
530 PRINT CHR$(27)+"."+"3"
540 GOTO 90
550 PRINT CHR$(27)+"."+"4"
560 GOTO 90
570 PRINT CHR$(27)+"j"
580 GOTO 90
590 PRINT CHR$(27)+"k"
600 GOTO 90
610 PRINT CHR$(27)+"b"
620 GOTO 90
630 PRINT CHR$(27)+"d"
640 GOTO 90
650 PRINT CHR$(&H1A):PRINT:PRINT:PRINT:PRINT
660 PRINT TAB(10) "  THE FOLLOWING MENU WILL ALLOW YOU TO CHANGE THE"
670 PRINT TAB(10) "  BACKGROUND VIDEO.  SIMPLY SELECT THE CHARACTER"
680 PRINT TAB(10) "  YOU DESIRE WHEN THE PROMPT IS OFFERED."
690 PRINT
700 PRINT TAB(12) "0 = NORMAL                 9 = DIM UNDERLINE"
710 PRINT TAB(12) "1 = DIM                    : = BLINK UNDERLINE"
720 PRINT TAB(12) "2 = BLINK                  ; = DIM UNDERLINE BLINK"
730 PRINT TAB(12) "3 = DIM BLINK              < = UNDERLINE REVERSE"
740 PRINT TAB(12) "4 = REVERSE                = = UNDERLINE REVERSE DIM"
750 PRINT TAB(12) "5 = REVERSE DIM            > = UNDERLINE REVERSE BLINK"
760 PRINT TAB(12) "6 = REVERSE BLINK          ? = UNDERLINE REV. DIM BLINK"
770 PRINT TAB(12) "7 = REVERSE DIM BLINK"
780 PRINT TAB(12) "8 = UNDERLINE              X = RETURN TO MAIN MENU"
790 PRINT:PRINT
800 PRINT "SELECT NUMBER OR CHARACTER FROM ABOVE MENU";
810 M$=INKEY$
820 IF M$="" THEN GOTO 810
830 IF M$="0" THEN 1010 ELSE 840
840 IF M$="1" THEN 1010 ELSE 850
850 IF M$="2" THEN 1010 ELSE 860
860 IF M$="3" THEN 1010 ELSE 870
870 IF M$="4" THEN 1010 ELSE 880
880 IF M$="5" THEN 1010 ELSE 890
890 IF M$="6" THEN 1010 ELSE 900
900 IF M$="7" THEN 1010 ELSE 910
910 IF M$="8" THEN 1010 ELSE 920
920 IF M$="9" THEN 1010 ELSE 930
930 IF M$="X" THEN 90 ELSE 940
940 IF M$="=" THEN 1010 ELSE 950 
950 IF M$=";" THEN 1010 ELSE 960
960 IF M$=":" THEN 1010 ELSE 970
970 IF M$="<" THEN 1010 ELSE 980
980 IF M$=">" THEN 1010 ELSE 990
990 IF M$="?" THEN 1010 ELSE 1000
1000 GOTO 650
1010 PRINT CHR$(27)+"x"+M$
1020 GOTO 650
980 IF M$=">" THEN 1010 ELSE 990
990 IF M$="?" THEN 1010 ELSE 1000
1000 GOTO 650
1010 PR