0  ' This stores numeric values to TEST.DAT to demonstration Clipper UDFs.
10 OPEN "TEST.DAT" FOR OUTPUT AS #1
20 CLS:T1=0:T2=0:T3=0
30 LOCATE 2,23:PRINT "WRIGHTware BASIC conversion test"
40 LOCATE 5,2:INPUT "Enter number to store as an integer value with MKI$: ",T1
50 LOCATE 7,2:INPUT "Enter number to store as single precision with MKS$: ",T2
60 LOCATE 9,2:INPUT "Enter number to store as double precision with MKD$: ",T3
70 WRITE #1,MKI$(T1),MKS$(T2),MKD$(T3)
80 CLOSE #1
90 SYSTEM