Split N Save Demo

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Related Articles

Would you like to freeze the upper part of your display screen? With “Split ‘n Save” you can! While the information in the lower portion is appearing and disappearing, any test or graphics in the upper portion remain on view.

Gallery

Split N Save Demo

Source Code

  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 
1000 CLS 
1010 FOR I=0 TO N-1
1020 POKE S+I,0
1030 NEXT I
1040 RETURN 

People

No people associated with this content.

Scroll to Top