C128_HiResGfx_FullScreen_Expression

lived.ch, 15.01.2024

-------------------------------------

Face/C128: { four characters }

-------------------------------------

Listing 1 - Full Screen Graphics C128 { BASIC }

{ modified listing, Final }, 15.01.2024, 16:50


100 gs=8192:nl=320:cs=7168:cl=40
110 color 1,5:graphic 1,1
120 for y = 0 to 23 step 2
130 for x = 0 to 39 step 2
140 pokegs+(nl*y)+0+(x*8),173
150 pokegs+(nl*y)+1+(x*8),80
160 pokegs+(nl*y)+2+(x*8),182
170 pokegs+(nl*y)+3+(x*8),96
180 pokegs+(nl*y)+4+(x*8),193
190 pokegs+(nl*y)+5+(x*8),160
200 pokegs+(nl*y)+6+(x*8),128
210 pokegs+(nl*y)+7+(x*8),143
220 rem
230 pokegs+(nl*y)+0+(x+1)*8,181
240 pokegs+(nl*y)+1+(x+1)*8,10
250 pokegs+(nl*y)+2+(x+1)*8,109
260 pokegs+(nl*y)+3+(x+1)*8,6
270 pokegs+(nl*y)+4+(x+1)*8,131
280 pokegs+(nl*y)+5+(x+1)*8,5
290 pokegs+(nl*y)+6+(x+1)*8,1
300 pokegs+(nl*y)+7+(x+1)*8,241
310 rem
320 pokegs+nl*(y+1)+0+(x)*8,192
330 pokegs+nl*(y+1)+1+(x)*8,127
340 pokegs+nl*(y+1)+2+(x)*8,197
350 pokegs+nl*(y+1)+3+(x)*8,93
360 pokegs+nl*(y+1)+4+(x)*8,221
370 pokegs+nl*(y+1)+5+(x)*8,93
380 pokegs+nl*(y+1)+6+(x)*8,197
390 pokegs+nl*(y+1)+7+(x)*8,127
400 rem
410 pokegs+nl*(y+1)+0+(x+1)*8,2
420 pokegs+nl*(y+1)+1+(x+1)*8,254
430 pokegs+nl*(y+1)+2+(x+1)*8,35
440 pokegs+nl*(y+1)+3+(x+1)*8,170
450 pokegs+nl*(y+1)+4+(x+1)*8,35
460 pokegs+nl*(y+1)+5+(x+1)*8,107
470 pokegs+nl*(y+1)+6+(x+1)*8,35
480 pokegs+nl*(y+1)+7+(x+1)*8,254
490 rem
500 next x
510 next y
520 rem :::: share your colors
530 rem graphic 2,0,15
540 for y=0 to 23 step 2
550 for x=0to19
560 ex=int(rnd(1)*3)+1:print ex
570 gosub 860
580 if ex=1 then gosub 620
590 if ex=2 then gosub 690
600 if ex=3 then goto 770
610 goto 770
620 fora=6to6
630 pokegs+(x*16)+(nl*(0+y))+a,16
640 next
650 fora=6to6
660 pokegs+8+(x*16)+(nl*(0+y))+a,8
660 pokegs+8+(x*16)+(nl*(0+y))+a,8
670 next
680 return
690 rem next row :::::::::::::::::
700 fora=0to0
710 pokegs+(x*16)+(nl*(1+y))+a,16
720 next
730 fora=0to0
740 pokegs+8+(x*16)+(nl*(1+y))+a,8
750 next
760 return
770 rem exit rnd and next rotation
780 next:next
790 b$="commodore c128/it can be done!"
800 c$=" 2024!":d$=b$+c$
810 t=len(d$)/2:color 1,15
790 b$="commodore c128/it can be done!"
800 c$=" 2024!":d$=b$+c$
810 t=len(d$)/2:color 1,15
820 char 1,20-t,24,d$,1
830 get a$:if a$=" " then goto 850
840 goto 830
850 graphic 0:end
860 rem colors
870 l=(rnd(1)*10)+1
880 poke cs+(x*2)+(cl*(0+y)),l
890 o=(rnd(1)*10)+1
900 pokecs+1+(x*2)+(cl*(0+y)),o
910 k=(rnd(1)*10)+1
920 poke cs+(x*2)+(cl*(1+y)),k
930 i=(rnd(1)*10)+1
940 pokecs+1+(x*2)+(cl*(1+y)),i
950 return