ZX81 Listing for srncp.p


ZX81 program listing for **SCREEN COPY**SLR/1984

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17294
VARS  : 18087
E-LINE: 18088
STKBOT: 18088
STKEND: 18088

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  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