home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / selectachrome (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  40 lines
  1. 10 rem**init**
  2. 12 dimt(15),n$(15),s$(15),t$(15)
  3. 14 c(0)=1:c(1)=3:c(2)=0:c(3)=6
  4. 16 fori=0to15:reads$(i):next
  5. 18 fori=0to15:readt$(i):t(i)=val(t$(i)):next
  6. 20 fori=0to15:readn$(i):next
  7. 30 rem**data**
  8. 32 data0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
  9. 34 data 144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155
  10. 36 data black,white,red,cyan,purple,green,blue,yellow
  11. 38 data orange,brown,lt.red,gray1,gray2,lt.green,lt.blue,gray3
  12. 50 rem**display**
  13. 52 poke53280,c(0):poke53281,c(1)
  14. 54 printchr$(147)chr$(t(c(2))):print
  15. 56 printtab(9)chr$(18)" selectachrome ":print:print:print
  16. 58 print"control"tab(12)"color"tab(25)"command":print
  17. 60 print:print"f1 border =";
  18. 62 printc(0)tab(15)n$(c(0))tab(25);
  19. 64 print"poke53280,"s$(c(0))
  20. 66 print:print"f3 screen =";
  21. 68 printc(1)tab(15)n$(c(1))tab(25);
  22. 70 print"poke53281,"s$(c(1))
  23. 72 print:print"f5 text1  =";
  24. 74 printc(2)tab(15)n$(c(2))tab(25);
  25. 76 print"printchr$(";
  26. 78 printt$(c(2))")"
  27. 80 printchr$(t(c(3)))
  28. 82 print"f7 text2  =";
  29. 84 printc(3)tab(15)n$(c(3))tab(25);
  30. 86 print"printchr$(";
  31. 88 printt$(c(3))")"
  32. 90 print:print:print" hit function keys to change colors"
  33. 100 rem**change colors**
  34. 102 getk$:ifk$=""then102
  35. 104 k=asc(k$)-133:ifk<0ork>7then102
  36. 106 m=int(k/4):n=k-m*4
  37. 108 ifm=0thenc(n)=c(n)+1:ifc(n)>15thenc(n)=0
  38. 110 ifmthenc(n)=c(n)-1:ifc(n)<0thenc(n)=15
  39. 112 goto50
  40.