home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / SPLIT-SCREEN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  896 b   |  31 lines
  1. 10 GOSUB 130
  2. 20 INPUT"SELECT TOP SCREEN COLOR: ";A
  3. 30 INPUT"SELECT BOTTOM SCREEN COLOR: ";B
  4. 40 PRINT"WHAT ROW FOR SCREEN DIVISION?"
  5. 50 INPUTC:IFC<1ORC>23THENPRINT"VALID RANGE IS 0-23  RE-ENTER":GOTO40
  6. 60 SYS49152
  7. 70 POKE829,A:REM SET TOP SCREEN COLOR
  8. 80 POKE830,B:REM SET BOTTOM SCREEN COLOR
  9. 90 POKE 831,21:REM TOP SCREEN UPPERCASE/GRAPHICS
  10. 100 POKE 832,23:REM BOTTOM SCREEN LOWER CASE
  11. 110 POKE828,50+C*8:REM SET DIVIDING POINT
  12. 120 STOP
  13. 130 CK=0:FORI=49152TO49247:READA:CK=CK+A:POKEI,A:NEXT:IFCK=10244THEN RETURN
  14. 140 PRINT"ERROR IN DATA STATEMENTS":STOP
  15. 150 DATA120,169,127,141,13,220
  16. 160 DATA169,1,141,26,208,173
  17. 170 DATA60,3,141,18,208,169
  18. 180 DATA27,141,17,208,169,34
  19. 190 DATA141,20,3,169,192,141
  20. 200 DATA21,3,88,96,173,18
  21. 210 DATA208,205,60,3,208,28
  22. 220 DATA169,0,141,18,208,173
  23. 230 DATA64,3,141,24,208,173
  24. 240 DATA62,3,141,33,208,169
  25. 250 DATA1,141,25,208,104,168
  26. 260 DATA104,170,104,64,173,60
  27. 270 DATA3,141,18,208,173,61
  28. 280 DATA3,141,33,208,173,63
  29. 290 DATA3,141,24,208,169,1
  30. 300 DATA141,25,208,76,49,234
  31.