home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / MARQUEE-BORDER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  768 b   |  16 lines
  1. 1 REM CHASER BORDER JG PD DISK # 48
  2. 10 PRINT"[147]":POKE53280,15:POKE53281,15:V=53248 :  REM>   SCREEN ^   BORDER   ^
  3. 20 FORX=0TO37STEP3:POKE1024+X,96:POKE1024+X+1,160:POKE1024+X+2,224
  4. 30 POKE1984+X,224:POKE1984+X+1,160:POKE1984+X+2,96:NEXT
  5. 50 FORX=0TO22STEP3
  6. 60 POKE1024+X*40,224:POKE1024+(X+1)*40,160:POKE1024+(X+2)*40,96
  7. 70 POKE1063+X*40,96:POKE1063+(X+1)*40,160:POKE1063+(X+2)*40,224
  8. 80 NEXT:POKE2023,160
  9. 90 POKEV+17,PEEK(V+17)OR64:POKEV+34,7:POKEV+35,8 :POKEV+36,10
  10. 92 REM ^   BORDER   ^     COLORS    ^
  11. 100 POKE214,7:PRINT:PRINTTAB(12)"YOUR TITLE HERE": REM   TITLE COLOR    ^
  12. 102 PRINT"CONTINUE PROGRAM FROM HERE."
  13. 110 A=PEEK(V+34):B=PEEK(V+35):C=PEEK(V+36)
  14. 120 POKEV+34,C:POKEV+35,A:POKEV+36,B
  15. 130 GETA$:IFA$=""THENFORX=1TO6 :NEXT:GOTO110 : REM  CHANGE FOR SPEED ^^
  16.