20000 '=======================================================================
20010 REM Vertoon Sleutelfunksies vir spyskaartprogramme          (helpscr.f8)
20020 DEF SEG   = &H0
20030 T.SCR%    = PEEK(1040) AND &H30
20040 IF T.SCR% = &H30 THEN 20050 ELSE 20060
20050 DEF SEG   = &HB000 :GOTO 20070                      'mono  screen
20060 DEF SEG   = &HB800                                  'color screen
20070 FOR I.SCR = 800 TO 3999
20080   SCR.SVE%(I.SCR) = PEEK(I.SCR)                     'store screen + color
20090 NEXT
20100 DEF SEG
20110 CLS
20120 KEY OFF
20130 LOCATE  6, 1 :PRINT STRING$(80, "±");
20140 LOCATE 23, 1 :PRINT STRING$(80, "±");
20150 FOR I.SCR = 7 TO 22
20160   LOCATE I.SCR,  1 :PRINT STRING$(8, "±");
20170   LOCATE I.SCR, 76 :PRINT STRING$(5, "±");
20180 NEXT
20190 FOR I.SCR = 8 TO 22
20200   LOCATE I.SCR, 8 :PRINT "°";
20210 NEXT
20220 LOCATE 22, 9 :PRINT STRING$(65, "°");
20230 LOCATE 22,74 :PRINT "±±";
20240 LOCATE 25, 1 :PRINT STRING$(60, "Ä");
20250 LOCATE 25,62 :PRINT "Key functions  ";
20260 LOCATE  7,20 :COLOR 0, 7 :PRINT "Key    "; :COLOR 7, 0:PRINT "                     "; :COLOR 0, 7: PRINT "Function" :COLOR 7, 0
20270 IF SITEM = "" THEN TXT$ = "Not applicable        " ELSE TXT$ = "Previous panel"
20280 LOCATE  8,20 :PRINT "0                           ";TXT$;
20290 LOCATE  9,20 :PRINT "1 - "; RIGHT$(STR$(LMAX), 1); "                       Program choices";
20300 IF SITEM = "" THEN TXT$ = "System Menu     " ELSE TXT$ = "Main Menu    "
20310 LOCATE 10,20 :PRINT "Q/q or ESC                  ";TXT$;
20320 LOCATE 12,20 :PRINT "F8                          This screen  ";
20330 LOCATE 13,20 :PRINT "F9  + program choice        Your own screen  (N-551)";
20340 LOCATE 14,20 :PRINT "F10 + program choice        System help screens";
20350 LOCATE 16,20 :PRINT "ALT + 1                     Pupil menu       ";
20360 LOCATE 17,20 :PRINT "ALT + 2                     Personnel Menu     ";
20370 LOCATE 18,20 :PRINT "ALT + 5                     Utilities Menu      ";
20380 LOCATE 20,20 :PRINT "ALT + D/d                   Change disk drive    ";
20390 LOCATE 21,20 :PRINT "ALT + S/s                   Status information";
20400 COLOR 0, 7 :LOCATE 25, 1, 0 :PRINT " Type "+CHR$(17)+"Ù to return        "; :COLOR 7, 0 :HLP.WAIT$ = INPUT$(1)
20410 CLS
20420 IF T.SCR% = &H30 THEN 20430 ELSE 20440
20430 DEF SEG   = &HB000 :GOTO 20450                      'mono  screen
20440 DEF SEG   = &HB800                                  'color screen
20450 FOR I.SCR = 800 TO 3999
20460   POKE I.SCR, SCR.SVE%(I.SCR)
20470 NEXT
20480 RETURN

