Code: Select all
10 PRINT "\/"(INT(RND*2)+1);:GO TO 10
Code: Select all
1 LET M$="{GRAPHICS}{SHIFT}12345678QWERTY {SHIFT OFF}{GRAPHICS OFF} "
2 LET Z=NOT PI
3 LET W=CODE "3"
4 LET H=CODE "*"
5 LET X=Z
6 LET Y=Z
7 POKE 16418,Z
8 LET L=LEN M$
9 LET G=CODE "{GRAPHICS}{SHIFT}S{SHIFT OFF}{GRAPHICS OFF}"
10 FOR X=Z TO W
11 FOR Y=Z TO H
12 PRINT M$(INT(RND*L)+SGN PI);
13 NEXT Y
14 NEXT X
15 PRINT AT Z,Z;
16 GOTO G
Code: Select all
1 LET M$="{GRAPHICS}{SHIFT}12345678QWERTY {SHIFT OFF}{GRAPHICS OFF} "
2 LET Z=NOT PI
3 LET W=CODE "4"
4 LET H=CODE "("
5 LET L=LEN M$
6 LET O=SGN PI
7 LET G=CODE "{GRAPHICS}{SHIFT}A{SHIFT OFF}{GRAPHICS OFF}"
8 FOR X=O TO W*H
9 PRINT M$(INT (RND*L)+O);
10 NEXT X
11 PRINT AT Z,Z;
12 GOTO G
By the way, does anyone know of a safe way to POKE to the screen, say POKE DFILE+X+Y*32,CHAR ? Things don't go well when I've tried it so far.
Regards,
Shaun.