10 COLOR 4,0:CLS:KEY OFF:WIDTH 80
20 A$=STRING$(80,205)
30 LOCATE 2,1:PRINT A$:LOCATE 22,1:PRINT A$:LOCATE 1,1:PRINT "De tijd is "TIME$;
40 PRINT ,DATE$:COLOR 14,0
50 LOCATE 8,10:PRINT "TOOLS-MENU":COLOR 7,0
60 LOCATE 9,10:PRINT STRING$(10,205)
70 LOCATE 11,10:PRINT "1. Kloksnelheid computer"
80 LOCATE 12,10:PRINT "2. Kleurenbalk"
90 LOCATE 13,10:PRINT "3. Kopieren, wissen enz."
100 LOCATE 14,10:PRINT "4. Printer afstellen (schriftsoort)"
110 LOCATE 15,10:PRINT "5. Woorden coderen"
120 LOCATE 16,10:PRINT "6. Woorden terugcoderen"
130 LOCATE 17,10:PRINT "7. Leeftijd opslaan"
140 LOCATE 18,10:PRINT "8. Typen"
150 COLOR 14,0:LOCATE 19,10:PRINT "T. TOOLS-MENU"
160 LOCATE 21,10:COLOR 5,0:PRINT "Maak uw keuze : 1, 2, 3, 4, 5, 6, 7 of T"
170 LOCATE 25,10:COLOR 1,0:PRINT "Dat is handig zeg !";
180 KEUZE$=INKEY$
190 IF KEUZE$="t" OR KEUZE$="T" THEN RUN"amenu.bas
191 IF KEUZE$="8" THEN RUN"typen.bas"
200 IF KEUZE$="1" THEN SHELL"speed":GOTO 10
210 IF KEUZE$="7" THEN RUN"leeftijd
220 IF KEUZE$="2" THEN RUN"kleuren
230 IF KEUZE$="3" THEN RUN"kopie.bas
240 IF KEUZE$="4" THEN RUN"printer
250 IF KEUZE$="5" THEN RUN"code
260 IF KEUZE$="6" THEN RUN"terug
270 IF KEUZE$="t" OR KEUZE$="T" THEN RUN"tmenu.bas
280 LOCATE 1,12:COLOR 4,0:PRINT TIME$,DATE$
290 GOTO 180