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 |