home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG096.ARC / SPLIT.WSF < prev    next >
Text File  |  1979-12-31  |  1KB  |  27 lines
  1.                            -- SPLIT --
  2.                                                    By Simon Carter
  3.  
  4.  
  5. SPLIT is  a program that modifies  BASIC so that only  a specified 
  6. number of lines of the screen  scroll, while the top half remains.  
  7. This  is useful  for retaining  information such  as a  directory, 
  8. HIRES or  LORES graphics etc.  Note  that HIRES2 graphics  will be 
  9. destroyed because  BASIC moves the  bank allocation up  whenever a 
  10. scroll occurs.
  11.  
  12.  
  13. 00100 DIM D(15,3)
  14. 00110 FOR I=0 TO 15:READ D(I,0),D(I,1),D(I,2),D(I,3):NEXT I
  15. 00120 INPUT"How many lines does split screen occupy (2-16) :"L
  16. 00130 IF L<2 OR L>16 THEN 120
  17. 00140 POKE 42640,D(17-L,0):POKE 42641,D(17-L,1)
  18. 00150 POKE 42643,D(16-L,0):POKE 42644,D(16-L,1)
  19. 00160 POKE 42646,D(17-L,2):POKE 42647,D(17-L,3)
  20. 00170 DATA 0,240,0,4,64,240,192,3,128,240,128,3,192,240,64,3
  21. 00180 DATA 0,241,0,3,64,241,192,2,128,241,128,2,192,241,64,2
  22. 00190 DATA 0,242,0,2,64,242,192,1,128,242,128,1,192,242,64,1
  23. 00200 DATA 0,243,0,1,64,243,192,0,128,243,128,0,192,243,64,0
  24.  
  25. 
  26. 00190 DATA 0,242,0,2,64,242,192,1,128,242,128,1,192,242,64,1
  27. 00200 DATA 0,243,0,1,64,243,192,0,128,