10 KEY OFF : KEY(1) ON : ON KEY(1) GOSUB 5000
20 CLS : COLOR 4,0
21 LOCATE 1,1 : PRINT "De tijd is " TIME$,DATE$
22 LOCATE 2,1 : PRINT STRING$(80,"อ")
23 LOCATE 22,1 : PRINT STRING$(80,"อ")
30 LOCATE 8,10 : COLOR 14,0 : PRINT "Rekenen met of zonder komma" : COLOR 4,0
40 LOCATE 9,10 : PRINT STRING$(27,"อ")
50 LOCATE 11,10 : PRINT "1 = Optellen"
60 LOCATE 12,10 : PRINT "2 = Aftrekken"
70 LOCATE 13,10 : PRINT "3 = Vermenigvuldigen"
80 LOCATE 14,10 : PRINT "4 = Delen"
90 LOCATE 16,10 : PRINT "F1 = Einde programma"
91 COLOR 5,0 : LOCATE 18,10 : PRINT "Tik uw keuze in, 1, 2, 3, 4, of F1"
100 KEUZE$=INKEY$
110 IF KEUZE$="1" THEN GOTO 1000
120 IF KEUZE$="2" THEN GOTO 2000
130 COLOR 4,0 : IF KEUZE$="3" THEN GOTO 3000
140 LOCATE 1,12 : PRINT TIME$,DATE$ : IF KEUZE$="4" THEN GOTO 4000
160 GOTO 100
1000 PRINT "U heeft een 1 gekozen"
1010 CLS
1011 COLOR 4,0 : LOCATE 1,1 : PRINT "De tijd is " TIME$,DATE$
1012 LOCATE 2,1 : PRINT STRING$(80,"อ")
1013 LOCATE 22,1 : PRINT STRING$(80,"อ")
1020 COLOR 14,0 : LOCATE 8,10 : PRINT "Optellen"
1030 COLOR 4,0 : LOCATE 9,10 : PRINT "ออออออออ"
1040 COLOR 5,0 : LOCATE 11,10 : PRINT "Tik het eerste getal in";
1050 INPUT EERSTE
1060 LOCATE 12,10 : PRINT "Tik het tweede getal in";
1070 INPUT TWEEDE
1080 LET UITKOMST=EERSTE+TWEEDE : COLOR 10,0
1090 LOCATE 14,9 : PRINT EERSTE, "+", TWEEDE, "=", UITKOMST
1100 LOCATE 16,10 : COLOR 5,0 : PRINT "Zal ik het voor u afdrukken ? (J/N)"
1110 KEUZE$=INKEY$
1120 IF KEUZE$="j" OR KEUZE$="J" THEN GOTO 1150
1130 COLOR 4,0:LOCATE 1,12:PRINT TIME$,DATE$:IF KEUZE$="n" OR KEUZE$="N" THEN GOTO 10
1140 GOTO 1110
1150 LPRINT USING "#####.###"; EERSTE;
1160 LPRINT "+";
1170 LPRINT USING "#####.###"; TWEEDE;
1180 LPRINT "=";
1190 LPRINT USING "#####.###"; UITKOMST;
1200 GOTO 10
2000 PRINT "U heeft een 2 gekozen"
2010 CLS
2011 COLOR 4,0 : LOCATE 1,1 : COLOR 4,0 : PRINT "De tijd is " TIME$,DATE$
2012 LOCATE 2,1 : PRINT STRING$(80,"อ")
2013 LOCATE 22,1 : PRINT STRING$(80,"อ")
2020 COLOR 14,0 : LOCATE 8,10 : PRINT "Aftrekken"
2030 COLOR 4,0 : LOCATE 9,10 : PRINT "อออออออออ"
2040 COLOR 5,0 : LOCATE 11,10 : PRINT "Tik het eerste getal in";
2050 INPUT EERSTE
2060 LOCATE 12,10 : PRINT "Tik het tweede getal in";
2070 INPUT TWEEDE
2080 LET UITKOMST=EERSTE-TWEEDE
2090 LOCATE 14,9 : PRINT EERSTE,"-",TWEEDE,"=",UITKOMST
2100 LOCATE 16,10 : COLOR 5,0 : PRINT "Zal ik het voor u afdrukken ? (J/N)"
2110 KEUZE$=INKEY$
2120 COLOR 4,0:LOCATE 1,12:PRINT TIME$,DATE$:IF KEUZE$="j" OR KEUZE$="J" THEN GOTO 2150
2130 IF KEUZE$="n" OR KEUZE$="N" THEN GOTO 10
2140 GOTO 2110
2150 LPRINT USING "#####.###"; EERSTE;
2160 LPRINT "-";
2170 LPRINT USING "#####.###"; TWEEDE;
2180 LPRINT "=";
2190 LPRINT USING "#####.###"; UITKOMST;
2200 GOTO 10
3000 PRINT "U heeft een 3 gekozen"
3010 CLS : COLOR 4,0 :
3011 COLOR 4,0 : LOCATE 1,1 : PRINT "De tijd is " TIME$,DATE$
3012 LOCATE 2,1 : PRINT STRING$(80,"อ")
3013 LOCATE 22,1 : PRINT STRING$(80,"อ")
3020 COLOR 14,0 : LOCATE 8,10 : PRINT "Vermenigvuldigen"
3030 COLOR 4,0 : LOCATE 9,10 : PRINT STRING$(16,"อ")
3040 COLOR 5,0 : LOCATE 11,10 : PRINT "Tik het eerste getal in";
3050 INPUT EERSTE
3060 LOCATE 12,10 : PRINT "Tik het tweede getal in";
3070 INPUT TWEEDE
3080 LET UITKOMST=EERSTE*TWEEDE
3090 COLOR 10,0 : LOCATE 14,9 : PRINT EERSTE "*" TWEEDE "=" UITKOMST
3100 COLOR 5,0 : LOCATE 16,10 : PRINT "Zal ik het voor u afdrukken ? (J/N)"
3110 KEUZE$=INKEY$
3120 COLOR 4,0:LOCATE 1,12:PRINT TIME$,DATE$:IF KEUZE$="j" OR KEUZE$="J" THEN GOTO 2150
3130 IF KEUZE$="n" OR KEUZE$="N" THEN GOTO 10
3140 GOTO 2110
3150 LPRINT USING "#####.###"; EERSTE;
3160 LPRINT "*";
3170 LPRINT USING "#####.###"; TWEEDE;
3180 LPRINT "=";
3190 LPRINT USING "#####.###"; UITKOMST;
3200 GOTO 10
4000 PRINT "U heeft een 4 gekozen"
4010 CLS
4011 LOCATE 1,1:COLOR 4,0 : PRINT "De tijd is " TIME$,DATE$
4012 LOCATE 2,1 : PRINT STRING$(80,"อ")
4013 LOCATE 22,1 : PRINT STRING$(80,"อ")
4020 COLOR 14,0 : LOCATE 8,10 : PRINT "Delen"
4030 COLOR 4,0 : LOCATE 9,10 : PRINT "อออออ"
4040 COLOR 5,0 : LOCATE 11,10 : PRINT "Tik het eerste getal in";
4050 INPUT EERSTE
4060 LOCATE 12,10 : PRINT "Tik het tweede getal in";
4070 INPUT TWEEDE
4080 LET UITKOMST=EERSTE/TWEEDE
4090 COLOR 10,0 : LOCATE 14,9 : PRINT EERSTE ":" TWEEDE "=" UITKOMST
4100 COLOR 5,0 : LOCATE 16,10 : PRINT "Zal ik het voor u afdrukken ? (J/N)"
4110 KEUZE$=INKEY$
4120 COLOR 4,0:LOCATE 1,12:PRINT TIME$,DATE$:IF KEUZE$="j" OR KEUZE$="J" THEN GOTO 2150
4130 IF KEUZE$="n" OR KEUZE$="N" THEN GOTO 10
4140 GOTO 2110
4150 LPRINT USING "#####.##"; EERSTE;
4160 LPRINT ":";
4170 LPRINT USING "#####.###"; TWEEDE;
4180 LPRINT "=";
4190 LPRINT USING "#####.###"; UITKOMST;
4200 GOTO 10
5000 COLOR 10,0 : CLS : PRINT "Naar het REKEN-MENU" : RUN "RMENU.BAS