17000 '========================================================================
17010 REM Display Help screen
17020 HLP.LYN% = CSRLIN :HLP.COL% = POS(0) :COLOR 7,0
17030 HLP.CNT% = HLP.CNT% + 1
17040 IF HLP.CNT% = 1 THEN DIM SCR.SVE%(8, 40) :GOTO 17110
17050 FOR J.H = 18 TO 25
17060   FOR K.H = 1 TO 40
17070     LOCATE J.H, K.H + 39 :PRINT CHR$(SCR.SVE%(J.H - 17, K.H));
17080   NEXT
17090 NEXT
17100 HLP.CNT% = 0 :ERASE SCR.SVE% :GOTO 17260
17110 FOR J.H = 18 TO 25
17120   FOR K.H = 1 TO 40
17130     SCR.SVE%(J.H - 17, K.H) = SCREEN(J.H, K.H + 39)
17140   NEXT
17150 NEXT
17160 LOCATE 18,40 :PRINT "É"; :LOCATE 18,79 :PRINT "»";
17170 LOCATE 25,40 :PRINT "È"; :LOCATE 25,79 :PRINT "¼";
17180 FOR J.H = 41 TO 78 :LOCATE 18, J.H :PRINT "Í"; :LOCATE 25, J.H :PRINT "Í"; :NEXT
17190 FOR J.H = 19 TO 24 :LOCATE J.H, 40 :PRINT "º"; :LOCATE J.H, 79 :PRINT "º"; :NEXT
17200 LOCATE 19,42 :PRINT "Gebruik  ";CHR$(24);CHR$(25);CHR$(26);CHR$(27);"  vir beweging"
17210 LOCATE 20,42 :PRINT "         INS   vir invoegmodus"
17220 LOCATE 21,42 :PRINT "         DEL   om te verwyder"
17230 LOCATE 22,42 :PRINT "         ESC   om veld te kanselleer"
17240 LOCATE 23,42 :PRINT "         PgDn  om bladsy te voltooi"
17250 LOCATE 24,42 :PRINT "         ";CHR$(17);CHR$(45);"    om uit te vee";
17260 LOCATE HLP.LYN%, HLP.COL%
17270 RETURN
