1
0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-12-25 12:04:08 +00:00

Added C_IN_F.BAS.

This commit is contained in:
Markus Birth 1995-12-14 19:08:22 +01:00
parent da8c6bc286
commit 1740e07be6
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A

96
C_IN_F/C_IN_F.BAS Normal file
View File

@ -0,0 +1,96 @@
10 CLS
20 REM
30 REM
40 '
50 '
60 '
70 '
80 '
90 '
100 '
110 '
120 '
130 PRINT"Welche Umrechnung w<>nschen Sie ???"
140 '
150 PRINT
160 PRINT"[ 1 ] Celsius in Fahrenheit"
170 PRINT
180 PRINT TAB(14) "oder"
190 PRINT
200 PRINT"[ 2 ] Fahrenheit in Celsius"
210 PRINT:PRINT
220 PRINT"Nur 1 oder 2 Tippen !!!"
230 A$=INKEY$
240 IF A$="1" OR A$="!" THEN 300
250 IF A$="2" THEN 700
260 GOTO 230
270 '
280 '
290 '
300 '
310 '
320 '
330 '
340 '
350 '
360 CLS
370 PRINT:PRINT:PRINT
380 PRINT"Nach dem schreiben der Zahl unbedingt [ENTER] dr<64>cken !!!"
390 '
400 '
410 '
420 PRINT:PRINT
430 INPUT"Grade in Celsius : ",C
440 LET F=32+9/5*C
450 PRINT
460 PRINT C;" Grad Celsius"
470 PRINT" = "
480 PRINT F;" Grad Fahrenheit"
490 PRINT:PRINT
500 PRINT TAB(10)"Bitte Taste dr<64>cken !!!"
510 A$=INKEY$:IF A$="" THEN 510
520 GOTO 1000
700 '
710 '
720 '
730 '
740 '
750 '
760 CLS
770 PRINT:PRINT:PRINT
780 PRINT"Nach dem schreiben der Zahl unbedingt [ENTER] dr<64>cken !!!"
790 '
800 '
810 '
820 PRINT:PRINT
830 INPUT"Grade in Fahrenheit : ",F
840 LET C=5/9*(F-32)
850 PRINT
860 PRINT F;" Grad Fahrenheit"
870 PRINT" ="
880 PRINT C;" Grad Celsius"
890 PRINT:PRINT
900 PRINT TAB(10)"Bitte Taste dr<64>cken !!!"
910 A$=INKEY$:IF A$="" THEN 910
920 GOTO 1000
1000 '
1010 '
1020 '
1030 '
1040 '
1050 CLS
1060 PRINT:PRINT
1070 LOCATE 1,1:PRINT"Weitere Umrechnungen [Y/N] >>>"
1080 '
1090 A$=INKEY$
1100 IF A$="y" OR A$="Y" THEN 1200
1110 IF A$="n" OR A$="N" THEN 1300
1120 GOTO 1090
1200 LOCATE 1,1:PRINT"Weitere Umrechnungen [Y/N] >>> Yes"
1210 FOR Z=0 TO 9999:NEXT Z
1220 RUN
1300 LOCATE 1,1:PRINT"Weitere Umrechnungen [Y/N] >>> No"
1310 FOR Z=0 TO 9999:NEXT Z
1320 CLS
1330 END