FILE PROC bs.prc
FILE PROC impvol.prc
SAMPLE 1 1
READ EXPRICE SPRICE 
50 50
SIG:.35
R:.08
TAU:.25
K:EXPRICE
S:SPRICE
EXEC BS
SAMPLE 1 1
READ STOCK STRIKE CALL / LIST
     100   125     2
S:STOCK
K:STRIKE
C:CALL
R:.12
TAU:.25
EXEC IMPVOL
* Another Example
READ STOCK STRIKE CALL / LIST
     122   125     3
S:STOCK
K:STRIKE
C:CALL
R:.1
TAU:.25
EXEC IMPVOL
STOP