home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 February / 1993-02.d64 / 240colors (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  902b  |  27 lines
  1. 0 clr
  2. 100 print "[147]":dim c$(15):for i=0 to 15:read c$(i):next:gosub 240
  3. 110 print"f1/f7 background  [return] text"
  4. 120 data blk,wht,red,cyn,pur,grn,blu,yel
  5. 130 data org,brn,lred,dgry,mgry,lgrn,lblu,lgry
  6. 140 poke 251,peek(253):poke 252,peek(254)
  7. 150 print "":for i=0 to 15:if (peek(253) and 15)=i then print"";
  8. 160 print c$(i)"[146]",
  9. 170 if (peek(254) and 15)=i then print "";
  10. 180 print c$(i)"[146]":next
  11. 190 get a$:if a$="" then 190
  12. 200 if a$="[133]" then poke 253,(peek(253)+1) and 15
  13. 210 if a$="[136]" then poke 254,(peek(254)+1) and 15
  14. 220 if a$=chr$(13) then poke 646,(peek(646)+1) and 15
  15. 230 goto 140
  16. 240 sa=679:for i=0to 73:read d:poke sa+i,d:next
  17. 250 a=sa+36:pokesa+30,a/256:poke sa+25,a-peek(sa+30)*256:sys sa:return
  18. 260 data 120,173,26,208,9,1,141,26,208
  19. 270 data 173,17,208,41,127,141,17,208
  20. 280 data 169,0,141,18,208,133,2,169,203
  21. 290 data 141,20,3,169,2,141,21,3,88,96
  22. 300 data 173,25,208,41,1,208,3,76,49
  23. 310 data 234,166,2,181,251,141,32,208
  24. 320 data 181,253,141,33,208,138,73,1
  25. 330 data 133,2,173,25,208,9,1,141,25
  26. 340 data 208,76,129,234
  27.