page-1983-101-timex-sinclair-programming-tricks
page-1983-101-timex-sinclair-programming-tricks
page-1983-101-timex-sinclair-programming-tricks
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Program Listing10 LET X=INT(30*RND)20 LET Y=INT(20*RND)30 LET C=INT(256*RND)40 PRINT AT Y,X;CHR$ C50 GOTO 1092 Flashing DotWant a blinking dot in the upper left-hand corner ofthe screen? You've got it!This program clears the screen and causes that dotto blink. Timing loops in lines 20 and 40 control the lengthof time the dot is on and off.See ASCII number list for other characters to displayas a dot. We use 128.Program Listing10 CLS20 PAUSE 2030 PRINT AT O,O;CHR$ 12840 PAUSE 4050 GOTO 1093 SnowfallWhite flakes sprinkle down the screen, over andover-until you press the BREAK key. It may be uselessbut it's a lot of fun to watch!Program Listing100 FOR X=S TO 63110 FOR Y=lO TO 43120 PLOT X,Y130 NEXT Y110