OPEN "r", 1, "\hdisk", 128
FIELD 1, 128 AS a$
FOR f = 1 TO 4 STEP .5
PUT 1, 1000 * (10 ^ f)
NEXT