home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh75b.d64 / extended.color (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  411b  |  20 lines
  1. 90 FORI=0TO3:READA(I):NEXT
  2. 100 POKE53280,12:REM RAHMENFARBE
  3. 110 POKE53281,12:REM FARBE 0-63
  4. 120 POKE53282,2:REM FARBE 64-127
  5. 130 POKE53283,7:REM FARBE 128-191
  6. 140 POKE53284,5:REM FARBE 192-255
  7. 200 POKE53265,91:REM  EXTENDED ON
  8. 210 PRINT"[155]":REM ZEICHENFARBE WEISS
  9. 220 PRINT"[147]":REM BSCH LOESCHEN
  10. 300 FORI=0TO255
  11. 320 POKE1024+I,I
  12. 330 POKE55296+I,A(A):L=L+1:IFL=64THENL=0:A=A+1
  13. 340 NEXT
  14. 400 POKE198,0:WAIT 198,1
  15. 410 POKE 53265,27
  16. 420 POKE198,0:WAIT 198,1
  17. 430 POKE 53265,91
  18. 440 GOTO400
  19. 450 DATA1,7,2,0
  20.