This routine, for the Atmos, clears the screen so you can type or draw the sequence you want. When you have finished, pressing SHIFT and 2 at the same time reproduces the picture a square at a time, finishing with a ping.

Typing / ends the program, and the Space bar will repeat the process.

T. Warburton, Lancaster, Lancs

0 CLS: POKE #26A,10: GRAB: HIMEM #700
1 B=#700: PRINT CHR$(17)
10 GET A$ : IF A$="@" THEN 70
16 IF B=#B300 THEN 70
20 A=ASC(A$) : POKE B,A : B=B+1
30 PRINT A$;: GOTO 10
70 CLS : FOR C=#700 TO B-1
90 D=PEEK(C) : WAIT 5
100 PRINT CHR$(D) ;: NEXT : PING : GET A$: IF A$="/" THEN END
110 GOTO 70