10 B=0
20 LOCATE ,,0:COLOR 0,15:CLS
30 KEY OFF
40 COLOR 0,15
50 LOCATE 12,3:COLOR 10,0,10
60 REM kader maken
70 LOCATE 1,1:PRINT "É"+STRING$(78,205)+"»"
80 FOR A=2 TO 24
90 LOCATE A,1:PRINT "º"+SPACE$(78)+"º";
100 NEXT A
110 LOCATE 25,1:PRINT "È"+STRING$(78,205)+"¼";
120 COLOR 0,15:LOCATE 4,4:PRINT "TYPEN"
130 COLOR 12,0:LOCATE 6,4:PRINT "Keuzes  : "
140 LOCATE 8,4:PRINT "1. Typen"
150 LOCATE 9,4:PRINT "2. Cursor veranderen"
160 LOCATE 10,4:PRINT "3. Einde"
170 COLOR 14,0:LOCATE 13,4:PRINT "Keuze ===> ";K$
180 K$=INKEY$
190 IF K$="1" THEN GOTO 230
200 IF K$="2" THEN GOTO 330
210 IF K$="3" THEN GOTO 470
220 GOTO 170
230 REM Typen
240 COLOR 0,14:CLS
250 LOCATE 25,1,1
260 COLOR 0,14:PRINT "Typen en afdrukken. Druk op de toeten CTRL+E voor eind.";
270 LOCATE 1,1
280 COLOR 10,14
290 TYP$=INKEY$:IF TYP$="" THEN 290
300 IF ASC(TYP$)=5 THEN 20
310 PRINT TYP$;:LPRINT TYP$;
320 GOTO 290
330 REM Cursor veranderen
340 COLOR 2,0:FOR A=4 TO 20:LOCATE A,3:PRINT SPACE$(21);:NEXT
350 LOCATE 4,4:COLOR 0,15:PRINT "CURSOR VERANDEREN"
360 LOCATE 6,3:INPUT "Welke beginlijn (0-31) ";START
370 IF START > 31 OR START <0 THEN 360
380 LOCATE 7,3:INPUT "Welke eindlijn  (0-31) ";EIND
390 IF EIND > 31 OR EIND < 0 THEN 380
400 LOCATE ,,,START,EIND
410 LOCATE ,,1
420 LOCATE 15,3:PRINT "Druk op een toets . . ."
430 COLOR 10,0:LOCATE 16,3:PRINT "Zo ziet de cursor er dan uit : ";
440 K$=INKEY$
450 IF K$<>"" THEN 20
460 GOTO 440
470 CLS
480 LOCATE 2,1
490 PRINT "Tot ziens !!"
500 RUN "a2menu"