Personal Computer News


Action Replay for Atmos Games

 
Published in Personal Computer News #075

Action Replay for Atmos Games

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

T. Warburton