1 ' Degrees conversion
2 ' by A E Turner
3 ' Amstrad Action    August 87
20 '
30 ' *Scale Selection*
40 CLS: INK 0,13: INK 1,0: PAPER 0: BORDER 13
50 LOCATE 7,2
60 PRINT "*THERMAL DEGREES CONVERSION*"
70 LOCATE 7,6
80 PRINT "CENTIGRADE TO FAHRENHEIT...1"
90 LOCATE 7,9
100 PRINT "FAHRENHEIT TO CENTIGRADE...2"
110 LOCATE 10,14
120 PRINT " SELECT CONVERSION";: INPUT d
130 IF d=2 GOTO 260 ELSE IF d<>1 GOTO 40
140 ' *Calculate Degrees 'F' and Select Colours*
150 CLS: LOCATE 6,4
160 PRINT "Enter DEGREES CENTIGRADE ";
170 INPUT c
180 a=c*9/5+32
190 IF c>=100 THEN INK 1,6,15 ELSE IF c<=0 THEN INK 1,11,1
200 CLS: LOCATE 9,6: PRINT c;
210 PRINT " DEGREES CENTIGRADE "
220 LOCATE 20,10: PRINT "="
230 LOCATE 9,14: PRINT ROUND(a,2);
240 PRINT"DEGREES FAHRENHEIT": GOTO 370
250 ' *Calculate Degrees 'C' and Select Colours*
260 CLS: LOCATE 6,4
270 PRINT "Enter DEGREES FAHRENHEIT ";
280 INPUT f
290 b=((f+40)*5/9)-40
300 IF f>=212 THEN INK 1,6,15 ELSE IF f<=32 THEN INK 1,11,1
310 CLS: LOCATE 9,6
320 PRINT f " DEGREES FAHRENHEIT"
330 LOCATE 20,10: PRINT "="
340 LOCATE 9,14: PRINT ROUND(b,2);
350 PRINT" DEGREES CENTIGRADE": GOTO 370
360 ' *Choice of Another Entry*
370 LOCATE 2,18
380 PRINT"  Do you wish to make another ENTRY? "
390 LOCATE 19,21: PRINT "y/n?"
400 e$=INKEY$: IF e$="" THEN 400
410 IF e$="y" OR e$="Y" THEN 40
420 IF e$="n" OR e$="N" THEN CLS: INK 1,0: END
430 IF e$<>"n" OR e$<>"N" THEN GOTO 400