Q$~b#2[XtnSyi.lB s\mVg{R ]a(29ByteIn"Sep -nb=I VideoData VideoArryV VideoArray.f/WordLoopto8`*~)O,VideoA(0U1 VideoSampleCdF<PiCZnforu[otuputixsJx}z~yyuc*colour#hAwDummyGFilesizeKbytesone+byteperPixel!Bit6countsmDataWordyDataBit VideoLine VideoPixel VideoOutput VideoState8 PixelCountrddumyTHENVideoOutputaaIICDRTVRealtimevideoengineformat converterPointer FirstByteF ByteCount InputFile( " ENCVID.BAS - Encode Video Utility9 .RAW to PIC DRTV Real-time video engine format convertere with Compressiona- Input: a RAW file format from Paintshop Pro 8 256*256, 2 colour - one used (white on black backgnd)8 Output: compressed video format, 256 pixel line limited Bit7=Video Data (1 on/0 off))) Bit6-Bit0=Pixel count (1-129), add onee: Always terminates on a line HSYNC (256 pixels per line)hm coming~1.raw n} b6}4e4K Words (* 16 = Words)hy}de256 Pixels per linezV nd dd First record in filed [\d y32K words (64K Bytes)=d . dd!Vf Get eight words (16 samples)B .dp . (SHL*2 bitsgd y b&!Retrieves a 16-bit value (two bytes)d yd #Dummy Read (16-bit values) ym>" b  be_] .d . bew b: bd]B .d  . bdw bNs yd  ybO fI [m> 0x . INPUT w$U . [` [d [C yfc^=d [d dmcode.txtd  deeW d  deVd,PRINT #2, ", 0x"; HEX$(VideoArray(x + z));   ] ] XdeVX d n ]e_]d n ]e_] ]fw ] nd]d  nd]2d  d  ]d p ] Xf fPrint Video Line ArraymLine # dwnemArray >> deV  fStarting Video Stated d dd]6d dd]Re d $Number of pixels of the same stated }m .BYTE "d I d eV   a"3Same video state as last, increment pixel counter d IL *CHange of video state, save encoded byte!Save Video count -- (0=1 pixel)   dw mVideo =" m #Pixels=  Id]d }m,"d Id }m0x  [d [d   d  d]H e P +Check if 128 pixels in a row are the sameEThis pixel is already included as #128 of the previous encoded byte ea   dw mVideo =" m #Pixels=  Id]@ d }m,"d Id }m0x  [d [*Do not count as first pixel of next byted   d  d] e P f d_a    mVideo =" m #Pixels=  Id]\ d }m,"d Id }m0x  [d [ dw d  d] e P INPUT dumy$fd }m ;Data for line dwne fd }mEncoded Data for " nm = " [m Bytesd  O