0 Members and 2 Guests are viewing this topic.
EXPORT Test()BEGIN0->AWHILE 1 DOA+1->A;TEXTOUT(A,1,1,2,0,65,2); // str/var,Y,X,FontSize,Color1,Width,BackgroundColor (0=black, 1=dark gray, 2=light gray, 3=white, transparent bg if not setup)TEXTOUT(A,2,1,2,0);TEXTOUT(A,3,1,2,3);TEXTOUT(A,4,1,2,3);END;END;
EXPORT Test()BEGIN0->AWHILE 1 DOA+1->A;INVERT(); (no arguments inverts the entire screen by default. Light gray pixels becomes dark gray or vice-versa)TEXTOUT(A,1,1,2,0,65,2);TEXTOUT(A,2,1,2,0);TEXTOUT(A,3,1,2,3);TEXTOUT(A,4,1,2,3);END;END;
EXPORT Test()BEGIN0->AWHILE 1 DOA+1->A;TEXTOUT(A,1,1,2,0,65,2);END;END;
EXPORT TF()BEGINFOR A FROM 0 TO 99999 DOEND;END;
Have you taken note, TI?
EXPORT Tunnel()BEGIN0►X;0►Y;0►Z;WHILE 1 DOY-ISKEYDOWN(9)+ISKEYDOWN(15)►Y;X-ISKEYDOWN(14)+ISKEYDOWN(10)►X;FOR A FROM 0 TO 4 DOFOR B FROM 0 TO 8 DORECT_P(X+(32*B),Y+(32*A),X+32+(32*B),Y+32+(32*A),3,Z);IF X>0 THEN−31►XELSEIF X<−31 THEN0►XEND;END;IF Y>0 THEN−31►YELSEIF Y<−31 THEN0►YEND;END;Z+1►Z;IF Z>3 THEN0►Z;END;END;END;END;END;
"welcome to the world of computers, where everything seems to be based on random number generators"
Yup, it's a grayscale LCD (so not color, but not black and white either).