The Sinclair QL Forum

Code: Select all

void encode(void) {
  char c, n, new_c;
  if (get(&c) == 0) return;
  put(c);
  n = 1;
  new_c;
  while (get(&new_c) != 0) {
    if (new_c == c) {
      if (n == UINT8_MAX) { put(n); n = 1; put(c); }
      else { n++; }
    } else {
      put(n); put(new_c);
      c = new_c; n = 1;
    }
  }
  put(n);
}

void decode(void) {
  char c, n, i;
  while (get(&c) != 0) {
    get(&n);
    for (i = 0; i < n; i++) put(c);
  }
}

Code: Select all

100 WINDOW#1,512,256,0,0: PAPER#1,0: CLS#1
110 ConfigDrv$='Dos2_Picole_'
120 FileName$='street'&'_SCC': REMark the compressed file in format - BytesCount, Color 
130 mem1=FLEN(\ConfigDrv$&FileName$)
140 mem=ALCHP(mem1): REMark Reserve memory for compressed image
150 all=ALCHP(13590) : REMark Reserve memory for uncompressed image 360 x 151 pixels
155 crt=all
160 LBYTES ConfigDrv$&FileName$, mem :  REMark Load compressed image to buffer
170 FOR i=0 TO mem1-1 STEP 2 :  REMark Decompress image and write it to uncompressed buffer
180   cnt=PEEK (mem+i)
190   cod=PEEK (mem+i+1)
200   FILLMEM_B crt, cnt, cod
210   crt=crt+cnt
220 END FOR i
230 Loadscr:  :  REMark Move decompressed image to screen
240 RECHP mem
250 RECHP all
360  DEFine PROCedure Loadscr
390  FOR i=0 TO 150
400    MOVE_MEM all+i*90, 131072+(13+i)*128+32, 90
410    NEXT i
420  END FOR i
440  END DEFine LoadScr