ô > ANSINums !ô List all 256 COLOUR numbers @ô Manually translate COLOUR numbers to ANSI colour sequences (: 2òcolour(-1):ô Initialise <òcls Fã A=0 ¸ 255:òcolour(A) Pñ" ";ÀÃA+" ",3); Zç (A € 15)=15:ñ ‹ ñ" "; dí A nòcolour(128):òcolour(7):à x: ‚$Ýòcls:ñ'½27;"[2J";½27;"[1;1H";:á Œ=Ýòcolour(C):ç C<0:fgd=7:bgd=0:ñ ½27;"[0m";:á:ô Initialise –=ç (C >= 192):border=C € 15:á :ô Set border colour 9ç (C € 128):bgd=C € 15 ‹ fgd=C € 15 :ô Set new colour ªñ ½27;"[0"; ´3ç (C € 16):ñ ";5"; :ô Flash ¾7ç (C € 32):ñ ";4"; :ô Underline È5ç (C € 64):ñ ";7"; :ô Inverse Ò@ñ ";";30+(fgd € 7); :ô Foreground colour Ü?ç (fgd € 8):ñ ";1"; :ô Bright foreground æ@ñ ";";40+(bgd € 7); :ô Background colour ð=ç (bgd € 8):ñ ";";100+(bgd € 7); :ô Bright background ú ñ "m"; á ÿ