（?—1402）明浙江崇德人，字原道。程德刚子。洪武中举明经、秀才，授秦府引礼舍人，历长史，受累谪云南为吏。洪武三十一年征入翰林，预修《太祖实录》，迁右佥都御史。建文三年坐事贬官，仍留纂修。《实录》成，出为江西副使。未行，燕兵入京，自杀。► 277篇诗文
两仪肇判分三极，乾以直专坤辟翕。天地中间玄牝门，其动愈出静愈入。
道统正传指归趣，仲尼授参参授伋。风从虎兮云从龙，火就燥兮水流湿。
致和格物有等伦，入圣超凡无阶级。君子居易以俟命，内省不疚何忧悒。
致用推明生杀机，存身究竟龙蛇蛰。回光照破梦中身，直下掀翻旧书笈。
磨光刮垢绝根尘，释累清心无染习。潜心入妙感而通，万里长江一口吸。
何须乾鼎炼金精，不假坤炉烹玉汁。透彻羲皇未画前，世界收来藏黍粒。
水晶帘垂宫昼长，猩色屏风围绣床。美人春睡苦不足，梦随飞燕游昭阳。
觉来粉汗湿香脸，一线柔红枕痕浅。三十六宫在眼前，五色香云随指转。
牙床端坐杨太真，云冠霞佩绛色裙。双成小玉各宫样，绣衣乌帽高将军。
雕笼七宝挂高树，玉案金盘看鹦鹉。
可怜鹦鹉解人言，不说渔阳动鼙鼓。乃知禽语能戏人，不知人语能杀身。
亡家败国污天地，天生尤物天亦嗔。一朝艳质化尘土，可恨可怜千万古。
香魂不逐马尘飞，犹托深闺绣房女。想当盘礴欲绣时，停针想像心如丝。
绣成特自比容貌，伏枕自喜还自悲。郎君有此从何得，怪底梅花心铁石。
偶然持赠百拙人，眉眶眼精生丑色。少年阅此恼断肠，锦屏绣褥兰麝香。
夜深酒醒换银烛，时见杨妃在耳傍。君不闻张丽华堕宫井，铜雀章台烟烬冷。
繁华一梦人不知，万事邯郸吕公枕。
山人右臂枯有棱，日耕研田耘剡藤。秪今年己六十五，感时念旧身凌兢。
文章国内鸣当日，老病穷愁如猬集。子亡女长当赘婿，无钱卖棺情岂恤。
江空木落西风高，短衣破屋惊搜牢。相逢玉山泪流霰，老我太平难再遭。
玉山重义急水火，为制楠木棺若蚕得缠裹。便呼老仆荷锸随，醉死何妨即埋我。
君不见北邙山荒坟，累累白草间。积金何如积阴德，黄鸟能致三公环。
（?—1402）明浙江崇德人，字原道。程德刚子。洪武中举明经、秀才，授秦府引礼舍人，历长史，受累谪云南为吏。洪武三十一年征入翰林，预修《太祖实录》，迁右佥都御史。建文三年坐事贬官，仍留纂修。《实录》成，出为江西副使。未行，燕兵入京，自杀。