12 lines
208 B
Plaintext
12 lines
208 B
Plaintext
|
10 *
|
||
|
|
PRINT
|
||
|
|
PRINT "enter data ":
|
||
|
|
INPUT DATA
|
||
|
|
IF DATA='' THEN STOP
|
||
|
|
PRINT "enter conversion code ":
|
||
|
|
INPUT CONV
|
||
|
|
PRINT "FORMAT: ":DATA CONV
|
||
|
|
PRINT "ICONV : ":ICONV(DATA,CONV)
|
||
|
|
PRINT "OCONV : ":OCONV(DATA,CONV)
|
||
|
|
GO 10
|