PLUS4-BASIC-MC-CHARACTER-SET
--------------------------------------------------------------------------------------------------
TOOL: 		BASIC 3.5 {Commodore PLUS4}
Language: 	BASIC 
Extra:		none
Author: 	Misel Zivanovic
Note:		(C) 30th JULY 2026 - www.lived.ch, mzretro.ch
---------------------------------------------------------------------------------------------------

MULTICOLOR CHARACTERS WITH COMMODORE PLUS4 - Extended! Incl. numbers, some symbols and graphics.
---------------------------------------------------------------------------------------------------

This is the BASIC version of the multicolor character set.
And also here, one major point is ruining the fun!
THERE IS JUST NO CURSOR VISIBLE!

You never know where you are! I guess that's how it is! A BUG!
I am just unable to find anything about it. Not online, not in the books...
Could also be a VICE issue?

Anyway I am giving up for now, or forever... we will see...


list

100 printchr$(147):cl$=chr$(19)+chr$(17)
101 poke 65301,1:poke 65305,1+64
103 rem (c) www.mzretro.ch - july
105 rem (c) www.lived.ch   - 2026
107 print "data transfer in progress!"
115 forn=0to455:read d$:a=dec(d$)
117 print using "###"+cl$;456-n
120 poke 8192+8+n,a:next:printchr$(147)
123 rem alphabet (@ not included)
125 rem a,b,c,d,e,f
130 data a0,88,cc,fc,44,44,44,00
135 data a0,88,cc,f0,44,44,54,00
140 data a8,88,c0,c0,40,44,54,00
145 data a0,88,cc,cc,44,44,54,00
150 data a8,88,c0,f0,40,44,54,00
155 data a8,88,c0,f0,40,40,40,00
160 rem g,h,i,j,k,l
165 data a0,88,c0,cc,44,44,54,00
170 data 88,88,cc,fc,44,44,44,00
175 data 20,20,30,30,10,10,10,00
180 data 08,08,0c,0c,04,44,54,00
185 data 88,88,cc,f0,44,44,44,00
190 data 80,80,c0,c0,40,44,54,00
195 rem m,n,o,p,q,r
200 data 88,88,ec,fc,44,44,44,00
205 data 88,88,cc,ec,48,44,44,00
210 data a8,88,cc,cc,44,44,54,00
215 data a0,88,cc,fc,40,40,40,00
220 data a0,88,cc,cc,44,64,58,00
225 data a0,88,cc,fc,50,44,44,00
230 rem s,t,u,v,w,x,y,z
235 data a8,88,c0,fc,04,44,54,00
240 data a8,a8,30,30,10,10,10,00
245 data 88,88,cc,cc,44,44,54,00
250 data 88,88,cc,cc,44,50,40,00
255 data 88,88,cc,cc,44,54,44,00
260 data 88,88,cc,30,54,44,44,00
265 data 88,88,cc,fc,10,10,10,00
270 data a8,08,30,30,40,40,54,00
400 rem symbols
401 rem [,pound,], arr. up, <-, space
402 data a0,80,c0,c0,40,40,50,00
403 data 28,96,9a,df,df,d7,3c,00
404 data 0a,02,03,03,01,01,05,00
405 data 77,dd,77,dd,77,dd,77,dd
406 data 88,88,22,22,88,88,22,22
407 data 00,00,00,00,00,00,00,00
450 rem !,",#,,%,&
451 data 20,20,30,30,10,00,10,00
452 data 88,88,cc,00,00,00,00,00
453 data 87,93,87,93,c6,d2,c6,d2
454 data 55,69,75,75,75,55,74,55
455 data 55,1d,55,5d,5d,5d,69,55
456 data 14,55,55,55,55,55,55,14
500 rem '()*+,
501 data 08,0c,10,10,00,00,00,00
502 data 08,20,30,30,10,10,04,00
503 data 20,08,0c,0c,04,04,10,00
504 data 80,80,f0,f0,50,54,54,55
505 data 02,02,0f,0f,05,15,15,55
506 data 38,97,d6,97,d6,97,d6,2c
507 rem - . /
508 data 00,00,00,b4,00,00,00,00
509 data 00,00,00,00,00,30,10,00
510 data 54,1c,35,54,1c,35,54,1c
600 rem numbers
601 rem 0,1,2,3,4,5,6,7,8,9
602 data 28,88,cc,cc,44,44,50,00
603 data 08,28,0c,0c,04,04,04,00
604 data a8,88,0c,30,40,44,54,00
605 data a0,88,0c,30,04,44,50,00
606 data 80,88,cc,fc,04,04,04,00
607 data a8,80,c0,fc,04,44,50,00
608 data 28,88,c0,fc,44,44,50,00
609 data a8,88,0c,30,10,10,10,00
610 data 28,88,cc,30,44,44,50,00
611 data 28,88,cc,fc,04,44,50,00
612 rem multicolor on
650 for a=0 to 58
660 poke 3072+a,a
670 next
710 poke 65299,(peek(65299)and3)or32
720 poke 65298,peek(65298)and251
730 poke 65287,peek(65287)or16
750 print chr$(153):end
760 rem :
900 :
910 rem gosub 950 to return to
920 rem default character set
950 poke 65299,(peek(65299)and3)or208
960 poke 65298,peek(65298) or 4
970 poke 65287,peek(65287) and 239
980 return