;@modern
; PACK: data stored packed, unpacked when the program runs

BYTE ARRAY packed=PACK FILE "frame.dat"    ; 240 bytes: 6 rows of 40

BYTE ARRAY picture(240)

PROC Main()
  CARD size, i

  size=Unpack(packed, picture)
  Print("Unpacked bytes: ")
  PrintCE(size)

  FOR i=0 TO size-1
  DO
    Put(picture(i))
    IF i MOD 40=39 THEN
      PutE()
    FI
  OD
RETURN