; Blocks of memory, and an error handler of our own

BYTE ARRAY a(10), b(10)

PROC Show(BYTE ARRAY t)
  BYTE i

  FOR i=0 TO 9
  DO
    PrintB(t(i)) Put(' )
  OD
  PutE()
RETURN

PROC MyError(BYTE code)
  PutE()
  Print("Something went wrong, error ")
  PrintBE(code)
  IF code=170 THEN
    PrintE("The file does not exist.")
  FI
RETURN

PROC Main()
  Zero(a, 10)                ; ten bytes of zeros
  Print("Zero:      ")  Show(a)

  SetBlock(a, 10, 7)         ; ten bytes with the value 7
  Print("SetBlock:  ")  Show(a)

  a(0)=1 a(1)=2 a(2)=3
  MoveBlock(b, a, 10)        ; copy ten bytes from a to b
  Print("MoveBlock: ")  Show(b)

  Error=MyError              ; from now on errors call MyError
  Open(1, "D:MISSING.TXT", 4, 0)
  Close(1)
  PrintE("The program goes on.")
RETURN