Split N Save Demo

  10 REM SPLIT N SAVE DEMO
  11 REM JAN/FEB 84 SYNC P 51
  20 PRINT AT 20,0;"NR OF FROZEN DISPLAY LINES?     (MAX=18)"
  30 INPUT N
  40 CLS 
  50 DIM A$(N)
  60 FOR L=0 TO N-2
  70 PRINT "FROZEN LINE ";L
  80 NEXT L
  90 PRINT "FROZEN LINE ";N-1;A$
 100 GOSUB 900
 110 PRINT AT 0,0;"THIS"
 120 PRINT "SHALL"
 130 PRINT "PASS"
 140 PRINT 
 150 PRINT "(PRESS ENTER)"
 160 PAUSE 1000
 170 CLS 
 180 PRINT AT 3,0;"THIS TOO SHALL PASS(PRESS ENTER)"
 190 PAUSE 1000
 200 CLS 
 210 PRINT "PRESS ENTER TO CLEAR ENTIRE SCREEN"
 220 PAUSE 1000
 230 GOSUB 1000
 240 CLS 
 250 STOP 
 260 SAVE "1014%2"
 270 RUN 
 900 LET S=PEEK 16400+256*PEEK 16401-25
 910 FOR I=0 TO N-1
 920 POKE S+I,118
 930 NEXT I
 940 RETURN 
\n1000 CLS 
\n1010 FOR I=0 TO N-1
\n1020 POKE S+I,0
\n1030 NEXT I
\n1040 RETURN