L-VideoNuLA1.03+(C)2019 Rob ColemanHHHHHLfL L L?L^%L؀ a  y L؀I-) y`` `HhH)~0+.)~~hhhhhh`~酩~h8 lhhhhh`8 '; .)ǁǁ%Ӡ 'IILL؀Ihhhhh`VNDISABLElVNGREY;VNLOADVNPALETTEVNRESETtVNVDU VideoNuLA 103+ VIDEONULA VideoNuLA 103+ VNDISABLE VNGREY VNLOAD VNPALETTE VNRESET VNVDU ON/OFF ȱ0 L-` z##iUH     H 'h ~ z h L-------- ei@ L僢 N I D 9)e# -) $)e# " " LL僩   HhHT L1h LPA.=&1900:CH."PALETTE" P"L zL@"`Unable to open fileError reading fileInvalid argument )O )F%NLlL僆ȱhhL )F׭)LxX(x,-X(45x  X() a y U L`"p"`) yL ÑȩȥBȩȥȩȥ,- 4 5xX(Bx,-X(x  X(`hh(hhhlp$p(L(H}|)߭), ɋLh`HHHHH  ?H  dL RL4)4x X4h L hhhhhhl,j02lhlH,|$j筢;4 L҅HLhH#)L҅HHHH) eLLjhH# AL҅HHHH" !JJJJ")#JJJJx##XL ! " # -'L҅HHHH" LPhhhhjh`0<HHHH) 䱪Lmƈ I!LHHHH) 䱪 I!i@!i@!i@!2i !i@!i@!i@!i0!i@!i@!i@!LhH#)`7`"p"I-) yI-  hH#L҅ ꅨ I- HHHH 䱪)j ja"p" ML'q"a  G)L  L)hijLnhijg pgL L$ h i jg)g` P 0P`p0Pp'7GUgw%4GSbq'5GTgs)L҅HHHH) 䱪 GjL!#)#)Lʊ)ڽ݉L)ڽ≅Lʊ)ڽ򉅨WWI%څMX%څҥI%҅`"Y` ) L :jLHH :hh`jH hH        ihЪ`Ʌɇ(l4H)` i 䱪hLH)HHHH hhhhh(`XX Xf)L$L$Ūe (%ѨL_0iL;` PPPPPPPP xp(  @ PP`h @ @@@ @  @ p @  @pȈp ` pp @ p0Pp0@p @@@ppppx` @ @@ @  @p pppppxxp px`بȨppph𠐈xp pP PP PP  @p@@@@@p@ pp P0H@@@pxx8@@@8xx0Hx@0( p 0HH80@@pHHHH ` pP @@P``PH` pP0HHHH0HHH0pHHp@@ppX`@@@ppp p xP PP PHHH80 @   @ HHHHHHHH lh$  @ HH`d @ @@@ @  @ h @  @hĄh ` hh @ h(Hh(@脄h @@@hhhhl` @ @@ @  @h hhh섄脄脄hh쀀耀쀀耀ll섄h hl`̤Ĥhh脄耀hd脄蠈lh hH HH HH  @h@@@@@h@ hh H(D@@@hll脄,@@@,ll(Dl@($ h (DD,(@@hDDDD ` hH @@H``HD` hH(DDDD(DDD(hDDh@@hh L`@@@hhh h lH HH HDDD,( @ @lll66666 ?h> ~`f 0f8ll8mf; 0 000 0 0~<~~0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff>f>``|fff|fff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|000ffff>fff<ckk6f<<~ 0~ p 001kF*PALETTE#d  VideoNuLA palette setter  Rob Coleman  April 2017 ( P%=0 2 PROG$="MAIN" < d~F F *FX 4,1 P 4 Z R(16),G(16),B(16),F(16) d HELP n PROG$="MAIN" x A=0 15  A<8 F(A)=0 F(A)=1  A 1 R(A)=15 R(A)=0#  A 2 G(A)=15 G(A)=0  A 4 B(A)=15 B(A)=0 SET(A)  2  23;8202;0;0;0; 0,15)  A=0 15 A: 0,A  80*A,1023  0,0,-200  81,80,0  0,0,200  81,-80,0 " ,N=0 6 7 @ 0,10);"COLOUR: ";N#;" " J T"RED =";R(N);" " ^"GREEN =";G(N);" " h"BLUE =";B(N);" " r |( F(N)=1 "FLASHING" " " C$=_TOUPPER()  (-1) INC=-1 INC=1 ? C$="R" R(N)=R(N)+INC: R(N)<0 R(N)>15 R(N)=R(N)-INC ? C$="G" G(N)=G(T#(N)+INC: G(N)<0 G(N)>15 G(N)=G(N)-INC ? C$="B" B(N)=B(N)+INC: B(N)<0 B(N)>15 B(N)=B(N)-INC * C$="F" N>7 F(N)=F(N)1:FLASH(N)  C$="H" 4:HELP: t~@ # C$="L" 4:FILE(0): t~@ # C$="S" 4:FILE(1): t~@ ! C#$="Q" 7:("FX 4,0"):  C$="D" Dx@  C$="*" 4:STAR: t~@ " C$=(17) 7:("FX 4,0"):  SET(N)  K%=(C$)  K%=&88 N=N-1 & K%=&89 N=N+1 0 N<0 N=0 : N>15 N=15 D TvA N X SET(col) b pal((cB#ol*16)+R(col)) l pal((G(col)*16)+B(col)) v col>7 FLASH(col)   FLASH(col) val%=0:code%=&80:start%=8 " col>11 code%=&90:start%=12  I%=start% start%+3 val%=(2*val%)+F(I%)   ?&FE22=code%+val%   HELP  PROGzv#$="HELP" 4 rb=R(0):gb=G(0):bb=B(0):rw=R(7):gw=G(7):bw=B(7) # Restore physical colour black  pal(0)  pal(0) # Restore physical colour white   pal(&7F) * pal(&FF) 4 23;8202;0;0;0; >! "VideoNuLA Palette Utility" H! "=============.#============" R \+ "This utility allows the BBC Micro's" f. "16 physical colours to be redefined to" p, "any of VideoNuLA's 4096 analogue RGB" z "colours."    "Keys: "  "====="  ( "Cursor left/right: select colour" m# . "R/SHIFT-R: increase/decrease red value" X "G/SHIFT-G: increase/decrease green valueB/SHIFT-B: increase/decrease blue value"  - "F: Toggle flashing bit (colours 8-15)" # "D: Restore default palette"   "L: Load palette filef#"  "S: Save palette file"  "*: Enter *commands" $ .! "H: Display this help page" 8 B "Q: Quit program" L V# "Press SPACE to continue..." ` :A$=: A$=" " j Restore physical colour 0 t pal(rb):pal((16*gb)+bb) ~ Res#tore physical colour 7 " pal(&70+rw):pal((16*gw)+bw)  PROG$="MAIN"   FILE(loadsave) / loadsave=0 PROG$="LOAD" PROG$="SAVE" 4 rb=R(0):gb=G(0):bb=B(0):rw=R(7):gw=G(7):bw=B(7)  pal(0):pal(0)  pal(&7F):pal(&FF)  14 k # *CAT  15  "Enter file to "; ' loadsave=0 "load" "save"  ": "C$  C$="" dRE % loadsave=0 P%= C$ P%= C$ (< P%=0 "Can't open file ";C$: T=0 1000::: dXD 2 A=0 15:L=A 0 #P% & PROG$="HELP" 4:HELP 0" PROG$="LOAD" 4:FILE(0) :" PROG$="SAVE" 4:FILE(1) D PROG$="STAR" 4:STAR N t~@ *PALINFO'VideoNuLA palette files ======================= These example files can be loaded with the palette utility: BARBARI - Barbarian / Superior BOFFIN - Boffin / Addictive COMMNDO - Commando / Elite CRZYRID - Crazy Rider / Superior FIRETRA - Firetrack / Elecl#tric Dreams FORTRES - Fortress / Pace FRAK - Frak / Aardvark GREY - Greyscale HUNCHBA - Hunchback / Ocean LASTNIN - Last Ninja / Superior MATCHDY - Match Day / Ocean REVS - Revs / Acornsoft SNAPPER - Snapper / Acornsoft SNOOKER - Snooker / Acornso` *PALINFOIpft STRYKER - Stryker's Run / Superior YIEARKF - Yie Ar Kung Fu / Imagine *BARBARIbl]f"     Z*BOFFINbrݙ     )*COMMNDObkwwfU3     -*CRZYRIDbRw3fff     "*FIRETRAbkfff     *FORTRESbz]Dw     *FRAKbhwDw     e*GREYbW"""333DDDUUUfffwww      *HUNCHBAbeJU3U3     c*LASTNINb4wDDf     N*MATCHDYbefDw    fD w*REVSb,U3     j*SNAPPERbbi     ~*SNOOKERb=f  U   U *STRYKERbbfffw3"     ֱ*YIEARKFb.w     A+ɀ)`p HH hh`