A simple screen capture program for the ZX81.
PROG : 16509
D-FILE: 17294
VARS : 18087
E-LINE: 18088
STKBOT: 18088
STKEND: 18088
9999 means line number
PRINT means treat as KEYWORD P
10 REM **SCREEN COPY**SLR/1984
20 DIM A$(704)
30 REM **A BLACK BACKGROUND**
40 FOR S=0 TO 21
50 PRINT "
"
60 NEXT S
70 REM *MAKE A SIMPLE PATTERN*
80 FOR S=21 TO 0 STEP -1
90 FOR M=21-S TO S+10
100 PRINT AT S,M;"!"
110 NEXT M
120 NEXT S
130 FOR S=0 TO 11
140 FOR M=S TO 31-S
150 PRINT AT S,M;"!"
160 NEXT M
170 NEXT S
180 REM **COPY SCREEN INTO A$**
185 FAST
190 FOR D=0 TO 21
200 FOR F=0 TO 31
210 PRINT AT D,F;
220 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
230 LET A$(D*32+F+1)=CHR$ (P)
240 NEXT F
250 NEXT D
255 SLOW
260 REM *CLEAR SCREEN WITH CLS*
270 CLS
280 REM *PRINT NEW SCREEN (A$)*
290 PRINT A$
300 REM *ALL DONE,STOP PROGRAM*
310 PRINT AT 0,0;" ** SCREEN CO
PY *** SLR/1984 ** "
320 PRINT AT 10,0;" ** PRESS K
EY TO RUN AGAIN **"
330 PAUSE 4E4
340 CLS
350 RUN
400 SAVE "SRNCP"
410 RUN