Flashing Atari Prompt

I was intrigued by Glenn Murray's "Flashing Prompt For VIC and PET" (COMPUTE!, December 1982). It was just the thing for a number of my programs. It was easily adjusted for my Atari. I offer the re-worked program for your readers:

10 POKE 752, 1
20 DIM A$(30), B$(30), X$(30)
30 A$ = "PRESS ANY KEY TO CONTINUE"
40 B$ = "{CLEAR}"
50 X$ = A$
60 FOR R = 1 TO 100
70 POKE 656, 2: PR. X$ : REM ***PRINTS MESSAGE IN WINDOW***
80 FOR W = 1 TO 333 : NEXT W
90 IF PEEK(764) = 255 THEN 110
100 IF PEEK(764)<>255 THEN RETURN :REM ***THIS GOS. RETURNS**
110 IF X$ = A$ THEN X$ = B$ : NEXT R
120 IF X$ = B$ THEN X$ = A$ : NEXT R

Note: Line 100 returns this GOS. routine to the main program. When you return the first entry should be, POKE 764, 255:PR. B$.

Barry E. Krischer