10 KEY OFF:ON ERROR GOTO 380
20 COLOR 4,0:CLS
30 LOCATE 1,1 : PRINT "De tijd is " TIME$,DATE$
40 LOCATE 2,1 : PRINT STRING$(80,"Í")
50 LOCATE 22,1 : PRINT STRING$(80,"Í")
60 LOCATE 8,10 : COLOR 14,0 : PRINT "TOOLS-MENU"
70 LOCATE 9,10 : COLOR 4,0 : PRINT STRING$(10,"Í")
80 COLOR 7,0:LOCATE 11,10 : PRINT "1 = LIJSTEN ALGEMEEN"
90 LOCATE 12,10:PRINT "2 = BASIC file laden"
100 LOCATE 13,10:PRINT "3 = DOS file laden"
110 LOCATE 14,10:PRINT "4 = Alarm afstellen"
120 LOCATE 15,10:PRINT "5 = Tijdelijk naar DOS"
130 LOCATE 16,10:PRINT "6 = Een willekeurig DOS commando starten"
140 LOCATE 17,10:PRINT "7 = Alle tijden bekijken (klok, datum en timer)"
150 COLOR 14,0:LOCATE 18,10:PRINT "T = TOOLS-MENU (vervolg)
160 LOCATE 20,10 : COLOR 14,0 : PRINT "H = HOOFD-MENU"
170 COLOR 5,0:LOCATE 21,10 : PRINT "Maak uw keuze: 1, 2, 3, 4, 5, 6, 7, T of H"
180 COLOR 1,0:LOCATE 25,10 : PRINT "Wat handig, die dingen zeg !";
190 KEUZE$=INKEY$
200 IF KEUZE$="1" THEN GOTO 300
210 IF KEUZE$="7" THEN RUN "klok
220 IF KEUZE$="4" THEN RUN "alarm
230 IF KEUZE$="6" THEN GOTO 560
240 IF KEUZE$="3" THEN GOTO 460
250 IF KEUZE$="5" THEN CLS:LOCATE 2,1:COLOR 2,0:LOCATE 3,1:PRINT "Type EXIT [ent] om terug te gaan naar menu":LOCATE 24,70:COLOR 3,0:PRINT "²°²";:COLOR 21,0:PRINT "ø":LOCATE 3,1:SHELL"COMMAND.COM":GOTO 10
260 IF KEUZE$="t" OR KEUZE$="T" THEN RUN"a2menu.bas
270 IF KEUZE$="h" OR KEUZE$="H" THEN CLS:COLOR 10,0:PRINT "Naar het HOOFD-MENU":CHAIN"HMENU.BAS"
280 IF KEUZE$="2" THEN GOTO 390
290 LOCATE 1,12:COLOR 4,0:PRINT TIME$,DATE$:GOTO 190
300 COLOR 4,0:CLS:LOCATE 1,1:PRINT "De tijd is " TIME$,DATE$
310 LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
320 LOCATE 3,3:COLOR 13,0:FILES
330 LOCATE 21,1:COLOR 9,0:PRINT "Druk op spatie voor menu"
340 KEUZE$=INKEY$
350 IF KEUZE$=" " GOTO 10
360 COLOR 4,0:LOCATE 1,12:PRINT TIME$,DATE$
370 GOTO 340
380 RUN"pcvolk.bas
390 COLOR 4,0:CLS:LOCATE 1,1:PRINT "De tijd is " TIME$,DATE$
400 LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
410 LOCATE 3,1:COLOR 13,0:FILES"*.bas"
420 LOCATE 21,1:COLOR 15,0:INPUT "Welke file wilt u laden ";BASFILE$
430 IF BASFILE$="" THEN GOTO 10
440 RUN BASFILE$
450 GOTO 10
460 CLS:COLOR 4,0:LOCATE 1,1:PRINT "De tijd is " TIME$
470 LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
480 LOCATE 3,1:COLOR 13,0:FILES"*.bat":LOCATE 8,1:FILES"*.exe":LOCATE 12,1:FILES"*.com"
490 LOCATE 20,1:PRINT "Welke file wilt u laden ";:INPUT DOSFILE$
500 CLS:LOCATE 3,1:SHELL DOSFILE$
510 COLOR 9,0:LOCATE 23,1:PRINT "Druk op spatie voor menu";
520 COLOR 4,0:LOCATE 1,1:PRINT "De tijd is " TIME$:LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
530 KEUZE$=INKEY$:IF KEUZE$=" " GOTO 10
540 LOCATE 1,12:COLOR 4,0:PRINT TIME$,DATE$
550 GOTO 530
560 CLS:COLOR 4,0:LOCATE 1,1:PRINT "De tijd is " TIME$,DATE$:A$=STRING$(80,205)
570 LOCATE 2,1:PRINT A$:LOCATE 22,1:PRINT A$
580 LOCATE 8,10:INPUT "Welk DOS commando ";COMMANDO$
590 LOCATE 12,10:PRINT "Er wordt geladen !"
600 SHELL COMMANDO$
610 GOTO 10