爱心-控制台程序-极语言教程

常量 蓝色=9,绿色= 10,青色=11,红色=12,紫色=13,黄色=14
小程序 初始启动
整数 输出=取控制台(标准输出)
设置标题("文字颜色和位置")
改光标位(输出,0x10010)
改字属性(输出,青色) 
写控制台(输出,".........",9)
改光标位(输出,0x10024)
写控制台(输出,".........",9)
改光标位(输出,0x2000C)
写控制台(输出,".::-----::::.....   .....::::-----::.",37)
改光标位(输出,0x3000B)
改字属性(输出,紫色) 
写控制台(输出,":--==----:::...............:::----==--:.",40)
改光标位(输出,0x40009)
写控制台(输出,".:--==----:::.................:::----==--:.",43)
改字属性(输出,黄色) 
改光标位(输出,0x50008)
写控制台(输出,".::-----:::::...................:::::-----::.",45)
改字属性(输出,绿色) 
改光标位(输出,0x60008)
写控制台(输出,".:::-::::::.........:::::.........::::::-:::.",45)
改字属性(输出,蓝色) 
改光标位(输出,0x70008)
写控制台(输出,".::::::......:::::::-----:::::::......::::::.",45)
改光标位(输出,0x80008)
改字属性(输出,红色) 
写控制台(输出,"...........::::----=======----::::...........",45)
改光标位(输出,0x90008)
写控制台(输出,"..........:::--===+++++++++===--:::..........",45)
改光标位(输出,0xA0008)
写控制台(输出,".........:::--==++****#****++==--:::.........",45)
改光标位(输出,0xB0009)
写控制台(输出,"........::--=++**###%%%###**++=--::........",43)
改光标位(输出,0xC000A)
写控制台(输出,"......::--==+**##%%%%%%%##**+==--::......",41)
改光标位(输出,0xD000B)
写控制台(输出,".....::--=++*##%%%%@%%%%##*++=--::......",40)
改光标位(输出,0xE000C)
写控制台(输出,".....::-==+**##%%%%%%%##**+==-::.....",37)
改光标位(输出,0xF000D)
写控制台(输出,"....::--=++**###%%%###**++=--::....",35)
改光标位(输出,0x10000E)
写控制台(输出,"....::--==++****#****++==--::....",33)
改光标位(输出,0x110010)
写控制台(输出,"...:::--==+++++++++==--:::...",29)
改光标位(输出,0x120012)
写控制台(输出,"...:::---=======---:::...",25)
改光标位(输出,0x130014)
写控制台(输出,"....:::::---:::::....",21)
改光标位(输出,0x140017)
写控制台(输出,"......:::......",15)
改光标位(输出,0x15001A)
写控制台(输出,".........",9)
改光标位(输出,0x16001D)
写控制台(输出,"...\r\n",5)
读字符
结束;