L-VideoNuLA1.02+(C)2017 Rob ColemanHHHHHLfL L L?L^%L؀  Ƈ L؀I-) ƃ`` `HhH)~0+.)~~hhhhhh`~酩~h8 lhhhhh`8 ; .)ݿݿ%ˠ IILL؀Ihhhhh`VNDISABLEVNGREY*VNPALETTEVNRESETVNVDU VideoNuLA 102+ VIDEONULA VideoNuLA 102+ VNDISABLE VNGREY VNPALETTE VNRESET VNVDU ON/OFF ȱ0 L` ##iUH     H h ~  h L--------   HhH΂ Lh LPA.=&1900:CH."PALETTE" P"L L@"`Invalid argument )O )F%NLL2ȱhhL )F׭)LxX(x,-X(45x  X() Ƈ U L`"p"`) ƃL ȩȥBfȩȥ㑨ȩȥ,- 4 5xX(Bx,-X(x  X(`hh(hhhlp$p(Lc(H}|)߭),@ cɋLbh`HHHHH c .?H  dL RL鄭4)4x X4h L hhhhhhl,j02lhlH,|$j筢;4 LHLlhH#)LHHHH) LLhH# ALHHHH" !JJJJ")#JJJJx##XL ! " # -'LHHHH" Lhhhhjh`0<HHHH) ˯ Lm I!LHHHH) ˯  I!i@!i@!i@!2i !i@!i@!i@!i0!i@!i@!i@!LhH#)`7`"p"I-) ƇI-  hH#L ԯꅨ I- HHHH ˯懅)j ja"p" MLtq"a  )L  LH)hijLhijg pgL Lq h i jg)g` P 0P`p0Pp'7GUgw%4GSbq'5GTgs)LHHHH) ˯ jL ~`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+L  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~@  Cl\#$="Q" 7:  C$="D" Dx@  C$="*" 4:STAR: t~@  C$=(17) 7:  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((col*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  PROG$="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"  . "R/SHIFT-R: inc*#rease/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 file"  "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) ~ Restore physical colour 7 jV#" 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  *CAT  15  "E'#nter 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` *PALINFOIԧft STRYKER - Stryker's Run / Superior YIEARKF - Yie Ar Kung Fu / Imagine *BARBARIbTQf"     Z*BOFFINbӨݙ     )*COMMNDObS,VwwfU3     -*CRZYRIDbөw3fff     "*FIRETRAbSfff     *FORTRESbӪaDw     *FRAKbP6wDw     e*GREYbͫz"""333DDDUUUfffwww      *HUNCHBAbM_U3U3     c*LASTNINbͬ.wDDf     N*MATCHDYbMHfDw    fD w*REVSbʭ'U3     j*SNAPPERbJF     ~*SNOOKERbʮf  U   U *STRYKERbJtJfffw3"     ֱ*YIEARKFbʯw     A+ɀ)`p HH ˯hh`