ô > MODEs $ô Check 'shapes' of screen modes : (ã M%=0 ¸ 11 2ë M%:mode%=M% € 7 < size%=2 Fç mode%=0 „ mode%=3:size%=1 Pç mode%=2 „ mode%=5:size%=4 Z colr%=1 dç mode%=1 „ mode%=5:colr%=2 nç mode%=2:colr%=3 x*ç M%>7:colr%=colr%*2:ç colr%>3:colr%=3 ‚ñ'½8;:W%=±/2:ï13 Œñ ‰(W%-3)"MODE ";M% –$ç M%>7:ñ'‰(W%-6);"If supported";  1ñ'‰((W%-13)€(W%>10));"Characters should be "; ªç size%=1:ñ"thin" ´ç size%=2:ñ"square" ¾ç size%=4:ñ‰(W%-2);"wide" È4ç M%=7:ñ" If supported this should be teletext" Òç M%=7:ñ ½147;Ä38,",")'‰2; ÜPç M%=7:ã C%=1 ¸ 7:ñ ½(128+C%);Á"RED GRN YELWBLUEMGNTCYANWHTE",C%*4-3,4);:í:ñ æç M%=7:ñ ½149;Ä38,",") ð_ç M%<>7:ñ'‰((W%-17)€(W%>10))"There should be at";‰(3+2*(W%>10));"least ";2^colr%;" colours" úQç M%<>7:ã C%=0 ¸ 15:û 135-(C%€1)*7:û C%:ñ"COLOUR ";C%;‰(2+(C%>9));:í:û 7:ñ½8' Gç M%=0:ñ‰(W%-26)"This should be the default 2-colour high-res MODE" Qç M%=1:ñ‰(W%-13)"This should be the default"'‰(W%-11)"4-colour 'square' MODE" Iç M%=3:ñ‰(W%-27)"This should be the fall-back 2-colour high-res MODE" "Qç M%=4:ñ‰(W%-13)"This should be the default"'‰(W%-11)"2-colour 'square' MODE" ,Sç M%=6:ñ‰(W%-14)"This should be the fall-back"'‰(W%-11)"2-colour 'square' MODE" 6 A%=¦(300) @í Jù ÿ