10 KEY OFF
20 CLS : COLOR 4,0:ON ERROR GOTO 230
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 "REKEN-MENU"
70 LOCATE 9,10 : COLOR 7,0 : PRINT STRING$(10,"Í")
80 LOCATE 11,10 : PRINT "1 = Omrekenen"
90 LOCATE 12,10 : PRINT "2 = Cirkels"
100 LOCATE 13,10 : PRINT "3 = Driehoek en parallellogram"
110 LOCATE 14,10 : PRINT "4 = Vierkanten"
120 LOCATE 15,10 : PRINT "5 = Rekenprogramma"
121 LOCATE 16,10 : PRINT "6 = Octaal, decimaal en hexdecimaal"
122 LOCATE 17,10 : PRINT "7 = Rente berekenen"
130 COLOR 14,0 : LOCATE 19,10 : PRINT "H = HOOFD-MENU" : COLOR 4,0
131 COLOR 5,0 : LOCATE 21,10:PRINT "Maak uw keuze : 1, 2, 3, 4, 5, 6, 7 of H" : COLOR 4,0
132 COLOR 1,0 : LOCATE 25,10:PRINT "Wat was ook al weer 1 x 1 ? ";
150 KEUZE$=INKEY$
160 IF KEUZE$="1" THEN RUN "OMREKEN.BAS
161 COLOR 4,0:LOCATE 1,29:PRINT DATE$:LOCATE 1,12:PRINT TIME$
162 IF KEUZE$="6" THEN RUN "decimaal.bas
163 IF KEUZE$="7" THEN RUN "RENTE.bas
170 IF KEUZE$="2" THEN RUN "CIRKEL.BAS
180 IF KEUZE$="3" THEN RUN "DRIEHOEK.BAS
190 IF KEUZE$="4" THEN RUN "VIERKANT.BAS
200 IF KEUZE$="5" THEN RUN "REKENEN.BAS
210 IF KEUZE$="h" OR KEUZE$="H" THEN CLS : COLOR 10,0 : PRINT "Naar het HOOFD-MENU." : CHAIN"HMENU.BAS"
220 GOTO 150
230 RUN"pcvolk.bas