Posted By
dataprint
on 2020-07-05
14:48:55
|  How to define char in mono color in BASIC with POKE
Hello,
How I can define char in monocolor in BASIC with POKE ??
See you later and thanks
AG 
|
|
Posted By
gerliczer
on 2020-07-05
15:28:22
| Re: How to define char in mono color in BASIC with POKE
Exactly the same way you do it with multi-colour characters.
|
|
Posted By
Csabo
on 2020-07-05
16:58:56
| Re: How to define char in mono color in BASIC with POKE
Hi AG, Check out this entry in the Plus/4 Encyclopedia, it has working examples. Let us know if you run into any problems. Cheers 
|
|
Posted By
dataprint
on 2020-07-06
04:22:49
| Re: How to define char in mono color in BASIC with POKE
Hello,
I am see this:
With the following POKE's, you can switch the auto reverse, multicolor and 38/40 columns on custom charset:
poke65287,peek(65287)and64or0:rem ...auto-revers on, multicolor off, 38 colums
poke65287,peek(65287)and64or8:rem ...auto-revers on, multicolor off, 40 columns
poke65287,peek(65287)and64or16:rem ...auto-revers on, multicolor on, 38 colums
poke65287,peek(65287)and64or24:rem ...auto-revers on, multicolor on, 40 columns
poke65287,peek(65287)and64or128:rem ...auto-revers off, multicolor off, 38 colums
poke65287,peek(65287)and64or136:rem ...auto-revers off, multicolor off, 40 columns
poke65287,peek(65287)and64or144:rem ...auto-revers off, multicolor on, 38 colums
poke65287,peek(65287)and64or152:rem ...auto-revers off, multicolor on, 40 columns
On 38 columns it shows only 38 chars per row. The 2 others are behind the border!
--------------------------------------------------------------------------------------------------------------------------------------------------------------
0 rem ...copy charset from rom to ram at $4800...
1 restore:fora=832to849:readb:pokea,b:next:sys832
2 data162,0,189,0,208,157,0,72,189,0,209,157,0,73,202,208,241,96
The 8. (72) and the 14. (73) are the adresses to copy the charset to.
--------------------------------------------------------------------------------------------------------------------------------------------------------------
10 rem ...edit the copied chars (see above)...
20 fora=18944to18999:readb:pokea,b:next
30 poke65298,peek(65298)and251:poke65299,peek(65299)and3or72
40 data255,102,195,195,102,255,0,0,126,102,126,102,126,102,126,102
50 data60,126,135,215,215,255,255,219,60,126,225,235,235,255,255,219
60 data14,24,126,223,255,255,255,126,54,36,126,195,235,255,247,126
70 data108,36,126,195,215,255,239,126
30: switch from standard charset to the custom at adress 72 ($4800)
--------------------------------------------------------------------------------------------------------------------------------------------------------------
poke65301,x(x=0-127): rem background color
poke65302,x(x=0-127): rem multicolor #1
poke65303,x(x=0-127): rem multicolor #2
poke65305,x(x=0-127): rem border color
poke65286,0:rem ...screen off (the program runs ca. 20% faster)...
poke65286,27:rem ...screen on...
--------------------------------------------------------------------------------------------------------------------------------------------------------------
With the following snippet, you can simulate keystrokes:
10 printchr$(147)"print"chr$(34)"a little test"chr$(34)
20 poke1319,19:rem ...1 x home...
30 poke1320,13:rem ...1 x return...
40 poke 239,2:rem ...2 keys to play...
-----------------------------------------------------------------------------------------------------------
Can you do an example in POKE with POKE BASIC ??
start character n.65 CHR$(65)
Thank you again
See you later
AG.
|
|
Posted By
gerliczer
on 2020-07-06
07:14:13
| Re: How to define char in mono color in BASIC with POKE
Somehow, I'm quite sure that Csabo's idea was that you read and understand the article, after which you create your solution, and not that you copy the content of the article here.
|
|
Posted By
Csabo
on 2020-07-06
17:32:31
| Re: How to define char in mono color in BASIC with POKE
Just to follow up, AG / dataprint contacted me via email. It's clear that we some difficulties communicating, but I'm sure we can figure this out
|
|
|
