10 CLS : KEY OFF : KEY(1) ON : ON KEY(1) GOSUB 800
20 COLOR 4,0 : LOCATE 1,1 : PRINT "De tijd is " TIME$,DATE$
30 LOCATE 2,1 : PRINT STRING$(80,205) : LOCATE 22,1 : PRINT STRING$(80,205)
40 COLOR 14,0 : LOCATE 8,10 : PRINT "Vierkanten/rechthoeken"
50 COLOR 4,0 : LOCATE 9,10 : PRINT STRING$(22,205)
60 LOCATE 12,10 : PRINT "1 = Omtrek vierkant uitrekenen"
70 LOCATE 13,10 : PRINT "2 = Oppervlakte vierkant uitrekenen"
80 LOCATE 14,10 : PRINT "3 = Inhoud kubussen uitrekenen"
90 COLOR 10,0 : LOCATE 17,10 : PRINT "Maak uw keuze: 1, 2, 3 of F1"
100 COLOR 5,0 : LOCATE 15,10 : PRINT "F1 = Einde"
110 KEUZE$=INKEY$
120 LOCATE 1,12 : PRINT TIME$,DATE$: IF KEUZE$="1" GOTO 150
130 IF KEUZE$="2" GOTO 360
131 IF KEUZE$="3" GOTO 570
140 GOTO 110
150 PRINT "U heeft een "CHR$(34)"1"CHR$(34)" gekozen" : CLS
160 LOCATE 1,1 : PRINT "De tijd is " TIME$
170 LOCATE 2,1 : PRINT STRING$(80,205) : LOCATE 22,1 : PRINT STRING$(80,205)
180 LOCATE 8,10 : COLOR 14,0 : PRINT "Omtrek vierkanten uitrekenen" : COLOR 4,0
190 LOCATE 9,10 : PRINT STRING$(24,205)
200 COLOR 5,0 : LOCATE 12,10 : INPUT "Wat is de lengte  (cm)";L
210 COLOR 5,0 : LOCATE 14,10 : INPUT "Wat is de breedte (cm) ";B
220 LET O=(2*L)+(2*B)
230 LOCATE 15,10 : PRINT "Zo'n vierkant/rechthoek heeft een omtrek van "O" cm"
240 COLOR 5,0 : LOCATE 17,10 : PRINT "Zal ik het voor u afdrukken ? (J/N)";
250 AFDRUK$=INKEY$
260 IF AFDRUK$="J" OR AFDRUK$="j" GOTO 300
270 LOCATE 1,12 : PRINT TIME$,DATE$: IF AFDRUK$="n" OR AFDRUK$="N" GOTO 10
280 GOTO 250
290 LPRINT USING "#####.##"; L;
300 LPRINT " cm is de lengte, "
310 LPRINT USING "#####.##"; B;
320 LPRINT " cm is de breedte,"
330 LPRINT USING "#####.##"; O;
340 LPRINT " cm is dan de omtrek."
350 GOTO 10
360 PRINT "U heeft een "CHR$(34)"2"CHR$(34)" gekozen" : CLS
370 LOCATE 1,1 : PRINT "De tijd is " TIME$,DATE$
380 LOCATE 2,1 : PRINT STRING$(80,205) : LOCATE 22,1 : PRINT STRING$(80,205)
390 LOCATE 8,10 : COLOR 14,0 : PRINT "Omtrek vierkanten uitrekenen" : COLOR 4,0
400 LOCATE 9,10 : PRINT STRING$(24,205)
410 COLOR 5,0 : LOCATE 12,10 : INPUT "Wat is de lengte  (cm)";L
420 COLOR 5,0 : LOCATE 14,10 : INPUT "Wat is de breedte (cm) ";B
430 LET O=L*B
440 LOCATE 15,10 : PRINT "Zo'n vierkant/rechthoek heeft een oppervlakte van "O" cm"
450 COLOR 5,0 : LOCATE 17,10 : PRINT "Zal ik het voor u afdrukken ? (J/N)";
460 AFDRUK$=INKEY$
470 IF AFDRUK$="J" OR AFDRUK$="j" GOTO 300
480 COLOR 4,0:LOCATE 1,12 : PRINT TIME$,DATE$: IF AFDRUK$="n" OR AFDRUK$="N" GOTO 10
490 GOTO 460
500 LPRINT USING "#####.##"; L;
510 LPRINT " cm is de lengte, "
520 LPRINT USING "#####.##"; B;
530 LPRINT " cm is de breedte,"
540 LPRINT USING "#####.##"; O;
550 LPRINT " cmý is dan de oppervlakte."
560 GOTO 10
570 PRINT "U heeft een "CHR$(34)"3"CHR$(34)" gekozen" : CLS
580 LOCATE 1,1 : PRINT "De tijd is " TIME$,DATE$
590 LOCATE 2,1 : PRINT STRING$(80,205) : LOCATE 22,1 : PRINT STRING$(80,205)
600 LOCATE 8,10 : COLOR 14,0 : PRINT "Inhoud kubussen uitrekenen" : COLOR 4,0
610 LOCATE 9,10 : PRINT STRING$(24,205)
620 COLOR 5,0 : LOCATE 12,10 : INPUT "Wat is de lengte  (cm) ";L
630 COLOR 5,0 : LOCATE 14,10 : INPUT "Wat is de breedte (cm) ";B
640 COLOR 5,0 : LOCATE 16,10 : INPUT "Wat is de hoogte  (cm) ";H
641 LET I=L*B*H
650 LOCATE 18,10 : PRINT "Zo'n vierkant/rechthoek heeft een inhoud van "I" kubieke cm"
660 COLOR 5,0 : LOCATE 20,10 : PRINT "Zal ik het voor u afdrukken ? (J/N)";
670 AFDRUK$=INKEY$
680 IF AFDRUK$="J" OR AFDRUK$="j" GOTO 300
690 LOCATE 1,12 : PRINT TIME$ : IF AFDRUK$="n" OR AFDRUK$="N" GOTO 10
700 GOTO 460
710 LPRINT USING "#####.##"; L;
720 LPRINT " cm is de lengte, "
730 LPRINT USING "#####.##"; B;
740 LPRINT " cm is de breedte,";
750 LPRINT USING "#####.##"; H;
760 LPRINT " cm is de hoogte, ";
770 LPRINT USING "#####.##"; I;
780 LPRINT " kubieke cm is dan de inhoud"
790 GOTO 10
800 CLS : COLOR 10,0 : PRINT "Naar het REKEN-MENU" : RUN "RMENU.BAS