10 COLOR 4,0:CLS:KEY OFF:LOCATE 1,1:PRINT "De tijd is " TIME$,DATE$
20 LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
30 LOCATE 8,10:COLOR 14,0:PRINT "OMREKENEN"
40 LOCATE 9,10:COLOR 4,0: PRINT STRING$(9,205)
50 LOCATE 11,10:PRINT "1. Celsius > Fahrenheit"
51 LOCATE 12,10:PRINT "2. Celsius < Fahrenheit"
52 LOCATE 13,10:PRINT "3. Einde"
60 KEUZE$=INKEY$
70 IF KEUZE$="1" THEN 1000
71 IF KEUZE$="3" THEN RUN"rmenu
80 IF KEUZE$="2" THEN 2000
90 LOCATE 1,12:PRINT TIME$,DATE$
100 GOTO 60
1000 REM Celsius > Fahrenheit
1010 REM Formule : C staat tot F = 5 staat tot 9 -32
1020 REM ===========================================
1030 FOR A=11 TO 13
1040 LOCATE A,10:PRINT "                        ":NEXT A
1050 LOCATE 11,10:INPUT "Aantal graden Celsius ===> ",CELSIUS
1060 FAHRENHEIT = (((CELSIUS /5) * 9) + 32)
1070 LOCATE 13,10:PRINT CELSIUS    "graden Celsius is "
1080 LOCATE 14,10:PRINT FAHRENHEIT "graden Fahrenheit."
1090 LOCATE 16,10:COLOR 5,0:PRINT "Zal ik het voor u afdrukken ??? (j/n)"
1100 KEUZE$=INKEY$
1110 IF KEUZE$="j" OR KEUZE$="J" THEN 1150
1120 IF KEUZE$="n" OR KEUZE$="N" THEN 10
1130 LOCATE 1,12:COLOR 4,0:PRINT TIME$,DATE$
1140 GOTO 1100
1150 LPRINT CELSIUS    "Graden Celsius is"
1160 LPRINT FAHRENHEIT "graden Fahrenheit."
1170 GOTO 10
2000 REM Fahrenheit > Celsius
2010 REM Formule : C staat tot F = 5 staat tot 9 -32
2020 REM ===========================================
2030 FOR A=11 TO 13
2040 LOCATE A,10:PRINT "                        ":NEXT A
2050 LOCATE 11,10:INPUT "Aantal graden Fahrenheit ==> ",FAHRENHEIT
2060 CELSIUS = (((FAHRENHEIT -32) / 9) * 5)
2070 LOCATE 13,10:PRINT FAHRENHEIT "Graden Fahrenheit is"
2080 LOCATE 14,10:PRINT CELSIUS    "graden Celsius."
2090 LOCATE 16,10:COLOR 5,0:PRINT "Zal ik het voor u afdrukken ??? (j/n)"
2100 KEUZE$=INKEY$
2110 IF KEUZE$="j" OR KEUZE$="J" THEN 1150
2120 IF KEUZE$="n" OR KEUZE$="N" THEN 10
2130 LOCATE 1,12:COLOR 4,0:PRINT TIME$,DATE$
2140 GOTO 1100
2150 LPRINT FAHRENHEIT "Graden Fahrenheit is"
2160 LPRINT CELSIUS    "graden Celsius."
2170 GOTO 10
2180 REM Dit was mijn eerste programma in GW-BASIC.
2190 REM Daarna zijn de andere gekomen. Na enige aan-
2200 REM passingen was het in deze vorm.