Randomly selects a character/keyword from the Sinclair codes, picks a random line and column number, then animates “pushing” that character to its spot.
Content
Image Gallery
Source Code
10 REM *** MUFFIN
20 LET L=INT (RND*21)+1
30 LET L1=INT (RND*19)+1
40 LET J=INT (RND*223)+33
50 FOR F=0 TO L
60 PRINT AT L1,F;CHR$ J,,
70 NEXT F
80 PRINT AT L1,L;CHR$ J,,
90 FOR F=(L-1) TO 0 STEP -1
100 PRINT AT L1,F;" "
110 NEXT F
120 GO TO 20Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.