10 REM CURSOR BITMAP
20 LET Y = 50 
30 LET X = 50 
40 GOSUB 110 
50 GET GMOUSE K ,L ,M 
60 IF M = 1 THEN GOTO 80 
70 WAIT 40 
75 GOTO 50
80 IF K> 399-15 THEN GOTO 50
85 IF L > 399-20 THEN GOTO 50
87 LET X=K
88 LET Y=L
89 GOTO 40
90 REM
100 REM
110 REM SUB DRAW CURSOR
120 LET Z = - 1 
130 LET A$ = "X...........0" 
140 GOSUB 550 
150 LET A$ = "XX..........0" 
160 GOSUB 550 
170 LET A$ = "X-X.........0" 
180 GOSUB 550 
190 LET A$ = "X--X........0" 
200 GOSUB 550 
210 LET A$ = "X---X.......0" 
220 GOSUB 550 
230 LET A$ = "X----X......0" 
240 GOSUB 550 
250 LET A$ = "X-----X.....0" 
260 GOSUB 550 
270 LET A$ = "X------X....0" 
280 GOSUB 550 
290 LET A$ = "X-------X...0" 
300 GOSUB 550 
310 LET A$ = "X--------X..0" 
320 GOSUB 550 
330 LET A$ = "X---------X.0" 
340 GOSUB 550 
350 LET A$ = "X------XXXXX0" 
360 GOSUB 550 
370 LET A$ = "X...X..X....0" 
380 GOSUB 550 
390 LET A$ = "X...X..X....0" 
400 GOSUB 550 
410 LET A$ = "X..X.X..X...0" 
420 GOSUB 550 
430 LET A$ = "X.X..X..X...0" 
440 GOSUB 550 
450 LET A$ = "XX....X..X..0" 
460 GOSUB 550 
470 LET A$ = "X.....X..X..0" 
480 GOSUB 550 
490 LET A$ = ".......X..X.0" 
500 GOSUB 550 
510 LET A$ = ".......X..X.0" 
520 GOSUB 550 
530 LET A$ = "........XX..0" 
540 RETURN 
550 REM SUB DRAW LINE
560 LET A = 0 
570 LET Z = Z + 1 
580 GETCHAR A$ ,A ,B 
590 IF B = 48 THEN RETURN 
600 IF B = 88 THEN COLOR RED 
610 IF B <> 88 THEN COLOR BLACK 
620 PSET A + X ,Y + Z 
630 LET A = A + 1 
640 GOTO 580