10 REM Program: MDT60.BAS   By Tom Sarbeck    June, 1985
20 REM
30 REM Controls the cursor type on the MDT60 terminal.  Each selection 
40 REM (1 thru 7) sends one control to the terminal.  Some processors
50 REM may send their own controls and override those selected here.
60 REM
70 REM var branch=integer
80 PRINT CHR$(26)
90 PRINT"Enter the number of the MDT60 cursor type you want."
100 PRINT
110 PRINT" 0  -  Block Cursor, Slow Blink"
120 PRINT" 1  -  Block Cursor, Fast Blink"
130 PRINT" 2  -  Block Cursor, No Blink"
140 PRINT
150 PRINT" 3  -  Underline Cursor, Slow Blink"
160 PRINT" 4  -  Underline Cursor, Fast Blink"
170 PRINT" 5  -  Underline Cursor, No Blink"
180 PRINT
190 PRINT" 6  -  No Cursor"
200 PRINT" 7  -  Reset to Block Slow and Exit"
210 PRINT
220 PRINT">7  -  Leave Cursor As Is and Exit"
230 PRINT
240 INPUT"       Your selection";BRANCH
250 BRANCH = BRANCH+1
260 IF BRANCH < 1 THEN END
270 REM                                 Leave As Is and Exit
280 IF BRANCH > 8 THEN END
290 REM				        Branch
300 ON BRANCH GOTO 320,350,380,410,440,470,500,530
310 REM 				Block Slow
320 PRINT CHR$(27);CHR$(34);CHR$(48)
330 GOTO 80
340 REM 				Block Fast
350 PRINT CHR$(27);CHR$(34);CHR$(49)
360 GOTO 80
370 REM 				Block Steady
380 PRINT CHR$(27);CHR$(34);CHR$(50)
390 GOTO 80
400 REM 				Underline Slow
410 PRINT CHR$(27);CHR$(34);CHR$(51)
420 GOTO 80
430 REM				        Underline Fast
440 PRINT CHR$(27);CHR$(34);CHR$(52)
450 GOTO 80
460 REM				        Underline Steady
470 PRINT CHR$(27);CHR$(34);CHR$(53)
480 GOTO 80
490 REM 				No Cursor
500 PRINT CHR$(27);CHR$(34);CHR$(54)
510 GOTO 80
520 REM				        Block Slow and Exit
530 PRINT CHR$(27);CHR$(34);CHR$(48)
540 END
HR$(27);CHR$(34);CHR$(54)
510 GOTO 80
5