ival1 Example10 CLEAR SCREEN
20 I$="270F"
30 OUTPUT CRT;"converting hex ";I$;" to integer";
40 PRINT IVAL(I$,16)
50 J$="9999"
60 OUTPUT CRT;"converting base 10 ";J$;" to integer";
70 PRINT IVAL(J$,10)
80 K$="23417"
90 OUTPUT CRT;"converting octal ";K$;" to integer";
100 PRINT IVAL(K$,8)
110 L$="0010011100001111"
120 OUTPUT CRT;"converting binary ";L$;" to integer";
130 PRINT IVAL(L$,2)
140 END
|